📄 hrm150_01.pas.svn-base
字号:
unit Hrm150_01;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Bas100_01, Db,
Menus, StdCtrls, DBCtrls, Mask, Buttons, ComCtrls,
ExtCtrls, ToolWin, Grids, DBGrids, ExtDlgs, Jpeg, Clipbrd,
ADODB, dxdbtrel, wwdbdatetimepicker, wwdbedit, Wwdotdot, Wwdbcomb,
ActnList;
type
THrm150_01Form = class(TBas100_01Form)
CoolBar1: TCoolBar;
ToolBar2: TToolBar;
tlbFirst: TToolButton;
tlbPrior: TToolButton;
tlbNext: TToolButton;
tlbLast: TToolButton;
ToolButton1: TToolButton;
tlbInsert: TToolButton;
tlbUpdate: TToolButton;
tlbDelete: TToolButton;
ToolButton2: TToolButton;
tlbSave: TToolButton;
tlbCancel: TToolButton;
ToolButton3: TToolButton;
tlbLocate: TToolButton;
tlbPrint: TToolButton;
ToolButton4: TToolButton;
tlbExit: TToolButton;
Panel1: TPanel;
Image1: TImage;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
ScrollBox1: TScrollBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label21: TLabel;
SpeedButton5: TSpeedButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit17: TDBEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
DBEdit4: TDBEdit;
Edit5: TEdit;
DBCheckBox1: TDBCheckBox;
TabSheet2: TTabSheet;
PopupMenu1: TPopupMenu;
mmiPrint: TMenuItem;
mmiExport: TMenuItem;
dsHrm150: TDataSource;
dsHrm100: TDataSource;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
DBImage1: TDBImage;
Label5: TLabel;
DBEdit7: TDBEdit;
SpeedButton3: TSpeedButton;
Edit3: TEdit;
Label7: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
Label10: TLabel;
Label13: TLabel;
DBEdit13: TDBEdit;
Label19: TLabel;
DBEdit12: TDBEdit;
DBEdit11: TDBEdit;
Label20: TLabel;
dsHrm151: TDataSource;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
DBGrid1: TDBGrid;
Panel2: TPanel;
bbtnInsert: TBitBtn;
bbtnUpdate: TBitBtn;
bbtnDelete: TBitBtn;
bbtnSave: TBitBtn;
bbtnCancel: TBitBtn;
Panel3: TPanel;
DBGrid2: TDBGrid;
Panel4: TPanel;
Panel5: TPanel;
bbtnInsert1: TBitBtn;
bbtnUpdate1: TBitBtn;
bbtnDelete1: TBitBtn;
bbtnSave1: TBitBtn;
bbtnCancel1: TBitBtn;
DBGrid3: TDBGrid;
Panel6: TPanel;
Panel7: TPanel;
bbtnInsert2: TBitBtn;
bbtnUpdate2: TBitBtn;
bbtnDelete2: TBitBtn;
bbtnSave2: TBitBtn;
bbtnCancel2: TBitBtn;
DBMemo3: TDBMemo;
DBMemo4: TDBMemo;
SpeedButton4: TSpeedButton;
SpeedButton6: TSpeedButton;
OpenPictureDialog1: TOpenPictureDialog;
dsHrm153: TDataSource;
dsHrm154: TDataSource;
dsHrm155: TDataSource;
dsHrm156: TDataSource;
dsHrm157: TDataSource;
dsHrm158: TDataSource;
dsHrm159: TDataSource;
Label11: TLabel;
DBEdit10: TDBEdit;
Label22: TLabel;
DBEdit16: TDBEdit;
Label23: TLabel;
DBEdit18: TDBEdit;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
DBEdit21: TDBEdit;
Label27: TLabel;
DBEdit22: TDBEdit;
Label28: TLabel;
DBEdit23: TDBEdit;
Label29: TLabel;
Label30: TLabel;
DBEdit25: TDBEdit;
Label31: TLabel;
DBEdit26: TDBEdit;
Label32: TLabel;
DBEdit27: TDBEdit;
Label33: TLabel;
DBEdit28: TDBEdit;
Label34: TLabel;
DBEdit29: TDBEdit;
Label35: TLabel;
DBEdit30: TDBEdit;
Label36: TLabel;
Label37: TLabel;
DBEdit32: TDBEdit;
Label38: TLabel;
DBEdit33: TDBEdit;
Label39: TLabel;
DBEdit34: TDBEdit;
Label40: TLabel;
DBEdit35: TDBEdit;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
DBComboBox4: TDBComboBox;
DBComboBox5: TDBComboBox;
Panel: TPanel;
Panel9: TPanel;
bbtnUpdate3: TBitBtn;
bbtnDelete3: TBitBtn;
bbtnSave3: TBitBtn;
bbtnCancel3: TBitBtn;
Panel10: TPanel;
bbtnUpdate5: TBitBtn;
bbtnDelete5: TBitBtn;
bbtnSave5: TBitBtn;
bbtnCancel5: TBitBtn;
Panel11: TPanel;
bbtnUpdate6: TBitBtn;
bbtnDelete6: TBitBtn;
bbtnSave6: TBitBtn;
bbtnCancel6: TBitBtn;
Panel8: TPanel;
bbtnUpdate4: TBitBtn;
bbtnDelete4: TBitBtn;
bbtnSave4: TBitBtn;
bbtnCancel4: TBitBtn;
qryHrm150: TADOQuery;
qryHrm100: TADOQuery;
qryHrm120: TADOQuery;
qryHrm130: TADOQuery;
qryHrm151: TADOQuery;
qryHrm153: TADOQuery;
qryHrm154: TADOQuery;
qryHrm155: TADOQuery;
qryHrm156: TADOQuery;
qryHrm158: TADOQuery;
qryHrm159: TADOQuery;
qryHrm157: TADOQuery;
qryHrm120H120_001: TAutoIncField;
qryHrm130H130_001: TAutoIncField;
DBComboBox1: TwwDBComboBox;
DBComboBox2: TwwDBComboBox;
DBComboBox3: TwwDBComboBox;
qryHrm150H120_002: TStringField;
qryHrm150H120_003: TStringField;
qryHrm150H130_002: TStringField;
qryHrm150H130_003: TStringField;
dxDBLookupTreeView1: TdxDBLookupTreeView;
ActionList1: TActionList;
ActFirst: TAction;
ActPrior: TAction;
ActNext: TAction;
ActLast: TAction;
ActInsert: TAction;
ActUpdate: TAction;
ActDelete: TAction;
ActSave: TAction;
ActCancel: TAction;
ActLocate: TAction;
ActPrint: TAction;
ActExit: TAction;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TStringField;
qryHrm150H150_003: TStringField;
qryHrm150H150_004: TStringField;
qryHrm150H150_005: TIntegerField;
qryHrm150H150_006: TIntegerField;
qryHrm150H150_007: TStringField;
qryHrm150H150_008: TIntegerField;
qryHrm150H150_009: TStringField;
qryHrm150H150_010: TStringField;
qryHrm150H150_011: TDateTimeField;
qryHrm150H150_012: TIntegerField;
qryHrm150H150_013: TDateTimeField;
qryHrm150H150_014: TStringField;
qryHrm150H150_015: TStringField;
qryHrm150H150_016: TStringField;
qryHrm150H150_017: TStringField;
qryHrm150H150_018: TDateTimeField;
qryHrm150H150_019: TIntegerField;
qryHrm150H150_021: TStringField;
qryHrm150H150_022: TStringField;
qryHrm150H150_023: TStringField;
qryHrm150H150_024: TIntegerField;
qryHrm150H150_025: TStringField;
qryHrm150H150_026: TStringField;
qryHrm120H120_002: TStringField;
qryHrm120H120_003: TStringField;
qryHrm130H130_002: TStringField;
qryHrm130H130_003: TStringField;
qryHrm155H155_001: TIntegerField;
qryHrm155H155_002: TStringField;
qryHrm155H155_003: TStringField;
qryHrm155H155_004: TFloatField;
qryHrm155H155_005: TDateTimeField;
qryHrm155H155_006: TDateTimeField;
qryHrm155H155_007: TStringField;
qryHrm155H155_008: TStringField;
qryHrm158H158_001: TIntegerField;
qryHrm158H158_002: TStringField;
qryHrm158H158_003: TStringField;
qryHrm158H158_004: TStringField;
qryHrm158H158_005: TStringField;
qryHrm158H158_006: TStringField;
qryHrm158H158_007: TStringField;
qryHrm158H158_008: TStringField;
qryHrm159H159_001: TIntegerField;
qryHrm159H159_002: TStringField;
qryHrm159H159_003: TStringField;
qryHrm159H159_004: TStringField;
qryHrm159H159_005: TStringField;
qryHrm159H159_006: TStringField;
qryHrm159H159_007: TStringField;
qryHrm150H150_020: TBooleanField;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ReportGetValue(const ParName: String;
var ParValue: Variant);
procedure SpeedButton3Click(Sender: TObject);
procedure Edit3Exit(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure Edit5Exit(Sender: TObject);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit9Exit(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure bbtnInsertClick(Sender: TObject);
procedure bbtnUpdateClick(Sender: TObject);
procedure bbtnDeleteClick(Sender: TObject);
procedure bbtnSaveClick(Sender: TObject);
procedure bbtnCancelClick(Sender: TObject);
procedure bbtnInsert1Click(Sender: TObject);
procedure bbtnUpdate1Click(Sender: TObject);
procedure bbtnDelete1Click(Sender: TObject);
procedure bbtnSave1Click(Sender: TObject);
procedure bbtnCancel1Click(Sender: TObject);
procedure bbtnInsert2Click(Sender: TObject);
procedure bbtnUpdate2Click(Sender: TObject);
procedure bbtnDelete2Click(Sender: TObject);
procedure bbtnSave2Click(Sender: TObject);
procedure bbtnCancel2Click(Sender: TObject);
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
procedure bbtnUpdate3Click(Sender: TObject);
procedure bbtnDelete3Click(Sender: TObject);
procedure bbtnSave3Click(Sender: TObject);
procedure bbtnCancel3Click(Sender: TObject);
procedure bbtnUpdate4Click(Sender: TObject);
procedure bbtnDelete4Click(Sender: TObject);
procedure bbtnSave4Click(Sender: TObject);
procedure bbtnCancel4Click(Sender: TObject);
procedure bbtnUpdate5Click(Sender: TObject);
procedure bbtnDelete5Click(Sender: TObject);
procedure bbtnSave5Click(Sender: TObject);
procedure bbtnCancel5Click(Sender: TObject);
procedure bbtnUpdate6Click(Sender: TObject);
procedure bbtnDelete6Click(Sender: TObject);
procedure bbtnSave6Click(Sender: TObject);
procedure bbtnCancel6Click(Sender: TObject);
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
procedure qryHrm150AfterScroll(DataSet: TDataSet);
procedure ActFirstExecute(Sender: TObject);
procedure ActPriorExecute(Sender: TObject);
procedure ActNextExecute(Sender: TObject);
procedure ActLastExecute(Sender: TObject);
procedure ActInsertExecute(Sender: TObject);
procedure ActUpdateExecute(Sender: TObject);
procedure ActDeleteExecute(Sender: TObject);
procedure ActSaveExecute(Sender: TObject);
procedure ActCancelExecute(Sender: TObject);
procedure ActLocateExecute(Sender: TObject);
procedure ActPrintExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
AOLDID:string;
procedure SetButtonState(AInsUpd:Boolean);
procedure SetInterface;
{ Private declarations }
public
procedure OpenData(ACode:string);
{ Public declarations }
end;
var
Hrm150_01Form: THrm150_01Form;
implementation
uses HwSelData, CommFun, Hrm100_01, Hrm120_01, Hrm130_01, SYSDATA;
{$R *.DFM}
procedure THrm150_01Form.OpenData(ACode:string);
begin
qryHrm150.Locate('H150_002',ACode,[]);
qryHrm150AfterScroll(qryHrm150);
end;
//设置按钮状态
procedure THrm150_01Form.SetButtonState(AInsUpd:Boolean);
begin
ActFirst.Enabled:=not AInsUpd;
ActPrior.Enabled:=not AInsUpd;
ActNext.Enabled:=not AInsUpd;
ActLast.Enabled:=not AInsUpd;
ActInsert.Enabled:=(ARights[2]='Y') and (not AInsUpd);
ActUpdate.Enabled:=(ARights[3]='Y') and (not AInsUpd);
ActDelete.Enabled:=(ARights[4]='Y') and (not AInsUpd);
ActSave.Enabled:=AInsUpd;
ActCancel.Enabled:=AInsUpd;
ActLocate.Enabled:=not AInsUpd;
ActPrint.Enabled:=(ARights[5]='Y') and (not AInsUpd);
ActExit.Enabled:=True;
ScrollBox1.Enabled:=AInsUpd;
if AInsUpd then PageControl1.ActivePageIndex:=0;
end;
procedure THrm150_01Form.SetInterface;
begin
Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
Caption:=GetDBString('HRM15001001'); //员工资料维护
ActFirst.Caption:=GetDBString('COM00005001'); //最前
ActPrior.Caption:=GetDBString('COM00005002'); //上移
ActNext.Caption:=GetDBString('COM00005003'); //下移
ActLast.Caption:=GetDBString('COM00005004'); //最后
ActInsert.Caption:=GetDBString('COM00005005'); //新增
ActUpdate.Caption:=GetDBString('COM00005006'); //修改
ActDelete.Caption:=GetDBString('COM00005007'); //删除
ActSave.Caption:=GetDBString('COM00005008'); //保存
ActCancel.Caption:=GetDBString('COM00005009'); //取消
ActLocate.Caption:=GetDBString('COM00005011'); //查找
ActPrint.Caption:=GetDBString('COM00005013'); //打印
ActExit.Caption:=GetDBString('COM00005015'); //退出
TabSheet1.Caption:=GetDBString('HRM15001002'); //个人资料
TabSheet2.Caption:=GetDBString('HRM15001003'); //学习经历
TabSheet3.Caption:=GetDBString('HRM15001004'); //工作经历
TabSheet4.Caption:=GetDBString('HRM15001005'); //培训记录
TabSheet5.Caption:=GetDBString('HRM15001006'); //员工奖罚
TabSheet6.Caption:=GetDBString('HRM15001007'); //技术专长
TabSheet7.Caption:=GetDBString('HRM15001008'); //家庭情况
TabSheet8.Caption:=GetDBString('HRM15001009'); //联络方法
Label1.Caption:=GetDBString('HRM15001010'); //员工编号
Label2.Caption:=GetDBString('HRM15001011'); //员工姓名
Label3.Caption:=GetDBString('HRM15001012'); //英文名称
Label4.Caption:=GetDBString('HRM15001013'); //员工性别
Label9.Caption:=GetDBString('HRM15001014'); //身份证号
Label10.Caption:=GetDBString('HRM15001015'); //入厂日期
Label8.Caption:=GetDBString('HRM15001016'); //员工籍贯
Label5.Caption:=GetDBString('HRM15001017'); //部门编号
DBCheckBox1.Caption:=GetDBString('HRM15001018'); //薪资计算否
Label7.Caption:=GetDBString('HRM15001019'); //职务编号
Label14.Caption:=GetDBString('HRM15001022'); //家庭住址
Label15.Caption:=GetDBString('HRM15001023'); //电话号码
Label21.Caption:=GetDBString('HRM15001024'); //员工状态
Label16.Caption:=GetDBString('HRM15001025'); //最高学历
Label19.Caption:=GetDBString('HRM15001026'); //暂住证号
Label12.Caption:=GetDBString('HRM15001027'); //出生日期
Label20.Caption:=GetDBString('HRM15001028'); //银行帐号
Label18.Caption:=GetDBString('HRM15001029'); //婚姻状况
Label17.Caption:=GetDBString('HRM15001030'); //备注说明
Label13.Caption:=GetDBString('HRM15001031'); //档案编号
qryHrm150H150_001.DisplayLabel:=GetDBString('HRM15001010'); //电脑编号
qryHrm150H150_002.DisplayLabel:=GetDBString('HRM15001010'); //员工编号
qryHrm150H150_003.DisplayLabel:=GetDBString('HRM15001011'); //员工姓名
qryHrm150H150_004.DisplayLabel:=GetDBString('HRM15001012'); //英文姓名
qryHrm150H150_005.DisplayLabel:=GetDBString('HRM15001017'); //部门编号
// qryHrm150H150_006.DisplayLabel:=GetDBString(''); //H150_006
qryHrm150H150_007.DisplayLabel:=GetDBString('HRM15001013'); //性别
qryHrm150H150_008.DisplayLabel:=GetDBString('HRM15001019'); //职务编号
qryHrm150H150_009.DisplayLabel:=GetDBString('HRM15001016'); //籍贯
qryHrm150H150_010.DisplayLabel:=GetDBString('HRM15001014'); //身份字号
qryHrm150H150_011.DisplayLabel:=GetDBString('HRM15001015'); //到职日期
qryHrm150H150_012.DisplayLabel:=GetDBString('HRM15001024'); //员工状态
qryHrm150H150_013.DisplayLabel:=GetDBString('HRM15001027'); //出生日期
qryHrm150H150_014.DisplayLabel:=GetDBString('HRM15001031'); //档案编号
qryHrm150H150_015.DisplayLabel:=GetDBString('HRM15001022'); //住址
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -