Курсовая работа: Учет хранения и движения продукции фирмы

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

end.

unit DM1;

interface

uses

SysUtils, Classes, DB, DBTables, RpCon, RpConDS, RpConBDE, RpBase,

RpSystem, RpDefine, RpRave;

type

TD1 = class(TDataModule)

Database1: TDatabase;

Product: TTable;

Sclad: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

ProductPKod: TAutoIncField;

ProductPNaimenovanie: TStringField;

ProductPObem: TStringField;

ProductPCena: TCurrencyField;

ScladSKod: TIntegerField;

ScladSNaimenovanie: TStringField;

ScladSDataPolych: TDateField;

ScladSGoden_do: TDateField;