📄 hrm150_01.pas.svn-base
字号:
qryHrm150H150_016.DisplayLabel:=GetDBString('HRM15001029'); //婚姻状况
qryHrm150H150_017.DisplayLabel:=GetDBString('HRM15001023'); //电话号码
// qryHrm150H150_018.DisplayLabel:=GetDBString(''); //H150_018
// qryHrm150H150_019.DisplayLabel:=GetDBString(''); //H150_019
qryHrm150H150_020.DisplayLabel:=GetDBString('HRM15001018'); //参与薪资计算否
// qryHrm150H150_021.DisplayLabel:=GetDBString(''); //H150_021
qryHrm150H150_022.DisplayLabel:=GetDBString('HRM15001025'); //学历
qryHrm150H150_023.DisplayLabel:=GetDBString('HRM15001030'); //备注
// qryHrm150H150_024.DisplayLabel:=GetDBString(''); //H150_024
qryHrm150H150_025.DisplayLabel:=GetDBString('HRM15001026'); //暂住证号
qryHrm150H150_026.DisplayLabel:=GetDBString('HRM15001028'); //银行帐号
qryHrm150H120_002.DisplayLabel:=GetDBString('HRM15001057'); //职务编号
qryHrm150H120_003.DisplayLabel:=GetDBString('HRM15001058'); //职务名称
qryHrm150H130_002.DisplayLabel:=GetDBString('HRM15001059'); //状态编号
qryHrm150H130_003.DisplayLabel:=GetDBString('HRM15001060'); //状态说明
SpeedButton4.Caption:=GetDBString('HRM15001020'); //装载
SpeedButton6.Caption:=GetDBString('HRM15001021'); //清除
bbtnUpdate3.Caption:=GetDBString('COM00005006'); //修改
bbtnDelete3.Caption:=GetDBString('COM00005007'); //删除
bbtnSave3.Caption:=GetDBString('COM00005008'); //保存
bbtnCancel3.Caption:=GetDBString('COM00005009'); //取消
bbtnUpdate4.Caption:=GetDBString('COM00005006'); //修改
bbtnDelete4.Caption:=GetDBString('COM00005007'); //删除
bbtnSave4.Caption:=GetDBString('COM00005008'); //保存
bbtnCancel4.Caption:=GetDBString('COM00005009'); //取消
bbtnInsert.Caption:=GetDBString('COM00005005'); //新增
bbtnUpdate.Caption:=GetDBString('COM00005006'); //修改
bbtnDelete.Caption:=GetDBString('COM00005007'); //删除
bbtnSave.Caption:=GetDBString('COM00005008'); //保存
bbtnCancel.Caption:=GetDBString('COM00005009'); //取消
Label11.Caption:=GetDBString('HRM15001032'); //培训内容
Label22.Caption:=GetDBString('HRM15001033'); //组织者
Label23.Caption:=GetDBString('HRM15001034'); //费用
Label24.Caption:=GetDBString('HRM15001035'); //起止日期
Label25.Caption:=GetDBString('HRM15001036'); //至
Label26.Caption:=GetDBString('HRM15001037'); //成绩
Label27.Caption:=GetDBString('HRM15001038'); //备注
qryHrm155H155_002.DisplayLabel:=GetDBString('HRM15001032'); //培训内容
qryHrm155H155_003.DisplayLabel:=GetDBString('HRM15001033'); //组织者
qryHrm155H155_004.DisplayLabel:=GetDBString('HRM15001034'); //费用
qryHrm155H155_005.DisplayLabel:=GetDBString('HRM15001035'); //起止日期
qryHrm155H155_006.DisplayLabel:=GetDBString('HRM15001036'); //至
qryHrm155H155_007.DisplayLabel:=GetDBString('HRM15001037'); //成绩
qryHrm155H155_008.DisplayLabel:=GetDBString('HRM15001038'); //备注
bbtnUpdate5.Caption:=GetDBString('COM00005006'); //修改
bbtnDelete5.Caption:=GetDBString('COM00005007'); //删除
bbtnSave5.Caption:=GetDBString('COM00005008'); //保存
bbtnCancel5.Caption:=GetDBString('COM00005009'); //取消
bbtnUpdate6.Caption:=GetDBString('COM00005006'); //修改
bbtnDelete6.Caption:=GetDBString('COM00005007'); //删除
bbtnSave6.Caption:=GetDBString('COM00005008'); //保存
bbtnCancel6.Caption:=GetDBString('COM00005009'); //取消
bbtnInsert1.Caption:=GetDBString('COM00005005'); //新增
bbtnUpdate1.Caption:=GetDBString('COM00005006'); //修改
bbtnDelete1.Caption:=GetDBString('COM00005007'); //删除
bbtnSave1.Caption:=GetDBString('COM00005008'); //保存
bbtnCancel1.Caption:=GetDBString('COM00005009'); //取消
Label28.Caption:=GetDBString('HRM15001039'); //姓名
Label29.Caption:=GetDBString('HRM15001040'); //性别
Label30.Caption:=GetDBString('HRM15001041'); //关系
Label31.Caption:=GetDBString('HRM15001042'); //职业
Label32.Caption:=GetDBString('HRM15001043'); //住址
Label33.Caption:=GetDBString('HRM15001044'); //电话
Label34.Caption:=GetDBString('HRM15001045'); //备注
qryHrm158H158_002.DisplayLabel:=GetDBString('HRM15001039'); //姓名
qryHrm158H158_003.DisplayLabel:=GetDBString('HRM15001040'); //性别
qryHrm158H158_004.DisplayLabel:=GetDBString('HRM15001041'); //关系
qryHrm158H158_005.DisplayLabel:=GetDBString('HRM15001042'); //职业
qryHrm158H158_006.DisplayLabel:=GetDBString('HRM15001043'); //住址
qryHrm158H158_007.DisplayLabel:=GetDBString('HRM15001044'); //电话
qryHrm158H158_008.DisplayLabel:=GetDBString('HRM15001045'); //备注
bbtnInsert2.Caption:=GetDBString('COM00005005'); //新增
bbtnUpdate2.Caption:=GetDBString('COM00005006'); //修改
bbtnDelete2.Caption:=GetDBString('COM00005007'); //删除
bbtnSave2.Caption:=GetDBString('COM00005008'); //保存
bbtnCancel2.Caption:=GetDBString('COM00005009'); //取消
Label35.Caption:=GetDBString('HRM15001046'); //姓名
Label36.Caption:=GetDBString('HRM15001047'); //性别
Label37.Caption:=GetDBString('HRM15001048'); //关系
Label38.Caption:=GetDBString('HRM15001049'); //电话
Label39.Caption:=GetDBString('HRM15001050'); //联系地址
Label40.Caption:=GetDBString('HRM15001051'); //备注
qryHrm159H159_002.DisplayLabel:=GetDBString('HRM15001046'); //姓名
qryHrm159H159_003.DisplayLabel:=GetDBString('HRM15001047'); //性别
qryHrm159H159_004.DisplayLabel:=GetDBString('HRM15001048'); //关系
qryHrm159H159_005.DisplayLabel:=GetDBString('HRM15001049'); //电话
qryHrm159H159_006.DisplayLabel:=GetDBString('HRM15001050'); //联系地址
qryHrm159H159_007.DisplayLabel:=GetDBString('HRM15001051'); //备注
DBComboBox4.Items.Clear;
DBComboBox4.Items.Add(GetDBString('COM00004017')); //男
DBComboBox4.Items.Add(GetDBString('COM00004018')); //女
DBComboBox5.Items.Clear;
DBComboBox5.Items.Add(GetDBString('COM00004017')); //男
DBComboBox5.Items.Add(GetDBString('COM00004018')); //女
DBComboBox3.Items.Clear;
DBComboBox3.Items.Add(GetDBString('COM00004019')); //研究生
DBComboBox3.Items.Add(GetDBString('COM00004020')); //本科
DBComboBox3.Items.Add(GetDBString('COM00004021')); //大专
DBComboBox3.Items.Add(GetDBString('COM00004022')); //中专
DBComboBox3.Items.Add(GetDBString('COM00004023')); //技校
DBComboBox3.Items.Add(GetDBString('COM00004024')); //高中
DBComboBox3.Items.Add(GetDBString('COM00004025')); //初中
DBComboBox3.Items.Add(GetDBString('COM00004026')); //小学
DBComboBox2.Items.Clear;
DBComboBox2.Items.Add(GetDBString('COM00004027')); //未婚
DBComboBox2.Items.Add(GetDBString('COM00004028')); //已婚
DBComboBox1.Items.Clear;
DBComboBox1.Items.Add(GetDBString('COM00004017')); //男
DBComboBox1.Items.Add(GetDBString('COM00004018')); //女
end;
procedure THrm150_01Form.FormCreate(Sender: TObject);
begin
inherited;
//设置界面信息
SetInterface;
qryHrm100.Close;
qryHrm100.SQL.Clear;
if not ASuper then
qryHrm100.SQL.Add('select * from HRM100 where H100_001 in (select S500C_002 from SYS500C where S500C_004<>0 and S500C_001='+IntToStr(AUserID)+')')
else
qryHrm100.SQL.Add('select * from HRM100');
qryHrm100.Open;
qryHrm120.Open;
qryHrm130.Open;
qryHrm150.Open;
PageControl1.ActivePageIndex:=0;
SetButtonState(False);
end;
procedure THrm150_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
if ActSave.Enabled then
begin
if ShowDialog('UMS10000007')=IDNO then //数据尚未保存，现在保存吗？
ActCancel.Execute
else
ActSave.Execute;
end;
qryHrm150.Close;
qryHrm100.Close;
qryHrm151.Close;
qryHrm153.Close;
qryHrm154.Close;
qryHrm155.Close;
qryHrm156.Close;
qryHrm157.Close;
qryHrm158.Close;
qryHrm159.Close;
Action:=caFree;
end;
procedure THrm150_01Form.ReportGetValue(const ParName: String;
var ParValue: Variant);
begin
inherited;
if ParName='USENM' then ParValue:=AUserName
else if ParName='PRNDT' then ParValue:=GetDBString('COM00006006') //列印日期
else if ParName='PRNNM' then ParValue:=GetDBString('COM00006007') //列印人員
else if ParName='REPNM' then ParValue:=AReportTitle
else if ParName='H120_003' then ParValue:=GetDBString('HRM15001053') //职务说明
else if ParName='PerSon' then ParValue:=GetDBString('HRM15001002') //个人资料
else if ParName='H150_002' then ParValue:=GetDBString('HRM15001010') //员工编号
else if ParName='H150_013' then ParValue:=GetDBString('HRM15001027') //出生日期
else if ParName='H150_016' then ParValue:=GetDBString('HRM15001029') //婚姻状况
else if ParName='H150_003' then ParValue:=GetDBString('HRM15001011') //员工姓名
else if ParName='H150_007' then ParValue:=GetDBString('HRM15001013') //员工性别
else if ParName='H150_009' then ParValue:=GetDBString('HRM15001016') //员工籍贯
else if ParName='H150_010' then ParValue:=GetDBString('HRM15001014') //身份证号
else if ParName='H150_011' then ParValue:=GetDBString('HRM15001015') //入厂日期
else if ParName='H150_022' then ParValue:=GetDBString('HRM15001025') //最高学历
else if ParName='H150_023' then ParValue:=GetDBString('HRM15001030') //备注说明
else if ParName='H100_003' then ParValue:=GetDBString('HRM15001054') //部门名称
else if ParName='HRM153' then ParValue:=GetDBString('HRM15001003') //学习经历
else if ParName='HRM154' then ParValue:=GetDBString('HRM15001004') //工作经历
else if ParName='HRM155' then ParValue:=GetDBString('HRM15001005') //培训记录
else if ParName='H155_003' then ParValue:=GetDBString('HRM15001032') //培训内容
else if ParName='H155_004' then ParValue:=GetDBString('HRM15001033') //组织者
else if ParName='H155_005' then ParValue:=GetDBString('HRM15001034') //费用
else if ParName='H155_006' then ParValue:=GetDBString('HRM15001055') //起始日期
else if ParName='H155_007' then ParValue:=GetDBString('HRM15001056') //结束日期
else if ParName='H155_008' then ParValue:=GetDBString('HRM15001037') //成绩
else if ParName='H155_009' then ParValue:=GetDBString('HRM15001038') //备注
else if ParName='HRM156' then ParValue:=GetDBString('HRM15001006') //员工奖罚
else if ParName='HRM157' then ParValue:=GetDBString('HRM15001007') //技术专长
else if ParName='HRM158' then ParValue:=GetDBString('HRM15001008') //家庭情况
else if ParName='H158_003' then ParValue:=GetDBString('HRM15001039') //姓名
else if ParName='H158_004' then ParValue:=GetDBString('HRM15001040') //性别
else if ParName='H158_005' then ParValue:=GetDBString('HRM15001041') //关系
else if ParName='H158_006' then ParValue:=GetDBString('HRM15001042') //职业
else if ParName='H158_007' then ParValue:=GetDBString('HRM15001043') //住址
else if ParName='H158_008' then ParValue:=GetDBString('HRM15001044') //电话
else if ParName='H158_009' then ParValue:=GetDBString('HRM15001045') //备注
else if ParName='HRM159' then ParValue:=GetDBString('HRM15001009') //联络方法
else if ParName='H159_003' then ParValue:=GetDBString('HRM15001046') //姓名
else if ParName='H159_004' then ParValue:=GetDBString('HRM15001047') //性别
else if ParName='H159_005' then ParValue:=GetDBString('HRM15001048') //关系
else if ParName='H159_006' then ParValue:=GetDBString('HRM15001049') //电话
else if ParName='H159_007' then ParValue:=GetDBString('HRM15001050') //联系地址
else if ParName='H159_008' then ParValue:=GetDBString('HRM15001050') //备注
end;
procedure THrm150_01Form.SpeedButton3Click(Sender: TObject);
begin
inherited;
//职务编号查询
if not Edit3.Focused then Edit3.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryHrm120,THrm120_01Form);
if HwSelDataForm.ShowModal=1 then
begin
Edit3.Text:=qryHrm120.FieldByName('H120_002').AsString;
qryHrm150.FieldByName('H150_008').AsString:=qryHrm120.FieldByName('H120_001').AsString;
end;
end;
procedure THrm150_01Form.Edit3Exit(Sender: TObject);
begin
inherited;
//职务编号检验
if not ActSave.Enabled then Exit;
if trim(Edit3.Text)='' then Exit;
if qryHrm120.Locate('H120_002',Edit3.Text,[]) then
begin
Edit3.Text:=qryHrm120.FieldByName('H120_002').AsString;
qryHrm150.FieldByName('H150_008').AsString:=qryHrm120.FieldByName('H120_001').AsString;
end else
begin
qryHrm150.FieldByName('H150_008').AsString:='';
ShowMsg('UMS10000086'); //无效的职务编号
Edit3.SetFocus;
Abort;
end;
end;
procedure THrm150_01Form.SpeedButton5Click(Sender: TObject);
begin
inherited;
//员工状态查询
if not Edit5.Focused then Edit5.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryHrm130,THrm130_01Form);
if HwSelDataForm.ShowModal=1 then
begin
Edit5.Text:=qryHrm130.FieldByName('H130_002').AsString;
qryHrm150.FieldByName('H150_012').AsString:=qryHrm130.FieldByName('H130_001').AsString;
end;
end;
procedure THrm150_01Form.Edit5Exit(Sender: TObject);
begin
inherited;
//员工状态检验
if not ActSave.Enabled then Exit;
if qryHrm130.Locate('H130_002',Edit5.Text,[]) then
begin
Edit5.Text:=qryHrm130.FieldByName('H130_002').AsString;
qryHrm150.FieldByName('H150_012').AsString:=qryHrm130.FieldByName('H130_001').AsString;
end else
begin
qryHrm150.FieldByName('H150_012').AsString:='';
ShowMsg('UMS10000043'); //无效的员工状态
Edit5.SetFocus;
Abort;
end;
end;
procedure THrm150_01Form.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
inherited;
if Key=vk_F4 then SpeedButton3.Click;
end;
procedure THrm150_01Form.Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
inherited;
if Key=vk_F4 then SpeedButton5.Click;
end;
procedure THrm150_01Form.DBEdit9Exit(Sender: TObject);
var
AYear,AMonth,ADay:Integer;
S:String;
begin
inherited;
//身份证号检验
if trim(DBEdit9.Text)='' then Exit;
if (length(trim(DBEdit9.Text))<>15) and (length(trim(DBEdit9.Text))<>18) then
begin
ShowMsg('UMS10000087'); //身份证号码必须是15位或者18位
DBEdit9.SetFocus;
Abort;
end;
qryHrm150.Edit;
if length(trim(DBEdit9.Text))=15 then
begin
S:=DBEdit9.Text;
try
StrToFloat(S);
except
ShowMsg('UMS10000207'); //无效的身份证号码，请重新输入
DBEdit9.SetFocus;
Abort;
end;
AYear:=StrToInt(copy(S,7,2));
AMonth:=StrToInt(copy(S,9,2));
ADay:=StrToInt(copy(S,11,2));
qryHrm150.FieldByName('H150_013').Value:=EncodeDate(AYear,AMonth,ADay);
end
else if length(trim(DBEdit9.Text))=18 then
begin
S:=DBEdit9.Text;
try
StrToFloat(copy(S,1,Length(S)-1));
except
ShowMsg('UMS10000207'); //无效的身份证号码，请重新输入
DBEdit9.SetFocus;
Abort;
end;
AYear:=StrToInt(copy(S,7,4));
AMonth:=StrToInt(copy(S,11,2));
ADay:=StrToInt(copy(S,13,2));
qryHrm150.FieldByName('H150_013').Value:=EncodeDate(AYear,AMonth,ADay);
end;
end;
procedure THrm150_01Form.SpeedButton4Click(Sender: TObject);
begin
inherited;
//装载
if qryHrm151.IsEmpty then
begin
qryHrm151.Insert;
if qryHrm150.FieldByName('H150_001').IsNull then
qryHrm151.FieldByName('H151_001').Value:=-1
else
qryHrm151.FieldByName('H151_001').Value:=qryHrm150.FieldByName('H150_001').Value;
end else
qryHrm151.Edit;
if OpenPictureDialog1.Execute then
begin
Screen.Cursor:=crHourGlass;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DBImage1.CopyToClipboard;
DBImage1.PasteFromClipboard;
Clipboard.Clear;
qryHrm151.Post;
Screen.Cursor:=crDefault;
end;
end;
procedure THrm150_01Form.SpeedButton6Click(Sender: TObject);
begin
inherited;
//清除
if qryHrm151.IsEmpty then Exit;
qryHrm151.Delete;
end;
procedure THrm150_01Form.bbtnInsertClick(Sender: TObject);
begin
inherited;
//培训记录-新增
if qryHrm150.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
Panel3.Visible:=True;
DBGrid1.Enabled:=False;
bbtnInsert.Enabled:=False;
bbtnUpdate.Enabled:=False;
bbtnDelete.Enabled:=False;
bbtnSave.Enabled:=True;
bbtnCancel.Enabled:=True;
DBGrid1.ReadOnly:=False;
Panel3.Enabled:=True;
qryHrm155.Insert;
qryHrm155.Fields[0].Value:=qryHrm150.FieldByName('H150_001').Value;
qryHrm155.Fields[1].Value:=qryHrm150.FieldByName('H150_003').Value;
end;
procedure THrm150_01Form.bbtnUpdateClick(Sender: TObject);
begin
inherited;
//培训记录-修改
if qryHrm155.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
Panel3.Visible:=True;
DBGrid1.Enabled:=False;
bbtnInsert.Enabled:=False;
bbtnUpdate.Enabled:=False;
bbtnDelete.Enabled:=False;
bbtnSave.Enabled:=True;
bbtnCancel.Enabled:=True;
DBGrid1.ReadOnly:=False;
Panel3.Enabled:=True;
qryHrm155.Edit;
end;
procedure THrm150_01Form.bbtnDeleteClick(Sender: TObject);
begin
inherited;
//培训记录-删除
if qryHrm155.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
if ShowDialog('UMS10000008')=IDYES then //确定要删除此记录吗?
begin
qryHrm155.Delete;
end;
bbtnDelete.Enabled:=not qryHrm155.IsEmpty;
end;
procedure THrm150_01Form.bbtnSaveClick(Sender: TObject);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -