📄 hrmw00_01.pas.svn-base
字号:
unit HrmW00_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, DB, ExtCtrls, ADODB, ActnList, Menus, ImgList,
dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls, dxtree,
dxdbtree, Buttons, ToolWin, StdCtrls, ShellApi;
type
THrmW00_01Form = class(TForm)
Splitter1: TSplitter;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1S910_002: TdxDBGridDateColumn;
dxDBGrid1S910_003: TdxDBGridMaskColumn;
dxDBGrid1S910_004: TdxDBGridMaskColumn;
qrySys500D: TADOQuery;
qrySys500DS500D_001: TStringField;
qrySys500DS500D_003: TDateTimeField;
qrySys500DS500D_004: TStringField;
qrySys500DS500D_007: TStringField;
PopupMenu5: TPopupMenu;
mmiReaded: TMenuItem;
Panel5: TPanel;
Image1: TImage;
lblPosit: TLabel;
lblDept: TLabel;
cbDept: TComboBox;
Panel6: TPanel;
ScrollBox1: TScrollBox;
dbgMaster: TdxDBGrid;
bbtnRefresh: TBitBtn;
bbtnLocate: TBitBtn;
bbtnSearch: TBitBtn;
bbtnPrint: TBitBtn;
bbtnUpdate: TBitBtn;
bbtnDelete: TBitBtn;
bbtnInsert: TBitBtn;
Panel2: TPanel;
Splitter2: TSplitter;
pnLists: TPanel;
Panel1: TPanel;
pnReports: TPanel;
dsReports: TDataSource;
adsReports: TADODataSet;
adsReportsCode: TStringField;
adsReportsName: TStringField;
imgReports: TImageList;
tvReports: TdxDBTreeView;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
Animate1: TAnimate;
ToolBar2: TToolBar;
tlbHrm100: TToolButton;
tlbHrm120: TToolButton;
tlbHrm130: TToolButton;
ToolButton4: TToolButton;
tlbHrm150: TToolButton;
tlbHrm152: TToolButton;
ToolButton12: TToolButton;
tlbHrm500: TToolButton;
tlbHrm510: TToolButton;
ToolButton13: TToolButton;
tlbExit: TToolButton;
MainMenu1: TMainMenu;
mmiFile: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
C1: TMenuItem;
U1: TMenuItem;
N41: TMenuItem;
X1: TMenuItem;
mmiEdit: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
mmiReport: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
mmiHelp: TMenuItem;
mmiContents: TMenuItem;
mmiEamil: TMenuItem;
mmiHome: TMenuItem;
mmiUpgrade: TMenuItem;
N9: TMenuItem;
mmiAbout: TMenuItem;
N1: TMenuItem;
mmiRegister: TMenuItem;
ActionList1: TActionList;
ActHrmS00: TAction;
ActHrm100: TAction;
ActHrm500: TAction;
ActHrm510: TAction;
ActContents: TAction;
ActEmail: TAction;
ActHomePage: TAction;
ActAbout: TAction;
ActReg: TAction;
ActHrm120: TAction;
ActHrm130: TAction;
ActUpgrade: TAction;
ActHrm150: TAction;
ActHrm152: TAction;
ActHrm200: TAction;
ActHrm210: TAction;
ActHrm220: TAction;
ActHrm230: TAction;
ActHrm250: TAction;
ActHrm260: TAction;
ActPass: TAction;
ActLongin: TAction;
ActExit: TAction;
imgButton: TImageList;
imgPage: TImageList;
lblStatus: TLabel;
cbPosit: TComboBox;
cbStatus: TComboBox;
dsLists: TDataSource;
adsLists: TADODataSet;
adsListsNum: TIntegerField;
adsListsName: TStringField;
adsListsParent: TIntegerField;
tvLists: TdxDBTreeView;
qryMaster: TADOQuery;
qryMasterH150_002: TStringField;
qryMasterH150_003: TStringField;
qryMasterH150_004: TStringField;
qryMasterH100_002: TStringField;
qryMasterH150_007: TStringField;
qryMasterH120_003: TStringField;
qryMasterH150_009: TStringField;
qryMasterH150_010: TStringField;
qryMasterH150_011: TDateTimeField;
qryMasterH130_003: TStringField;
qryMasterH150_013: TDateTimeField;
qryMasterH150_014: TStringField;
qryMasterH150_015: TStringField;
qryMasterH150_016: TStringField;
qryMasterH150_017: TStringField;
qryMasterH150_022: TStringField;
qryMasterH150_023: TStringField;
qryMasterH150_001: TAutoIncField;
qryMasterH150_005: TIntegerField;
qryMasterH150_006: TIntegerField;
qryMasterH150_008: TIntegerField;
qryMasterH150_012: TIntegerField;
qryMasterH150_018: TDateTimeField;
qryMasterH150_019: TIntegerField;
qryMasterH150_020: TBooleanField;
qryMasterH150_021: TStringField;
qryMasterH150_024: TIntegerField;
dsMaster: TDataSource;
dbgMasterH150_002: TdxDBGridMaskColumn;
dbgMasterH150_003: TdxDBGridMaskColumn;
dbgMasterH150_004: TdxDBGridMaskColumn;
dbgMasterH100_002: TdxDBGridMaskColumn;
dbgMasterH150_007: TdxDBGridMaskColumn;
dbgMasterH120_003: TdxDBGridMaskColumn;
dbgMasterH150_009: TdxDBGridMaskColumn;
dbgMasterH150_010: TdxDBGridMaskColumn;
dbgMasterH150_011: TdxDBGridDateColumn;
dbgMasterH130_003: TdxDBGridMaskColumn;
dbgMasterH150_013: TdxDBGridDateColumn;
dbgMasterH150_014: TdxDBGridMaskColumn;
dbgMasterH150_015: TdxDBGridMaskColumn;
dbgMasterH150_016: TdxDBGridMaskColumn;
dbgMasterH150_017: TdxDBGridMaskColumn;
dbgMasterH150_022: TdxDBGridMaskColumn;
dbgMasterH150_023: TdxDBGridMaskColumn;
qryHrm120: TADOQuery;
qryHrm130: TADOQuery;
tlbFile: TToolButton;
tlbEdit: TToolButton;
tlbReport: TToolButton;
tlbHelp: TToolButton;
sbSearch: TSpeedButton;
bbtnExcel: TBitBtn;
imgLists: TImageList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure dbgMasterBackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
procedure ActHrmS00Execute(Sender: TObject);
procedure ActHrm100Execute(Sender: TObject);
procedure ActHrm120Execute(Sender: TObject);
procedure ActHrm130Execute(Sender: TObject);
procedure ActHrm150Execute(Sender: TObject);
procedure ActHrm152Execute(Sender: TObject);
procedure ActPassExecute(Sender: TObject);
procedure ActLonginExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure ActHrm500Execute(Sender: TObject);
procedure ActHrm510Execute(Sender: TObject);
procedure ActHrm200Execute(Sender: TObject);
procedure ActHrm210Execute(Sender: TObject);
procedure ActHrm220Execute(Sender: TObject);
procedure ActHrm230Execute(Sender: TObject);
procedure ActHrm250Execute(Sender: TObject);
procedure ActHrm260Execute(Sender: TObject);
procedure ActContentsExecute(Sender: TObject);
procedure ActEmailExecute(Sender: TObject);
procedure ActHomePageExecute(Sender: TObject);
procedure ActAboutExecute(Sender: TObject);
procedure ActRegExecute(Sender: TObject);
procedure ActUpgradeExecute(Sender: TObject);
procedure cbDeptChange(Sender: TObject);
procedure sbSearchClick(Sender: TObject);
procedure qryMasterFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
procedure tvReportsDblClick(Sender: TObject);
procedure bbtnInsertClick(Sender: TObject);
procedure bbtnUpdateClick(Sender: TObject);
procedure bbtnDeleteClick(Sender: TObject);
procedure bbtnRefreshClick(Sender: TObject);
procedure bbtnLocateClick(Sender: TObject);
procedure bbtnSearchClick(Sender: TObject);
procedure bbtnPrintClick(Sender: TObject);
procedure mmiReadedClick(Sender: TObject);
procedure dbgMasterDblClick(Sender: TObject);
procedure tvListsDblClick(Sender: TObject);
procedure bbtnExcelClick(Sender: TObject);
private
AStringList:TStringList;
procedure SetInterface;
{ Private declarations }
public
procedure RefreshDepartment;
{ Public declarations }
end;
var
HrmW00_01Form: THrmW00_01Form;
implementation
uses CommFun, SYSDATA, Sys600_01, Sys700_01, Welcome, HwRegister,
Hrm150_01, HwPrint, ErpMain, HwExport;
{$R *.dfm}
//取得所有部门资料
procedure GetAllDepartment(ADataSet:TADODataSet);
begin
ADataSet.Close;
ADataSet.LockType:=ltBatchOptimistic;
ADataSet.FieldDefs.Clear;
ADataSet.FieldDefs.Add('Num',ftInteger,0);
ADataSet.FieldDefs.Add('Name',ftString,100);
ADataSet.FieldDefs.Add('Parent',ftInteger,0);
ADataSet.CreateDataSet;
ADataSet.Append;
ADataSet.FieldByName('Num').Value:=0;
ADataSet.FieldByName('Name').Value:=GetDBString('COM00004007'); //所有部门
ADataSet.FieldByName('Parent').Value:=0;
ADataSet.Post;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
if ASuper then
begin
SYSDM.qryQuery.SQL.Add('select * from HRM100');
end else
begin
SYSDM.qryQuery.SQL.Add('select B.* from SYS500C A, HRM100 B');
SYSDM.qryQuery.SQL.Add('where A.S500C_002=B.H100_001 and A.S500C_003=''DEP'' and A.S500C_004='+GetBoolean(True)+' and A.S500C_001='+IntToStr(AUserID));
end;
SYSDM.qryQuery.Open;
while not SYSDM.qryQuery.Eof do
begin
ADataSet.Append;
ADataSet.FieldByName('Num').Value:=SYSDM.qryQuery.FieldByName('H100_001').Value;
ADataSet.FieldByName('Name').Value:=SYSDM.qryQuery.FieldByName('H100_002').Value;
ADataSet.FieldByName('Parent').Value:=SYSDM.qryQuery.FieldByName('H100_003').Value;
SYSDM.qryQuery.Next;
end;
end;
procedure THrmW00_01Form.SetInterface;
begin
Caption:=GetDBString('HRMW0001001'); //人事工作平台
mmiFile.Caption:=GetDBString('HRMW0001065'); //基本资料(&F)
mmiEdit.Caption:=GetDBString('HRMW0001066'); //业务处理(&E)
mmiReport.Caption:=GetDBString('HRMW0001067'); //查询报表(&R)
mmiHelp.Caption:=GetDBString('HRMW0001068'); //帮助(&H)
ActHrmS00.Caption:=GetDBString('HRMW0001002'); //人力资源参数
ActHrm100.Caption:=GetDBString('HRMW0001003'); //部门资料维护
ActHrm120.Caption:=GetDBString('HRMW0001004'); //岗位资料维护
ActHrm130.Caption:=GetDBString('HRMW0001005'); //员工状态维护
ActHrm150.Caption:=GetDBString('HRMW0001006'); //员工资料维护
ActHrm152.Caption:=GetDBString('HRMW0001007'); //暂住证维护
ActPass.Caption:=GetDBString('HRMW0001008'); //更改登录密码(&C)...
ActLongin.Caption:=GetDBString('HRMW0001009'); //更换操作员(&U)...
ActExit.Caption:=GetDBString('HRMW0001010'); //退出(&X)
ActHrm500.Caption:=GetDBString('HRMW0001011'); //职务调动处理
ActHrm510.Caption:=GetDBString('HRMW0001012'); //员工状态调整
ActHrm200.Caption:=GetDBString('HRMW0001013'); //人事查询报表
ActHrm210.Caption:=GetDBString('HRMW0001014'); //新进员工查询
ActHrm220.Caption:=GetDBString('HRMW0001015'); //离职员工查询
ActHrm230.Caption:=GetDBString('HRMW0001016'); //员工结构分析
ActHrm250.Caption:=GetDBString('HRMW0001017'); //寿星员工统计
ActHrm260.Caption:=GetDBString('HRMW0001018'); //暂住证明细表
ActContents.Caption:=GetDBString('HRMW0001019'); //帮助主题(&H)
ActEmail.Caption:=GetDBString('HRMW0001020'); //写信给作者(&E)...
ActHomePage.Caption:=GetDBString('HRMW0001021'); //网上浩晖(&P)...
ActAbout.Caption:=GetDBString('HRMW0001022'); //关于浩晖(&A)...
ActReg.Caption:=GetDBString('HRMW0001023'); //软件注册(&R)...
ActUpgrade.Caption:=GetDBString('HRMW0001024'); //在线智能升级(&U)...
tlbHrm100.Caption:=GetDBString('HRMW0001025'); //部门资料
tlbHrm120.Caption:=GetDBString('HRMW0001026'); //岗位资料
tlbHrm130.Caption:=GetDBString('HRMW0001027'); //状态资料
tlbHrm150.Caption:=GetDBString('HRMW0001028'); //员工资料
tlbHrm152.Caption:=GetDBString('HRMW0001029'); //暂住证
tlbHrm500.Caption:=GetDBString('HRMW0001030'); //职务调动
tlbHrm510.Caption:=GetDBString('HRMW0001031'); //状态调整
tlbExit.Caption:=GetDBString('HRMW0001032'); //退出
pnLists.Caption:=GetDBString('HRMW0001033'); //部门资料
pnReports.Caption:=GetDBString('HRMW0001034'); //查询报表
TabSheet1.Caption:=GetDBString('HRMW0001035'); //员工资料
TabSheet2.Caption:=GetDBString('HRMW0001036'); //预警信息
lblDept.Caption:=GetDBString('HRMW0001037'); //部门
lblPosit.Caption:=GetDBString('HRMW0001038'); //职务
lblStatus.Caption:=GetDBString('HRMW0001039'); //状态
sbSearch.Caption:=GetDBString('HRMW0001040'); //查询
bbtnInsert.Caption:=GetDBString('HRMW0001041'); //新增(&A)
bbtnUpdate.Caption:=GetDBString('HRMW0001042'); //修改(&E)
bbtnDelete.Caption:=GetDBString('HRMW0001043'); //删除(&D)
bbtnRefresh.Caption:=GetDBString('HRMW0001044'); //刷新(&R)
bbtnLocate.Caption:=GetDBString('HRMW0001045'); //查找(&F)
bbtnSearch.Caption:=GetDBString('HRMW0001046'); //查询(&S)
bbtnPrint.Caption:=GetDBString('HRMW0001047'); //打印(&P)
qryMasterH150_002.DisplayLabel:=GetDBString('HRMW0001048'); //员工编号
qryMasterH150_003.DisplayLabel:=GetDBString('HRMW0001049'); //员工姓名
qryMasterH150_004.DisplayLabel:=GetDBString('HRMW0001050'); //英文名
qryMasterH100_002.DisplayLabel:=GetDBString('HRMW0001051'); //部门名称
qryMasterH150_007.DisplayLabel:=GetDBString('HRMW0001052'); //性别
qryMasterH120_003.DisplayLabel:=GetDBString('HRMW0001053'); //职务名称
qryMasterH150_009.DisplayLabel:=GetDBString('HRMW0001054'); //籍贯
qryMasterH150_010.DisplayLabel:=GetDBString('HRMW0001055'); //身份字号
qryMasterH150_011.DisplayLabel:=GetDBString('HRMW0001056'); //到职日期
qryMasterH130_003.DisplayLabel:=GetDBString('HRMW0001057'); //员工状态
qryMasterH150_013.DisplayLabel:=GetDBString('HRMW0001058'); //出生日期
qryMasterH150_014.DisplayLabel:=GetDBString('HRMW0001059'); //档案编号
qryMasterH150_015.DisplayLabel:=GetDBString('HRMW0001060'); //住址
qryMasterH150_016.DisplayLabel:=GetDBString('HRMW0001061'); //婚姻状况
qryMasterH150_017.DisplayLabel:=GetDBString('HRMW0001062'); //电话号码
qryMasterH150_022.DisplayLabel:=GetDBString('HRMW0001063'); //学历
qryMasterH150_023.DisplayLabel:=GetDBString('HRMW0001064'); //备注
PageControl1.ActivePageIndex:=0;
mmiReaded.Caption:=GetDBString('COM00006008'); //标识为“已阅读”
end;
procedure THrmW00_01Form.RefreshDepartment;
begin
//取得所有部门
GetAllDepartment(adsLists);
adsLists.First;
cbDept.Clear;
while not adsLists.Eof do
begin
cbDept.Items.Add(adsLists.FieldByName('Name').AsString);
adsLists.Next;
end;
adsLists.First;
cbDept.ItemIndex:=0;
//职务
cbPosit.Items.Clear;
cbPosit.Items.Add(GetDBString('COM00004029')); //所有职务
qryHrm120.Close;
qryHrm120.SQL.Clear;
qryHrm120.SQL.Add('select * from HRM120');
qryHrm120.Open;
while not qryHrm120.Eof do
begin
cbPosit.Items.Add(qryHrm120.FieldByName('H120_003').AsString);
qryHrm120.Next;
end;
cbPosit.ItemIndex:=0;
//状态
cbStatus.Items.Clear;
cbStatus.Items.Add(GetDBString('COM00004030')); //所有状态
qryHrm130.Close;
qryHrm130.SQL.Clear;
qryHrm130.SQL.Add('select * from HRM130');
qryHrm130.Open;
while not qryHrm130.Eof do
begin
cbStatus.Items.Add(qryHrm130.FieldByName('H130_003').AsString);
qryHrm130.Next;
end;
cbStatus.ItemIndex:=0;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -