Q5/ws_objects/Ew_rs.pbl.src/w_rs_empinfo.srw

$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