gz_tiaoxinv.pas

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

unit Gz_TiaoXinV;

interface

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

type
  TfrmGz_TiaoXinV = class(TForm)
    DataSource1: TDataSource;
    MyGrid1: TMyGrid;
    Panel1: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    tblE_ZhiWu: TADOTbl;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    cmdPrint: TBitBtn;
    Label2: TLabel;
    cedDept: TAdoCodeEd;
    panState: TPanel;
    rgState0: TRadioButton;
    rgState9: TRadioButton;
    rgStateAll: TRadioButton;
    tblE_ZhiJi: TADOTbl;
    qryFEmp: TADOQry;
    qryFEmpDept: TStringField;
    qryFEmpCode: TStringField;
    qryFEmpName: TStringField;
    qryFEmpSex: TBooleanField;
    qryFEmpZhiWu: TStringField;
    qryFEmpZhiJi: TStringField;
    qryBrowse: TAdoMacroQry;
    qryBrowseID: TIntegerField;
    qryBrowseDept: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowsesSex: TStringField;
    qryBrowsesDept: TStringField;
    qryBrowsesZhiWu: TStringField;
    qryBrowsesZhiJi: TStringField;
    qryBrowsesJxfs: TStringField;
    qryFEmpJxfs: TStringField;
    cmdFilter: TBitBtn;
    cmdLocate: TBitBtn;
    cmdQuery: TBitBtn;
    dpDate1: TDateTimePicker;
    Label3: TLabel;
    qryBrowsePyDate: TDateTimeField;
    qryFEmpPyDate: TDateTimeField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure rgIfLz0Click(Sender: TObject);
    procedure cmdFilterClick(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure rgState0Click(Sender: TObject);
    procedure dpDate1Exit(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
  private
	dlgMultiFilter :TfrmMultiFilter;
  public
    { Public declarations }
  end;

var
  frmGz_TiaoXinV: TfrmGz_TiaoXinV;

implementation

uses RptExcel, SelfFunc, Main, DsLocate;

{$R *.DFM}

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

procedure TfrmGz_TiaoXinV.FormCreate(Sender: TObject);
var ts :string;
	n :integer;
begin
	if frmMain.czyQxDept <>'' then //场