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

Скачать файл

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

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

var

frTovar: TfrTovar;

implementation

uses uDM3;

{$R *.DFM}

procedure TfrTovar.N2Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbFirst);

end;

procedure TfrTovar.N3Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbPrior);

end;

procedure TfrTovar.N4Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbNext);

end;

procedure TfrTovar.N5Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbLast);

end;

procedure TfrTovar.N7Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbInsert);

end;

procedure TfrTovar.N8Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbEdit);

end;

procedure TfrTovar.N9Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbDelete);

end;

procedure TfrTovar.N10Click(Sender: TObject);

begin

Close;

end;

end.

Модуль «Поставщики»

unit uWFirm;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls, DBCtrls, Mask;

type

TfrWFirm = class(TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Button1: TButton;

Button2: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frWFirm: TfrWFirm;

implementation

uses uDM3;

{$R *.DFM}

end.

Модуль «Оптовые покупатели»

unit uWFirm;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls, DBCtrls, Mask;

type

TfrWFirm = class(TForm)

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Button1: TButton;

Button2: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frWFirm: TfrWFirm;

implementation

uses uDM3;

{$R *.DFM}

end.

Модуль «Накладная»

unit uwNakl;

100

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

Menus, DBCtrls, DBCGrids, StdCtrls, Mask, ExtCtrls, DB;

type

TfrWNakl = class(TForm)

Label3: TLabel;

DBEdit3: TDBEdit;

Label5: TLabel;

Label8: TLabel;

Label9: TLabel;

DBText1: TDBText;

DBText2: TDBText;

DBCtrlGrid1: TDBCtrlGrid;

DBEdit1: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Button1: TButton;

Button2: TButton;

DBNavigator1: TDBNavigator;

DBLookupComboBox4: TDBLookupComboBox;

Panel1: TPanel;

Panel2: TPanel;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

Label6: TLabel;

Label7: TLabel;

DBEdit2: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label10: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button1Enter(Sender: TObject);

procedure DBEdit4Enter(Sender: TObject);

101

procedure DBEdit4Exit(Sender: TObject);

procedure DBEdit2Exit(Sender: TObject);

procedure DBEdit2Enter(Sender: TObject);

procedure DBEdit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frWNakl: TfrWNakl;

Sum: Extended;

implementation

uses uDM1, uDM3;

{$R *.DFM}

procedure TfrWNakl.N4Click(Sender: TObject);

begin

Button1.Click;

end;

procedure TfrWNakl.N5Click(Sender: TObject);

begin

Button2.Click;

end;

procedure TfrWNakl.N2Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbInsert);

end;

procedure TfrWNakl.N3Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbDelete);

end;

procedure TfrWNakl.FormShow(Sender: TObject);

begin

DBText2.Field.AsDateTime:=RabDate;

if TipNakl=0 then

begin

Label8.Caption:='Приходная накладная № _________ от

__________';

Label5.Caption:='Поставщик';

DBLookupComboBox2.Visible:=False;

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

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







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