注册 登录
编程论坛 Delphi论坛

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

cgivc 发布于 2006-07-05 15:35, 635 次点击

谁能帮我检查一下到底哪里出错了
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中)

1 回复
#2
金发2006-07-12 08:47
把query1。open
放在memo1.Text:=memo1.Text+Tcaption(IntToStr(a)+query1.fieldvalues['题目'])+#13#10#13#10;
之前。
没有交代Form22.Edit1.Text的含义,所以你的那个for循环没有看懂是什么意思。
关于表的命名不是很规范,用汉语拼音命名实在是太。。。
1