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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

86
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls;
type
TOrlovSellerForm = class(TForm)
OrlovSellerPanel1: TPanel;
OrlovSellerPanel2: TPanel;
OrlovSellerTable: TTable;
OrlovSellerDataSource: TDataSource;
OrlovSellerDBNavigator: TDBNavigator;
OrlovSellerDBGrid: TDBGrid;
private
{ Private declarations }
public
{ Public declarations }
end;
var
OrlovSellerForm: TOrlovSellerForm;
implementation
{$R *.dfm}
Initialization
end.//—10. Конец модуля для работы с таблицей “Продавцы”.
unit OrlovProductsUnit;//—11. Модуль для работы с таблицей “Изделия”:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DB, DBTables, DBCtrls, Grids, DBGrids;
type
TOrlovProductsForm = class(TForm)
OrlovProductsPanel1: TPanel;
OrlovProductsPanel2: TPanel;
OrlovProductsTable: TTable;
OrlovProductsDataSource: TDataSource;
OrlovProductsDBGrid: TDBGrid;
OrlovProductsDBNavigator: TDBNavigator; 
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls;

     type
      TOrlovSellerForm = class(TForm)
       OrlovSellerPanel1: TPanel;
       OrlovSellerPanel2: TPanel;
       OrlovSellerTable: TTable;
       OrlovSellerDataSource: TDataSource;
       OrlovSellerDBNavigator: TDBNavigator;
       OrlovSellerDBGrid: TDBGrid;
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovSellerForm: TOrlovSellerForm;

     implementation

     {$R *.dfm}

     Initialization
     end.//—10. Конец модуля для работы с таблицей “Продавцы”.




     unit OrlovProductsUnit;//—11. Модуль для работы с таблицей “Изделия”:

     interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, DB, DBTables, DBCtrls, Grids, DBGrids;

     type
      TOrlovProductsForm = class(TForm)
       OrlovProductsPanel1: TPanel;
       OrlovProductsPanel2: TPanel;
       OrlovProductsTable: TTable;
       OrlovProductsDataSource: TDataSource;
       OrlovProductsDBGrid: TDBGrid;
       OrlovProductsDBNavigator: TDBNavigator;
86

Страницы