Procedure TForm1. Edit1Change (Sender: TObject);
Var
T: Integer;
The begin
T:=StrToInt (Edit1. Text);
end;
Procedure TForm1. Button2Click (Sender: TObject);
Var
T: Integer;
The begin
In query1.sql. Add (' select * from ZD_PERSONNAL where GH:='" + Edit1. Text + "' ");
end;
End.

This is my design of a query, but in the end the input work number according to the working status information

CodePudding user response:

Please turn the Delphi area A)
B) what the database? SQL should not be in the := comparison operators, should be =, is not an error?