Question

delphi 数据库开发，有两个form，不在同一单元，一个查询在，另一个中显示查询结果，求代码

并且在按下查询按钮时，显示第二个form并带有查询结果，在相应的框中显示相应的数据，比如 姓名：张三 ........

Answer 1

先放dataset，datasouce ，在第二个from上放个dbgrid，然后关联datasource

接着查询dataset，show第二个from，第二个自然就会显示结果

追问

谢谢，这个我也知道，可能没表达清楚，不好意思

追答

你想要效果是不是这样：第一个窗口，输入查询条件，点查询后显示第二个窗口，窗口上就会有查询结果出来？
如果是这种的话，只要把dataset，dbgrid什么的设置好了的话，就有结果了

你说的相应的框是指什么，edit框？

Answer 2

你可以建立一个公用单元啊

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from testuser where username='''+edit1.Text+'''');
open;
end;
if adoquery1.RecordCount>0 then
begin
form2.Edit1.Text :=adoquery1.fieldbyname('username').AsString;
form2.Edit2.Text :=adoquery1.fieldbyname('password').AsString;
form2.Edit3.Text :=adoquery1.fieldbyname('age').AsString;
form2.Show;
end;
end;
代码主要是form1的查询按钮，
form2只要拖几个控件就可以。

Answer 4

给邮箱，我发个demo

追问

谢谢，1169834551@qq.com