📄 zlemployeed.pas
字号:
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 :='⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -