Q5/ws_objects/Ew_define.pbl.src/w_cus_maxamt_edit.srw

$PBExportHeader$w_cus_maxamt_edit.srw
forward
global type w_cus_maxamt_edit from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_cus_maxamt_edit
end type
type cb_edi from uo_imflatbutton within w_cus_maxamt_edit
end type
type cb_cancel from uo_imflatbutton within w_cus_maxamt_edit
end type
type cb_save from uo_imflatbutton within w_cus_maxamt_edit
end type
type cb_retrievemx from uo_imflatbutton within w_cus_maxamt_edit
end type
type tv_1 from uo_tv_cusarea within w_cus_maxamt_edit
end type
type cb_help from uo_imflatbutton within w_cus_maxamt_edit
end type
type cbx_inuse from checkbox within w_cus_maxamt_edit
end type
type ln_bar from line within w_cus_maxamt_edit
end type
type ln_bar2 from line within w_cus_maxamt_edit
end type
type r_bar from rectangle within w_cus_maxamt_edit
end type
end forward

global type w_cus_maxamt_edit from w_publ_base
integer x = 46
integer y = 36
integer width = 3602
integer height = 2300
string title = "客户信用额"
boolean maxbox = true
windowstate windowstate = maximized!
event ue_help ( )
dw_1 dw_1
cb_edi cb_edi
cb_cancel cb_cancel
cb_save cb_save
cb_retrievemx cb_retrievemx
tv_1 tv_1
cb_help cb_help
cbx_inuse cbx_inuse
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_cus_maxamt_edit w_cus_maxamt_edit

type variables
String ls_areaname = ''

Int inuse = 1
end variables

forward prototypes
public function integer wf_facechange ()
end prototypes

event ue_help();Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, THIS.Title+".html")
end event

public function integer wf_facechange ();//wf_facechange
if dw_edit_mode then
	cb_cancel.enabled=true
	cb_save.enabled=true

	cb_func.enabled=false
	cb_retrievemx.enabled=false

	dw_1.SetTabOrder(2,10)
	dw_1.SetTabOrder(3,20)
	dw_1.SetTabOrder(4,30)
	
else
	cb_cancel.enabled=false
	cb_save.enabled=false
	
	cb_func.enabled=true
	cb_retrievemx.enabled=true


	dw_1.SetTabOrder(2,0)
	dw_1.SetTabOrder(3,0)
	dw_1.SetTabOrder(4,0)

end if
return 1
end function

on w_cus_maxamt_edit.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_edi=create cb_edi
this.cb_cancel=create cb_cancel
this.cb_save=create cb_save
this.cb_retrievemx=create cb_retrievemx
this.tv_1=create tv_1
this.cb_help=create cb_help
this.cbx_inuse=create cbx_inuse
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_1
this.Control[iCurrent+2]=this.cb_edi
this.Control[iCurrent+3]=this.cb_cancel
this.Control[iCurrent+4]=this.cb_save
this.Control[iCurrent+5]=this.cb_retrievemx
this.Control[iCurrent+6]=this.tv_1
this.Control[iCurrent+7]=this.cb_help
this.Control[iCurrent+8]=this.cbx_inuse
this.Control[iCurrent+9]=this.ln_bar
this.Control[iCurrent+10]=this.ln_bar2
this.Control[iCurrent+11]=this.r_bar
end on

on w_cus_maxamt_edit.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_edi)
destroy(this.cb_cancel)
destroy(this.cb_save)
destroy(this.cb_retrievemx)
destroy(this.tv_1)
destroy(this.cb_help)
destroy(this.cbx_inuse)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event open;call super::open;dw_1.settransobject(sqlca)

cb_retrievemx.triggerevent(clicked!)
end event

event ue_filter;call super::ue_filter;OPENWITHPARM(w_filter_query,dw_1)
STRING LS_EXPR
LS_EXPR=Message.StringParm	

if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_1.setfilter(LS_EXPR)
dw_1.SetRedraw (false)
dw_1.filter()
dw_1.SetRedraw (TRUE)
end event

