Работа кинотеатра

Sheet.Cells(i,3):=form9.ADOQuery1.FieldByName('field2').Value;

Sheet.Cells(i,4):=form9.ADOQuery1.FieldByName('field3').Value;

Sheet.Cells(i,5):=form9.ADOQuery1.FieldByName('field4').Value;

v.WorkBooks[1].WorkSheets[1].rows[i].Columns[2].Borders.LineStyle:=1;

v.WorkBooks[1].WorkSheets[1].rows[i].Columns[3].Borders.LineStyle:=1;

v.WorkBooks[1].WorkSheets[1].rows[i].Columns[4].Borders.LineStyle:=1;

v.WorkBooks[1].WorkSheets[1].rows[i].Columns[5].Borders.LineStyle:=1;

i:=i+1;

form9.ADOQuery1.Next;

end;

v.Visible:= True; //делаем эксель  видимым

except //если таки экселя  нет - то эта секция

MessageBox(0,'Не удается выполнить  передачу данных в Excel. Убедитесь,  что данное приложение установлено  на Вашем компьютере','Ошибка',MB_OK or MB_ICONEXCLAMATION);

end

end;

close;

end;

end.

unit Unit10;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,

StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;

type

TQuickReport10 = class(TQuickRep)

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRShape1: TQRShape;

ColumnHeaderBand1: TQRBand;

QRShape4: TQRShape;

QRLabel4: TQRLabel;

QRShape5: TQRShape;

QRLabel2: TQRLabel;

QRBand1: TQRBand;

QRShape8: TQRShape;

QRShape11: TQRShape;

QRDBText1: TQRDBText;

QRDBText4: TQRDBText;

PageFooterBand1: TQRBand;

QRShape2: TQRShape;

QRLabel9: TQRLabel;

QRSysData1: TQRSysData;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOQuery1_: TAutoIncField;

ADOQuery1Expr1001: TWideStringField;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TIntegerField;

QRShape6: TQRShape;

QRLabel5: TQRLabel;

QRShape10: TQRShape;

QRLabel6: TQRLabel;

QRShape3: TQRShape;

QRShape7: TQRShape;

QRShape9: TQRShape;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

private

 

public

end;

var

QuickReport10: TQuickReport10;

implementation

{$R *.DFM}

end.

unit Unit11;

interface

uses

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

Dialogs, ComCtrls;

type

TForm11 = class(TForm)

MonthCalendar1: TMonthCalendar;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

{$R *.dfm}

end.

unit Unit12;

interface

uses

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

Dialogs, StdCtrls;

type

TForm12 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form12: TForm12;

implementation

{$R *.dfm}

end.

unit Unit13;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm13 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Button1: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);

begin

Form13.Close;

end;

end.

unit Unit14;

interface

uses

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

Dialogs, StdCtrls, DBCtrls, DB, ADODB, Grids, DBGrids;

type

TForm14 = class(TForm)

Label1: TLabel;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

ADOQuery1_: TAutoIncField;

ADOQuery1DSDesigner: TWideStringField;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit15;

{$R *.dfm}

procedure TForm14.Button1Click(Sender: TObject);

begin

QuickReport15.ADOConnection1.Close;

QuickReport15.ADOQuery1.Close;

QuickReport15.ADOQuery1.Parameters.ParamByName('param1').Value:=ADOQuery1_.Value;

//showmessage(inttostr(ADOQuery1_.Value));

QuickReport15.ADOConnection1.Open;

QuickReport15.ADOQuery1.Open;

Form14.Visible:=false;

QuickReport15.preview;

end;

end.

unit Unit15;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,

StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;

type

TQuickReport15 = class(TQuickRep)

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRShape1: TQRShape;

ColumnHeaderBand1: TQRBand;

QRShape4: TQRShape;

QRLabel4: TQRLabel;

QRShape8: TQRShape;

QRLabel8: TQRLabel;

QRGroup1: TQRGroup;

QRShape9: TQRShape;

QRExpr1: TQRExpr;

QRBand1: TQRBand;

QRShape17: TQRShape;

QRShape20: TQRShape;

QRDBText7: TQRDBText;

DetailBand1: TQRBand;

QRShape10: TQRShape;

QRShape15: TQRShape;

QRExpr2: TQRExpr;

QRExpr5: TQRExpr;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

QRDBText1: TQRDBText;

PageFooterBand1: TQRBand;

QRShape2: TQRShape;

ADOQuery1_: TAutoIncField;

ADOQuery1Expr1001: TWideStringField;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1Expr1004: TBCDField;

QRLabel9: TQRLabel;

QRSysData1: TQRSysData;

private

public

 

end;

var

QuickReport15: TQuickReport15;

implementation

{$R *.DFM}

end.

unit Unit16;

interface

uses

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

Dialogs, StdCtrls, ComCtrls;

type

TForm16 = class(TForm)

DateTimePicker1: TDateTimePicker;

Label1: TLabel;

Button1: TButton;

Label2: TLabel;

DateTimePicker2: TDateTimePicker;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form16: TForm16;

implementation

uses Unit17, Unit15;

{$R *.dfm}

procedure TForm16.Button1Click(Sender: TObject);

begin

QuickReport17.ADOConnection1.Close;

QuickReport17.ADOQuery1.Close;

QuickReport17.ADOQuery1.Parameters.ParamByName('param1').Value:=FormatDateTime('dd.mm.yy',DateTimePicker1.DateTime);

QuickReport17.ADOQuery1.Parameters.ParamByName('param2').Value:=FormatDateTime('dd.mm.yy',DateTimePicker2.DateTime);

//showmessage(inttostr(ADOQuery1_.Value));

QuickReport17.ADOConnection1.Open;

QuickReport17.ADOQuery1.Open;

Form16.Visible:=false;

QuickReport17.preview;

end;

 

end.

unit Unit17;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,

StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;

type

TQuickReport17 = class(TQuickRep)

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRShape1: TQRShape;

ColumnHeaderBand1: TQRBand;

QRShape4: TQRShape;

QRLabel4: TQRLabel;

QRBand1: TQRBand;

PageFooterBand1: TQRBand;

QRShape2: TQRShape;

QRLabel9: TQRLabel;

QRSysData1: TQRSysData;

QRShape3: TQRShape;

QRLabel3: TQRLabel;

QRShape5: TQRShape;

QRLabel2: TQRLabel;

QRShape6: TQRShape;

QRShape7: TQRShape;

QRShape8: TQRShape;

QRShape9: TQRShape;

QRShape11: TQRShape;

QRLabel6: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

private

public

end;

var

QuickReport17: TQuickReport17;

implementation

{$R *.DFM}

end.