db双击事件.txt

同学通讯录

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
try
form2.Edit1.Text:=dbGrid1.Fields[0].AsString;
form2.Edit2.Text:=dbGrid1.Fields[1].AsString;
form2.Edit3.Text:=dbGrid1.Fields[2].AsString;
form2.Edit4.Text:=dbgrid1.Fields[6].AsString;
form2.Edit5.Text:=dbgrid1.Fields[3].AsString;
form2.Edit6.Text:=dbgrid1.Fields[7].AsString;
form2.Edit7.Text:=dbgrid1.Fields[4].AsString;
form2.Edit8.Text:=dbgrid1.Fields[8].AsString;
form2.Edit9.Text:=dbgrid1.Fields[5].AsString;
form2.ShowModal;
except
 raise exception.Create('请在条件栏输入你要查找的条件！');
end;
end;