zlemployeed.pas

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

unit ZlEmployeeD;

interface

uses JPEG,AdoCodeEd,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, ObeyTable, Buttons,
  CodeEd, OleCtnrs, Menus, ExtDlgs, FormStore, ADODB, Grids, DBGrids,
  MyGrid, ComCtrls, DBJpeg, ADOTbl, ADOQry;

type
  TfrmZlEmployeeD = class(TForm)
    DataSource9: TDataSource;
    qryPeiXun: TADOQry;
    DataSource8: TDataSource;
    qryChengFa: TADOQry;
    qryChengFaID: TIntegerField;
    qryChengFaEmpID: TIntegerField;
    qryChengFaFDate: TDateTimeField;
    qryChengFaCfType: TStringField;
    qryChengFaCfJe: TFloatField;
    qryChengFaWjbh: TStringField;
    qryChengFaQsr: TStringField;
    qryChengFaNote: TStringField;
    qryChengFasCfType: TStringField;
    DataSource7: TDataSource;
    qryJiangLi: TADOQry;
    qryJiangLiID: TIntegerField;
    qryJiangLiEmpID: TIntegerField;
    qryJiangLiFDate: TDateTimeField;
    qryJiangLiJlType: TStringField;
    qryJiangLisJlType: TStringField;
    qryJiangLiJlJe: TFloatField;
    qryJiangLiWjbh: TStringField;
    qryJiangLiQsr: TStringField;
    qryJiangLiNote: TStringField;
    DataSource3: TDataSource;
    qryDiaoZhi: TADOQry;
    qryDiaoZhiID: TIntegerField;
    qryDiaoZhiEmpID: TIntegerField;
    qryDiaoZhiFDate: TDateTimeField;
    qryDiaoZhiOldDept: TStringField;
    qryDiaoZhisOldDept: TStringField;
    qryDiaoZhiNewDept: TStringField;
    qryDiaoZhisNewDept: TStringField;
    qryDiaoZhiOldZhiWu: TStringField;
    qryDiaoZhisOldZhiWu: TStringField;
    qryDiaoZhiNewZhiWu: TStringField;
    qryDiaoZhisNewZhiWu: TStringField;
    qryDiaoZhiOldCode: TStringField;
    qryDiaoZhiNewCode: TStringField;
    qryDiaoZhiNewZhiJi: TStringField;
    qryDiaoZhiOldZhiJi: TStringField;
    qryDiaoZhisOldZhiJi: TStringField;
    qryDiaoZhisNewZhiJi: TStringField;
    qryDiaoZhiNote: TStringField;
    DataSource10: TDataSource;
    qryDaShi: TADOQry;
    qryDaShiID: TIntegerField;
    qryDaShiEmpID: TIntegerField;
    qryDaShiFDate: TDateTimeField;
    qryDaShiJlr: TStringField;
    qryDaShiWjbh: TStringField;
    qryDaShiNote: TStringField;
    qryDaShiNotes: TStringField;
    DataSource6: TDataSource;
    qryGongZuo: TADOQry;
    qryGongZuoID: TIntegerField;
    qryGongZuoEmpID: TIntegerField;
    qryGongZuoDate0: TDateTimeField;
    qryGongZuoDate1: TDateTimeField;
    qryGongZuoUnit: TStringField;
    qryGongZuoZhiWu: TStringField;
    qryGongZuoXinJin: TFloatField;
    qryGongZuoLzyy: TStringField;
    tblXueLi: TADOTbl;
    DataSource5: TDataSource;
    qryJiaoYu: TADOQry;
    qryJiaoYuID: TIntegerField;
    qryJiaoYuEmpID: TIntegerField;
    qryJiaoYuDate0: TDateTimeField;
    qryJiaoYuDate1: TDateTimeField;
    qryJiaoYuSchool: TStringField;
    qryJiaoYuClass: TStringField;
    qryJiaoYuXueLi: TStringField;
    qryJiaoYuByzNo: TStringField;
    qryJiaoYusXueLi: TStringField;
    DataSource4: TDataSource;
    qryJiaTing: TADOQry;
    qryJiaTingID: TIntegerField;
    qryJiaTingEmpID: TIntegerField;
    qryJiaTingName: TStringField;
    qryJiaTingRelation: TStringField;
    qryJiaTingUnit: TStringField;
    qryJiaTingBornDate: TDateTimeField;
    qryJiaTingZhiWu: TStringField;
    oPages: TPageControl;
    TabSheet1: TTabSheet;
    MyGrid1: TMyGrid;
    TabSheet2: TTabSheet;
    MyGrid2: TMyGrid;
    TabSheet3: TTabSheet;
    MyGrid3: TMyGrid;
    TabSheet4: TTabSheet;
    MyGrid4: TMyGrid;
    TabSheet5: TTabSheet;
    MyGrid5: TMyGrid;
    TabSheet6: TTabSheet;
    MyGrid6: TMyGrid;
    TabSheet7: TTabSheet;
    MyGrid7: TMyGrid;
    TabSheet8: TTabSheet;
    MyGrid8: TMyGrid;
    TabSheet9: TTabSheet;
    Label2: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label18: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Bevel1: TBevel;
    Label12: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label3: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    cedRoomBed: TAdoCodeEd;
    cedDept: TAdoCodeEd;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    cedZhiWu: TAdoCodeEd;
    panIfLz: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    cedLzCause: TAdoCodeEd;
    StaticText1: TStaticText;
    cedXueLi: TAdoCodeEd;
    cedHunYin: TAdoCodeEd;
    cedNation: TAdoCodeEd;
    cedJiGuan: TAdoCodeEd;
    panSex: TPanel;
    rgSex0: TRadioButton;
    rgSex1: TRadioButton;
    DBEdit51: TDBEdit;
    DBEdit52: TDBEdit;
    DBEdit53: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit55: TDBEdit;
    DBEdit56: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    DBEdit62: TDBEdit;
    DBEdit63: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    DBEdit1: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    cedZhiJi: TAdoCodeEd;
    cedJxfs: TAdoCodeEd;
    DBEdit3: TDBEdit;
    DBEdit66: TDBEdit;
    DBEdit67: TDBEdit;
    DBEdit68: TDBEdit;
    qryEdit: TADOQuery;
    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;
    qryEditZhiJi: TStringField;
    qryEditJxfs: TStringField;
    qryEditXueLi: TStringField;
    qryEditHunYin: TStringField;
    qryEditJiGuan: TStringField;
    qryEditNation: TStringField;
    qryEditRoomBed: TStringField;
    qryEditIfDaKa: TBooleanField;
    qryEditState: TSmallintField;
    qryEditPhoto: TBlobField;
    DataSource1: TDataSource;
    qryChkCardNo: TADOQry;
    qryChkCardNoCode: TStringField;
    qryDept: TADOQry;
    qryDeptCode: TStringField;
    qryDeptLongName: TStringField;
    qryE_ZhiWu: TADOQry;
    qryE_ZhiWuCode: TStringField;
    qryE_ZhiWuName: TStringField;
    qryE_LzCause: TADOQry;
    qryE_LzCauseCode: TStringField;
    qryE_LzCauseName: TStringField;
    qryE_XueLi: TADOQry;
    qryE_XueLiCode: TStringField;
    qryE_XueLiName: TStringField;
    qryE_HunYin: TADOQry;
    qryE_HunYinCode: TStringField;
    qryE_HunYinName: TStringField;
    qryE_Nation: TADOQry;
    qryE_NationCode: TStringField;
    qryE_NationName: TStringField;
    qryE_JiGuan: TADOQry;
    qryE_JiGuanCode: TStringField;
    qryE_JiGuanName: TStringField;
    qryRoomBed: TADOQry;
    qryRoomBedCode: TStringField;
    qryG_Hsxm: TADOQry;
    qryG_HsxmCode: TStringField;
    qryG_HsxmName: TStringField;
    qryG_HsxmFDataType: TSmallintField;
    qryG_HsxmFDataLen: TSmallintField;
    qryCheckSfz: TADOQry;
    qryCheckSfzCode: TStringField;
    qryCheckSfzName: TStringField;
    qryCheckSfzDept: TStringField;
    qryCheckSfzState: TSmallintField;
    qryCheckSfzLzDate: TDateTimeField;
    qryCheckSfzLzName: TStringField;
    qryCheckCode: TADOQry;
    qryCheckCodeName: TStringField;
    qryCheckCodeDeptName: TStringField;
    qryChkRoomBed: TADOQry;
    qryChkRoomBedCode: TStringField;
    qryChkRoomBedName: TStringField;
    qryChkRoomBedDept: TStringField;
    pmnuPhoto: TPopupMenu;
    mnuLoad: TMenuItem;
    mnuSaveAs: TMenuItem;
    N3: TMenuItem;
    mnuClear: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    SaveDialog1: TSaveDialog;
    qryE_ZhiJi: TADOQry;
    qryE_ZhiJiCode: TStringField;
    qryE_ZhiJiName: TStringField;
    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;
    Panel1: TPanel;
    ImageTitle: TImage;
    Label22: TLabel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cmdAdd: TBitBtn;
    cmdDel: TBitBtn;
    cmdPrint: TBitBtn;
    Bevel2: TBevel;
    DBJpeg1: TDBJpeg;
    qryDelDiaoZhi: TADOQry;
    qryDiaoZhiOldJxfs: TStringField;
    qryDiaoZhisOldJxfs: TStringField;
    qryDiaoZhiNewJxfs: TStringField;
    qryDiaoZhisNewJxfs: TStringField;
    Label23: TLabel;
    DBEdit11: TDBEdit;
    qryEditBanZu: TStringField;
    qryPeiXunID: TIntegerField;
    qryPeiXunDate0: TDateTimeField;
    qryPeiXunDate1: TDateTimeField;
    qryPeiXunPxJh: TStringField;
    qryPeiXunKcCode: TStringField;
    qryPeiXunName: TStringField;
    qryPeiXunsPxjs: TStringField;
    qryPeiXunPxjs: TStringField;
    qryPeiXunSxss: TFloatField;
    qryPeiXunCjpy: TStringField;
    qryPeiXunPxType: TStringField;
    qryPeiXunNote: TStringField;
    qryPeiXunNotes: TStringField;
    procedure qryEditPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    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 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);
    procedure qryJiaTingNewRecord(DataSet: TDataSet);
    procedure qryJiaoYuNewRecord(DataSet: TDataSet);
    procedure qryGongZuoNewRecord(DataSet: TDataSet);
    procedure qryDaShiNewRecord(DataSet: TDataSet);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure oPagesChange(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    nID :integer;
    oQuerys :Array[1..8] of TADOQry;
    procedure FModify(tnID:integer);
  public
	{ Public declarations }
	Function Edit(tnID:integer) :Boolean;
	procedure View(tnID:integer);
  end;

var
  frmZlEmployeeD: TfrmZlEmployeeD;

implementation

uses SelfFunc, ZlEmployee, Main, MainData, RptExcel;

{$R *.DFM}

procedure TfrmZlEmployeeD.FModify(tnID:integer);
var i :integer;
begin
	nID :=tnID;
	for i :=1 to 8 do
    begin
    	oQuerys[i].Close;
        oQuerys[i].Parameters[0].Value :=tnID;
    end;
    oPages.OnChange(nil);

    with qryEdit do
    begin
    	Close;
        Parameters[0].Value :=tnID;
        Open;
	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;


    Self.ActiveControl :=cmdCancel;
end;

Function TfrmZlEmployeeD.Edit(tnID:integer):Boolean;
begin
	Self.Caption :='