event ue_sort;call super::ue_sort;OPENwithparm(w_sortrow,DW_1)
STRING LS_EXPR
LS_EXPR=Message.StringParm	
IF ISNULL(LS_EXPR) THEN LS_EXPR='   '
if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_1.setsort(LS_EXPR)

dw_1.SetRedraw (false)
dw_1.sort()
dw_1.SetRedraw (true)
end event

event ue_before_open;call super::ue_before_open;if_ue_filter=true
if_ue_sort=true
end event

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

long w_width,w_height
w_width = 3602
w_height = 2300


if newwidth < w_width then this.width = w_width
if newheight < w_height then  this.height = w_height

tv_1.height=this.height - (w_height - 1952)
dw_1.width=this.width - (w_width - 2633)
dw_1.height=this.height - (w_height - 1952)



end event

type cb_func from w_publ_base`cb_func within w_cus_maxamt_edit
integer x = 165
integer height = 172
end type

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

type dw_1 from u_dw_rbtnfilter within w_cus_maxamt_edit
integer x = 951
integer y = 188
integer width = 2633
integer height = 1952
integer taborder = 50
boolean bringtotop = true
boolean titlebar = true
string title = "客户资料"
string dataobject = "dw_cust_maxamt_edit"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean hsplitscroll = true
borderstyle borderstyle = stylebox!
end type

event clicked; if row>0 then
	this.setrow(row)
this.selectrow(0,false)
this.selectrow(row,true)
end if

end event

event constructor;call super::constructor;
 RBUTTON_FILTER_USE=true  //右键查询功能开关

end event

event rowfocuschanged;IF currentrow <=0 THEN RETURN
this.selectrow(0,false)
this.selectrow(currentrow,true)

end event

type cb_edi from uo_imflatbutton within w_cus_maxamt_edit
integer x = 329
integer width = 165
integer height = 172
integer taborder = 60
boolean bringtotop = true
string text = "修改"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(16) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF

dw_edit_mode = TRUE
wf_facechange()
dw_1.SetFocus()

end event

type cb_cancel from uo_imflatbutton within w_cus_maxamt_edit
integer x = 494
integer width = 165
integer height = 172
integer taborder = 60
boolean bringtotop = true
boolean enabled = false
string text = "取消"
string normalpicname = "undo.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_edit_mode=false
wf_facechange()
cb_retrievemx.triggerevent(clicked!)

end event

type cb_save from uo_imflatbutton within w_cus_maxamt_edit
integer x = 658
integer width = 165
integer height = 172
integer taborder = 70
boolean bringtotop = true
boolean enabled = false
string text = "保存"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_1.AcceptText()
IF dw_1.GetNextModified(0, Primary!) = 0 THEN
	MessageBox('提示','没有任何修改，不可以保存!', Information!, OK! )
	RETURN
END IF
IF dw_1.Update() = 1 THEN
	COMMIT;
ELSE
	ROLLBACK;
	MessageBox('提示','保存操作失败"!', Information!, OK! )
	RETURN
END IF

dw_edit_mode = FALSE
wf_facechange()

end event

type cb_retrievemx from uo_imflatbutton within w_cus_maxamt_edit
integer width = 165
integer height = 172
integer taborder = 20
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_1.retrieve(ls_areaname,sys_areaid,inuse)
end event

type tv_1 from uo_tv_cusarea within w_cus_maxamt_edit
integer y = 188
integer width = 951
integer height = 1952
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;if not dw_edit_mode then 
	ls_areaname = this.uo_cur_info.areaname
	ls_areaname = ls_areaname + '%'	
	cb_retrievemx.triggerevent(clicked!)
end if
end event

type cb_help from uo_imflatbutton within w_cus_maxamt_edit
string tag = "帮助[F1]"
integer x = 823
integer width = 165
integer height = 172
integer taborder = 20
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 cbx_inuse from checkbox within w_cus_maxamt_edit
integer x = 1207
integer y = 84
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "只显示有效"
boolean checked = true
end type

event clicked;IF dw_edit_mode THEN RETURN
IF THIS.Checked THEN
	inuse = 1
ELSE
	inuse = -1
END IF
cb_retrievemx.TriggerEvent(Clicked!)

end event

event constructor;this.Backcolor = 14215660
end event

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

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

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