zlemployeee.pas

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

unit ZlEmployeeE;

interface

uses JPEG,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  ADOCodeEd, OleCtnrs, Menus, ExtDlgs, FormStore, ADODB, ADOQry;

type
  TfrmZlEmployeeE = class(TForm)
    qryEdit: TADOQuery;
    DataSource1: TDataSource;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    qryChkCardNo: TADOQry;
    qryEditID: TIntegerField;
    qryEditDept: TStringField;
    qryEditCode: TStringField;
    qryEditCardNo: TStringField;
    qryEditName: TStringField;
    qryEditSfz: TStringField;
    qryEditBornDate: TDateTimeField;
    qryEditSex: TBooleanField;
    qryEditPyDate: TDateTimeField;
    qryEditSyMonths: TIntegerField;
    qryEditZzDate: TDateTimeField;
    qryEditLzDate: TDateTimeField;
    qryEditLzCause: TStringField;
    qryEditMemo: TStringField;
    qryEditZhiWu: TStringField;
    qryEditXueLi: TStringField;
    qryEditHunYin: TStringField;
    qryEditJiGuan: TStringField;
    qryEditNation: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    panIfLz: TPanel;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    cedDept: TAdoCodeEd;
    qryE_ZhiWu: TADOQry;
    cedZhiWu: TAdoCodeEd;
    qryE_ZhiWuCode: TStringField;
    qryE_ZhiWuName: TStringField;
    qryE_LzCause: TADOQry;
    cedLzCause: TAdoCodeEd;
    Label19: TLabel;
    qryE_XueLi: TADOQry;
    cedXueLi: TAdoCodeEd;
    qryE_HunYin: TADOQry;
    cedHunYin: TAdoCodeEd;
    qryE_Nation: TADOQry;
    cedNation: TAdoCodeEd;
    qryE_JiGuan: TADOQry;
    cedJiGuan: TAdoCodeEd;
    qryEditRoomBed: TStringField;
    Label18: TLabel;
    panSex: TPanel;
    rgSex0: TRadioButton;
    rgSex1: TRadioButton;
    qryRoomBed: TADOQry;
    cedRoomBed: TAdoCodeEd;
    qryRoomBedCode: TStringField;
    qryG_Hsxm: TADOQry;
    DBEdit51: TDBEdit;
    DBEdit52: TDBEdit;
    Label51: TLabel;
    Label52: TLabel;
    DBEdit53: TDBEdit;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    DBEdit54: TDBEdit;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    Label60: TLabel;
    Label61: TLabel;
    DBEdit62: TDBEdit;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    DBEdit63: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    Label65: TLabel;
    Bevel1: TBevel;
    qryE_LzCauseCode: TStringField;
    qryE_LzCauseName: TStringField;
    qryE_XueLiCode: TStringField;
    qryE_XueLiName: TStringField;
    qryE_JiGuanCode: TStringField;
    qryE_JiGuanName: TStringField;
    qryE_HunYinCode: TStringField;
    qryE_HunYinName: TStringField;
    qryE_NationCode: TStringField;
    qryE_NationName: TStringField;
    qryCheckSfz: TADOQry;
    qryCheckSfzCode: TStringField;
    qryCheckSfzName: TStringField;
    qryCheckCode: TADOQry;
    qryCheckCodeName: TStringField;
    qryCheckCodeDeptName: TStringField;
    qryCheckSfzDept: TStringField;
    qryCheckSfzLzName: TStringField;
    qryCheckSfzLzDate: TDateTimeField;
    cmdAdd: TBitBtn;
    qryChkRoomBed: TADOQry;
    qryChkRoomBedDept: TStringField;
    qryChkRoomBedName: TStringField;
    qryChkRoomBedCode: TStringField;
    qryChkCardNoCode: TStringField;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    DBEdit1: TDBEdit;
    Label12: TLabel;
    qryEditIfDaKa: TBooleanField;
    qryEditState: TSmallintField;
    qryEditPhoto: TBlobField;
    DBCheckBox1: TDBCheckBox;
    pmnuPhoto: TPopupMenu;
    mnuLoad: TMenuItem;
    mnuSaveAs: TMenuItem;
    N3: TMenuItem;
    mnuClear: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    SaveDialog1: TSaveDialog;
    qryCheckSfzState: TSmallintField;
    qryEditZhiJi: TStringField;
    Label20: TLabel;
    cedZhiJi: TAdoCodeEd;
    qryE_ZhiJi: TADOQry;
    qryE_ZhiJiCode: TStringField;
    qryE_ZhiJiName: TStringField;
    qryEditJxfs: TStringField;
    Label21: TLabel;
    cedJxfs: TAdoCodeEd;
    qryE_jxfs: TADOQry;
    qryE_jxfsCode: TStringField;
    qryE_jxfsName: TStringField;
    qrySysSet: TADOQry;
    qrySysSetEmpCodeAuto: TBooleanField;
    qrySysSetEmpCodeUnique: TBooleanField;
    qrySysSetEmpCodeLen: TIntegerField;
    qryGenCode: TADOQry;
    qryGenCodeLastCode: TStringField;
    qryGenCode2: TADOQry;
    qryGenCode2NewCode: TStringField;
    qryJiGuan: TADOQry;
    qryJiGuanJiGuan: TStringField;
    StaticText1: TStaticText;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    DBEdit66: TDBEdit;
    DBEdit67: TDBEdit;
    DBEdit68: TDBEdit;
    Image1: TImage;
    Bevel2: TBevel;
    qryEditBanZu: TStringField;
    Label22: TLabel;
    DBEdit11: TDBEdit;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure qryEditNewRecord(DataSet: TDataSet);
    procedure cedDeptGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedDeptCodeChange(Sender: TObject);
    procedure cedZhiWuCodeChange(Sender: TObject);
    procedure cedRoomBedCodeChange(Sender: TObject);
    procedure cedLzCauseCodeChange(Sender: TObject);
    procedure cedXueLiCodeChange(Sender: TObject);
    procedure cedHunYinCodeChange(Sender: TObject);
    procedure cedJiGuanCodeChange(Sender: TObject);
    procedure cedNationCodeChange(Sender: TObject);
    procedure cedZhiWuGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedLzCauseGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedXueLiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedHunYinGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedJiGuanGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedNationGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure qryEditSfzChange(Sender: TField);
    procedure DBEdit5Exit(Sender: TObject);
    procedure DBEdit5Enter(Sender: TObject);
    procedure rgSex0Click(Sender: TObject);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure qryEditSyMonthsChange(Sender: TField);
    procedure cedRoomBedEnter(Sender: TObject);
    procedure cedRoomBedExit(Sender: TObject);
    procedure qryEditCodeChange(Sender: TField);
    procedure qryEditRoomBedChange(Sender: TField);
    procedure FormCreate(Sender: TObject);
    procedure mnuClearClick(Sender: TObject);
    procedure mnuLoadClick(Sender: TObject);
    procedure mnuSaveAsClick(Sender: TObject);
    procedure DBImage1DblClick(Sender: TObject);
    procedure DBImage1KeyPress(Sender: TObject; var Key: Char);
    procedure cedZhiJiCodeChange(Sender: TObject);
    procedure cedZhiJiGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure cedJxfsCodeChange(Sender: TObject);
    procedure cedJxfsGetDisplayText(Sender: TObject;
      var sDisplayText: String);
    procedure qryEditBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  	lIsNew :Boolean;
    sDept :string;
    procedure FModify(tnID:integer);
  public
	{ Public declarations }
	Function Add(tsDept:string) :Boolean;
	Function Edit(tnID:integer) :Boolean;
	Function FanZhi(tnID:integer) :Boolean;
	procedure View(tnID:integer);
    function Add2(tsName, tsZhiWu, tsXueLi: string): Boolean;
  end;

