Розробка програми

 

Головна програма:

На головній формі розташоване випадаюче меню, за допомогою якого можна переглянути основні таблиці бази даних, а саме: Товар,Магазин,Клієнт, Звіт,Пошук.

Форма головного меню

Обробники подій для кнопок:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource5;

DataModule2.Table5.Active:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource1;

DataModule2.Table1.Active:=True;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource4;

DataModule2.Table4.Active:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource2;

DataModule2.Table2.Active:=True;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

DataModule2.Table5.CancelRange;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource5;

DataModule2.Table5.Active:=True;

DataModule2.Table5.Filtered:=True;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

ShowMessage('Ви намагаєесь закрити базу даних:)');

close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.Show;

Form3.Panel1.Align:=alclient;

Form3.Panel1.Visible:=True;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form3.Show;

Form3.Panel2.Align:=alclient;

Form3.Panel2.Visible:=True;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form3.Show;

Form3.Panel3.Align:=alclient;

Form3.Panel3.Visible:=True;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form5.Quickrep1.Preview;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

close;

end;