Delphi 程序设计教程：事件代码编写——数据库应用程序设计
编写输入编号时姓名显示同步的代码
在表单中选中 EditNo 编辑框对象，双击“Object Inspector”的 OnChange 事件，编写以下代码：
procedure TForm1.EditNoChange(Sender: TObject);
begin
With ADOQuery1 do
begin
if Active then
begin
if Locate('EmpNo', EditNo.Text, []) then
EditName.Text := ADOQuery1.FieldByName('LastName').AsString;
end;
end;
end;
评论区