$PBExportHeader$w_rs_empinfo.srw forward global type w_rs_empinfo from w_publ_pageretr end type type ddlb_1 from dropdownlistbox within w_rs_empinfo end type type cb_retrieve from uo_imflatbutton within w_rs_empinfo end type type tab_1 from tab within w_rs_empinfo end type type tabpage_1 from userobject within tab_1 end type type dw_baseinfo from datawindow within tabpage_1 end type type tabpage_1 from userobject within tab_1 dw_baseinfo dw_baseinfo end type type tabpage_2 from userobject within tab_1 end type type dw_record from datawindow within tabpage_2 end type type tabpage_2 from userobject within tab_1 dw_record dw_record end type type tabpage_3 from userobject within tab_1 end type type dw_insure from datawindow within tabpage_3 end type type tabpage_3 from userobject within tab_1 dw_insure dw_insure end type type tabpage_4 from userobject within tab_1 end type type dw_train from datawindow within tabpage_4 end type type tabpage_4 from userobject within tab_1 dw_train dw_train end type type tabpage_5 from userobject within tab_1 end type type dw_move from datawindow within tabpage_5 end type type tabpage_5 from userobject within tab_1 dw_move dw_move end type type tabpage_6 from userobject within tab_1 end type type dw_sms from datawindow within tabpage_6 end type type tabpage_6 from userobject within tab_1 dw_sms dw_sms end type type tabpage_7 from userobject within tab_1 end type type dw_contract from datawindow within tabpage_7 end type type tabpage_7 from userobject within tab_1 dw_contract dw_contract end type type tab_1 from tab within w_rs_empinfo tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_3 tabpage_3 tabpage_4 tabpage_4 tabpage_5 tabpage_5 tabpage_6 tabpage_6 tabpage_7 tabpage_7 end type type cb_save from uo_imflatbutton within w_rs_empinfo end type type cb_edit from uo_imflatbutton within w_rs_empinfo end type type cb_del from uo_imflatbutton within w_rs_empinfo end type type cb_incheck from uo_imflatbutton within w_rs_empinfo end type type cb_move from uo_imflatbutton within w_rs_empinfo end type type st_2 from statictext within w_rs_empinfo end type type tv_1 from uo_tv_deptype within w_rs_empinfo end type type cb_1 from uo_imflatbutton within w_rs_empinfo end type type ole_1 from olecontrol within w_rs_empinfo end type type ddlb_scid from uo_ddlb_scid within w_rs_empinfo end type type gb_2 from groupbox within w_rs_empinfo end type type st_3 from statictext within w_rs_empinfo end type type cb_print from uo_imflatbutton within w_rs_empinfo end type type cb_help from uo_imflatbutton within w_rs_empinfo end type type cb_other from uo_imflatbutton within w_rs_empinfo end type type p_1 from picture within w_rs_empinfo end type type p_2 from picture within w_rs_empinfo end type type r_bar from rectangle within w_rs_empinfo end type type ln_bar from line within w_rs_empinfo end type type ln_bar2 from line within w_rs_empinfo end type type ln_1 from line within w_rs_empinfo end type type ln_2 from line within w_rs_empinfo end type type ln_5 from line within w_rs_empinfo end type type ln_6 from line within w_rs_empinfo end type end forward global type w_rs_empinfo from w_publ_pageretr integer width = 3575 integer height = 2628 string title = "人员" boolean maxbox = true windowstate windowstate = maximized! boolean if_ue_sentdataout = true event ue_addmx ( ) event ue_delmx ( ) event ue_dimission ( ) event ue_move ( ) event ue_del_leftemp ( ) event ue_fj_edit ( ) event ue_fj_view ( ) event ue_rtr_dept ( ) event ue_set_dept ( ) event ue_photo ( ) event ue_idcard ( ) event ue_del_left ( ) event ue_basepay ( ) ddlb_1 ddlb_1 cb_retrieve cb_retrieve tab_1 tab_1 cb_save cb_save cb_edit cb_edit cb_del cb_del cb_incheck cb_incheck cb_move cb_move st_2 st_2 tv_1 tv_1 cb_1 cb_1 ole_1 ole_1 ddlb_scid ddlb_scid gb_2 gb_2 st_3 st_3 cb_print cb_print cb_help cb_help cb_other cb_other p_1 p_1 p_2 p_2 r_bar r_bar ln_bar ln_bar ln_bar2 ln_bar2 ln_1 ln_1 ln_2 ln_2 ln_5 ln_5 ln_6 ln_6 end type global w_rs_empinfo w_rs_empinfo type variables datawindow dw_baseinfo datawindow dw_record datawindow dw_insure datawindow dw_train datawindow dw_move datawindow dw_sms datawindow dw_contract Long empid Long ls_status = 1 String ls_handtype = '' long cur_scid_arr[] long cur_scid String oldcode,oldname,newcode,newname end variables forward prototypes public subroutine wf_addmx () public subroutine wf_delmx () public subroutine wf_refresh_curpage () public subroutine wf_getid (string arg_dwname, long arg_empid) public subroutine wf_facechange () public subroutine wf_emp_add (s_empinfo_array s_emp_array, long i, long currow) public subroutine wf_setmod (integer editmode) public function integer wf_retrieve () public function integer wf_delpic (long arg_empid, ref string arg_msg) public function integer wf_picretrieve (long arg_empid) public function integer wf_picsize () public subroutine wf_resize () end prototypes event ue_addmx();int irow,rrow long ls_newid string errmsg choose case tab_1.selectedtab case 1 case 2 rrow=dw_record.rowcount() irow=dw_record.insertrow(rrow) dw_record.setfocus() dw_record.scrolltorow(irow) dw_record.SetColumn ('rectype') case 3 rrow=dw_insure.rowcount() irow=dw_insure.insertrow(rrow) dw_insure.setfocus() dw_insure.scrolltorow(irow) dw_insure.SetColumn ('buymth') case 4 rrow=dw_train.rowcount() irow=dw_train.insertrow(rrow) dw_train.setfocus() dw_train.scrolltorow(irow) dw_train.SetColumn ('traindate') case 7 rrow=dw_contract.rowcount() irow=dw_contract.insertrow(rrow) dw_contract.setfocus() dw_contract.scrolltorow(irow) dw_contract.SetColumn ('contractcode') end choose end event event ue_delmx();Int irow,rrow Long ls_newid String errmsg CHOOSE CASE tab_1.SelectedTab case 1 CASE 2 IF dw_record.RowCount() = 0 THEN MessageBox('提示','没有可删除的记录！',information!,OK!) RETURN END IF IF MessageBox("询问", '是否删除该明细记录? ', Exclamation!, YESNO!, 2) = 1 THEN dw_record.DeleteRow(dw_record.GetRow()) CASE 3 IF dw_insure.RowCount() = 0 THEN MessageBox('提示','没有可删除的记录！',information!,OK!) RETURN END IF IF MessageBox("询问", '是否删除该明细记录? ', Exclamation!, YESNO!, 2) = 1 THEN dw_insure.DeleteRow(dw_insure.GetRow()) CASE 4 IF dw_train.RowCount() = 0 THEN MessageBox('提示','没有可删除的记录！',information!,OK!) RETURN END IF CASE 7 IF dw_contract.RowCount() = 0 THEN MessageBox('提示','没有可删除的记录！',information!,OK!) RETURN END IF IF MessageBox("询问", '是否删除该明细记录? ', Exclamation!, YESNO!, 2) = 1 THEN dw_contract.DeleteRow(dw_contract.GetRow()) END CHOOSE end event event ue_dimission(); s_moveinfo s_move long moveflag,currow currow=dw_pageretr.getrow() IF currow <= 0 THEN MessageBox('提示','请选择员工',information!,OK!) RETURN END IF if not f_power_ind(194) then messagebox('提示','你没有使用权限！',information!,OK!) return end if s_move.empid=dw_baseinfo.object.empid[dw_baseinfo.getrow()] s_move.empcode=dw_baseinfo.object.empcode[dw_baseinfo.getrow()] s_move.empname=dw_baseinfo.object.empname[dw_baseinfo.getrow()] s_move.sex=dw_baseinfo.object.sex[dw_baseinfo.getrow()] s_move.dept=dw_pageretr.object.cw_department_departmentname[dw_pageretr.getrow()] s_move.duty=dw_pageretr.object.duty[dw_pageretr.getrow()] openwithparm(w_rs_dimission,s_move) moveflag=message.DoubleParm if moveflag=1 then dw_pageretr.deleterow(dw_pageretr.getrow()) end if end event event ue_move(); s_moveinfo s_move Long moveflag,currow currow = dw_pageretr.GetRow() IF currow <= 0 THEN MessageBox('提示','请选择员工',information!,OK!) RETURN END IF IF NOT f_power_ind(194) THEN MessageBox('提示','你没有使用权限！',information!,OK!) RETURN END IF s_move.empid = dw_baseinfo.Object.empid[dw_baseinfo.GetRow()] s_move.empcode = dw_baseinfo.Object.empcode[dw_baseinfo.GetRow()] s_move.empname = dw_baseinfo.Object.empname[dw_baseinfo.GetRow()] s_move.sex = dw_baseinfo.Object.sex[dw_baseinfo.GetRow()] s_move.dept = dw_pageretr.Object.cw_department_departmentname[dw_pageretr.GetRow()] s_move.duty = dw_pageretr.Object.duty[dw_pageretr.GetRow()] s_move.status = dw_pageretr.Object.status[dw_pageretr.GetRow()] OpenWithParm(w_rs_emp_move,s_move) moveflag = Message.DoubleParm IF moveflag = 1 THEN dw_pageretr.SetRedraw(FALSE) this.triggerevent('retrieve_pageretr') dw_pageretr.ScrollToRow(currow) dw_pageretr.SetRedraw(TRUE) END IF end event event ue_del_leftemp();IF dw_pageretr.GetRow() <= 0 THEN MessageBox('提示','请选择员工',information!,OK!) RETURN END IF IF NOT sys_power_issuper THEN MessageBox('提示','不是管理员,你没有使用权限！',information!,OK!) RETURN END IF Long ls_empid String ls_empcode,ls_empname,arg_msg ls_empcode = dw_pageretr.Object.empcode[dw_pageretr.GetRow()] ls_empname = dw_pageretr.Object.empname[dw_pageretr.GetRow()] ls_empid = dw_pageretr.Object.empid[dw_pageretr.GetRow()] IF MessageBox("询问", '是否删除该离职人员资料? [人员编号:'+ls_empcode+',姓名:'+ ls_empname+'],警告:此删除会将该人员的所有信息删除,包括工资表、简历、社保、培训、调动、相片、基本资料等,不能恢复?', Exclamation!, YESNO!, 2) <> 1 THEN RETURN uo_empinfo uo_emp uo_emp = create uo_empinfo if uo_emp.del_leftemp(ls_empid,arg_msg,true) = 0 then MessageBox('错误','删除操作失败,'+arg_msg,stopsign!,OK!) RETURN END IF destroy uo_emp MessageBox('提示','删除资料成功',information!,OK!) f_setsysoplog('人事资料','离职人员资料删除,ID:'+String(ls_empid)+',code:'+ls_empcode+',name:'+ls_empname,arg_msg,TRUE) this.TriggerEvent('retrieve_pageretr') end event event ue_fj_edit();IF dw_edit_mode THEN MessageBox('提示','编辑状态下不可用',information!,OK!) RETURN END IF s_edit_index_tran s_pic Long ll_ConnectionID String arg_msg Long ls_row ls_row = dw_pageretr.GetRow() IF ls_row <= 0 THEN MessageBox('提示','请选择资料',information!,OK!) RETURN END IF IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN MessageBox('提示','没有指定附件数据库连接'+arg_msg,information!,OK!) RETURN END IF s_pic.f_long = 704 //物料资料 mainID s_pic.f_string = dw_pageretr.Object.empcode[ls_row] s_pic.g_long = dw_pageretr.Object.empid[ls_row] s_pic.d_long = 0 //relid_mx s_pic.d_string = '' //relcode_mx s_pic.e_long = 0 // scid s_pic.sqltransaction = sys_filedb_sqlca OpenWithParm(w_fj_bill_mng,s_pic) end event event ue_fj_view();IF dw_edit_mode THEN MessageBox('提示','编辑状态下不可用',information!,OK!) RETURN END IF s_edit_index_tran s_pic Long ll_ConnectionID String arg_msg Long ls_row ls_row = dw_pageretr.GetRow() IF ls_row <= 0 THEN MessageBox('提示','请选择资料',information!,OK!) RETURN END IF IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN MessageBox('提示','没有指定附件数据库连接'+arg_msg,information!,OK!) RETURN END IF s_pic.f_long = 704 s_pic.f_string = dw_pageretr.Object.empcode[ls_row] s_pic.g_long = dw_pageretr.Object.empid[ls_row] s_pic.d_long = 0 s_pic.d_string = '' s_pic.e_long = 0 s_pic.sqltransaction = sys_filedb_sqlca OpenWithParm(w_fj_bill_view,s_pic) end event event ue_rtr_dept();tv_1.f_maketree() end event event ue_set_dept();f_sys_main(701) end event event ue_photo();/// long ls_empid if dw_pageretr.getrow() <= 0 then return dw_pageretr.accepttext() ls_empid = dw_pageretr.object.empid[dw_pageretr.getrow()] openwithparm(w_emp_pic2,ls_empid) wf_picretrieve(ls_empid) end event event ue_idcard();//ue_idcard String ls_idcard Long ll_row s_idcard_change s_idcard IF NOT dw_edit_mode THEN MessageBox('提示','非编辑状态下不可用',information!,OK!) RETURN END IF dw_baseinfo.AcceptText() ll_row = dw_baseinfo.GetRow() IF ll_row <= 0 THEN RETURN ls_idcard = Trim(dw_baseinfo.Object.idcard[ll_row]) IF Len(ls_idcard) = 0 THEN RETURN END IF IF Len(ls_idcard) <> 15 AND Len(ls_idcard) <> 18 THEN MessageBox('提示','非法身份证长度',information!,OK!) RETURN END IF f_idcard(ls_idcard,s_idcard) dw_baseinfo.SetRedraw(FALSE) dw_baseinfo.Object.birthday[ll_row] = s_idcard.birthday dw_baseinfo.Object.sex[ll_row] = s_idcard.sex dw_baseinfo.Object.homeplace[ll_row] = s_idcard.homeplace dw_baseinfo.SetRedraw(TRUE) end event event ue_del_left();IF NOT sys_power_issuper THEN MessageBox('提示','不是管理员,你没有使用权限！',information!,OK!) RETURN END IF IF dw_baseinfo.GetRow() <= 0 THEN MessageBox('提示','没有可处理资料',information!,OK!) RETURN END IF Long ls_empid String ls_empcode,ls_empname,arg_msg ls_empcode = dw_pageretr.Object.empcode[dw_pageretr.GetRow()] ls_empname = dw_pageretr.Object.empname[dw_pageretr.GetRow()] ls_empid = dw_pageretr.Object.empid[dw_pageretr.GetRow()] IF MessageBox("询问", '是否删除该离职员工资料? [员工编号:'+ls_empcode+',姓名:'+ ls_empname+'],警告:此删除会将该员工的所有信息删除,不能恢复?', Exclamation!, YESNO!, 2) <> 1 THEN RETURN uo_empinfo uo_emp uo_emp = CREATE uo_empinfo IF uo_emp.uof_del_leftemp(ls_empid,arg_msg,TRUE) = 0 THEN MessageBox('错误','删除操作失败,'+arg_msg,stopsign!,OK!) RETURN END IF DESTROY uo_emp MessageBox('提示','删除资料成功',information!,OK!) f_setsysoplog('人事资料','离职员工资料删除,ID:'+String(ls_empid)+',code:'+ls_empcode+',name:'+ls_empname,arg_msg,TRUE) this.TriggerEvent('retrieve_pageretr') end event event ue_basepay();IF NOT f_power_ind(1457) THEN MessageBox('提示','你没有使用权限！', Information!, OK! ) RETURN END IF s_wageeditw_open s_wageedit_tran s_wageedit_tran.handtype = ls_handtype s_wageedit_tran.scid_arr = cur_scid_arr s_wageedit_tran.scid = cur_scid OpenWithParm(w_gz_wage_basepay_edit,s_wageedit_tran) end event public subroutine wf_addmx ();int irow,rrow long ls_newid string errmsg choose case tab_1.selectedtab case 2 rrow=dw_record.rowcount() irow=dw_record.insertrow(rrow) dw_record.setfocus() dw_record.scrolltorow(irow) dw_record.SetColumn ('rectype') case 3 rrow=dw_insure.rowcount() irow=dw_insure.insertrow(rrow) dw_insure.setfocus() dw_insure.scrolltorow(irow) dw_insure.SetColumn ('buymth') case 4 rrow=dw_train.rowcount() irow=dw_train.insertrow(rrow) dw_train.setfocus() dw_train.scrolltorow(irow) dw_train.SetColumn ('traindate') end choose end subroutine public subroutine wf_delmx ();int irow,rrow long ls_newid string errmsg choose case tab_1.selectedtab case 2 if dw_record.rowcount()=0 then Messagebox('提示','没有可删除的记录！',information!,OK!) return end if if MessageBox("询问", '是否删除该明细记录? ', Exclamation!, YESNO!, 2)=1 then dw_record.deleterow(dw_record.getrow()) case 3 if dw_insure.rowcount()=0 then Messagebox('提示','没有可删除的记录！',information!,OK!) return end if if MessageBox("询问", '是否删除该明细记录? ', Exclamation!, YESNO!, 2)=1 then dw_insure.deleterow(dw_insure.getrow()) case 4 if dw_train.rowcount()=0 then Messagebox('提示','没有可删除的记录！',information!,OK!) return end if if MessageBox("询问", '是否删除该明细记录? ', Exclamation!, YESNO!, 2)=1 then dw_train.deleterow(dw_train.getrow()) end choose end subroutine public subroutine wf_refresh_curpage ();long deptid, wrkgrpid ,status ,currow,ls_empid string wrktpye,empname, empcode ,sex,homeplace,idcard,duty,diploma,hometel,handtel,officetel,bedcode,cardcode,address,postcode,bankcode,dscrp,departmentname,workgroup datetime birthday,joindate dec wage ls_empid=dw_pageretr.object.empid[dw_pageretr.getrow()] SELECT u_rs_empinfo.Deptid, u_rs_empinfo.wrkgrpid, u_rs_empinfo.wrktpye, u_rs_empinfo.Empname, u_rs_empinfo.Empcode, u_rs_empinfo.Sex, u_rs_empinfo.Birthday, u_rs_empinfo.Homeplace, u_rs_empinfo.Idcard, u_rs_empinfo.Joindate, u_rs_empinfo.duty, u_rs_empinfo.diploma, u_rs_empinfo.hometel, u_rs_empinfo.handtel, u_rs_empinfo.officetel, u_rs_empinfo.Bedcode, u_rs_empinfo.Cardcode, u_rs_empinfo.Address, u_rs_empinfo.Postcode, u_rs_empinfo.bankcode, u_rs_empinfo.wage, u_rs_empinfo.Dscrp, u_rs_empinfo.status, cw_department.departmentname into :deptid, :wrkgrpid, :wrktpye, :empname, :empcode, :sex, :birthday, :homeplace, :idcard, :joindate, :duty, :diploma, :hometel, :handtel, :officetel, :bedcode, :cardcode, :address, :postcode, :bankcode, :wage, :dscrp, :status, :departmentname FROM u_rs_empinfo, cw_department WHERE ( u_rs_empinfo.Deptid *= cw_department.departmentid) and (u_rs_empinfo.empid=:ls_empid); if sqlca.sqlcode<>0 then Messagebox('错误','查询人员资料失败，原因:'+sqlca.sqlerrtext,stopsign!,OK!) return end if if sqlca.sqlcode=0 then dw_pageretr.setredraw(false) dw_pageretr.object.deptid[dw_pageretr.getrow()]=deptid //dw_pageretr.object.wrkgrpid[dw_pageretr.getrow()]=wrkgrpid dw_pageretr.object.wrktpye[dw_pageretr.getrow()]=wrktpye dw_pageretr.object.empname[dw_pageretr.getrow()]=empname dw_pageretr.object.empcode[dw_pageretr.getrow()]=empcode dw_pageretr.object.sex[dw_pageretr.getrow()]=sex dw_pageretr.object.birthday[dw_pageretr.getrow()]=birthday dw_pageretr.object.homeplace[dw_pageretr.getrow()]=homeplace dw_pageretr.object.idcard[dw_pageretr.getrow()]=idcard dw_pageretr.object.joindate[dw_pageretr.getrow()]=joindate dw_pageretr.object.duty[dw_pageretr.getrow()]=duty dw_pageretr.object.diploma[dw_pageretr.getrow()]=diploma dw_pageretr.object.hometel[dw_pageretr.getrow()]=hometel dw_pageretr.object.handtel[dw_pageretr.getrow()]=handtel dw_pageretr.object.officetel[dw_pageretr.getrow()]=officetel dw_pageretr.object.bedcode[dw_pageretr.getrow()]=bedcode dw_pageretr.object.cardcode[dw_pageretr.getrow()]=cardcode dw_pageretr.object.address[dw_pageretr.getrow()]=address dw_pageretr.object.postcode[dw_pageretr.getrow()]=postcode dw_pageretr.object.bankcode[dw_pageretr.getrow()]=bankcode dw_pageretr.object.wage[dw_pageretr.getrow()]=wage dw_pageretr.object.dscrp[dw_pageretr.getrow()]=dscrp dw_pageretr.object.status[dw_pageretr.getrow()]=status dw_pageretr.object.cw_department_departmentname[dw_pageretr.getrow()]=departmentname //dw_pageretr.object.u_sc_workgroup_name[dw_pageretr.getrow()]=workgroup dw_pageretr.setredraw(true) end if end subroutine public subroutine wf_getid (string arg_dwname, long arg_empid);long i,ls_newid string errmsg dwItemStatus l_status choose case arg_dwname case 'dw_record' dw_record.setfilter('') dw_record.filter() for i=1 to dw_record.rowcount() if dw_record.GetItemStatus(i,0,Primary!)=NewModified! then ls_newid=f_sys_scidentity(0,"u_rs_emprecord","mxid",errmsg,false,sqlca) if ls_newid<0 then messagebox("错误",errmsg,stopsign!,OK!) return else dw_record.object.empid[i]=arg_empid dw_record.object.mxid[i]=ls_newid end if end if next case 'dw_insure' dw_insure.setfilter('') dw_insure.filter() for i=1 to dw_insure.rowcount() if dw_insure.GetItemStatus(i,0,Primary! )=NewModified! then ls_newid=f_sys_scidentity(0,"u_rs_insure","insureid",errmsg,false,sqlca) if ls_newid<0 then messagebox("错误",errmsg,stopsign!,OK!) return else dw_insure.object.insureid[i]=ls_newid dw_insure.object.empid[i]=arg_empid end if end if next case 'dw_train' dw_train.setfilter('') dw_train.filter() for i=1 to dw_train.rowcount() if dw_train.GetItemStatus(i,0,Primary! )=NewModified! then ls_newid=f_sys_scidentity(0,"u_rs_train","trainid",errmsg,false,sqlca) if ls_newid<0 then messagebox("错误",errmsg,stopsign!,OK!) return else dw_train.object.trainid[i]=ls_newid dw_train.object.empid[i]=arg_empid end if end if next case 'dw_contract' dw_contract.setfilter('') dw_contract.filter() for i=1 to dw_contract.rowcount() if dw_contract.GetItemStatus(i,0,Primary! )=NewModified! then ls_newid=f_sys_scidentity(0,"u_rs_contract","contractid",errmsg,false,sqlca) if ls_newid<0 then messagebox("错误",errmsg,stopsign!,OK!) return else dw_contract.object.contractid[i]=ls_newid dw_contract.object.empid[i]=arg_empid dw_contract.object.opemp[i]=publ_operator dw_contract.object.opdate[i]=today() //datetime(string(today(),'yyyy-mm-dd')) end if end if next end choose end subroutine public subroutine wf_facechange ();ddlb_scid.Enabled = NOT dw_edit_mode ddlb_1.Enabled = NOT dw_edit_mode sle_usual_query.Enabled = NOT dw_edit_mode IF dw_edit_mode THEN cb_func.Enabled = FALSE cb_incheck.Enabled = FALSE cb_move.Enabled = FALSE cb_retrieve.Enabled = FALSE cb_del.Enabled = FALSE em_pagerowno.Enabled = FALSE cb_retrieveall.Enabled = FALSE cb_nextpage.Enabled = FALSE cb_save.Enabled = TRUE cb_edit.Text = '放弃&E' cb_edit.normalpicname = 'undo.bmp' IF tab_1.SelectedTab <> 1 AND tab_1.SelectedTab <> 5 THEN cb_other.Enabled = TRUE ELSE cb_other.Enabled = FALSE END IF cb_other.Text = "明细功能" cb_other.normalpicname = 'mx.bmp' ELSE cb_func.Enabled = TRUE IF ls_status = 0 THEN cb_incheck.Enabled = FALSE cb_exit.Enabled = TRUE cb_del.Enabled = FALSE cb_save.Enabled = FALSE cb_edit.Enabled = FALSE ELSE cb_incheck.Enabled = TRUE cb_move.Enabled = TRUE cb_retrieve.Enabled = TRUE cb_del.Enabled = TRUE em_pagerowno.Enabled = TRUE cb_retrieveall.Enabled = TRUE cb_nextpage.Enabled = TRUE cb_edit.Enabled = TRUE cb_edit.Text = '修改&E' cb_edit.normalpicname = 'open.bmp' cb_save.Enabled = FALSE END IF cb_other.Enabled = TRUE cb_other.Text = "辅助功能" cb_other.normalpicname = 'other.bmp' END IF cb_edit.of_init_draw( ) cb_edit.of_paint( ) cb_edit.TriggerEvent('ue_textchange') cb_other.of_init_draw( ) cb_other.of_paint( ) cb_other.TriggerEvent('ue_textchange') end subroutine public subroutine wf_emp_add (s_empinfo_array s_emp_array, long i, long currow);string deptname dw_pageretr.setredraw(false) dw_pageretr.object.empid[currow]=s_emp_array.empid[i] dw_pageretr.object.empcode[currow]=s_emp_array.empcode[i] dw_pageretr.object.empname[currow]= s_emp_array.empname[i] dw_pageretr.object.sex[currow]=s_emp_array.sex[i] dw_pageretr.object.birthday[currow]=s_emp_array.birthday[i] dw_pageretr.object.idcard[currow]=s_emp_array.idcard[i] dw_pageretr.object.homeplace[currow]= s_emp_array.homeplace[i] dw_pageretr.object.stature[currow]=s_emp_array.stature[i] dw_pageretr.object.diploma[currow]=s_emp_array.diploma[i] dw_pageretr.object.hometel[currow]=s_emp_array.hometel[i] dw_pageretr.object.postcode[currow]=s_emp_array.postcode[i] dw_pageretr.object.handtel[currow]=s_emp_array.handtel[i] dw_pageretr.object.address[currow]=s_emp_array.address[i] dw_pageretr.object.joindate[currow]=s_emp_array.joindate[i] dw_pageretr.object.duty[currow]=s_emp_array.duty[i] dw_pageretr.object.wrktpye[currow]=s_emp_array.wrktpye[i] select departmentname into :deptname from cw_department where departmentid=:s_emp_array.deptid[i]; if sqlca.sqlcode=-1 then Messagebox('错误','查询部门资料失败'+sqlca.sqlerrtext,stopsign!,OK!) end if dw_pageretr.object.cw_department_departmentname[currow]=deptname //dw_pageretr.object.wrkgrpid[currow]=s_emp_array.wrkgrpid[i] dw_pageretr.object.officetel[currow]=s_emp_array.officetel[i] dw_pageretr.object.cardcode[currow]=s_emp_array.cardcode[i] dw_pageretr.object.bedcode[currow]=s_emp_array.bedcode[i] dw_pageretr.object.wage[currow]=s_emp_array.wage[i] dw_pageretr.object.bankcode[currow]=s_emp_array.bankcode[i] dw_pageretr.object.language[currow]=s_emp_array.language[i] dw_pageretr.object.introducer[currow]=s_emp_array.introducer[i] dw_pageretr.object.dscrp[currow]=s_emp_array.dscrp[i] dw_pageretr.object.opdate[currow]=s_emp_array.opdate[i] dw_pageretr.object.opemp[currow]=s_emp_array.opemp[i] dw_pageretr.object.status[currow]=s_emp_array.status[i] dw_pageretr.setredraw(true) end subroutine public subroutine wf_setmod (integer editmode);int i,baseinfo_ccount,record_ccount,insure_ccount,train_ccount baseinfo_ccount=32 dw_baseinfo.setredraw(false) for i=1 to baseinfo_ccount dw_baseinfo.settaborder(dw_baseinfo.Describe("#"+string(i)+ ".name"),i*10*editmode) next dw_baseinfo.setredraw(true) record_ccount=11 dw_record.setredraw(false) for i=1 to record_ccount dw_record.settaborder(dw_record.Describe("#"+string(i)+ ".name"),i*10*editmode) next dw_record.setredraw(true) insure_ccount=6 dw_insure.setredraw(false) for i=1 to insure_ccount dw_insure.settaborder(dw_insure.Describe("#"+string(i)+ ".name"),i*10*editmode) next dw_insure.setredraw(true) train_ccount=6 dw_train.setredraw(false) for i=1 to train_ccount dw_train.settaborder(dw_train.Describe("#"+string(i)+ ".name"),i*10*editmode) next dw_train.setredraw(true) insure_ccount=5 dw_contract.setredraw(false) for i=1 to insure_ccount dw_contract.settaborder(dw_contract.Describe("#"+string(i)+ ".name"),i*10*editmode) next dw_contract.setredraw(true) end subroutine public function integer wf_retrieve ();datawindowchild childdw dw_baseinfo.SetTransObject (sqlca) dw_baseinfo.getchild("u_rs_empinfo_scid",childdw) childdw.SetTransObject (sqlca) childdw.retrieve(cur_scid_arr) IF dw_pageretr.GetRow() > 0 THEN empid = dw_pageretr.Object.empid[dw_pageretr.GetRow()] wf_picretrieve(empid) dw_baseinfo.Retrieve(empid) dw_record.Retrieve(empid) dw_insure.Retrieve(empid) dw_train.Retrieve(empid) dw_move.Retrieve(empid) dw_sms.Retrieve(empid) dw_contract.Retrieve(empid) else dw_baseinfo.reset() dw_record.reset() dw_insure.reset() dw_train.reset() dw_move.reset() dw_sms.reset() dw_contract.reset() END IF RETURN 1 end function public function integer wf_delpic (long arg_empid, ref string arg_msg);blob lb int li_piccount,rslt=1 delete from u_rs_emppic where empid=:arg_empid ; if sqlca.sqlcode=-1 then arg_msg='删除人员图片失败！原因:'+sqlca.sqlerrtext rslt=0 goto ext end if ext: if rslt=0 then rollback; end if return (rslt) end function public function integer wf_picretrieve (long arg_empid);blob lb_pic blob lb p_1.X = 178 p_1.Y = 1648 p_1.Width = 759 p_1.Height = 720 setnull(lb_pic) selectblob picture into:lb_pic from u_rs_emppic where empid = :arg_empid using sqlca; if sqlca.sqlcode <> 0 then setnull(lb) p_1.SetPicture(lb) p_2.SetPicture(lb) p_1.PictureName = 'graphics\nophoto.jpg' p_2.PictureName = 'graphics\nophoto.jpg' //ole_1.objectdata = lb goto ext end if if not isnull(lb_pic) and len(string(lb_pic)) > 0 then //ole_1.objectdata = lb_pic p_1.SetPicture(lb_pic) p_2.SetPicture(lb_pic) else setnull(lb) //ole_1.objectdata = lb p_1.SetPicture(lb) p_2.SetPicture(lb) p_1.PictureName = 'graphics\nophoto.jpg' p_2.PictureName = 'graphics\nophoto.jpg' goto ext end if ext: wf_picsize() return 1 end function public function integer wf_picsize (); p_1.X = 178 p_1.Y = 1648 p_1.Width = 759 p_1.Height = 720 IF p_2.Width < 759 AND p_2.Height < 720 THEN p_1.Width = p_2.Width p_1.Height = p_2.Height wf_resize() RETURN 1 END IF If (p_2.Width / p_2.Height) > (759/720) THEN p_1.Width = 759 p_1.Height = 759 / (p_2.Width / p_2.Height ) ELSE p_1.Width = 720 * (p_2.Width / p_2.Height ) p_1.Height = 720 p_1.X = 759 - p_1.Width END IF wf_resize() RETURN 1 end function public subroutine wf_resize ();long li_SW,li_SH long li_x = 1,li_y = 1 li_SW = 759 li_SH = 720 li_x = (li_SW - p_1.Width)/2 + gb_2.x + 27 li_y = (li_SH - p_1.Height)/2 + gb_2.y + 56 p_1.Move(li_x,li_y) end subroutine on w_rs_empinfo.create int iCurrent call super::create this.ddlb_1=create ddlb_1 this.cb_retrieve=create cb_retrieve this.tab_1=create tab_1 this.cb_save=create cb_save this.cb_edit=create cb_edit this.cb_del=create cb_del this.cb_incheck=create cb_incheck this.cb_move=create cb_move this.st_2=create st_2 this.tv_1=create tv_1 this.cb_1=create cb_1 this.ole_1=create ole_1 this.ddlb_scid=create ddlb_scid this.gb_2=create gb_2 this.st_3=create st_3 this.cb_print=create cb_print this.cb_help=create cb_help this.cb_other=create cb_other this.p_1=create p_1 this.p_2=create p_2 this.r_bar=create r_bar this.ln_bar=create ln_bar this.ln_bar2=create ln_bar2 this.ln_1=create ln_1 this.ln_2=create ln_2 this.ln_5=create ln_5 this.ln_6=create ln_6 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.ddlb_1 this.Control[iCurrent+2]=this.cb_retrieve this.Control[iCurrent+3]=this.tab_1 this.Control[iCurrent+4]=this.cb_save this.Control[iCurrent+5]=this.cb_edit this.Control[iCurrent+6]=this.cb_del this.Control[iCurrent+7]=this.cb_incheck this.Control[iCurrent+8]=this.cb_move this.Control[iCurrent+9]=this.st_2 this.Control[iCurrent+10]=this.tv_1 this.Control[iCurrent+11]=this.cb_1 this.Control[iCurrent+12]=this.ole_1 this.Control[iCurrent+13]=this.ddlb_scid this.Control[iCurrent+14]=this.gb_2 this.Control[iCurrent+15]=this.st_3 this.Control[iCurrent+16]=this.cb_print this.Control[iCurrent+17]=this.cb_help this.Control[iCurrent+18]=this.cb_other this.Control[iCurrent+19]=this.p_1 this.Control[iCurrent+20]=this.p_2 this.Control[iCurrent+21]=this.r_bar this.Control[iCurrent+22]=this.ln_bar this.Control[iCurrent+23]=this.ln_bar2 this.Control[iCurrent+24]=this.ln_1 this.Control[iCurrent+25]=this.ln_2 this.Control[iCurrent+26]=this.ln_5 this.Control[iCurrent+27]=this.ln_6 end on on w_rs_empinfo.destroy call super::destroy destroy(this.ddlb_1) destroy(this.cb_retrieve) destroy(this.tab_1) destroy(this.cb_save) destroy(this.cb_edit) destroy(this.cb_del) destroy(this.cb_incheck) destroy(this.cb_move) destroy(this.st_2) destroy(this.tv_1) destroy(this.cb_1) destroy(this.ole_1) destroy(this.ddlb_scid) destroy(this.gb_2) destroy(this.st_3) destroy(this.cb_print) destroy(this.cb_help) destroy(this.cb_other) destroy(this.p_1) destroy(this.p_2) destroy(this.r_bar) destroy(this.ln_bar) destroy(this.ln_bar2) destroy(this.ln_1) destroy(this.ln_2) destroy(this.ln_5) destroy(this.ln_6) end on event key;call super::key;this.triggerevent('user_key') end event event retrieve_pageretr;boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled cb_nextpage_enabled=cb_nextpage.enabled cb_retrieveall_enabled=cb_retrieveall.enabled cb_func_enabled=cb_func.enabled cb_nextpage.enabled=false cb_retrieveall.enabled=false cb_func.enabled=false SetPointer(HourGlass!) dw_pageretr.retrieve(ls_status,ls_handtype,cur_scid_arr) SetPointer(Arrow!) cb_nextpage.enabled=cb_nextpage_enabled cb_retrieveall.enabled=cb_retrieveall_enabled cb_func.enabled=cb_func_enabled end event event open;call super::open;////更新基本工资 Long ll_updateflag = 0 ll_updateflag = Long(f_ProfileString (sys_empid,'dw_rs_empinfo_index', "updateflag",'0')) IF ll_updateflag = 0 THEN INSERT INTO U_BasePay(empid,BasePay) (SELECT empid,wage FROM u_rs_empinfo); f_setProfileString (sys_empid,'dw_rs_empinfo_index', "updateflag",'1') END IF wf_retrieve() wf_facechange() ddlb_1.Text = '在职' end event event ue_before_open;call super::ue_before_open;if_ue_retr=true dw_baseinfo = tab_1.tabpage_1.dw_baseinfo dw_record = tab_1.tabpage_2.dw_record dw_insure = tab_1.tabpage_3.dw_insure dw_train = tab_1.tabpage_4.dw_train dw_move = tab_1.tabpage_5.dw_move dw_sms = tab_1.tabpage_6.dw_sms dw_contract = tab_1.tabpage_7.dw_contract dw_baseinfo.SetTransObject(sqlca) dw_record.SetTransObject(sqlca) dw_insure.SetTransObject(sqlca) dw_train.SetTransObject(sqlca) dw_move.SetTransObject(sqlca) dw_sms.SetTransObject(sqlca) dw_contract.SetTransObject(sqlca) end event event ue_usual_query_filt;call super::ue_usual_query_filt;string obj_expr='' if trim(sle_usual_query.text)<>'' then IF POS(trim(sle_usual_query.text),'%')=0 THEN obj_expr=obj_expr+'( empcode LIKE "%'+trim(sle_usual_query.text)+'%" )' ELSE obj_expr=obj_expr+'( empcode LIKE "'+trim(sle_usual_query.text)+'" )' END IF end if dw_pageretr.setfilter(obj_expr) dw_pageretr.SetRedraw(False) dw_pageretr.filter() if dw_pageretr.rowcount()>=1 then dw_pageretr.selectrow(0,false) dw_pageretr.selectrow(1,true) end if dw_pageretr.SetRedraw(TRUE) end event event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart='' ls_newselect=lower(ori_oldselect) if trim(sle_usual_query.text)<>'' then if pos(trim(sle_usual_query.text),'%')=0 then ls_querystrpart="(u_rs_empinfo.empcode like '%"+trim(sle_usual_query.text)+"%')" else ls_querystrpart="(u_rs_empinfo.empcode like '"+trim(sle_usual_query.text)+"')" end if if Pos(ls_newselect," where ") <> 0 then ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')' else ls_newselect=ls_newselect+" where ("+ls_querystrpart+')' end if end if wf_retrieveuc(dw_pageretr,ls_newselect,1) this.triggerevent('retrieve_pageretr') end event event user_key;call super::user_key;IF KeyDown(KeyF6!) THEN this.TRIGGEREVENT('ue_f6') ELSEIF KeyDown(KeyF7!) THEN this.TRIGGEREVENT('ue_f7') ELSEIF KeyDown(KeyF8!) or KeyDown(KeyShift!) and KeyDown(KeyEnter!) THEN this.TRIGGEREVENT('ue_f8') ELSEIF KeyDown(KeyF9!) THEN this.TRIGGEREVENT('ue_f9') ELSEIF KeyDown(KeyF10!) THEN this.TRIGGEREVENT('ue_f10') ELSEIF KeyDown(KeyF11!) THEN this.TRIGGEREVENT('ue_f11') ELSEIF KeyDown(KeyF12!) THEN this.TRIGGEREVENT('ue_f12') ELSEIF KeyDown(KeyF4!) THEN if cb_save.enabled then cb_save.TRIGGEREVENT(CLICKED!) ELSEIF KeyDown(KeyF5!) THEN if cb_edit.enabled then cb_edit.TRIGGEREVENT(CLICKED!) elseif keydown(keyF1!) then this.triggerevent("ue_help") end if end event event resize;call super::resize;ln_bar.endx = this.width ln_bar2.endx = this.width ln_1.endx = this.width ln_2.endx = this.width r_bar.width = this.width dw_pageretr.width = this.width - dw_pageretr.x - tab_1.width - 40 dw_pageretr.height = this.height - dw_pageretr.y - 160 tab_1.x = dw_pageretr.x + dw_pageretr.width + 10 tv_1.height = this.height - tv_1.y - gb_2.height - 120 gb_2.y = tv_1.y + tv_1.height - 32 ole_1.y = gb_2.y + 56 wf_resize() end event event ue_sentdataout;call super::ue_sentdataout;//IF NOT if_power_sendout THEN // MessageBox(publ_operator,'你没有使用权限！') // RETURN //END IF OpenWithParm(w_sentdataout,DW_pageretr) end event type cb_func from w_publ_pageretr`cb_func within w_rs_empinfo integer x = 302 integer y = 0 integer width = 151 integer height = 172 end type type cb_exit from w_publ_pageretr`cb_exit within w_rs_empinfo integer x = 1710 integer y = 0 integer width = 151 integer height = 172 integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type type sle_usual_query from w_publ_pageretr`sle_usual_query within w_rs_empinfo integer x = 1088 integer y = 192 integer width = 398 end type type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_rs_empinfo integer x = 2190 integer width = 151 integer height = 172 string normalpicname = "p1.ico" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type type em_pagerowno from w_publ_pageretr`em_pagerowno within w_rs_empinfo integer x = 1920 integer y = 48 integer width = 270 end type type dw_pageretr from w_publ_pageretr`dw_pageretr within w_rs_empinfo integer x = 818 integer y = 308 integer width = 818 integer height = 1828 string title = "人员摘要信息" string dataobject = "dw_rs_empinfo_index" end type event dw_pageretr::constructor;call super::constructor; titleclick_sort_use=true //单击标题排序功能开关 RBUTTON_FILTER_USE=true //右键查询功能开关 end event event dw_pageretr::rowfocuschanged;IF dw_edit_mode THEN RETURN IF this.getrow() <=0 THEN RETURN this.selectrow(0,false) this.selectrow(this.getrow(),true) this.SETROW(this.getrow()) this.ScrollToRow (this.getrow()) wf_retrieve() end event type st_1 from w_publ_pageretr`st_1 within w_rs_empinfo integer x = 901 integer y = 208 string text = "工号含:" end type type cb_nextpage from w_publ_pageretr`cb_nextpage within w_rs_empinfo integer x = 2341 integer width = 64 integer height = 172 integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type type ddlb_1 from dropdownlistbox within w_rs_empinfo integer x = 1710 integer y = 192 integer width = 398 integer height = 300 integer taborder = 30 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string item[] = {"离职","在职"} borderstyle borderstyle = stylelowered! end type event selectionchanged;ls_status=index - 1 wf_facechange() parent.triggerevent('retrieve_pageretr') end event type cb_retrieve from uo_imflatbutton within w_rs_empinfo integer x = 151 integer width = 151 integer height = 172 integer taborder = 30 boolean bringtotop = true string text = "刷新" string normalpicname = "refresh.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;if keydown(keycontrol!) then wf_retrieveuc(dw_pageretr,ls_newselect,0) end if parent.triggerevent('retrieve_pageretr') end event type tab_1 from tab within w_rs_empinfo integer x = 1641 integer y = 308 integer width = 1902 integer height = 1952 integer taborder = 40 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 boolean raggedright = true boolean focusonbuttondown = true integer selectedtab = 1 tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_3 tabpage_3 tabpage_4 tabpage_4 tabpage_5 tabpage_5 tabpage_6 tabpage_6 tabpage_7 tabpage_7 end type on tab_1.create this.tabpage_1=create tabpage_1 this.tabpage_2=create tabpage_2 this.tabpage_3=create tabpage_3 this.tabpage_4=create tabpage_4 this.tabpage_5=create tabpage_5 this.tabpage_6=create tabpage_6 this.tabpage_7=create tabpage_7 this.Control[]={this.tabpage_1,& this.tabpage_2,& this.tabpage_3,& this.tabpage_4,& this.tabpage_5,& this.tabpage_6,& this.tabpage_7} end on on tab_1.destroy destroy(this.tabpage_1) destroy(this.tabpage_2) destroy(this.tabpage_3) destroy(this.tabpage_4) destroy(this.tabpage_5) destroy(this.tabpage_6) destroy(this.tabpage_7) end on event selectionchanged;IF dw_edit_mode THEN IF newindex = 1 OR newindex = 5 THEN cb_other.Enabled = FALSE ELSE cb_other.Enabled = TRUE END IF END IF end event type tabpage_1 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 1865 integer height = 1840 long backcolor = 134217739 string text = "信息" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_baseinfo dw_baseinfo end type on tabpage_1.create this.dw_baseinfo=create dw_baseinfo this.Control[]={this.dw_baseinfo} end on on tabpage_1.destroy destroy(this.dw_baseinfo) end on type dw_baseinfo from datawindow within tabpage_1 event dwnkey pbm_dwnkey integer width = 1851 integer height = 1844 integer taborder = 40 string title = "none" string dataobject = "dw_rs_empinfo_baseinfo" boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;PARENT.GetParent().GetParent().TriggerEvent('user_key') IF Key = KeyEnter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF end event event rbuttondown;IF dw_edit_mode THEN Long ll_row,ll_column ll_row = THIS.GetRow() ll_column = THIS.GetColumn() IF ll_row <= 0 THEN RETURN IF ll_column <= 0 THEN RETURN IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = tab_1.X + THIS.X s_calender.Y = tab_1.Y + THIS.Y OpenWithParm(w_calendar,s_calender) THIS.SetItem(ll_row,ll_column,id_date_selected) END IF END IF end event type tabpage_2 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 1865 integer height = 1840 long backcolor = 134217739 string text = "简历" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_record dw_record end type on tabpage_2.create this.dw_record=create dw_record this.Control[]={this.dw_record} end on on tabpage_2.destroy destroy(this.dw_record) end on type dw_record from datawindow within tabpage_2 event dwnkey pbm_dwnkey integer width = 1851 integer height = 1696 integer taborder = 40 string title = "none" string dataobject = "dw_rs_empinfo_record" boolean hscrollbar = true boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;parent.getparent().getparent().TriggerEvent('user_key') IF dw_edit_mode THEN IF KeyDown(Keydownarrow!) THEN Long li_row IF dw_record.GetRow() = dw_record.RowCount() THEN li_row = dw_record.InsertRow(0) dw_record.ScrollToRow(li_row) dw_record.SetColumn ('rectype') END IF ELSE IF KeyDown(KeyEnter!) THEN IF dw_record.GetColumnName( ) = 'dscrp' AND dw_record.GetRow() = dw_record.RowCount() THEN li_row = dw_record.InsertRow(0) dw_record.ScrollToRow(li_row) dw_record.SetColumn ('rectype') RETURN 1 ELSE IF Key = KeyEnter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF END IF END IF END IF END IF end event event rbuttondown;IF dw_edit_mode THEN Long ll_row,ll_column ll_row = THIS.GetRow() ll_column = THIS.GetColumn() IF ll_row <= 0 THEN RETURN IF ll_column <= 0 THEN RETURN IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = tab_1.X + w_rs_empinfo.X s_calender.Y = tab_1.Y + w_rs_empinfo.Y OpenWithParm(w_calendar,s_calender) THIS.SetItem(ll_row,ll_column,id_date_selected) END IF END IF end event type tabpage_3 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 1865 integer height = 1840 long backcolor = 134217739 string text = "社保" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_insure dw_insure end type on tabpage_3.create this.dw_insure=create dw_insure this.Control[]={this.dw_insure} end on on tabpage_3.destroy destroy(this.dw_insure) end on type dw_insure from datawindow within tabpage_3 event dwnkey pbm_dwnkey integer width = 1851 integer height = 1696 integer taborder = 40 string title = "none" string dataobject = "dw_rs_empinfo_insure" boolean hscrollbar = true boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;parent.getparent().getparent().TriggerEvent('user_key') IF dw_edit_mode THEN IF KeyDown(Keydownarrow!) THEN Long li_row IF dw_insure.GetRow() = dw_insure.RowCount() THEN li_row = dw_insure.InsertRow(0) dw_insure.ScrollToRow(li_row) dw_insure.SetColumn ('buymth') END IF ELSE IF KeyDown(KeyEnter!) THEN IF dw_insure.GetColumnName( ) = 'dscrp' AND dw_insure.GetRow() = dw_insure.RowCount() THEN li_row = dw_insure.InsertRow(0) dw_insure.ScrollToRow(li_row) dw_insure.SetColumn ('buymth') RETURN 1 ELSE IF Key = KeyEnter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF END IF END IF END IF END IF end event event rbuttondown;IF dw_edit_mode THEN Long ll_row,ll_column ll_row = THIS.GetRow() ll_column = THIS.GetColumn() IF ll_row <= 0 THEN RETURN IF ll_column <= 0 THEN RETURN IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = tab_1.X + w_rs_empinfo.X s_calender.Y = tab_1.Y + w_rs_empinfo.Y OpenWithParm(w_calendar,s_calender) THIS.SetItem(ll_row,ll_column,id_date_selected) END IF END IF end event type tabpage_4 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 1865 integer height = 1840 long backcolor = 134217739 string text = "培训" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_train dw_train end type on tabpage_4.create this.dw_train=create dw_train this.Control[]={this.dw_train} end on on tabpage_4.destroy destroy(this.dw_train) end on type dw_train from datawindow within tabpage_4 event dwnkey pbm_dwnkey integer width = 1851 integer height = 1696 integer taborder = 40 string title = "none" string dataobject = "dw_rs_empinfo_train" boolean hscrollbar = true boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;parent.getparent().getparent().triggerevent('user_key') if dw_edit_mode then If keydown(Keydownarrow!) Then long li_row if dw_train.getrow()=dw_train.rowcount() then li_row=dw_train.insertrow(0) dw_train.scrolltorow(li_row) dw_train.SetColumn ('traindate') end if else if keydown(KeyEnter!) then if dw_train.GetColumnName( )='dscrp' and dw_train.getrow()=dw_train.rowcount() then li_row=dw_train.insertrow(0) dw_train.scrolltorow(li_row) dw_train.SetColumn ('traindate') return 1 else If key = KeyEnter! Then // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab return 1 end if end if end if end if end if end event event rbuttondown;IF dw_edit_mode THEN Long ll_row,ll_column ll_row = THIS.GetRow() ll_column = THIS.GetColumn() IF ll_row <= 0 THEN RETURN IF ll_column <= 0 THEN RETURN IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = tab_1.X + w_rs_empinfo.X s_calender.Y = tab_1.Y + w_rs_empinfo.Y OpenWithParm(w_calendar,s_calender) THIS.SetItem(ll_row,ll_column,id_date_selected) END IF END IF end event type tabpage_5 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 1865 integer height = 1840 long backcolor = 134217739 string text = "调动" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_move dw_move end type on tabpage_5.create this.dw_move=create dw_move this.Control[]={this.dw_move} end on on tabpage_5.destroy destroy(this.dw_move) end on type dw_move from datawindow within tabpage_5 event dwnkey pbm_dwnkey integer width = 1851 integer height = 1696 integer taborder = 40 string title = "none" string dataobject = "dw_rs_empinfo_move" boolean hscrollbar = true boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;parent.getparent().getparent().triggerevent('user_key') end event type tabpage_6 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 1865 integer height = 1840 long backcolor = 134217739 string text = "短信" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_sms dw_sms end type on tabpage_6.create this.dw_sms=create dw_sms this.Control[]={this.dw_sms} end on on tabpage_6.destroy destroy(this.dw_sms) end on type dw_sms from datawindow within tabpage_6 event dwnkey pbm_dwnkey integer y = 4 integer width = 1851 integer height = 1696 integer taborder = 50 string title = "none" string dataobject = "dw_rs_empinfo_sms" boolean hscrollbar = true boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;parent.getparent().getparent().triggerevent('user_key') end event type tabpage_7 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 1865 integer height = 1840 long backcolor = 134217739 string text = "合同" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_contract dw_contract end type on tabpage_7.create this.dw_contract=create dw_contract this.Control[]={this.dw_contract} end on on tabpage_7.destroy destroy(this.dw_contract) end on type dw_contract from datawindow within tabpage_7 event dwnkey pbm_dwnkey integer y = 8 integer width = 1851 integer height = 1696 integer taborder = 50 string title = "none" string dataobject = "dw_rs_empinfo_contract" boolean hscrollbar = true boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event dwnkey;parent.getparent().getparent().TriggerEvent('user_key') IF dw_edit_mode THEN IF KeyDown(Keydownarrow!) THEN Long li_row IF dw_insure.GetRow() = dw_insure.RowCount() THEN li_row = dw_insure.InsertRow(0) dw_insure.ScrollToRow(li_row) dw_insure.SetColumn ('buymth') END IF ELSE IF KeyDown(KeyEnter!) THEN IF dw_insure.GetColumnName( ) = 'dscrp' AND dw_insure.GetRow() = dw_insure.RowCount() THEN li_row = dw_insure.InsertRow(0) dw_insure.ScrollToRow(li_row) dw_insure.SetColumn ('buymth') RETURN 1 ELSE IF Key = KeyEnter! THEN // keybd_event ( 9, 0, 0 , 0 ) // 按下tab keybd_event ( 9, 0, 2, 0 ) // 释放tab RETURN 1 END IF END IF END IF END IF END IF end event event rbuttondown;IF dw_edit_mode THEN Long ll_row,ll_column ll_row = THIS.GetRow() ll_column = THIS.GetColumn() IF ll_row <= 0 THEN RETURN IF ll_column <= 0 THEN RETURN IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN s_calender_arg s_calender s_calender.PointerX = THIS.PointerX() s_calender.PointerY = THIS.PointerY() s_calender.X = tab_1.X + w_rs_empinfo.X s_calender.Y = tab_1.Y + w_rs_empinfo.Y OpenWithParm(w_calendar,s_calender) THIS.SetItem(ll_row,ll_column,id_date_selected) END IF END IF end event type cb_save from uo_imflatbutton within w_rs_empinfo integer x = 754 integer width = 192 integer height = 172 integer taborder = 50 boolean bringtotop = true string text = "保存&S" string normalpicname = "save.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked; Int rslt = 1 String errmsg,arg_msg Long ls_newid,ls_empid Long ll_departmentid String ls_deptype,lls_handtype dw_baseinfo.accepttext() dw_pageretr.accepttext() IF dw_baseinfo.GetRow() > 0 THEN ls_empid = dw_baseinfo.Object.empid[dw_baseinfo.GetRow()] ll_departmentid = dw_baseinfo.Object.deptid[dw_baseinfo.GetRow()] END IF IF ll_departmentid > 0 THEN SELECT departmentname,handtype INTO :ls_deptype,:lls_handtype FROM cw_department Where departmentid = :ll_departmentid; IF sqlca.SQLCode <> 0 THEN ls_deptype = '' lls_handtype = '' END IF END IF dw_baseinfo.Object.u_rs_empinfo_deptype[dw_baseinfo.GetRow()] = ls_deptype dw_baseinfo.Object.u_rs_empinfo_handtype[dw_baseinfo.GetRow()] = lls_handtype newcode=dw_baseinfo.OBJECT.empcode[dw_baseinfo.GETROW()] newname=dw_baseinfo.OBJECT.empcode[dw_baseinfo.GETROW()] IF dw_baseinfo.UPDATE(TRUE,FALSE) = -1 THEN errmsg = sqlca.SQLErrText rslt = 0 ROLLBACK; MessageBox('错误','更新人员基本资料出错！'+errmsg,stopsign!,OK!) RETURN END IF wf_getid('dw_record',ls_empid) IF dw_record.UPDATE(TRUE,FALSE) = -1 THEN rslt = 0 errmsg = sqlca.SQLErrText ROLLBACK; MessageBox('错误','更新人员简历出错！'+errmsg,stopsign!,OK!) RETURN END IF wf_getid('dw_insure',ls_empid) IF dw_insure.UPDATE(TRUE,FALSE) = -1 THEN rslt = 0 errmsg = sqlca.SQLErrText ROLLBACK; MessageBox('错误','更新人员社保记录出错！'+errmsg,stopsign!,OK!) RETURN END IF wf_getid('dw_train',ls_empid) IF dw_train.UPDATE(TRUE,FALSE) = -1 THEN rslt = 0 errmsg = sqlca.SQLErrText ROLLBACK; MessageBox('错误','更新人员培训记录出错！'+errmsg,stopsign!,OK!) RETURN END IF wf_getid('dw_contract',ls_empid) IF dw_contract.UPDATE(TRUE,FALSE) = -1 THEN rslt = 0 errmsg = sqlca.SQLErrText ROLLBACK; MessageBox('错误','更新合同记录出错！'+errmsg,stopsign!,OK!) RETURN END IF IF rslt = 1 THEN COMMIT; dw_baseinfo.ResetUpdate () dw_record.ResetUpdate () dw_insure.ResetUpdate () dw_train.ResetUpdate () f_setsysoplog('定义资料','人事资料修改,原:'+oldcode+','+oldname+'->新:'+newcode+','+newname,arg_msg,true) MessageBox('提示','保存成功！',information!,OK!) END IF dw_edit_mode = NOT dw_edit_mode wf_facechange() wf_setmod(0) wf_refresh_curpage() end event type cb_edit from uo_imflatbutton within w_rs_empinfo integer x = 946 integer width = 192 integer height = 172 integer taborder = 100 boolean bringtotop = true string text = "修改&E" string normalpicname = "open.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;IF NOT f_power_ind(194) THEN MessageBox('提示','你没有使用权限！',information!,OK!) RETURN END IF IF dw_baseinfo.GetRow() <= 0 THEN MessageBox('提示','没有可修改的人员!',information!,OK!) RETURN END IF IF dw_edit_mode THEN wf_setmod(0) dw_baseinfo.ReselectRow(dw_baseinfo.GetRow()) ELSE IF s_tran.b_long = 0 AND Not (s_tran.b_string = '' OR IsNull(s_tran.b_string)) THEN dw_baseinfo.Object.status[dw_baseinfo.GetRow()] = 1 END IF CHOOSE CASE tab_1.SelectedTab CASE 1 dw_baseinfo.SetFocus() dw_baseinfo.SetColumn ('empcode') CASE 2 dw_record.SetFocus() dw_record.SetColumn ('rectype') END CHOOSE wf_setmod(1) END IF dw_edit_mode = NOT dw_edit_mode wf_facechange() IF dw_edit_mode THEN oldcode = dw_baseinfo.Object.empcode[dw_baseinfo.GetRow()] oldname = dw_baseinfo.Object.empcode[dw_baseinfo.GetRow()] ELSE oldcode = '' oldname = '' END IF end event type cb_del from uo_imflatbutton within w_rs_empinfo integer x = 1138 integer width = 151 integer height = 172 integer taborder = 100 boolean bringtotop = true string text = "删除" string normalpicname = "delete.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;IF NOT f_power_ind(194) THEN MessageBox('提示','你没有使用权限！',information!,OK!) RETURN END IF if dw_pageretr.GetRow()<=0 then Messagebox('提示','没有可删除的人员!',information!,OK!) return end if Long ls_empid,cnt = 0,rslt = 1 String ls_empcode,ls_empname,errmsg ls_empcode = dw_pageretr.Object.empcode[dw_pageretr.GetRow()] ls_empname = dw_pageretr.Object.empname[dw_pageretr.GetRow()] ls_empid = dw_pageretr.Object.empid[dw_pageretr.GetRow()] IF MessageBox("询问", '是否删除该人员资料? [人员编号：'+ls_empcode+' 姓名：'+ ls_empname+'] ', Exclamation!, YESNO!, 2) = 1 THEN cnt = 0 SELECT count(*) INTO :cnt FROM u_gz_wagemx Where empid = :ls_empid; IF sqlca.SQLCode <> 0 AND sqlca.SQLCode <> 100 THEN MessageBox('错误','查询人员相关资料出错（工资明细）',stopsign!,OK!) RETURN END IF IF cnt > 0 THEN rslt = 0 MessageBox('提示','该人员已在工资明细中存在，不能删除！',information!,OK!) RETURN END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_gz_wage Where empid = :ls_empid; IF sqlca.SQLCode <> 0 AND sqlca.SQLCode <> 100 THEN MessageBox('错误','查询人员相关资料出错（工资表）',stopsign!,OK!) RETURN END IF IF cnt > 0 THEN rslt = 0 MessageBox('提示','该人员已在工资表中存在，不能删除！',information!,OK!) RETURN END IF cnt = 0 SELECT count(*) INTO :cnt FROM u_outware Where cusid = :ls_empid and billtype = 10; IF sqlca.SQLCode <> 0 AND sqlca.SQLCode <> 100 THEN MessageBox('错误','查询人员相关资料出错（扣费品领用单）',stopsign!,OK!) RETURN END IF IF cnt > 0 THEN rslt = 0 MessageBox('提示','该人员已在扣费品领用单中存在，不能删除！',information!,OK!) RETURN END IF IF rslt = 1 THEN wf_retrieve() DELETE FROM u_rs_empinfo Where empid = :ls_empid; IF sqlca.SQLCode <> 0 THEN errmsg = sqlca.SQLErrText ROLLBACK; MessageBox('错误','删除失败！原因：'+errmsg,stopsign!,OK!) RETURN END IF if wf_delpic(ls_empid,errmsg) = 0 then messagebox('错误','删除失败！原因：'+errmsg,stopsign!,OK!) return end if COMMIT; f_setsysoplog('人事资料','人事资料删除,ID:'+string(ls_empid)+',code:'+ls_empcode+',name:'+ls_empname,errmsg,true) PARENT.TriggerEvent('retrieve_pageretr') END IF END IF end event type cb_incheck from uo_imflatbutton within w_rs_empinfo integer x = 453 integer width = 151 integer height = 172 integer taborder = 100 boolean bringtotop = true string text = "入职" string normalpicname = "p2.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked; IF NOT f_power_ind(194) THEN MessageBox('提示','你没有使用权限！',information!,OK!) RETURN END IF String new_sql Long i,currow Open(w_rs_emp_incheck) cb_retrieve.TriggerEvent(Clicked!) end event type cb_move from uo_imflatbutton within w_rs_empinfo integer x = 603 integer width = 151 integer height = 172 integer taborder = 100 boolean bringtotop = true string text = "调动" string normalpicname = "update.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr IF ls_status = 0 THEN menustr = "Text=删除离职人员~tEvent=ue_del_leftemp" ELSE menustr = "Text=调职~tEvent=ue_move" menustr = menustr + "|" + "Text=离职~tEvent=ue_dimission" END IF IF Len(Trim(menustr)) <> 0 THEN dmPopupMenu = CREATE m_Dfc_Control_PopupMenu dmPopupMenu.mf_BuildMenu(THIS, menustr) dmPopupMenu.mf_PopMenu() DESTROY dmPopupMenu END IF end event type st_2 from statictext within w_rs_empinfo integer x = 1522 integer y = 208 integer width = 219 integer height = 48 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "状 态:" boolean focusrectangle = false end type type tv_1 from uo_tv_deptype within w_rs_empinfo integer y = 308 integer width = 814 integer height = 1064 integer taborder = 50 boolean bringtotop = true integer textsize = -9 fontcharset fontcharset = gb2312charset! fontfamily fontfamily = anyfont! string facename = "宋体" end type event selectionchanged;call super::selectionchanged;IF dw_edit_mode THEN dw_baseinfo.SetRedraw(FALSE) dw_baseinfo.Object.deptid[dw_baseinfo.GetRow()] = THIS.uo_cur_info.departmentid dw_baseinfo.SetRedraw(TRUE) ELSE ls_handtype = THIS.uo_cur_info.handtype ls_handtype = ls_handtype + '%' cb_retrieve.TriggerEvent(Clicked!) END IF end event type cb_1 from uo_imflatbutton within w_rs_empinfo integer width = 151 integer height = 172 integer taborder = 40 boolean bringtotop = true string text = "部门" string normalpicname = "p1.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu string menustr menustr="Text=刷新部门~tEvent=ue_rtr_dept" menustr=menustr + "|" + "Text=建立部门~tEvent=ue_set_dept" if len(trim(menustr))<>0 then dmPopupMenu = Create m_Dfc_Control_PopupMenu dmPopupMenu.mf_BuildMenu(This, menustr) dmPopupMenu.mf_PopMenu() Destroy dmPopupMenu end if end event type ole_1 from olecontrol within w_rs_empinfo boolean visible = false integer x = 1303 integer y = 1548 integer width = 585 integer height = 720 integer taborder = 50 boolean bringtotop = true boolean enabled = false boolean border = false boolean focusrectangle = false string binarykey = "w_rs_empinfo.win" omdisplaytype displaytype = displayascontent! omcontentsallowed contentsallowed = containsany! end type type ddlb_scid from uo_ddlb_scid within w_rs_empinfo integer x = 201 integer y = 192 integer width = 649 integer height = 620 integer taborder = 100 boolean bringtotop = true end type event constructor;call super::constructor;cur_scid = this.uo_scid cur_scid_arr = THIS.uo_scid_arr end event event selectionchanged;call super::selectionchanged;cur_scid = this.uo_scid cur_scid_arr = THIS.uo_scid_arr parent.triggerevent('retrieve_pageretr') end event type gb_2 from groupbox within w_rs_empinfo integer y = 1340 integer width = 814 integer height = 800 integer taborder = 60 integer textsize = -12 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Arial" long textcolor = 33554432 long backcolor = 67108864 end type type st_3 from statictext within w_rs_empinfo integer x = 14 integer y = 208 integer width = 233 integer height = 48 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "分 部:" boolean focusrectangle = false end type type cb_print from uo_imflatbutton within w_rs_empinfo string tag = "预览[Alt+O]" boolean visible = false integer x = 1861 integer width = 192 integer height = 172 integer taborder = 110 boolean bringtotop = true string text = "预览&P" string normalpicname = "print.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype Long ls_dwprintid string ls_windowname Int ls_i w_curwin = PARENT ls_windowname = parent.Classname ( ) DECLARE dft_dwprint CURSOR FOR SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype FROM sys_dft_dwprint_dynamic Where dwtype = :ls_windowname; OPEN dft_dwprint; FETCH dft_dwprint INTO :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; IF sqlca.SQLCode <> 0 THEN PARENT.TriggerEvent('ue_print',0,0) ELSE m_dft_dwprint_item m_1 m_1 = CREATE m_dft_dwprint_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 f_add_menuitem_print_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid)) FETCH dft_dwprint INTO :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; ls_i++ LOOP CLOSE dft_dwprint; m_1.PopMenu(THIS.X+50,THIS.Y+50) END IF end event type cb_help from uo_imflatbutton within w_rs_empinfo string tag = "帮助[F1]" integer x = 1559 integer width = 151 integer height = 172 integer taborder = 120 boolean bringtotop = true string text = "帮助" string normalpicname = "help.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;parent.triggerevent("ue_help") end event type cb_other from uo_imflatbutton within w_rs_empinfo integer x = 1289 integer width = 270 integer height = 172 integer taborder = 40 boolean bringtotop = true string text = "辅助功能" string normalpicname = "other.BMP" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr IF dw_edit_mode THEN menustr = "Text=增加明细~tEvent=ue_addmx" menustr = menustr + "|" + "Text=删除明细~tEvent=ue_delmx" ELSE menustr = "Text=相片~tEvent=ue_photo" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=附件管理~tEvent=ue_fj_edit" menustr = menustr + "|" + "Text=附件查看~tEvent=ue_fj_view" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=设定基本工资~tEvent=ue_basepay" END IF IF Len(Trim(menustr)) <> 0 THEN dmPopupMenu = CREATE m_Dfc_Control_PopupMenu dmPopupMenu.mf_BuildMenu(THIS, menustr) dmPopupMenu.mf_PopMenu() DESTROY dmPopupMenu END IF end event type p_1 from picture within w_rs_empinfo integer x = 169 integer y = 1556 integer width = 457 integer height = 400 boolean bringtotop = true boolean originalsize = true string picturename = "graphics\nophoto.jpg" boolean focusrectangle = false end type type p_2 from picture within w_rs_empinfo boolean visible = false integer x = 859 integer y = 2144 integer width = 329 integer height = 176 boolean bringtotop = true boolean enabled = false boolean originalsize = true boolean focusrectangle = false end type type r_bar from rectangle within w_rs_empinfo long linecolor = 16777215 long fillcolor = 1073741824 integer x = 3502 integer width = 73 integer height = 172 end type event constructor;this.fillcolor = 14215660 this.linecolor = 14215660 this.x = -1 this.y = -1 this.height = ln_bar2.beginy - 5 end event type ln_bar from line within w_rs_empinfo long linecolor = 268435456 integer linethickness = 4 integer beginy = 176 integer endx = 3429 integer endy = 176 end type type ln_bar2 from line within w_rs_empinfo long linecolor = 16777215 integer linethickness = 4 integer beginy = 180 integer endx = 3429 integer endy = 180 end type type ln_1 from line within w_rs_empinfo long linecolor = 268435456 integer linethickness = 4 integer beginy = 300 integer endx = 3429 integer endy = 300 end type type ln_2 from line within w_rs_empinfo long linecolor = 16777215 integer linethickness = 4 integer beginy = 304 integer endx = 3429 integer endy = 304 end type type ln_5 from line within w_rs_empinfo boolean visible = false long linecolor = 268435456 integer beginx = 2377 integer endx = 2377 integer endy = 176 end type type ln_6 from line within w_rs_empinfo boolean visible = false long linecolor = 16777215 integer beginx = 2382 integer endx = 2382 integer endy = 180 end type Start of PowerBuilder Binary Data Section : Do NOT Edit 0Fw_rs_empinfo.bin 2B00000600e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe00000006000000000000000000000001000000010000000000001000fffffffe00000000fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffdfffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000fffffffe00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 1Fw_rs_empinfo.bin End of PowerBuilder Binary Data Section : No Source Expected After This Point