kq_paibane.pas

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

unit Kq_PaiBanE;

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_PaiBanE = 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;
    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 :Boolean;
    nSessionID:integer;
    sSQL_Edit :string;
    { Private declarations }
  public
	Function PbByEmp():Boolean;
	Function PbByDept():Boolean;
	Function PbByBatch():Boolean;
	Function PbByEmps(tsSQL:string):Boolean;
    procedure SetSession(tnSessionID:integer; dDate0,dDate1:TDate; sSession:string);
	{ Public declarations }
  end;

var
  frmKq_PaiBanE: TfrmKq_PaiBanE;

implementation

uses SelfFunc, Kq_PaiBan, Main, EmpChoice;

{$R *.DFM}

procedure TfrmKq_PaiBanE.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_PaiBanE.PbByEmp():Boolean;
begin
	lIsNew :=True;
    Self.Caption :='逼痁祅癘(