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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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,
Источник: https://baza.diplomsite.ru/previewfile/2489

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

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