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

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses DataModuleUnit, TownBookUnit, EditFormunit, FindResultUnit,

AboutFormUnit;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin

TownBookForm.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

DataModule2.BookTable.Insert;

EditRecordForm.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin