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

{$R *.dfm}

procedure TForm5.oK(Sender: TObject);

begin

if (Edit1.Text = '0000') then ModalResult:=6;

close;

end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if (Edit1.Text = '0000') then ModalResult:=6;

end;

end.

Висновок

При виконанні курсової роботи я пригадав як створювати: базу даних, концептуальну та фізичну модель БД, SQL запити, запити на створення таблиць та зв’язків між ними. Освіжив свої навики в SQLquarryanalyzer, SQL Enterprise manager та Powerdesigner. А також написав програму на мові Delphi, яка допомогла б користувачу з легкістю користуватися створеною мною базою даних.