Дипломная работа: Автоматизация договорных отношений мелкооптового склада магазина ИП Шевелевой Е.В. с поставщиками и оптовыми покупателями

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

122

end;

end.

Модуль «О программе».

unit uAbout;

interface

uses Windows, SysUtils, Classes, Graphics, Forms,

Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Comments: TLabel;

OKButton: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.DFM}

end.

Модуль «Модуль данных».

unit uDM3;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

Db, DBTables;

123

type

TDM3 = class(TDataModule)

Database1: TDatabase;

Table1: TTable;

Table2: TTable;

Table3: TTable;

Table4: TTable;

Table5: TTable;

Table6: TTable;

Table7: TTable;

Table8: TTable;

Table9: TTable;

ds1: TDataSource;

ds2: TDataSource;

ds3: TDataSource;

ds4: TDataSource;

ds5: TDataSource;

ds6: TDataSource;

ds7: TDataSource;

ds8: TDataSource;

ds9: TDataSource;

lookup1: TTable;

Table9Kod: TAutoIncField;

Table9NamTov: TStringField;

Table9EdIzm: TStringField;

Table9OptCena: TFloatField;

Table9RoznCena: TFloatField;

Table3Kod: TAutoIncField;

Table3Nam: TStringField;

Table3Adres: TStringField;

Table3Tel: TIntegerField;

Table3Rs: TIntegerField;

Table3KorS: TIntegerField;

Table3Bank: TStringField;

Table1Kod: TAutoIncField;

Table1Num: TStringField;

Table1Data: TDateField;

Table1Tip: TSmallintField;

Table1KodFirm: TIntegerField;

Table1NamFirm: TStringField;

Table1NamTip: TSmallintField;

Table8KodDog: TIntegerField;

Table8KodTov: TIntegerField;

Table8Kol_vo: TSmallintField;

Table8Cena: TFloatField;

lookup5: TTable;

lookup2: TTable;

lookup3: TTable;

124

lookup4: TTable;

Table1Sum: TFloatField;

Table1Oplata: TFloatField;

lookup6: TTable;

dsL6: TDataSource;

lookup6KodNakl: TIntegerField;

lookup6KodTov: TIntegerField;

lookup6Kol_vo: TSmallintField;

lookup6Cena: TFloatField;

lookup6Sum: TFloatField;

lookup6NamTov: TStringField;

lookup6Ed: TStringField;

Table5Kod: TAutoIncField;

Table5Num: TSmallintField;

Table5Data: TDateField;

Table5KodFirm: TIntegerField;

Table5Tip: TSmallintField;

Table5Sum: TFloatField;

Table5NamFirm: TStringField;

Table10: TTable;

ds10: TDataSource;

Table10KodNakl: TIntegerField;

Table10KodTov: TIntegerField;

Table10Kol_vo: TSmallintField;

Table10Cena: TFloatField;

Table10Sum: TFloatField;

Table10NamTov: TStringField;

Table10Izmer: TStringField;

procedure Table9AfterInsert(DataSet: TDataSet);

procedure Table3AfterInsert(DataSet: TDataSet);

procedure Table1CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM3: TDM3;

RabDate: TDateTime;

implementation

uses uWTov, uWFirm;

{$R *.DFM}

procedure TDM3.Table9AfterInsert(DataSet: TDataSet);

begin

125

if frWTov.ShowModal=mrOk then

Table9.Post

else

Table9.Cancel;

end;

procedure TDM3.Table3AfterInsert(DataSet: TDataSet);

begin

if frWFirm.ShowModal=mrOk then

Table3.Post

else

Table3.Cancel;

end;

procedure TDM3.Table1CalcFields(DataSet: TDataSet);

begin

if Table1Tip.AsInteger>0 then

Table1NamTip.AsString:='Покупка'

else

Table1NamTip.AsString:='Продажа';

end;

end.

Источник: https://baza.diplomsite.ru/previewfile/1703

Смотрите также:







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии