kq_result.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit Kq_Result;

interface

uses Kq_ResultF,Kq_ResultSum,Kq_SourceQkE,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, MyGrid, FormStore, TimeIntField,
  ComCtrls, AdoCodeEd, MacroQuery, ADOQry, StoreForm, ADODB, AdoMacroQry;

type
  TfrmKq_Result = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseFDate: TDateTimeField;
    qryBrowseBanZhi: TStringField;
    qryBrowseB1SbTime: TTimeIntField;
    qryBrowseB1XbTime: TTimeIntField;
    qryBrowseB2SbTime: TTimeIntField;
    qryBrowseB2XbTime: TTimeIntField;
    qryBrowseB3SbTime: TTimeIntField;
    qryBrowseB3XbTime: TTimeIntField;
    qryBrowseB4SbTime: TTimeIntField;
    qryBrowseB4XbTime: TTimeIntField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseChiDaoSj: TIntegerField;
    qryBrowseChiDaoCs: TIntegerField;
    qryBrowseZaoTuiSj: TIntegerField;
    qryBrowseZaoTuiCs: TIntegerField;
    qryBrowseKgSj: TIntegerField;
    qryBrowseKgCs: TIntegerField;
    qryBrowseRcjb1: TIntegerField;
    qryBrowseRcjb2: TIntegerField;
    qryBrowseRcjbOver0: TIntegerField;
    qryBrowseRcjbAll: TIntegerField;
    qryBrowseYcqSj: TIntegerField;
    qryBrowseSjcqSj: TIntegerField;
    qryBrowseFjbcName11: TStringField;
    qryBrowseB11SbTime: TTimeIntField;
    qryBrowseB11XbTime: TTimeIntField;
    qryBrowseFjbcName12: TStringField;
    qryBrowseB12SbTime: TTimeIntField;
    qryBrowseB12XbTime: TIntegerField;
    qryBrowseCardNo: TStringField;
    qryBrowseDept: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowseDeptName: TStringField;
    cboRptName: TComboBox;
    qrySysSet: TADOQry;
    qrySysSetKqRpts: TStringField;
    qryBrowseBanZhiName: TStringField;
    qryBrowseKgSj_cd: TIntegerField;
    qryBrowseKgCs_cd: TIntegerField;
    qryBrowseKgSj_zt: TIntegerField;
    qryBrowseKgCs_zt: TIntegerField;
    qryBrowseJbKgSj: TIntegerField;
    cmdQuery: TBitBtn;
    qryBrowseZhiWu: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBanZhi_D: TADOQry;
    qryBanZhi_DCode: TStringField;
    qryBanZhi_DRptColXh: TSmallintField;
    qryBanZhi_DSbTime: TIntegerField;
    qryBanZhi_DXbTime: TIntegerField;
    qryModifyR: TADOQry;
    cmdEdit: TBitBtn;
    cmdTotal: TBitBtn;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdTotalClick(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
    dlgKq_ResultSum :TfrmKq_ResultSum;
    dlgKq_SourceQkE :TfrmKq_SourceQkE;
  public
    { Public declarations }
    dlgMultiFilter :TfrmKq_ResultF;
  end;

var
  frmKq_Result: TfrmKq_Result;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

procedure TfrmKq_Result.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmKq_Result.cmdPrintClick(Sender: TObject);
var tsDept,tsEmp :string;
begin
  with dlgMultiFilter do
  begin
  	if cedDept.CodeText ='' then tsDept :=cedDept.Text
    else tsDept :=qryDeptLongName.Value;
  	if cedEmp.CodeText ='' then tsEmp :=cedEmp.Text
    else tsEmp :=qryEmpName.Value;

	frmRptExcel.PrintRpt(cboRptName.Text, qryBrowse
    	,['癬﹍ら戳', dpDate0.Date
         ,'沧ゎら戳', dpDate1.Date
         ,'场