gz_monthi.pas

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

unit Gz_MonthI;

interface

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

type
  TfrmGz_MonthI = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    qryBrowse0: TAdoMacroQry;
    Panel1: TPanel;
    qryBrowse0Code: TStringField;
    qryBrowse0Name: TStringField;
    StoreForm1: TStoreForm;
    qryBrowse0EmpID: TIntegerField;
    cmdFilter: TBitBtn;
    cmdLocate: TBitBtn;
    cmdExit: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    qryBrowse0sDept: TStringField;
    qryBrowse0DeptName: TStringField;
    qryBrowse0sZhiJi: TStringField;
    qryBrowse0sZhiWu: TStringField;
    qryBrowse0PyDate: TDateTimeField;
    qryBrowse0ZzDate: TDateTimeField;
    qryBrowse0SessionID: TIntegerField;
    qrySave: TADOQry;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    cmdSave: TBitBtn;
    qrySaveSessionID: TIntegerField;
    qrySaveEmpID: TIntegerField;
    qryUpdate: TADOQry;
    qryBrowse0Memo: TStringField;
    cmdBatch: TBitBtn;
    cmdCancel: TBitBtn;
    qryBrowse: TClientDataSet;
    qryBrowseSessionID: TIntegerField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowsesDept: TStringField;
    qryBrowsesZhiJi: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowsePyDate: TDateTimeField;
    qryBrowseZzDate: TDateTimeField;
    qryBrowseMemo: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure cmdFilterClick(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmdSaveClick(Sender: TObject);
    procedure cmdBatchClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure qryBrowseBeforeDelete(DataSet: TDataSet);
    procedure qryBrowseBeforeInsert(DataSet: TDataSet);
    procedure qryBrowse0AfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
    dlgMultiFilter :TfrmGz_TotalF;
    dlgGz_pltx :TfrmGz_pltx;
  public
    { Public declarations }
  end;

var
  frmGz_MonthI: TfrmGz_MonthI;

implementation

uses SelfFunc, Main, RptExcel, DsLocate, TotalGz, MainData;

{$R *.DFM}

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

procedure TfrmGz_MonthI.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action :=caFree;
end;

procedure TfrmGz_MonthI.FormCreate(Sender: TObject);
var i :integer;
	tsSQL :string;
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

    dlgGz_pltx :=TfrmGz_pltx.Create(Self);
    
	dlgMultiFilter :=TfrmGz_TotalF.Create(Self);
    dlgMultiFilter.qryBrowse :=qryBrowse0;

    SetHsxmBrowse(qryBrowse, dlgMultiFilter.qryG_Hsxm, DBGrid1); //