empchengfa2.pas

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

unit EmpChengFa2;

interface

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

type
  TfrmEmpChengFa2 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TMyGrid;
    Panel1: TPanel;
    cmdPrint: TBitBtn;
    cmdDjByDept: TBitBtn;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Image1: TImage;
    qryDelete: TADOQry;
    StoreForm1: TStoreForm;
    cmdDjByEmp: TBitBtn;
    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;
    cmdEdit: TBitBtn;
    cmdDel: TBitBtn;
    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 cmdDjByDeptClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdDjByEmpClick(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdDelClick(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 }
    dlgEmpChengFa2E :TfrmEmpChengFa2E;
  public
    { Public declarations }
  end;

var
  frmEmpChengFa2: TfrmEmpChengFa2;

implementation

uses RptExcel, SelfFunc, Main, MainData;

{$R *.DFM}

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

procedure TfrmEmpChengFa2.cmdDjByDeptClick(Sender: TObject);
begin
	if dlgEmpChengFa2E.DjByDept() then
    	RefreshQuery(qryBrowse);
end;

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