empchengfaq.pas

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

unit EmpChengFaQ;

interface

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

type
  TfrmEmpChengFaQ = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    StoreForm1: TStoreForm;
    Label2: TLabel;
    dpDate0: TDateTimePicker;
    dpDate1: TDateTimePicker;
    Label3: TLabel;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cedDept: TAdoCodeEd;
    cmdQuery: TBitBtn;
    Label5: TLabel;
    cedEmpCode: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpState: TSmallintField;
    Label4: TLabel;
    cedChengFa: TAdoCodeEd;
    qryE_ChengFa: TADOQry;
    qryE_ChengFaCode: TStringField;
    qryE_ChengFaName: TStringField;
    qryBrowse: TAdoMacroQry;
    qryBrowseID: TIntegerField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseFDate: TDateTimeField;
    qryBrowseCFType: TStringField;
    qryBrowseCFJe: TFloatField;
    qryBrowseWjbh: TStringField;
    qryBrowseQsr: TStringField;
    qryBrowseNote: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseDept: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowseZwName: TStringField;
    qryBrowsesCFType: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cedEmpCodeGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cedChengFaGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEmpChengFaQ: TfrmEmpChengFaQ;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

procedure TfrmEmpChengFaQ.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt(Self.Caption, qryBrowse
    	,['癬﹍ら戳', dpDate0.Date
         ,'沧ゎら戳', dpDate1.Date
         ,'场