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

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
97
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;
98
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.
99
Модуль «Оптовые покупатели»
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;
102
DBLookupComboBox4.Visible:=True;
end
else
begin
Label8.Caption:='Накладная на отпуск № _________ от
__________';
Label5.Caption:='Цех';
DBLookupComboBox2.Visible:=True;
DBLookupComboBox4.Visible:=False;
end;
end;
procedure TfrWNakl.Button1Enter(Sender: TObject);
begin
if DBEdit6.Field.AsFloat=0 then
begin
ShowMessage('Не определена сумма накладной');
DBEdit2.SetFocus;
end
else
if TipNakl=0 then
begin
if DBLookupComboBox4.Field.IsNull then
begin
ShowMessage('Не определен поставщик');
DBLookupComboBox4.SetFocus;
end
end
else
if DBLookupComboBox2.Field.IsNull then
begin
ShowMessage('Не определено подразделение');
DBLookupComboBox2.SetFocus;
end;
end;
procedure TfrWNakl.DBEdit4Enter(Sender: TObject);
begin
Sum:=DBEdit4.Field.AsFloat;
end;
procedure TfrWNakl.DBEdit4Exit(Sender: TObject);
begin
if Sum<>DBEdit4.Field.AsFloat then
begin
Sum:=DBEdit1.Field.AsFloat;
DBEdit1.Field.AsFloat:=DBEdit2.Field.AsFloat*DBEdit4.Field
.AsFloat;
103
end;
end;
procedure TfrWNakl.DBEdit2Exit(Sender: TObject);
begin
if Sum<>DBEdit2.Field.AsFloat then
begin
Sum:=DBEdit1.Field.AsFloat;
DBEdit1.Field.AsFloat:=DBEdit2.Field.AsFloat*DBEdit4.Field
.AsFloat;
end;
end;
procedure TfrWNakl.DBEdit2Enter(Sender: TObject);
begin
Sum:=DBEdit2.Field.AsFloat;
end;
procedure TfrWNakl.DBEdit1Change(Sender: TObject);
begin
if DM1.tbNakl_1.State in [dsInsert] then
if Sum<>DBEdit1.Field.AsFloat then
DBEdit6.Field.AsFloat:=DBEdit6.Field.AsFloat
-Sum+DBEdit1.Field.AsFloat;
//}
end;
end.
Модуль «Перечень накладных»
unit uNakl;
interface
uses
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;
104
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 }
public
{ Public declarations }
end;
var
frNakl: TfrNakl;
implementation
uses uDM1, uDM3;
105
{$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;
procedure TfrNakl.N11Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbEdit);
end;
procedure TfrNakl.N12Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbDelete);
end;
106
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;
end.
Модуль «Наличие»
unit uNakl;
interface
uses

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)