98
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls,db, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
Buttons, jpeg;
type
TForm2 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
TabSheet2: TTabSheet;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
DBGrid3: TDBGrid;
DBNavigator3: TDBNavigator;
DBGrid4: TDBGrid;
DBNavigator4: TDBNavigator;
DBGrid5: TDBGrid;
DBNavigator5: TDBNavigator;
Button3: TButton;
Button4: TButton;
Button6: TButton;
Button7: TButton;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
GroupBox1: TGroupBox;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Button10: TButton;
Button12: TButton;
RadioButton7: TRadioButton;
GroupBox3: TGroupBox;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
GroupBox4: TGroupBox;
RadioButton1: TRadioButton;
RadioButton12: TRadioButton;
GroupBox5: TGroupBox;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
99
Image6: TImage;
GroupBox2: TGroupBox;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
Button5: TButton;
Button11: TButton;
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RadioButton6Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton10Click(Sender: TObject);
procedure RadioButton13Click(Sender: TObject);
procedure RadioButton14Click(Sender: TObject);
procedure RadioButton12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4, Unit6;
{$R *.dfm}
procedure TForm2.Button3Click(Sender: TObject);
begin
Form1.Show;
Form2.Hide;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
100
Form1.Show;
Form2.Hide;
end;
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Наим_Пост';
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Код_Пост';
end;
procedure TForm2.RadioButton4Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton5Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Наим_блюда';
end;
procedure TForm2.Button10Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form6.QuickRep2.Preview;
end;
procedure TForm2.Button11Click(Sender: TObject);
begin
form6.QuickRep3.Preview;
end;
procedure TForm2.Button12Click(Sender: TObject);
begin
form6.QuickRep4.Preview;
101
end;
procedure TForm2.Button13Click(Sender: TObject);
begin
form6.QuickRep5.Preview;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Show;
Form2.Hide;
end;
procedure TForm2.RadioButton6Click(Sender: TObject);
begin
DataModule3.ADOTable3.IndexFieldNames:='Цена';
end;
procedure TForm2.RadioButton7Click(Sender: TObject);
begin
DataModule3.ADOTable2.IndexFieldNames:='Дата_пост';
end;
procedure TForm2.RadioButton8Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='Шифр';
end;
procedure TForm2.RadioButton9Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='Дата_реал';
end;
procedure TForm2.RadioButton10Click(Sender: TObject);
begin
DataModule3.ADOTable5.IndexFieldNames:='№_Чека';
end;
procedure TForm2.RadioButton13Click(Sender: TObject);
begin
DataModule3.ADOTable4.IndexFieldNames:='Шифр_доставки';
end;
procedure TForm2.RadioButton14Click(Sender: TObject);
begin
DataModule3.ADOTable4.IndexFieldNames:='Поставщик';
end;
procedure TForm2.RadioButton12Click(Sender: TObject);
begin
DataModule3.ADOTable1.IndexFieldNames:='Счет';
end;
102
end.
unit Unit3;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule3 = class(TDataModule)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
DataSource2: TDataSource;
AdoTable2: TADOTable;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
AdoTable3: TADOTable;
AdoTable4: TADOTable;
AdoTable5: TADOTable;
ADOQuery1: TADOQuery;
DataSource6: TDataSource;
ADOQuery2: TADOQuery;
DataSource7: TDataSource;
ADOQuery3: TADOQuery;
DataSource8: TDataSource;
ADOQuery4: TADOQuery;
ADOQuery5: TADOQuery;
ADOQuery6: TADOQuery;
DataSource9: TDataSource;
DataSource10: TDataSource;
DataSource11: TDataSource;
ADOQuery7: TADOQuery;
ADOQuery8: TADOQuery;
ADOQuery9: TADOQuery;
ADOQuery10: TADOQuery;
DataSource12: TDataSource;
DataSource13: TDataSource;
DataSource14: TDataSource;
DataSource15: TDataSource;
ADOQuery11: TADOQuery;
DataSource16: TDataSource;
ADOQuery12: TADOQuery;
DataSource17: TDataSource;
AdoTable4_: TIntegerField;
AdoTable4DSDesigner: TIntegerField;
AdoTable4DSDesigner2: TSmallintField;
AdoTable1: TADOTable;
AdoTable2_: TIntegerField;
AdoTable2_2: TSmallintField;
103
AdoTable2_3: TDateTimeField;
AdoTable2DSDesigner: TIntegerField;
AdoTable2_4: TSmallintField;
AdoTable2DSDesigner2: TIntegerField;
AdoTable3DSDesigner: TIntegerField;
AdoTable3_: TWideStringField;
AdoTable3_2: TWideStringField;
AdoTable3DSDesigner2: TIntegerField;
AdoTable3DSDesigner3: TIntegerField;
AdoTable1_: TIntegerField;
AdoTable1_2: TWideStringField;
AdoTable1DSDesigner: TWideStringField;
AdoTable5_: TSmallintField;
AdoTable5DSDesigner: TIntegerField;
AdoTable5DSDesigner2: TIntegerField;
AdoTable5_2: TSmallintField;
AdoTable5_3: TDateTimeField;
ADOQuery5_: TIntegerField;
ADOQuery5_2: TSmallintField;
ADOQuery5_3: TDateTimeField;
ADOQuery5DSDesigner: TIntegerField;
ADOQuery5_4: TSmallintField;
ADOQuery5DSDesigner2: TIntegerField;
ADOQuery5DSDesigner3: TIntegerField;
ADOQuery5DSDesigner4: TFloatField;
AdoTable4IntegerField: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule3: TDataModule3;
implementation
uses Unit1, Unit2, Unit4;
{$R *.dfm}
end.
104
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TForm4 = class(TForm)
DBEdit1: TDBEdit;
BitBtn1: TBitBtn;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form4.Hide;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, StdCtrls, Buttons,
jpeg, ComObj, Mask;
type
TForm5 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
105
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
DBGrid4: TDBGrid;
Edit2: TEdit;
Image1: TImage;
Image2: TImage;
DBGrid5: TDBGrid;
Label4: TLabel;
Image3: TImage;
Label2: TLabel;
Image4: TImage;
DBGrid6: TDBGrid;
Image5: TImage;
Button2: TButton;
Button3: TButton;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Image6: TImage;
DBGrid7: TDBGrid;
Edit3: TEdit;
Label3: TLabel;
BitBtn5: TBitBtn;
Button4: TButton;
Button5: TButton;
TabSheet7: TTabSheet;
DBGrid8: TDBGrid;
Image7: TImage;
Edit4: TEdit;
Label5: TLabel;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Edit4Change(Sender: TObject);
private
106
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
xlapp:variant;
Wordapp:Variant;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit6;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
with DataModule3.ADOQuery3 do begin close;
Parameters [0].Value:=edit1.Text;
open;
end;
end;
procedure TForm5.Edit2Change(Sender: TObject);
begin
DataModule3.ADOQuery4.Close;
DataModule3.ADOQuery4.Parameters[0].Value:=edit2.Text+'%';
DataModule3.ADOQuery4.Open;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
form1.Show;
Form5.Hide;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
form1.Show;
Form5.Hide;
end;
procedure TForm5.Edit3Change(Sender: TObject);
begin
DataModule3.ADOQuery9.Close;
DataModule3.ADOQuery9.Parameters[0].Value:=edit3.Text+'%';
DataModule3.ADOQuery9.Open;
end;
procedure TForm5.Button2Click(Sender: TObject);
var mydir:string;
107
k:byte;
begin
Getdir(0,MyDir);
XLApp:= CreateOleObject('Excel.Application');
XLApp.WorkBooks.Add(MyDir + '\1.xls');
xlAPP.visible:=true;
DataModule3.ADOQuery5.First;
k:=1;
while not DataModule3.ADOQuery5.eof do begin
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,1]:=DataModule3.ADOQuery5.Field
ByName('Код_Пост').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,2]:=DataModule3.ADOQuery5.Field
ByName('Ном_нак').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,3]:=DataModule3.ADOQuery5.Field
ByName('Дата_пост').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,4]:=DataModule3.ADOQuery5.Field
ByName('Товар').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,5]:=DataModule3.ADOQuery5.Field
ByName('Кол_во').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,6]:=DataModule3.ADOQuery5.Field
ByName('Цена').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,7]:=DataModule3.ADOQuery5.Field
ByName('Надбавка').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,8]:=DataModule3.ADOQuery5.Field
ByName('Стоимость').asstring;
k:=k+1;
DataModule3.ADOQuery5.Next;
XLApp.WorkBooks[1].WorkSheets[1].Cells[2,3]:=Datetostr(date);
end;
end;
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Show;
Form5.Hide;
end;
procedure TForm5.FormActivate(Sender: TObject);
begin
Datamodule3.ADOQuery1.Open;
Datamodule3.ADOQuery2.Open;
Datamodule3.ADOQuery3.Open;
Datamodule3.ADOQuery4.Open;
Datamodule3.ADOQuery5.Open;
Datamodule3.ADOQuery6.Open;
Datamodule3.ADOQuery8.Open;
Datamodule3.ADOQuery9.Open;
end;
procedure TForm5.Button4Click(Sender: TObject);
var
MyDir:String;