Q5/ws_objects/Ew_publ903.pbl.src/w_sys_wait_2jdt.srw

$PBExportHeader$w_sys_wait_2jdt.srw
forward
global type w_sys_wait_2jdt from w_publ_base
end type
type r_back2 from rectangle within w_sys_wait_2jdt
end type
type r_back from rectangle within w_sys_wait_2jdt
end type
type st_msg from statictext within w_sys_wait_2jdt
end type
type st_3 from statictext within w_sys_wait_2jdt
end type
type st_4 from statictext within w_sys_wait_2jdt
end type
type r_obj from picture within w_sys_wait_2jdt
end type
type r_obj2 from picture within w_sys_wait_2jdt
end type
type p_logo from picture within w_sys_wait_2jdt
end type
type hpb_1 from hprogressbar within w_sys_wait_2jdt
end type
type hpb_2 from hprogressbar within w_sys_wait_2jdt
end type
type ln_6 from line within w_sys_wait_2jdt
end type
type ln_1 from line within w_sys_wait_2jdt
end type
end forward

global type w_sys_wait_2jdt from w_publ_base
integer x = 626
integer y = 488
integer width = 1819
integer height = 704
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
long backcolor = 67108864
r_back2 r_back2
r_back r_back
st_msg st_msg
st_3 st_3
st_4 st_4
r_obj r_obj
r_obj2 r_obj2
p_logo p_logo
hpb_1 hpb_1
hpb_2 hpb_2
ln_6 ln_6
ln_1 ln_1
end type
global w_sys_wait_2jdt w_sys_wait_2jdt

type variables
int ls_x,ls_x2
double obj_tol=0,obj_inc=0,obj_tol2=0,obj_inc2=0
string old_msg,old_msg2

end variables

forward prototypes
public function integer wf_inc (double inc)
public function integer wf_accepttol (double tol)
public function integer wf_set_msg (string arg_msg)
public function integer wf_accepttol2 (double tol)
public function integer wf_inc2 (double inc)
end prototypes

public function integer wf_inc (double inc);//wf_inc
obj_inc = inc

Double bf = 0
IF obj_tol = 0 THEN
	hpb_1.Position = 0
	st_3.Text = '0.0%'
	RETURN 0
END IF


bf = (obj_inc/obj_tol)


st_3.Text = String(bf,'0.0%')
IF bf > 1 THEN bf = 1

hpb_1.Position = bf * 1000

RETURN 0


end function

public function integer wf_accepttol (double tol);//wf_accepttol
obj_tol=tol
r_obj.width=0
wf_set_msg(old_msg)
return 0
end function

public function integer wf_set_msg (string arg_msg);//wf_set_msg()
st_msg.Text = arg_msg
RETURN 0

end function

public function integer wf_accepttol2 (double tol);
obj_tol2 = tol
IF tol = 0 THEN
	hpb_2.Visible = False
	st_4.Visible = False
//	This.Height = 508
ELSE
	hpb_2.Visible = True
	st_4.Visible = True
//	This.Height = 696
END IF

hpb_2.Position = 0
RETURN 0


end function

public function integer wf_inc2 (double inc);//wf_inc2(inc)
obj_inc2 = inc

Double bf = 0
IF obj_tol2 = 0 THEN
	hpb_2.position = 0
	st_4.Text = '0.0%'
	RETURN 0
END IF

bf = (obj_inc2/obj_tol2)
st_4.Text = String(bf,'0.0%')
IF bf > 1 THEN bf = 1
hpb_2.Position = bf * 1000

RETURN 0

end function

on w_sys_wait_2jdt.create
int iCurrent
call super::create
this.r_back2=create r_back2
this.r_back=create r_back
this.st_msg=create st_msg
this.st_3=create st_3
this.st_4=create st_4
this.r_obj=create r_obj
this.r_obj2=create r_obj2
this.p_logo=create p_logo
this.hpb_1=create hpb_1
this.hpb_2=create hpb_2
this.ln_6=create ln_6
this.ln_1=create ln_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.r_back2
this.Control[iCurrent+2]=this.r_back
this.Control[iCurrent+3]=this.st_msg
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.r_obj
this.Control[iCurrent+7]=this.r_obj2
this.Control[iCurrent+8]=this.p_logo
this.Control[iCurrent+9]=this.hpb_1
this.Control[iCurrent+10]=this.hpb_2
this.Control[iCurrent+11]=this.ln_6
this.Control[iCurrent+12]=this.ln_1
end on

