Курсовая работа: База данных предприятия

begin

EditRecordForm.ShowModal;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

If Application.MessageBox(PChar('Выдействительнохотитеудалить'

+DataModule2.BookTableDSDesigner.AsString), 'Внимание!!!' ,

MB_OKCANCEL)=id_OK then

DataModule2.BookTable.Delete;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

AboutForm.ShowModal;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

AboutForm.ShowModal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Close;

end;

end.

3.2 Код модуля unit DataModuleUnit

unit DataModuleUnit;

interface