empdiaozhie.pas

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

unit EmpDiaoZhiE;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, Mask, DBCtrls, ExtCtrls, AdoCodeEd, ADODB,
  ADOQry;

type
  TfrmEmpDiaoZhiE = class(TForm)
    qryEmp: TADOQry;
    DataSource1: TDataSource;
    cmdCancel: TBitBtn;
    cmdOK: TBitBtn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    qryDept: TADOQry;
    CodeEd1: TAdoCodeEd;
    qryEmpID: TIntegerField;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpDept: TStringField;
    Label6: TLabel;
    Bevel1: TBevel;
    qryEdit: TADOQry;
    DataSource2: TDataSource;
    qryEditID: TIntegerField;
    qryEditEmpID: TIntegerField;
    qryEditFDate: TDateTimeField;
    qryEditOldDept: TStringField;
    qryEditOldCode: TStringField;
    qryEditNewDept: TStringField;
    qryEditNewCode: TStringField;
    qryEditNote: TStringField;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    cedNewDept: TAdoCodeEd;
    qryEditOldZhiWu: TStringField;
    qryEditNewZhiWu: TStringField;
    Label8: TLabel;
    Label9: TLabel;
    qryE_ZhiWu: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    qryE_ZhiWuCode: TStringField;
    qryE_ZhiWuName: TStringField;
    cedNewZhiWu: TAdoCodeEd;
    CodeEd2: TAdoCodeEd;
    qryEmpZhiWu: TStringField;
    qryEditNewZhiJi: TStringField;
    qryEditOldZhiJi: TStringField;
    qryEmpZhiJi: TStringField;
    Label10: TLabel;
    CodeEd3: TAdoCodeEd;
    qryE_ZhiJi: TADOQry;
    qryE_ZhiJiCode: TStringField;
    qryE_ZhiJiName: TStringField;
    cedNewZhiJi: TAdoCodeEd;
    qryEditOldJxfs: TStringField;
    qryEditNewJxfs: TStringField;
    Label13: TLabel;
    CodeEd4: TAdoCodeEd;
    qryE_Jxfs: TADOQry;
    cedNewJxfs: TAdoCodeEd;
    qryE_JxfsCode: TStringField;
    qryE_JxfsName: TStringField;
    qryEmpJxfs: TStringField;
    qryE_ZhiWuNote: TStringField;
    Label5: TLabel;
    Memo1: TMemo;
    procedure cmdOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CodeEd1GetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedNewDeptCodeChange(Sender: TObject);
    procedure cedNewZhiWuCodeChange(Sender: TObject);
    procedure cedNewZhiWuGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure CodeEd2GetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure CodeEd3GetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedNewZhiJiCodeChange(Sender: TObject);
    procedure cedNewZhiJiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure CodeEd4GetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedNewJxfsGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedNewJxfsCodeChange(Sender: TObject);
  private
    { Private declarations }
  public
	Function DiaoZhi(nCurID:integer):Boolean;
    { Public declarations }
  end;

var
  frmEmpDiaoZhiE: TfrmEmpDiaoZhiE;

implementation

uses SelfFunc;

{$R *.DFM}
Function TfrmEmpDiaoZhiE.DiaoZhi(nCurID:integer):Boolean;
begin
    with qryEmp do
    begin
        Close;
        Parameters[0].Value :=nCurID;
        Open;
    end;
    CodeEd1.CodeText :=qryEmpDept.Value;
    CodeEd2.CodeText :=qryEmpZhiWu.Value;
    CodeEd3.CodeText :=qryEmpZhiJi.Value;
    CodeEd4.CodeText :=qryEmpJxfs.Value;

    with qryEdit do
    begin
        Close;
        Open;
        Append;
    end;
    qryEditEmpID.Value :=qryEmpID.Value;
    qryEditOldCode.Value :=qryEmpCode.Value;
    qryEditOldDept.Value :=qryEmpDept.Value;
    qryEditOldZhiWu.Value :=qryEmpZhiWu.Value;
    qryEditOldZhiJi.Value :=qryEmpZhiJi.Value;
    qryEditOldJxfs.Value :=qryEmpJxfs.Value;
    qryEditNewDept.Value :=qryEmpDept.Value;
    qryEditNewZhiWu.Value :=qryEmpZhiWu.Value;
    qryEditNewZhiJi.Value :=qryEmpZhiJi.Value;
    qryEditNewJxfs.Value :=qryEmpJxfs.Value;
    qryEditFDate.Value :=Date();
    qryEditNewCode.Value :=qryEmpCode.Value;

	cedNewDept.CodeText :=qryEditNewDept.Value;
	cedNewZhiWu.CodeText :=qryEditNewZhiWu.Value;
	cedNewZhiJi.CodeText :=qryEditNewZhiJi.Value;
	cedNewJxfs.CodeText :=qryEditNewJxfs.Value;

    Result :=(Self.ShowModal()=mrOK);
end;

procedure TfrmEmpDiaoZhiE.cmdOKClick(Sender: TObject);
begin
	if qryEditNewDept.Value ='' then
    begin
    	MsgBox('叫块