brushstat.pas

本系统为演示Delphi的功能而开发设计

unit brushstat;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Grids, DBGrids, Spin, Db, DBTables, Qrctrls,
  QuickRpt, QRPrntr, Printers, QRExport, QRPrev, Dialogs, Messages;

type
  TFormYueBao = class(TForm)
    GroupBox1: TGroupBox;
    Label4: TLabel;
    ComboBoxYear: TComboBox;
    Label6: TLabel;
    ComboBoxMonth: TComboBox;
    YueBaoRep: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    PageHeaderBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRDBText4: TQRDBText;
    QRBand1: TQRBand;
    QRDBText5: TQRDBText;
    PageFooterBand1: TQRBand;
    QRSysData1: TQRSysData;
    QRLabel6: TQRLabel;
    SummaryBand1: TQRBand;
    QRExpr4: TQRExpr;
    QRLabel7: TQRLabel;
    ButtonCreat: TButton;
    ButtonClose: TButton;
    QRGroup1: TQRGroup;
    QRDBText1: TQRDBText;
    procedure ButtonCreatClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonCloseClick(Sender: TObject);
    procedure YueBaoRepPreview(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormYueBao: TFormYueBao;
  year,month,yea,mon:string;

implementation
uses huaxia, YueBaoPreview;


{$R *.DFM}

procedure TFormYueBao.ButtonCreatClick(Sender: TObject);
Var Pointx,Pointy:Integer;
begin
   year:=comboboxYear.text;
   month:=comboboxMonth.Text;
   huaxiadata.QueryYueBao.active:=false;
    huaxiadata.queryYueBaoHuiZong.active:=false;
   with  huaxiadata.QueryYueBao do
     begin
     parambyname('yea').asstring:=year;
     parambyname('mon').asstring:=month;
     end;
   with  huaxiadata.QueryYueBaoHuiZong do
     begin
     parambyname('yea').asstring:=year;
     parambyname('mon').asstring:=month;
     end;
    huaxiadata.queryYueBao.Prepare;
    huaxiadata.queryYueBaoHuiZong.prepare;
    huaxiadata.queryYueBao.active:=true;
    huaxiadata.queryYueBaoHuiZong.active:=true;
    qrlabel2.caption:=year+'年'+month+'月刷卡情况统计表';
    YueBaoRep.Page.Orientation:=Printer.Orientation;
    YueBaoRep.Page.PaperSize:=Custom;
    YueBaoRep.Units:=Inches;
    Pointx:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);
    Pointy:=GetDeviceCaps(Printer.Handle,LOGPIXELSY);
    YueBaoRep.Page.Width:=Printer.PageWidth/Pointx;
    YueBaoRep.Page.Length:=Printer.Pageheight/Pointy;
    YueBaoRep.preview;
end;

procedure TFormYueBao.FormActivate(Sender: TObject);
begin
  datetimetostring(year,'yyyy',now);
  datetimetostring(month,'mm',now);
  comboboxYear.text:=year;
  comboboxMonth.text:=month;
end;


procedure TFormYueBao.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    huaxiadata.QueryYueBao.active:=false;
    huaxiadata.QueryYueBaoHuiZong.active:=false;
end;

procedure TFormYueBao.ButtonCloseClick(Sender: TObject);
begin
YueBaoRep.QRPrinter:=Nil;
Close;
end;

procedure TFormYueBao.YueBaoRepPreview(Sender: TObject);
begin
     with TFormYueBaoPreview.Create(Application) do
     begin
     QRPreviewYueBao.QRPrinter:=TQRPrinter(Sender);
     CurRep:=YueBaoRep;
     Show;
     end;
end;


procedure TFormYueBao.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 End;
end;

end.