Question

Delphi如何使用两个Button显示下一条数据库信息到Memo中 Form1有一个butto

Delphi如何使用两个Button显示下一条数据库信息到Memo中
Form1有一个button，点击打开Form2并读取数据库信息到Form2的Memo中，如何点击Form2的Button使之继续往下显示数据，是继续下一条 不是从新覆盖一次第一条 再继续下一条如下图

Answer 1

//-- Form1 代码 --/
implementation
uses Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  var1 : string;
begin
  with DataModule3.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select 字段1 from 表1 where 条件1 = '''+var1+''' ');
    Open;
  end;
end;


//-- Form2 代码 --/
implementation
uses Unit3;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
  with DataModule3.ADOQuery1 do
  begin
    while not Eof do
    begin
      Memo1.Lines.Add(FieldByname('字段1').AsString);
      Next;
    end;
  end;
end;

Answer 2

这些前提是否已经具备：

1. 查询得到的数据集。

2. Memo的基本操作。

假定已经有了以上前提，问题很容易解决。

Form2的Button1的Onclick事件就是数据集的下一条数据的字符串增加。

........................................................................................................

//Str1:string;

//

//数据集.next

//Str1:='';

//Str1:=Str1 + 数据集.FieldByName('XXX').Astring+ ' ';

 ..........//重复上一条语句，增加你需要显示的字段

//Memo1.Lines.add(Str1);//向Memo中添加字符串

.........................................................................................................

以上只能算是思路，代码需要自己整理。

Answer 3

把memo1绑定到数据源，button1.click是打开数据，button2是adoquery1.next