on w_sys_wait_2jdt.destroy
call super::destroy
destroy(this.r_back2)
destroy(this.r_back)
destroy(this.st_msg)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.r_obj)
destroy(this.r_obj2)
destroy(this.p_logo)
destroy(this.hpb_1)
destroy(this.hpb_2)
destroy(this.ln_6)
destroy(this.ln_1)
end on

event open;call super::open;//ls_x=p_logo.x
wf_accepttol(0)
wf_inc(0)
old_msg=st_msg.text

end event

event timer;//if p_1.x=ls_x then 
//	p_1.x=ls_x+20
//else
//	p_1.x=ls_x
//end if


	
end event

event hide;//wf_accepttol(0)
//wf_inc(0)


end event

event activate;//timer(0.1)
end event

event show;//wf_accepttol(0)
//wf_inc(0)
end event

event other;////open(w_sys_wait_jdt) //打开进度窗口
////w_sys_wait_jdt.WF_ACCEPTTOL(dw_contract.ROWCOUNT()) //初始化进度条
////w_sys_wait_jdt.wf_set_msg('新提示内容,请稍候...')
////FOR LS_LONG =1 TO dw_contract.ROWCOUNT()
////	///处理
////	w_sys_wait_jdt.WF_INC(LS_LONG) //进度
////NEXT
////messagebox('操作完成','新建合约收费明细 '+STRING(OBJ_RC)+' 个,请核对!')
////close(w_sys_wait_jdt) 
end event

type cb_func from w_publ_base`cb_func within w_sys_wait_2jdt
boolean visible = false
integer x = 914
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_wait_2jdt
boolean visible = false
integer x = 1230
boolean enabled = false
end type

type r_back2 from rectangle within w_sys_wait_2jdt
boolean visible = false
long linecolor = 8421504
integer linethickness = 4
long fillcolor = 16777215
integer x = 87
integer y = 656
integer width = 1568
integer height = 52
end type

type r_back from rectangle within w_sys_wait_2jdt
boolean visible = false
long linecolor = 8421504
integer linethickness = 4
long fillcolor = 16777215
integer x = 87
integer y = 420
integer width = 1568
integer height = 52
end type

type st_msg from statictext within w_sys_wait_2jdt
integer x = 27
integer y = 204
integer width = 1737
integer height = 128
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 67108864
boolean enabled = false
string text = "系统正在进行数据处理,请稍候..."
boolean focusrectangle = false
end type

type st_3 from statictext within w_sys_wait_2jdt
integer x = 745
integer y = 348
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long backcolor = 67108864
boolean enabled = false
string text = "%"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_4 from statictext within w_sys_wait_2jdt
integer x = 745
integer y = 508
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long backcolor = 67108864
boolean enabled = false
string text = "%"
alignment alignment = center!
boolean focusrectangle = false
end type

type r_obj from picture within w_sys_wait_2jdt
boolean visible = false
integer x = 87
integer y = 420
integer width = 37
integer height = 52
boolean bringtotop = true
string picturename = "graphics\jdt.bmp"
boolean focusrectangle = false
end type

type r_obj2 from picture within w_sys_wait_2jdt
boolean visible = false
integer x = 87
integer y = 656
integer width = 37
integer height = 52
boolean bringtotop = true
string picturename = "graphics\jdt.bmp"
boolean focusrectangle = false
end type

type p_logo from picture within w_sys_wait_2jdt
integer width = 1829
integer height = 160
boolean bringtotop = true
string picturename = "graphics\jdt_banner.jpg"
boolean focusrectangle = false
end type

type hpb_1 from hprogressbar within w_sys_wait_2jdt
integer x = 64
integer y = 416
integer width = 1678
integer height = 68
boolean bringtotop = true
unsignedinteger maxposition = 1000
unsignedinteger position = 50
integer setstep = 10
end type

type hpb_2 from hprogressbar within w_sys_wait_2jdt
integer x = 64
integer y = 580
integer width = 1678
integer height = 68
boolean bringtotop = true
unsignedinteger maxposition = 1000
unsignedinteger position = 50
integer setstep = 10
end type

type ln_6 from line within w_sys_wait_2jdt
long linecolor = 16777215
integer linethickness = 4
integer beginx = -9
integer beginy = 164
integer endx = 2002
integer endy = 164
end type

type ln_1 from line within w_sys_wait_2jdt
long linecolor = 268435456
integer linethickness = 4
integer beginx = -9
integer beginy = 160
integer endx = 2002
integer endy = 160
end type