qsumgz.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 86 行

unit QSumGz;

interface

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

type
  TfrmQSumGz = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    qryBrowse: TAdoMacroQry;
    Panel1: TPanel;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qrySysSet: TADOQry;
    qrySysSetRptNames: TStringField;
    StoreForm1: TStoreForm;
    qryBrowseEmpID: TIntegerField;
    cmdFilter: TBitBtn;
    cmdLocate: TBitBtn;
    cmdExit: TBitBtn;
    cmdPrint: TBitBtn;
    cmdLzJz: TBitBtn;
    cboRptName: TComboBox;
    Image1: TImage;
    Label1: TLabel;
    qryBrowsesDept: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowsesZhiJi: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowseState: TSmallintField;
    qryLzJz: TADOQry;
    qryBrowseDept: TStringField;
    qryBrowseZhiWu: TStringField;
    qryBrowseZhiJi: TStringField;
    qryBrowseJxfs: TStringField;
    qryBrowsesJxfs: TStringField;
    qryBrowsePyDate: TDateTimeField;
    qryBrowseZzDate: TDateTimeField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmdFilterClick(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure cmdLzJzClick(Sender: TObject);
    procedure qryBrowseAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
    dlgMultiFilter :TfrmGz_TotalF;
  public
    { Public declarations }
  end;

var
  frmQSumGz: TfrmQSumGz;

implementation

uses SelfFunc, Main, RptExcel, DsLocate;

{$R *.DFM}

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

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

procedure TfrmQSumGz.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

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

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