Высокоуровневые методы информатики и программирования. Сивохин А.В - 108 стр.

     {$R *.dfm}

     procedure TOrlovTableForm.OrlovSellerButtonClick(Sender: TObject);
     begin
     OrlovSellerForm:=TOrlovSellerForm.Create(Application);
     OrlovSellerForm.Show;
     end;

     procedure TOrlovTableForm.OrlovProductsButtonClick(Sender: TObject);
     begin
     OrlovProductsForm:=TOrlovProductsForm.Create(Application);
     OrlovProductsForm.Show;
     end;


     procedure TOrlovTableForm.OrlovAuctionsButtonClick(Sender: TObject);
     begin
     OrlovAuctionsForm:=TOrlovAuctionsForm.Create(Application);
     OrlovAuctionsForm.Show;
     end;

     procedure TOrlovTableForm.OrlovBuyersButtonClick(Sender: TObject);
     begin
     OrlovBuyersForm:=TOrlovBuyersForm.Create(Application);
     OrlovBuyersForm.Show;
     end;


     procedure TOrlovTableForm.OrlovProductsAButtonClick(Sender: TObject);
     begin
     OrlovProductsAForm:=TOrlovProductsAForm.Create(Application);
     OrlovProductsAForm.Show;
     end;

     Initialization
     end.//—9. Конец модуля для работы с таблицами.




     unit OrlovSellerUnit;//—10. Модуль для работы с таблицей “Продавцы”:

     interface

     uses
85