empjiangli2.pas

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

unit EmpJiangLi2;

interface

uses EmpJiangLi2E,
  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
  TfrmEmpJiangLi2 = 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;
    cedJiangLi: TAdoCodeEd;
    qryE_JiangLi: TADOQry;
    qryE_JiangLiCode: TStringField;
    qryE_JiangLiName: TStringField;
    qryBrowse: TAdoMacroQry;
    qryBrowseID: TIntegerField;
    qryBrowseEmpID: TIntegerField;
    qryBrowseFDate: TDateTimeField;
    qryBrowseJlType: TStringField;
    qryBrowseJlJe: TFloatField;
    qryBrowseWjbh: TStringField;
    qryBrowseQsr: TStringField;
    qryBrowseNote: TStringField;
    qryBrowseCode: TStringField;
    qryBrowseName: TStringField;
    qryBrowseDept: TStringField;
    qryBrowseDeptName: TStringField;
    qryBrowseZwName: TStringField;
    qryBrowsesJlType: 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 cedJiangLiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
  private
    { Private declarations }
    dlgEmpJiangLi2E :TfrmEmpJiangLi2E;
  public
    { Public declarations }
  end;

var
  frmEmpJiangLi2: TfrmEmpJiangLi2;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

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

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

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