kq_daobane.pas

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

unit Kq_DaoBanE;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, ComCtrls, TimeIntField, Grids, CnCalendar, PaiBanGrid,
  DBGrids, ADODB, ADOQry, AdoCodeEd;

type
  TfrmKq_DaoBanE = class(TForm)
    Bevel8: TBevel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cedEmp: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    lblCode: TLabel;
    qryEmpID: TIntegerField;
    qryGen: TADOQry;
    cedDept: TAdoCodeEd;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    pbGrid: TPaiBanGrid;
    qryBanZhi: TADOQry;
    qryBanZhiCode: TStringField;
    qryBanZhiName: TStringField;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    qryCheckEmp: TADOQry;
    qryCheckEmplExists: TIntegerField;
    qryEmpState: TSmallintField;
    qryEditD: TADOQry;
    qryEditE: TADOQry;
    qryEditDSessionID: TIntegerField;
    qryEditDDept: TStringField;
    qryEditDCycle: TIntegerField;
    qryEditDB1: TStringField;
    qryEditDB2: TStringField;
    qryEditDB3: TStringField;
    qryEditDB4: TStringField;
    qryEditDB5: TStringField;
    qryEditDB6: TStringField;
    qryEditDB7: TStringField;
    qryEditDB8: TStringField;
    qryEditDB9: TStringField;
    qryEditDB10: TStringField;
    qryEditDB11: TStringField;
    qryEditDB12: TStringField;
    qryEditDB13: TStringField;
    qryEditDB14: TStringField;
    qryEditDB15: TStringField;
    qryEditDB16: TStringField;
    qryEditDB17: TStringField;
    qryEditDB18: TStringField;
    qryEditDB19: TStringField;
    qryEditDB20: TStringField;
    qryEditDB21: TStringField;
    qryEditDB22: TStringField;
    qryEditDB23: TStringField;
    qryEditDB24: TStringField;
    qryEditDB25: TStringField;
    qryEditDB26: TStringField;
    qryEditDB27: TStringField;
    qryEditDB28: TStringField;
    qryEditDB29: TStringField;
    qryEditDB30: TStringField;
    qryEditDB31: TStringField;
    qryEditESessionID: TIntegerField;
    qryEditEEmpID: TIntegerField;
    qryEditECycle: TIntegerField;
    qryEditEB1: TStringField;
    qryEditEB2: TStringField;
    qryEditEB3: TStringField;
    qryEditEB4: TStringField;
    qryEditEB5: TStringField;
    qryEditEB6: TStringField;
    qryEditEB7: TStringField;
    qryEditEB8: TStringField;
    qryEditEB9: TStringField;
    qryEditEB10: TStringField;
    qryEditEB11: TStringField;
    qryEditEB12: TStringField;
    qryEditEB13: TStringField;
    qryEditEB14: TStringField;
    qryEditEB15: TStringField;
    qryEditEB16: TStringField;
    qryEditEB17: TStringField;
    qryEditEB18: TStringField;
    qryEditEB19: TStringField;
    qryEditEB20: TStringField;
    qryEditEB21: TStringField;
    qryEditEB22: TStringField;
    qryEditEB23: TStringField;
    qryEditEB24: TStringField;
    qryEditEB25: TStringField;
    qryEditEB26: TStringField;
    qryEditEB27: TStringField;
    qryEditEB28: TStringField;
    qryEditEB29: TStringField;
    qryEditEB30: TStringField;
    qryEditEB31: TStringField;
    lblSession: TStaticText;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure cedEmpCodeChange(Sender: TObject);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormCreate(Sender: TObject);
    procedure pbGridEdit(Sender: TObject; nIndex: Integer);
  private
  	lIsNew, lByDept :Boolean;
    nSessionID :integer;
    sSQL_Edit :string;
    { Private declarations }
  public
	Function DbByEmp():Boolean;
	Function DbByDept():Boolean;
	Function DbByEmps(tsSQL:string):Boolean;
	Function DbByDepts():Boolean;
    procedure SetSession(tnSessionID:integer; dDate0,dDate1:TDate; sSession:string);
	{ Public declarations }
  end;

var
  frmKq_DaoBanE: TfrmKq_DaoBanE;

implementation

uses SelfFunc, Kq_DaoBan, Main;

{$R *.DFM}

procedure TfrmKq_DaoBanE.SetSession(tnSessionID:integer; dDate0,dDate1:TDate; sSession:string);
begin
	nSessionID :=tnSessionID;

    with qryBanZhi do
    begin
    	Close;
        Parameters[0].Value :=nSessionID;
        Open;
    end;
    pbGrid.SetBeginEnd(dDate0, dDate1);

    lblSession.Caption :=sSession;
end;

Function TfrmKq_DaoBanE.DbByEmp():Boolean;
begin
	lIsNew :=True;
    lByDept :=False;
    Self.Caption :='