Q5/ws_objects/Ew_rs_bak.pbl.src/w_rs_dimission.srw

$PBExportHeader$w_rs_dimission.srw
forward
global type w_rs_dimission from w_publ_base
end type
type dw_1 from datawindow within w_rs_dimission
end type
type cb_1 from uo_imflatbutton within w_rs_dimission
end type
type ln_bar from line within w_rs_dimission
end type
type ln_bar2 from line within w_rs_dimission
end type
type r_bar from rectangle within w_rs_dimission
end type
type ln_1 from line within w_rs_dimission
end type
type ln_2 from line within w_rs_dimission
end type
end forward

global type w_rs_dimission from w_publ_base
integer width = 1819
integer height = 860
string title = "人员离职管理"
boolean minbox = false
windowtype windowtype = response!
dw_1 dw_1
cb_1 cb_1
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
end type
global w_rs_dimission w_rs_dimission

type variables
s_moveinfo s_move
uo_empinfo u_emp
long moveflag=0
end variables

on w_rs_dimission.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_1=create cb_1
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.ln_bar
this.Control[iCurrent+4]=this.ln_bar2
this.Control[iCurrent+5]=this.r_bar
this.Control[iCurrent+6]=this.ln_1
this.Control[iCurrent+7]=this.ln_2
end on

on w_rs_dimission.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_1)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
end on

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

event open;call super::open;s_move=message.PowerObjectParm

dw_1.settransobject(sqlca)
dw_1.insertrow(0)
f_setmod(dw_1,3,1)
dw_1.object.empid[dw_1.getrow()]=s_move.empid
dw_1.object.empcode[dw_1.getrow()]=s_move.empcode
dw_1.object.empname[dw_1.getrow()]=s_move.empname
dw_1.object.sex[dw_1.getrow()]=s_move.sex
dw_1.setfocus()
dw_1.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_dimission
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_dimission
integer x = 151
integer width = 151
integer height = 172
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_1 from datawindow within w_rs_dimission
event dwnkey pbm_dwnkey
integer y = 184
integer width = 1765
integer height = 556
integer taborder = 10
boolean bringtotop = true
string title = "none"
string dataobject = "dw_dimission"
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_1 from uo_imflatbutton within w_rs_dimission
integer width = 151
integer height = 172
integer taborder = 20
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_1.AcceptText()

ls_empcode = dw_1.Object.empcode[dw_1.GetRow()]
ls_empname = dw_1.Object.empname[dw_1.GetRow()]
IF MessageBox("询问", '该人员是否要离职? [人员编号：'+ls_empcode+'  姓名：'+ ls_empname+'] ', Exclamation!, YESNO!, 2) = 1 THEN
	
	IF u_emp.f_empdimission(dw_1.Object.empid[dw_1.GetRow()],&
		dw_1.Object.empcode[dw_1.GetRow()],&
		dw_1.Object.movedate[dw_1.GetRow()],&
		Trim(dw_1.Object.filecode[dw_1.GetRow()]),&
		s_move.dept,&
		s_move.duty,&
		Trim(dw_1.Object.cause[dw_1.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_dimission
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_dimission
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_dimission
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

type ln_1 from line within w_rs_dimission
long linecolor = 268435456
integer linethickness = 4
integer beginx = 581
integer beginy = 44
integer endx = 2597
integer endy = 44
end type

type ln_2 from line within w_rs_dimission
long linecolor = 16777215
integer linethickness = 4
integer beginx = 581
integer beginy = 48
integer endx = 2629
integer endy = 48
end type