kq_resultte.pas

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

unit Kq_ResultTE;

interface

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

type
  TfrmKq_ResultTE = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    cmdPrint: TBitBtn;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowseEmpID: TIntegerField;
    MyGrid1: TMyGrid;
    qryBrowseChiDaoSj: TIntegerField;
    qryBrowseChiDaoCs: TIntegerField;
    qryBrowseChiDaoCs2: TIntegerField;
    qryBrowseZaoTuiSj: TIntegerField;
    qryBrowseZaoTuiCs: TIntegerField;
    qryBrowseZaoTuiCs2: TIntegerField;
    qryBrowseKgSj: TFloatField;
    qryBrowseKgSjJb: TFloatField;
    qryBrowseKgSjCd: TFloatField;
    qryBrowseKgCdCs: TIntegerField;
    qryBrowseKgSjZt: TFloatField;
    qryBrowseKgZtCs: TIntegerField;
    qryBrowseJbSjRc: TFloatField;
    qryBrowseJbSjRc1: TFloatField;
    qryBrowseJbSjRc2: TFloatField;
    qryBrowseJbSjRc0: TFloatField;
    qryBrowseJbSj67: TFloatField;
    qryBrowseJbSj9: TFloatField;
    qryBrowseYcqZbsj: TFloatField;
    qryBrowseYcqJbsj: TFloatField;
    qryBrowseScqZbsj: TFloatField;
    qryBrowseScqJbsj: TFloatField;
    cmdQuery: TBitBtn;
    qryBrowseZts: TIntegerField;
    qryBrowseGxTs: TIntegerField;
    qryBrowseCardNo: TStringField;
    qryBrowseDept: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowsesDept: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowsesZhiJi: TStringField;
    cmdLocate: TBitBtn;
    qrySumField: TAdoMacroQry;
    qrySumFieldChiDaoSj: TIntegerField;
    qrySumFieldChiDaoCs: TIntegerField;
    qrySumFieldChiDaoCs2: TIntegerField;
    qrySumFieldZaoTuiSj: TIntegerField;
    qrySumFieldZaoTuiCs: TIntegerField;
    qrySumFieldZaoTuiCs2: TIntegerField;
    qrySumFieldKgSj: TFloatField;
    qrySumFieldKgSjJb: TFloatField;
    qrySumFieldKgSjCd: TFloatField;
    qrySumFieldKgCdCs: TIntegerField;
    qrySumFieldKgSjZt: TFloatField;
    qrySumFieldKgZtCs: TIntegerField;
    qrySumFieldJbSjRc: TFloatField;
    qrySumFieldJbSjRc1: TFloatField;
    qrySumFieldJbSjRc2: TFloatField;
    qrySumFieldJbSjRc0: TFloatField;
    qrySumFieldJbSj67: TFloatField;
    qrySumFieldJbSj9: TFloatField;
    qrySumFieldYcqZbsj: TFloatField;
    qrySumFieldYcqJbsj: TFloatField;
    qrySumFieldScqZbsj: TFloatField;
    qrySumFieldScqJbsj: TFloatField;
    qrySumFieldZts: TIntegerField;
    qrySumFieldGxTs: TIntegerField;
    cmdFilter: TBitBtn;
    qrySysSet: TADOQry;
    cboRptName: TComboBox;
    qrySysSetKqSumRpts: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure cmdFilterClick(Sender: TObject);
  private
  	dlgMultiFilter :TfrmKq_ResultF;
    dlgRFilter :TfrmMultiFilter;
  public
    { Public declarations }
  end;

var
  frmKq_ResultTE: TfrmKq_ResultTE;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

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

procedure TfrmKq_ResultTE.FormCreate(Sender: TObject);
var tsFields,ts :string;
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);


	dlgMultiFilter :=TfrmKq_ResultF.Create(Self);
    dlgMultiFilter.qryBrowse :=qryBrowse;

    //