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

form1.ADOTable1.Active:=false;

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

end;

if (Combobox1.Text='Таблиця що містить інформацію про закази') then

begin

form1.ADOTable1.Active:=false;

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

end;

if (Combobox1.Text='Графік зведення обєкта ') then

begin

form1.ADOTable1.Active:=false;

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

end;

if (Combobox1.Text='Звіт виконання роботи') then

begin

form1.ADOTable1.Active:=false;

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

end;

if (Combobox1.Text='Бригади') then

begin

form1.ADOTable1.Active:=false;

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

end;

if (Combobox1.Text='Інженерно-технічний персонал') then

begin

form1.ADOTable1.Active:=false;

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

end;

if (Combobox1.Text='будівельна техніка') then