kq_qqdje.pas

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

unit Kq_QqdjE;

interface

uses Variants,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, ComCtrls, TimeIntField, MacroQuery, AdoMacroQry, ADODB,
  ADOQry, AdoCodeEd;

type
  TfrmKq_QqdjE = class(TForm)
    qryEdit: TADOQry;
    DataSource1: TDataSource;
    Bevel8: TBevel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cedEmp: TAdoCodeEd;
    qryEmp: TADOQry;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    lblCode: TLabel;
    qryEmpID: TIntegerField;
    qryGenByDept: TADOQry;
    qryEditID: TIntegerField;
    qryEditEmpID: TIntegerField;
    qryEditCzy: TStringField;
    qryEditNote: TStringField;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    cedDept: TAdoCodeEd;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    qryEditWjbh: TStringField;
    qryEditQsr: TStringField;
    Label2: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    qryEmpState: TSmallintField;
    qryEditQqType: TStringField;
    qryQqType: TADOQry;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource2: TDataSource;
    qryByBatch: TAdoMacroQry;
    qrySysSet: TADOQry;
    qrySysSetQqdjJy1: TIntegerField;
    qrySysSetQqdjJy2: TIntegerField;
    qrySysSetQqdjJr1: TIntegerField;
    qrySysSetQqdjJr2: TIntegerField;
    qrySysSetQqdjTs: TIntegerField;
    qrySysSetNianJr1: TIntegerField;
    qrySysSetNianJr2: TIntegerField;
    qrySysSetNianJr3: TIntegerField;
    qryEmpPyDate: TDateTimeField;
    Label3: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    Label14: TLabel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Bevel1: TBevel;
    qryEditQ0Date: TDateTimeField;
    qryEditQ1Date: TDateTimeField;
    qryEditQ0Time: TTimeIntField;
    qryEditQ1Time: TTimeIntField;
    qryEditQqDays: TIntegerField;
    qryEditQqHours: TFloatField;
    qryChkDupl1: TADOQry;
    qryChkDupl2: TADOQry;
    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 qryEditNewRecord(DataSet: TDataSet);
    procedure qryEditBeforePost(DataSet: TDataSet);
    procedure cedEmpGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure FormCreate(Sender: TObject);
    procedure qryEditQqDaysChange(Sender: TField);
    procedure qryEditQ1TimeChange(Sender: TField);
  private
    { Private declarations }
  	lIsNew :Boolean;
    tdFDate :TDate;
    tsQsr :string;
  public
	Function QkByEmp():Boolean;
	Function QkByDept():Boolean;
	Function QkByBacth():Boolean;
	Function Edit(tnID:integer):Boolean;
	{ Public declarations }
  end;

var
  frmKq_QqdjE: TfrmKq_QqdjE;

implementation

uses SelfFunc, Kq_Qqdj, Main, EmpChoice;

{$R *.DFM}

Function TfrmKq_QqdjE.QkByEmp():Boolean;
begin
	lIsNew :=True;
    Self.Caption :='叫安祅癘(