我是新手,学DELPHI不到一星期,遇上问题不知道如何是好?
我在FORM1上面有个BUTTON,一个EDIT1,一个ADOQUERY,
我想要点击BUTTON,打开一个新的FORM,显示的是DBGrid,内容是一个SELECT出来的列表,比如职工名单,然后想点击其中一条纪录,将关闭这个窗口,返回到主窗口,在EDIT1.text上面显示所选的职工名字。
我要该怎么做,有谁帮我???
我在FORM1上面有个BUTTON,一个EDIT1,一个ADOQUERY,
我想要点击BUTTON,打开一个新的FORM,显示的是DBGrid,内容是一个SELECT出来的列表,比如职工名单,然后想点击其中一条纪录,将关闭这个窗口,返回到主窗口,在EDIT1.text上面显示所选的职工名字。
我要该怎么做,有谁帮我???
uses detailForm;
Button1_Event:
procedure TForm1.Button1Clicked(Sender);
begin
if not assigned(NewForm) then NewForm:=TNewForm.Create(self);
NewForm.DbGrid.dataSet:=Form1.AdoQuery;
With AdoQuery do begin
SQL:='Your sql';
Open;
end;
newForm.ShowModal;
end;In NewForm:
uese form1;
procedure TNewForm.dbgridclicked(Sender);
begin
Form1.Edit1.Text:=DbGrid.selecked;
close;
end;