kq_resultp.pas

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

unit Kq_ResultP;

interface

uses Kq_ResultC,
  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, ADODB, StoreForm, ADOQry, AdoMacroQry;

type
  TfrmKq_ResultP = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    qryBrowse: TAdoMacroQry;
    StoreForm1: TStoreForm;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseFDate: TDateTimeField;
    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;
    qryBrowseCardNo: TStringField;
    qryBrowseDept: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowseDeptName: TStringField;
    cmdQuery: TBitBtn;
    qryBrowsesZhiWu: TStringField;
    qryBrowseBzdyID: TIntegerField;
    qryBrowseState: TIntegerField;
    qryBrowseB5SbTime: TTimeIntField;
    qryBrowseB5XbTime: TTimeIntField;
    qryBrowseB6SbTime: TTimeIntField;
    qryBrowseB6XbTime: TTimeIntField;
    qryBrowseJbSj67: TFloatField;
    qryBrowseJbSj9: TFloatField;
    qryBrowseYcqZbsj: TFloatField;
    qryBrowseYcqJbsj: TFloatField;
    qryBrowseScqZbsj: TFloatField;
    qryBrowseScqJbsj: TFloatField;
    qryBrowseKgSj: TFloatField;
    qryBrowseKgSjJb: TFloatField;
    qryBrowseKgSjCd: TFloatField;
    qryBrowseKgSjZt: TFloatField;
    qryBrowseJbSjRc: TFloatField;
    qryBrowseJbSjRc1: TFloatField;
    qryBrowseJbSjRc2: TFloatField;
    qryBrowseJbSjRc0: TFloatField;
    qryBrowseBCode: TStringField;
    qryBrowseBName: TStringField;
    qryBrowsesZhiJi: TStringField;
    qryBrowseKgCdCs: TIntegerField;
    qryBrowseKgZtCs: TIntegerField;
    qryBrowseChiDaoCs2: TIntegerField;
    qryBrowseZaoTuiCs2: TIntegerField;
    qryBrowseSState: TStringField;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpG_PWD: TStringField;
    Label1: TLabel;
    edCode: TEdit;
    Label2: TLabel;
    edPWD: TEdit;
    cmdEditPwd: TBitBtn;
    qrySetPwd: TADOQry;
    qryAdmin: TADOQry;
    qryAdminPassword: TStringField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    ADOConnection1: TADOConnection;
    qryFormStorage: TADOQuery;
    qryFormStorageFormClass: TStringField;
    qryFormStorageFormStorage: TBlobField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdQueryClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure qryBrowseBNameGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure cmdEditPwdClick(Sender: TObject);
  private
    { Private declarations }
    dlgKq_ResultC :TfrmKq_ResultC;
  public
    { Public declarations }
  end;

var
  frmKq_ResultP: TfrmKq_ResultP;

implementation

uses RptExcel, FindByCode;

{$R *.DFM}

procedure SetHsxmBrowse(oDataSet:TDataSet; oHsxmDs:TDataSet; oGrid:TDBGrid);
var oField :TField;
	i :integer;
    lExist :Boolean;
begin
	//砞竚