97
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin Form13.Hide; Form1.Show; end;
procedure TForm13.Button1Click(Sender: TObject);
begin
try
Form1.ADOQuery3.SQL.Clear;
Form1.ADOQuery3.SQL.Add('SELECT * FROM [Начисление заработной
платы] WHERE Номер LIKE ''%'+Edit1.Text+'%''');
Form1.ADOQuery3.Active:=True;
Form1.ADOQuery4.SQL.Clear;
Form1.ADOQuery4.SQL.Add('SELECT * FROM Сотрудник WHERE [Код
сотрудника] LIKE ''%'+Edit1.Text+'%''');
Form1.ADOQuery4.Active:=True;
except on e:Exception do end;
end;
end;
end.