Диплом: Автоматизация учёта спроса на продуктовый ассортимент в фирме ООО "ПКФ ЭнергоСофт"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
146
DM.tbl_prodagi.Close;
DM.tbl_prodagi.Open;
F_prod_grah.ShowModal;
F_prod_grah.Destroy;
end;
procedure TMain.N20Click(Sender: TObject);
begin
Farhiv:=TFarhiv.Create(self);
Farhiv.ShowModal;
Farhiv.Destroy;
end;
procedure TMain.N19Click(Sender: TObject);
begin
DM.qry_itog_prod.Close;
DM.qry_itog_prod.Open;
F_itogi_prod:=TF_itogi_prod.Create(self);
F_itogi_prod.ShowModal;
F_itogi_prod.Destroy;
end;
procedure TMain.N23Click(Sender: TObject);
begin
F_graf_zakup:=TF_graf_zakup.Create(self);
F_graf_zakup.ShowModal;
F_graf_zakup.Destroy;
end;
procedure TMain.N29Click(Sender: TObject);
begin
DM.qry_itog_zakupki.Close;
DM.qry_itog_zakupki.Open;
F_itog_zakupki:=TF_itog_zakupki.Create(self);
F_itog_zakupki.ShowModal;
147
F_itog_zakupki.Destroy;
end;
procedure TMain.N28Click(Sender: TObject);
begin
F_zakupki:=TF_zakupki.Create(self);
F_zakupki.ShowModal;
F_zakupki.Destroy;
end;
procedure TMain.N32Click(Sender: TObject);
begin
frxReport1.LoadFromFile('tovar.fr3');
frxReport1.ShowReport(true);
end;
procedure TMain.N34Click(Sender: TObject);
begin
frxReport2.LoadFromFile('org.fr3');
frxReport2.ShowReport(true);
end;
procedure TMain.N3Click(Sender: TObject);
begin
F_anketa:=TF_anketa.Create(self);
F_anketa.ShowModal;
F_anketa.Destroy;
end;
procedure TMain.N16Click(Sender: TObject);
begin
F_vvod_ankety:=TF_vvod_ankety.Create(self);
F_vvod_ankety.ShowModal;
F_vvod_ankety.Destroy;
end;
procedure TMain.btn1Click(Sender: TObject);
148
begin
F_tovar:=TF_tovar.Create(self);
F_tovar.ShowModal;
F_tovar.Destroy;
end;
procedure TMain.btn2Click(Sender: TObject);
begin
F_org:=TF_org.Create(self);
F_org.ShowModal;
F_org.Destroy;
end;
procedure TMain.btn3Click(Sender: TObject);
begin
F_marka_tov:=TF_marka_tov.Create(self);
F_marka_tov.ShowModal;
F_marka_tov.Destroy
end;
procedure TMain.btn4Click(Sender: TObject);
begin
F_ed_izmer:=TF_ed_izmer.Create(self);
F_ed_izmer.ShowModal;
F_ed_izmer.Destroy;
end;
procedure TMain.btn5Click(Sender: TObject);
begin
F_tip_tov:=TF_tip_tov.Create(self);
F_tip_tov.ShowModal;
F_tip_tov.Destroy;
end;
149
procedure TMain.btn6Click(Sender: TObject);
begin
F_adres:=TF_adres.Create(self);
F_adres.ShowModal;
F_adres.Destroy;
end;
procedure TMain.btn8Click(Sender: TObject);
begin
F_prodagi:=TF_prodagi.Create(self);
F_prodagi.ShowModal;
F_prodagi.Destroy;
end;
procedure TMain.btn18Click(Sender: TObject);
begin
DM.qry_itog_prod.Close;
DM.qry_itog_prod.Open;
F_itogi_prod:=TF_itogi_prod.Create(self);
F_itogi_prod.ShowModal;
F_itogi_prod.Destroy;
end;
procedure TMain.btn10Click(Sender: TObject);
begin
F_zakupki:=TF_zakupki.Create(self);
F_zakupki.ShowModal;
F_zakupki.Destroy;
end;
procedure TMain.btn11Click(Sender: TObject);
begin
DM.qry_itog_zakupki.Close;
150
DM.qry_itog_zakupki.Open;
F_itog_zakupki:=TF_itog_zakupki.Create(self);
F_itog_zakupki.ShowModal;
F_itog_zakupki.Destroy;
end;
procedure TMain.btn12Click(Sender: TObject);
begin
F_anketa:=TF_anketa.Create(self);
F_anketa.ShowModal;
F_anketa.Destroy;
end;
procedure TMain.btn13Click(Sender: TObject);
begin
F_prod_grah:=TF_prod_grah.Create(self);
DM.tbl_prodagi.Filtered:=False;
DM.tbl_prodagi.Filter:='';
DM.tbl_prodagi.Filter:='(код_товара=1)';
DM.tbl_prodagi.Filtered:=True;
DM.tbl_prodagi.Close;
DM.tbl_prodagi.Open;
F_prod_grah.ShowModal;
F_prod_grah.Destroy;
end;
procedure TMain.btn14Click(Sender: TObject);
begin
F_graf_zakup:=TF_graf_zakup.Create(self);
F_graf_zakup.ShowModal;
F_graf_zakup.Destroy;
end;
procedure TMain.btn15Click(Sender: TObject);
151
begin
frxReport1.LoadFromFile('tovar.fr3');
frxReport1.ShowReport(true);
end;
procedure TMain.btn21Click(Sender: TObject);
begin
frxReport2.LoadFromFile('org.fr3');
frxReport2.ShowReport(true);
end;
procedure TMain.btn17Click(Sender: TObject);
begin
Farhiv:=TFarhiv.Create(self);
Farhiv.ShowModal;
Farhiv.Destroy;
end;
end.
unit Unit22;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxLookAndFeelPainters, Grids, DBGrids, StdCtrls, cxButtons,
cxControls, cxContainer, cxEdit, cxGroupBox, DBCtrls, cxNavigator,
cxDBNavigator, DB, ADODB;
type
TF_anketa = class(TForm)
cxGroupBox1: TcxGroupBox;
cxGroupBox2: TcxGroupBox;
cxGroupBox3: TcxGroupBox;
cxButton1: TcxButton;
dbgrd1: TDBGrid;
152
dblkcbb1: TDBLookupComboBox;
dblkcbb2: TDBLookupComboBox;
dblkcbb3: TDBLookupComboBox;
qry_anketa: TADOQuery;
atncfldqry1_1: TAutoIncField;
qry_anketaDSDesigner: TWideStringField;
qry_anketaDSDesigner2: TIntegerField;
qry_anketaDSDesigner3: TWideStringField;
atncfldqry1_2: TAutoIncField;
qry_anketaDSDesigner4: TIntegerField;
ds_q_anketa: TDataSource;
qry_anketadolya: TFloatField;
cxDBNavigator1: TcxDBNavigator;
cxButton2: TcxButton;
procedure qry_anketaCalcFields(DataSet: TDataSet);
procedure dblkcbb2Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure dblkcbb3Click(Sender: TObject);
procedure dblkcbb1Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_anketa: TF_anketa;
sum1:Double;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17,
Unit18, Unit19, Unit2, Unit20, Unit21, Unit3, Unit4, Unit5, Unit6, Unit7,
Unit8, Unit9, Unit23;
153
{$R *.dfm}
procedure TF_anketa.qry_anketaCalcFields(DataSet: TDataSet);
begin
qry_anketadolya.AsFloat:= qry_anketaDSDesigner4.AsFloat/100;
end;
procedure TF_anketa.dblkcbb2Click(Sender: TObject);
begin
dblkcbb1.KeyValue:=null;
dblkcbb3.KeyValue:=null;
qry_anketa.Filtered:=False;
qry_anketa.Filter:='';
qry_anketa.Filter:='(Код_месяца='+inttostr(dblkcbb2.KeyValue)+')';
qry_anketa.Filtered:=True;
end;
procedure TF_anketa.cxButton1Click(Sender: TObject);
begin
dblkcbb1.KeyValue:=null;
dblkcbb2.KeyValue:=null;
dblkcbb3.KeyValue:=null;
qry_anketa.Filtered:=False;
qry_anketa.Filter:='';
end;
procedure TF_anketa.dblkcbb3Click(Sender: TObject);
begin
dblkcbb1.KeyValue:=null;
dblkcbb2.KeyValue:=null;
qry_anketa.Filtered:=False;
qry_anketa.Filter:='';
154
qry_anketa.Filter:='(год='+inttostr(dblkcbb3.KeyValue)+')';
qry_anketa.Filtered:=True;
end;
procedure TF_anketa.dblkcbb1Click(Sender: TObject);
begin
dblkcbb2.KeyValue:=null;
dblkcbb3.KeyValue:=null;
qry_anketa.Filtered:=False;
qry_anketa.Filter:='';
qry_anketa.Filter:='(код_товара='+inttostr(dblkcbb1.KeyValue)+')';
qry_anketa.Filtered:=True;
end;
procedure TF_anketa.cxButton2Click(Sender: TObject);
begin
F_vvod_ankety:=TF_vvod_ankety.Create(self);
F_vvod_ankety.ShowModal;
F_vvod_ankety.Destroy;
F_anketa.qry_anketa.Close;
F_anketa.qry_anketa.Open;
end;
end.
Исходный код модуля расчета закупок
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxLookAndFeelPainters, StdCtrls, cxButtons, Grids, DBGrids,
cxControls, cxContainer, cxEdit, cxGroupBox, frxClass, frxADOComponents,
cxTextEdit, DBCtrls;
type
155
TF_itogi_prod = class(TForm)
cxGroupBox1: TcxGroupBox;
dbgrd1: TDBGrid;
cxButton1: TcxButton;
frxReport1: TfrxReport;
frxADOComponents1: TfrxADOComponents;
dblkcbb1: TDBLookupComboBox;
dblkcbb2: TDBLookupComboBox;
dblkcbb3: TDBLookupComboBox;
lbl1: TLabel;
cxTextEdit1: TcxTextEdit;
cxButton2: TcxButton;
lbl2: TLabel;
cxTextEdit2: TcxTextEdit;
procedure cxButton1Click(Sender: TObject);
procedure dblkcbb1Click(Sender: TObject);
procedure dblkcbb2Click(Sender: TObject);
procedure dblkcbb3Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_itogi_prod: TF_itogi_prod;
sum,sum1:Double;
kol,kol1,i:Integer;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit17, Unit18,

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

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