daybrushlist.pas

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

unit daybrushlist;

interface

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

type
  TFormRiMingXi = class(TForm)
    GroupBox1: TGroupBox;
    MingXiRep: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRGroup1: TQRGroup;
    QRDBText1: TQRDBText;
    DetailBand1: TQRBand;
    QRDBText3: TQRDBText;
    PageHeaderBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel1: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRDBText4: TQRDBText;
    QRBand1: TQRBand;
    QRDBText5: TQRDBText;
    Label1: TLabel;
    DBLookupComboBoxComp: TDBLookupComboBox;
    ButtonCreat: TButton;
    ButtonClose: TButton;
    QRLabel6: TQRLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure ButtonCreatClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonCloseClick(Sender: TObject);
    procedure MingXiRepPreview(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRiMingXi: TFormRiMingXi;
  date,day:Tdatetime;
  company:string;

implementation
uses huaxia, YueBaoPreview;


{$R *.DFM}

procedure TFormRiMingXi.ButtonCreatClick(Sender: TObject);
Var Pointx,Pointy:Integer;
Begin
   day:=datetimepicker1.datetime;
   HuaxiaData.QueryRiMingXi.Active:=False;
   HuaxiaData.QueryRiMingXiHuiZong.Active:=False;
   With huaxiadata.QueryRiMingXi Do
     Begin
     Parambyname('date').Asdatetime:=day;
     Parambyname('company').AsString:=HuaXiaData.CompTable.FieldByName('Comp_code').AsString;
     End;
   With Huaxiadata.QueryRiMingXiHuiZong Do
     Begin
     ParambyName('date').Asdatetime:=day;
     ParambyName('company').Asstring:=HuaXiaData.CompTable.FieldByName('comp_code').AsString;
     End;
   HuaxiaData.QueryRiMingXi.Prepare;
   HuaxiaData.QueryRiMingXiHuiZong.Prepare;
   HuaxiaData.QueryRiMingXi.Active:=True;
   Huaxiadata.queryRiMingXiHuiZong.Active:=True;
   qrlabel2.caption:='刷卡情况明细表';
   MingXiRep.Page.Orientation:=Printer.Orientation;
   MingXiRep.Page.PaperSize:=Custom;
   MingXiRep.Units:=Inches;
   Pointx:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);
   Pointy:=GetDeviceCaps(Printer.Handle,LOGPIXELSY);
   MingXiRep.Page.Width:=Printer.PageWidth/Pointx;
   MingXiRep.Page.Length:=Printer.Pageheight/Pointy;
   MingXiRep.Preview;
end;

procedure TFormRiMingXi.FormActivate(Sender: TObject);
begin
   datetimepicker1.date:=now;
end;


procedure TFormRiMingXi.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     HuaxiaData.CompTable.Active:=False;
     HuaxiaData.QueryRiMingXi.Active:=False;
     HuaxiaData.QueryRiMingXiHuiZong.Active:=False;
end;

procedure TFormRiMingXi.ButtonCloseClick(Sender: TObject);
begin
MingXiRep.QRPrinter:=Nil;
Close;
end;

procedure TFormRiMingXi.MingXiRepPreview(Sender: TObject);
begin
     with TFormYueBaoPreview.Create(Application) do
     begin
     QRPreviewYueBao.QRPrinter:=TQRPrinter(Sender);
     CurRep:=MingXiRep;
     Show;
     end;
end;

procedure TFormRiMingXi.FormShow(Sender: TObject);
begin
  Huaxiadata.CompTable.active:=True;
end;

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

end.