XiaoHui.Net 笑汇程序员论坛Delphi 技术讨论

   怎样把查询到的数据库对应字段的值显示出来


页: [1]

cgivc2006-7-5 07:00
怎样把查询到的数据库对应字段的值显示出来

谁能帮我检查一下到底哪里出错了
1代码如下
  begin
     Memo1.Text:=Memo1.Text+'一、选择题'+'(每题'+Form22.Edit2.Text+'分)'+#13#10#13#10;
     a:=StrToInt(Form22.Edit1.Text);
     for k:=1 To a do
       begin
       query1.close;
       query1.SQL.Clear;
       query1.SQL.Add('select 题目,选项A,选项B,选项C,选项D from danxuanbiao where 难易度='+''''+Form22.ComboBox3.Text+''' and 所在章节='+''''+Form22.ComboBox1.Text+'''');
       memo1.Text:=memo1.Text+Tcaption(IntToStr(a)+query1.fieldvalues['题目'])+#13#10#13#10;
       memo1.Text:=memo1.Text+Tcaption('A'+query1.fieldvalues['选项A'])+#13#10#13#10;
       memo1.Text:=memo1.Text+Tcaption('B'+query1.fieldvalues['选项B'])+#13#10#13#10;
       memo1.Text:=memo1.Text+Tcaption('C'+query1.fieldvalues['选项C'])+#13#10#13#10;
       memo1.Text:=memo1.Text+Tcaption('D'+query1.fieldvalues['选项D'])+#13#10#13#10;
       query1.open;
       end;
    end;
2运行结果如下
       一、选择题(每1分)
          1
          A
          B
          C
          D

       2
           A
           B
           C
           D
          .....
3问题:怎样把查询到的数据库对应字段的值显示出来(显示在memo1.Text中)



查看完整版本: 怎样把查询到的数据库对应字段的值显示出来