Контрольная работа: Інформаційна система будівельної організації

form1.ADOTable1.Active:=false;

form1.ADOTable1.TableName:='tblMachines ';form1.ADOTable1.Active:=true;

end;

if (Combobox1.Text='Робітники') then

begin

form1.ADOTable1.Active:=false;

form1.ADOTable1.TableName:='tblWorkers ';form1.ADOTable1.Active:=true;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

close();

end;

procedure TForm1.N1Click(Sender: TObject);

begin ShowMessage('Anisimov Andriy');

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form5.ShowModal;

if (Form5.modalresult <> 6) then

begin

ShowMessage('Пароль неверный');

end

else

begin

form3.ShowModal;

end;

end;

procedure TForm1.Button7Click(Sender: TObject);