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

Скачать файл

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

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

107

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

Grids, DBGrids, ComCtrls, DBCtrls, ExtCtrls, StdCtrls,

Mask, DBCGrids,

Buttons, Menus, ToolWin;

type

TfrNakl = class(TForm)

MainMenu1: TMainMenu;

Panel1: TPanel;

Button1: TButton;

N1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

ToolBar1: TToolBar;

DBNavigator1: TDBNavigator;

ToolButton1: TToolButton;

CheckBox1: TCheckBox;

DBGrid1: TDBGrid;

Panel2: TPanel;

Panel3: TPanel;

DBText1: TDBText;

DBText2: TDBText;

DBGrid2: TDBGrid;

Bevel1: TBevel;

BitBtn1: TBitBtn;

Bevel2: TBevel;

procedure N5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure CheckBox1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

108

public

{ Public declarations }

end;

var

frNakl: TfrNakl;

implementation

uses uDM1, uDM3;

{$R *.DFM}

procedure TfrNakl.N5Click(Sender: TObject);

begin

Button1.Click;

end;

procedure TfrNakl.Button1Click(Sender: TObject);

begin

close;

end;

procedure TfrNakl.N6Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbFirst);

end;

procedure TfrNakl.N7Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbPrior);

end;

//[nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,

nbPost,nbCancel,nbRefresh]

procedure TfrNakl.N8Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbNext);

end;

procedure TfrNakl.N9Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbLast);

end;

procedure TfrNakl.N10Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbInsert);

end;

109

procedure TfrNakl.N11Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbEdit);

end;

procedure TfrNakl.N12Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbDelete);

end;

procedure TfrNakl.DBGrid1TitleClick(Column: TColumn);

begin

//DM1.Nakl_1.IndexFieldNames:=Column.Field.FieldName;

end;

procedure TfrNakl.CheckBox1Click(Sender: TObject);

begin

Panel2.Visible:=CheckBox1.Checked;

end;

procedure TfrNakl.FormShow(Sender: TObject);

begin

if TipNakl=0 then

begin

caption:='Перечень приходных накладных';

BitBtn1.Caption:='Переход к переченю накладных на

отпуск';

DM1.tbNakl_1.Filter:='Tip=0';

DBGrid1.Columns[2].Title.Caption:='Поставщик';

DBGrid1.Columns[2].FieldName:='NamFirm';

end

else

begin

caption:='Перечень накладных на отпуск';

BitBtn1.Caption:='Переход к переченю приходных

накладных';

DM1.tbNakl_1.Filter:='Tip=1';

DBGrid1.Columns[2].Title.Caption:='Получатель';

DBGrid1.Columns[2].FieldName:='NamPodr';

end;

DM1.tbNakl_1.FindFirst;

end;

procedure TfrNakl.BitBtn1Click(Sender: TObject);

begin

TipNakl:=(TipNakl+1)mod 2;

FormShow(Sender);

end;

110

end.

Модуль «Платежка»

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls, DBCtrls, Mask;

type

TForm4 = class(TForm)

Button1: TButton;

Button2: TButton;

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

StaticText4: TStaticText;

StaticText5: TStaticText;

StaticText6: TStaticText;

StaticText7: TStaticText;

StaticText8: TStaticText;

StaticText9: TStaticText;

StaticText10: TStaticText;

StaticText11: TStaticText;

StaticText12: TStaticText;

StaticText13: TStaticText;

StaticText14: TStaticText;

StaticText15: TStaticText;

StaticText16: TStaticText;

StaticText17: TStaticText;

StaticText18: TStaticText;

StaticText19: TStaticText;

StaticText20: TStaticText;

StaticText21: TStaticText;

StaticText22: TStaticText;

Edit1: TEdit;

MaskEdit1: TMaskEdit;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

111

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Edit15: TEdit;

Edit16: TEdit;

Memo1: TMemo;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit12;

{$R *.DFM}

procedure TForm4.Button2Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

If Memo1.Lines[0]='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.ComboBox1.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.ComboBox2.Text='' then

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

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







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