Программный код к Form3 (вывод прайс-листа услуг на печать)

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ADODB, StdCtrls, DB, ExtCtrls, DBCtrls, Grids, DBGrids, Spin,

jpeg, Menus, RpRave, RpBase, RpSystem, RpDefine, RpCon, RpConDS, Buttons;

type

TForm3 = class(TForm)

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Edit1: TEdit;

Image2: TImage;

RvDataSetConnection1: TRvDataSetConnection;

RvSystem1: TRvSystem;

RvProject1: TRvProject;

Image1: TImage;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

ADOTable1: TADOTable;

BitBtn3: TBitBtn;

N5: TMenuItem;

N7: TMenuItem;

procedure Pretty1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

Uses unit1, unit7, unit5,unit2, unit4, unit6, unit9;

{$R *.dfm}

procedure TForm3.Pretty1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

form3.Close;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm3.N4Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm3.N6Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

rvproject1.Execute;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Filter:='Tovar='''+Edit1.Text+'''';

ADOTable1.Filtered:=True;

end;

procedure TForm3.N1Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm3.N9Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

end;

procedure TForm3.N7Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

Winhelp(form1.Handle,'справка.hlp',HELP_CONTEXT,1);

end;

end.

Программный код к Form4 (Вывод прайс-листов на материал, фурнитуру и украшения на печать)

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, Buttons,

ImgList, Menus, jpeg, OleServer,ComObj, ExcelXP;

type

TForm4 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

DBImage1: TDBImage;

DBNavigator1: TDBNavigator;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

ADOTable2: TADOTable;

DataSource2: TDataSource;

GroupBox3: TGroupBox;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBImage3: TDBImage;

DataSource3: TDataSource;

ADOTable3: TADOTable;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Image1: TImage;

Image2: TImage;

Image3: TImage;

ExcelApplication1: TExcelApplication;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

DBImage2: TDBImage;

procedure Pretty1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

Uses unit1,unit2, unit6,unit3, unit9, unit7, unit5;

{$R *.dfm}

procedure TForm4.Pretty1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm4.N2Click(Sender: TObject);

begin

form4.Close;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm4.N4Click(Sender: TObject);

begin

form7.Show;

end;

procedure TForm4.N6Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Open['prais_list.xls'];

Sheet:=XLApp.Workbooks[1].WorkSheets['Материал'];

index:=3;

ADOTable1.First;

for i:=0 to ADOTable1.RecordCount-1 do

begin

Sheet.Cells[index,1]:=ADOTable1.Fields.Fields[1].AsString;

Sheet.Cells[index,2]:=ADOTable1.Fields.Fields[3].AsInteger;

Inc(index);

ADOTable1.Next;

end;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Open['prais_list.xls'];

Sheet:=XLApp.Workbooks[1].WorkSheets['Фурнитура'];

index:=3;

ADOTable2.First;

for i:=0 to ADOTable2.RecordCount-1 do

begin

Sheet.Cells[index,1]:=ADOTable2.Fields.Fields[1].AsString;

Sheet.Cells[index,2]:=ADOTable2.Fields.Fields[3].AsInteger;

Inc(index);

ADOTable2.Next;

end;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Open[' prais_list.xls '];

Sheet:=XLApp.Workbooks[1].WorkSheets['Украшения'];

index:=3;

ADOTable3.First;

for i:=0 to ADOTable3.RecordCount-1 do

begin

Sheet.Cells[index,1]:=ADOTable3.Fields.Fields[1].AsString;

Sheet.Cells[index,2]:=ADOTable3.Fields.Fields[3].AsInteger;

Inc(index);

ADOTable3.Next;

end;

end;

procedure TForm4.N1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm4.N9Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm4.N7Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm4.N5Click(Sender: TObject);

begin

Winhelp(form1.Handle,'справка.hlp',HELP_CONTEXT,1);

end;

end.