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

$PBExportHeader$w_rs_emp_move.srw
forward
global type w_rs_emp_move from w_publ_base
end type
type dw_move from datawindow within w_rs_emp_move
end type
type cb_2 from uo_imflatbutton within w_rs_emp_move
end type
type ln_bar from line within w_rs_emp_move
end type
type ln_bar2 from line within w_rs_emp_move
end type
type r_bar from rectangle within w_rs_emp_move
end type
end forward

global type w_rs_emp_move from w_publ_base
integer width = 1861
integer height = 1036
string title = "人员调动管理"
boolean minbox = false
windowtype windowtype = response!
dw_move dw_move
cb_2 cb_2
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_rs_emp_move w_rs_emp_move

type variables
s_moveinfo s_move
uo_empinfo u_emp
long moveflag=0  //1有调动，0无调动
end variables

on w_rs_emp_move.create
int iCurrent
call super::create
this.dw_move=create dw_move
this.cb_2=create cb_2
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_move
this.Control[iCurrent+2]=this.cb_2
this.Control[iCurrent+3]=this.ln_bar
this.Control[iCurrent+4]=this.ln_bar2
this.Control[iCurrent+5]=this.r_bar
end on

on w_rs_emp_move.destroy
call super::destroy
destroy(this.dw_move)
destroy(this.cb_2)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event close;call super::close;DESTROY u_emp
closewithreturn(this,moveflag)
end event

event open;call super::open;s_move=message.PowerObjectParm
dw_move.settransobject(sqlca)
dw_move.insertrow(0)
f_setmod(dw_move,6,1)
dw_move.object.empid[dw_move.getrow()]=s_move.empid
dw_move.object.empcode[dw_move.getrow()]=s_move.empcode
dw_move.object.empname[dw_move.getrow()]=s_move.empname
dw_move.object.sex[dw_move.getrow()]=s_move.sex
dw_move.object.sdept[dw_move.getrow()]=s_move.dept
dw_move.object.sjob[dw_move.getrow()]=s_move.duty
dw_move.object.status[dw_move.getrow()]=s_move.status

dw_move.setfocus()
dw_move.setcolumn("movedate")
u_emp=create uo_empinfo
end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width
end event

type cb_func from w_publ_base`cb_func within w_rs_emp_move
boolean visible = false
integer x = 329
integer width = 165
integer height = 172
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_rs_emp_move
integer x = 151
integer width = 151
integer height = 172
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_move from datawindow within w_rs_emp_move
event dwnkey pbm_dwnkey
integer y = 184
integer width = 1819
integer height = 732
integer taborder = 10
boolean bringtotop = true
string title = "none"
string dataobject = "dw_rs_emp_move_edit"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event dwnkey;If  key = KeyEnter! Then //
keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
Return 1
End If


end event

type cb_2 from uo_imflatbutton within w_rs_emp_move
integer width = 151
integer height = 172
integer taborder = 30
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;
String ls_empcode,ls_empname,errmsg,cause
dw_move.AcceptText()

ls_empcode = dw_move.Object.empcode[dw_move.GetRow()]
ls_empname = dw_move.Object.empname[dw_move.GetRow()]
IF MessageBox("询问", '是否将该人员进行调动? [人员编号：'+ls_empcode+'  姓名：'+ ls_empname+'] ', Exclamation!, YESNO!, 2) = 1 THEN
	
	IF u_emp.f_empmove(dw_move.Object.empid[dw_move.GetRow()],&
		dw_move.Object.movedate[dw_move.GetRow()],&
		Trim(dw_move.Object.filecode[dw_move.GetRow()]),&
		Trim(dw_move.Object.sdept[dw_move.GetRow()]),&
		dw_move.Object.ddept[dw_move.GetRow()],&
		Trim(dw_move.Object.sjob[dw_move.GetRow()]),&
		Trim(dw_move.Object.djob[dw_move.GetRow()]),&
		dw_move.Object.wage[dw_move.GetRow()],&
		Trim(dw_move.Object.cause[dw_move.GetRow()]),&
		publ_operator, errmsg,TRUE) = 1 THEN
		
		MessageBox('提示','调动成功',information!,OK!)
		moveflag = 1
		cb_exit.TriggerEvent(Clicked!)
	ELSE
		MessageBox('错误',errmsg,stopsign!,OK!)
		
	END IF
	
END IF

end event

type ln_bar from line within w_rs_emp_move
long linecolor = 268435456
integer linethickness = 4
integer beginy = 176
integer endx = 1874
integer endy = 176
end type

type ln_bar2 from line within w_rs_emp_move
long linecolor = 16777215
integer linethickness = 4
integer beginy = 180
integer endx = 1874
integer endy = 180
end type

type r_bar from rectangle within w_rs_emp_move
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 1106
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