var
  frmZlEmployeeE: TfrmZlEmployeeE;

implementation

uses SelfFunc, ZlEmployee, Main, MainData;

{$R *.DFM}

procedure TfrmZlEmployeeE.FModify(tnID:integer);
begin
    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=tnID;
        Open;
        if lIsNew then Append;
	end;
    if qryEditSex.Value then rgSex1.Checked :=True
    else rgSex0.Checked :=True;
    cedDept.CodeText :=qryEditDept.Value;
    cedZhiWu.CodeText :=qryEditZhiWu.Value;
    cedZhiJi.CodeText :=qryEditZhiJi.Value;
    cedRoomBed.CodeText :=qryEditRoomBed.Value;
    cedJxfs.CodeText :=qryEditJxfs.Value;
    cedLzCause.CodeText :=qryEditLzCause.Value;
    cedXueLi.CodeText :=qryEditXueLi.Value;
    cedHunYin.CodeText :=qryEditHunYin.Value;
    cedJiGuan.CodeText :=qryEditJiGuan.Value;
    cedNation.CodeText :=qryEditNation.Value;

    if qryEditPhoto.IsNull then
   	    Image1.Picture.Graphic :=nil
    else begin
      try
	    Image1.Picture.Graphic :=TJPEGImage.Create;
	    Image1.Picture.Graphic.Assign(qryEditPhoto);
      except
	    Image1.Picture.Graphic :=nil;
      end;
    end;

    Self.SelectFirst;
end;

Function TfrmZlEmployeeE.Add(tsDept:string):Boolean;
begin
	Self.Caption :='穝