急...

Question

在access数据库和delphi写的程序中,怎样实现:在界面上的文本框(edit1.txt)输入工号(person_no)后,按"提交"按钮时,系统找到该员工记录,把文本框(edit2.txt)中的金额替换成工资表(gz_table)中该员工的金额.

Answer 1

定义按钮的OnClick事件，实现查询和替换程序

Answer 2

Procedure TForm1.Button1Click(Sender :Objcet);
begin
      ...
      
      Edit1.Text := AdoTable1.FieldByName('preson_no').AsString;
end ;

Answer 3

是这样的
Procedure TForm1.Button1Click(Sender :Objcet);
begin
      
      AdoTable1.close; 
      AdoTAble1.Sql.Clear ;
      AdoTable1.Sql.Add(  'Selcet * From TableName Where preson_no=' +
                          #39+ Trim(Edit1.Text)+ #39  ) ;
      Edit2.Text := AdoTable1.FieldByName('金额').AsString;
      AdoTable1.Open ;
end ;如果，不行就看看书吧，

Answer 4

上面已經說了,你也可以用DBEdit