Форма для переглядутаблиць має зручний інтерфейс, дивлячись яку таблицю ми обираємо,нам буде висвічуватисьсаме її зміст, а всі інші будуть зховуватись.
Форма
Текс прорами: procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin Panel1.Visible:=false; Panel2.Visible:=false; Panel3.Visible:=false; end;
procedure TForm3.FormCreate(Sender: TObject); begin Panel1.Visible:=false; Panel2.Visible:=false; Panel3.Visible:=false; end;
procedure TForm3.Button1Click(Sender: TObject); begin Form4.Show; DataModule2.Table5.Insert; end;
procedure TForm3.Button2Click(Sender: TObject); begin Form4.Show; DataModule2.Table5.Edit; end;
procedure TForm3.Button3Click(Sender: TObject); begin DataModule2.Table5.Delete; end;
Форма редагування При перегляді таблиці Товари, зявиться кнопка редагування цієї таблиці,де ми можемо додати, змінити або видалити дані.
1 Таблиця Товар
procedure TForm4.Button1Click(Sender: TObject); begin DataModule2.Table5.Post; close; end; procedure TForm4.Button2Click(Sender: TObject); begin DataModule2.Table5.Cancel; close; end;
|
