小小尿：一个”查询“按钮，想改成用ADOTABle控制数据库。

Question

procedure TQuery.CmdQueryClick(Sender: TObject);
begin
  Form1.Table1.indexFieldNames:='empno';
  // Form1.ADOTable1.IndexFieldNames:='vcNo';
   if Form1.Table1.Findkey([TxtEmpNo.text]) then  { Form1.Table1.Findkey([TxtEmpNo.text])}
    begin
     txtSalary.text:= Form1.Table1.FieldByName('Salary').AsString;
     txtHireDate.Text:=Form1.Table1.FieldByName('hireDate').AsString;
     //Form1.Table1.FieldByName('hireDate').AsString;
    end
   else
 begin
  Messagedlg('Your empno is wrong', mtError,[mbOK],0);
  TxtEmpNo.Text:='';
  close;
 end;
end;

Answer 1

所有的table1前加Ado即可，不过仅限于你这段程序