Q5/ws_objects/Ew_mainface.pbl.src/w_main_child_xtwh.srw

$PBExportHeader$w_main_child_xtwh.srw
forward
global type w_main_child_xtwh from w_mface_base
end type
type st_3 from uo_text_m within w_main_child_xtwh
end type
type st_35 from uo_text_m within w_main_child_xtwh
end type
type st_34 from uo_text_m within w_main_child_xtwh
end type
type p_3 from picture within w_main_child_xtwh
end type
type st_33 from uo_text_m within w_main_child_xtwh
end type
type st_32 from uo_text_m within w_main_child_xtwh
end type
type st_26 from uo_text_m within w_main_child_xtwh
end type
type st_9 from uo_text_m within w_main_child_xtwh
end type
type st_31 from uo_text_m within w_main_child_xtwh
end type
type st_30 from uo_text_m within w_main_child_xtwh
end type
type st_29 from uo_text_m within w_main_child_xtwh
end type
type st_28 from uo_text_m within w_main_child_xtwh
end type
type st_11 from uo_text_m within w_main_child_xtwh
end type
type st_23 from uo_text_m within w_main_child_xtwh
end type
type p_2 from picture within w_main_child_xtwh
end type
type p_1 from picture within w_main_child_xtwh
end type
type p_5 from picture within w_main_child_xtwh
end type
type st_21 from uo_text_m within w_main_child_xtwh
end type
type st_18 from uo_text_m within w_main_child_xtwh
end type
type st_8 from uo_text_m within w_main_child_xtwh
end type
type st_6 from uo_text_m within w_main_child_xtwh
end type
type st_5 from uo_text_m within w_main_child_xtwh
end type
type st_16 from uo_text_m within w_main_child_xtwh
end type
type st_17 from uo_text_m within w_main_child_xtwh
end type
type st_19 from uo_text_m within w_main_child_xtwh
end type
type st_27 from uo_text_m within w_main_child_xtwh
end type
type st_2 from uo_text_m within w_main_child_xtwh
end type
type st_1 from uo_text_m within w_main_child_xtwh
end type
type st_12 from uo_text_m within w_main_child_xtwh
end type
type st_13 from uo_text_m within w_main_child_xtwh
end type
type st_14 from uo_text_m within w_main_child_xtwh
end type
type st_15 from uo_text_m within w_main_child_xtwh
end type
type st_20 from uo_text_m within w_main_child_xtwh
end type
type st_22 from uo_text_m within w_main_child_xtwh
end type
type st_24 from uo_text_m within w_main_child_xtwh
end type
type st_25 from uo_text_m within w_main_child_xtwh
end type
type st_4 from uo_text_m within w_main_child_xtwh
end type
type st_7 from uo_text_m within w_main_child_xtwh
end type
type ln_1 from line within w_main_child_xtwh
end type
type ln_2 from line within w_main_child_xtwh
end type
type ln_3 from line within w_main_child_xtwh
end type
end forward

global type w_main_child_xtwh from w_mface_base
integer x = 1001
integer y = 80
integer width = 2601
integer height = 1352
boolean titlebar = false
boolean controlmenu = false
boolean minbox = false
boolean maxbox = false
boolean resizable = false
boolean border = false
windowtype windowtype = child!
st_3 st_3
st_35 st_35
st_34 st_34
p_3 p_3
st_33 st_33
st_32 st_32
st_26 st_26
st_9 st_9
st_31 st_31
st_30 st_30
st_29 st_29
st_28 st_28
st_11 st_11
st_23 st_23
p_2 p_2
p_1 p_1
p_5 p_5
st_21 st_21
st_18 st_18
st_8 st_8
st_6 st_6
st_5 st_5
st_16 st_16
st_17 st_17
st_19 st_19
st_27 st_27
st_2 st_2
st_1 st_1
st_12 st_12
st_13 st_13
st_14 st_14
st_15 st_15
st_20 st_20
st_22 st_22
st_24 st_24
st_25 st_25
st_4 st_4
st_7 st_7
ln_1 ln_1
ln_2 ln_2
ln_3 ln_3
end type
global w_main_child_xtwh w_main_child_xtwh

forward prototypes
public function integer wf_kk ()
end prototypes

public function integer wf_kk ();st_4.x=0
st_4.y=0
st_4.width=this.width
st_4.height=this.height
int i

for i=1 to this.width/200+1
	st_4.x=st_4.x+200
	sleep(0.4)
next
	
return 0
end function

on w_main_child_xtwh.create
int iCurrent
call super::create
this.st_3=create st_3
this.st_35=create st_35
this.st_34=create st_34
this.p_3=create p_3
this.st_33=create st_33
this.st_32=create st_32
this.st_26=create st_26
this.st_9=create st_9
this.st_31=create st_31
this.st_30=create st_30
this.st_29=create st_29
this.st_28=create st_28
this.st_11=create st_11
this.st_23=create st_23
this.p_2=create p_2
this.p_1=create p_1
this.p_5=create p_5
this.st_21=create st_21
this.st_18=create st_18
this.st_8=create st_8
this.st_6=create st_6
this.st_5=create st_5
this.st_16=create st_16
this.st_17=create st_17
this.st_19=create st_19
this.st_27=create st_27
this.st_2=create st_2
this.st_1=create st_1
this.st_12=create st_12
this.st_13=create st_13
this.st_14=create st_14
this.st_15=create st_15
this.st_20=create st_20
this.st_22=create st_22
this.st_24=create st_24
this.st_25=create st_25
this.st_4=create st_4
this.st_7=create st_7
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ln_3=create ln_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_3
this.Control[iCurrent+2]=this.st_35
this.Control[iCurrent+3]=this.st_34
this.Control[iCurrent+4]=this.p_3
this.Control[iCurrent+5]=this.st_33
this.Control[iCurrent+6]=this.st_32
this.Control[iCurrent+7]=this.st_26
this.Control[iCurrent+8]=this.st_9
this.Control[iCurrent+9]=this.st_31
this.Control[iCurrent+10]=this.st_30
this.Control[iCurrent+11]=this.st_29
this.Control[iCurrent+12]=this.st_28
this.Control[iCurrent+13]=this.st_11
this.Control[iCurrent+14]=this.st_23
this.Control[iCurrent+15]=this.p_2
this.Control[iCurrent+16]=this.p_1
this.Control[iCurrent+17]=this.p_5
this.Control[iCurrent+18]=this.st_21
this.Control[iCurrent+19]=this.st_18
this.Control[iCurrent+20]=this.st_8
this.Control[iCurrent+21]=this.st_6
this.Control[iCurrent+22]=this.st_5
this.Control[iCurrent+23]=this.st_16
this.Control[iCurrent+24]=this.st_17
this.Control[iCurrent+25]=this.st_19
this.Control[iCurrent+26]=this.st_27
this.Control[iCurrent+27]=this.st_2
this.Control[iCurrent+28]=this.st_1
this.Control[iCurrent+29]=this.st_12
this.Control[iCurrent+30]=this.st_13
this.Control[iCurrent+31]=this.st_14
this.Control[iCurrent+32]=this.st_15
this.Control[iCurrent+33]=this.st_20
this.Control[iCurrent+34]=this.st_22
this.Control[iCurrent+35]=this.st_24
this.Control[iCurrent+36]=this.st_25
this.Control[iCurrent+37]=this.st_4
this.Control[iCurrent+38]=this.st_7
this.Control[iCurrent+39]=this.ln_1
this.Control[iCurrent+40]=this.ln_2
this.Control[iCurrent+41]=this.ln_3
end on

on w_main_child_xtwh.destroy
call super::destroy
destroy(this.st_3)
destroy(this.st_35)
destroy(this.st_34)
destroy(this.p_3)
destroy(this.st_33)
destroy(this.st_32)
destroy(this.st_26)
destroy(this.st_9)
destroy(this.st_31)
destroy(this.st_30)
destroy(this.st_29)
destroy(this.st_28)
destroy(this.st_11)
destroy(this.st_23)
destroy(this.p_2)
destroy(this.p_1)
destroy(this.p_5)
destroy(this.st_21)
destroy(this.st_18)
destroy(this.st_8)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.st_16)
destroy(this.st_17)
destroy(this.st_19)
destroy(this.st_27)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.st_12)
destroy(this.st_13)
destroy(this.st_14)
destroy(this.st_15)
destroy(this.st_20)
destroy(this.st_22)
destroy(this.st_24)
destroy(this.st_25)
destroy(this.st_4)
destroy(this.st_7)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_3)
end on

event open;setnull(io_cont)
end event

event mousemove;call super::mousemove;window ls_w
ls_w=this.parentwindow()
ls_w.triggerevent("mousemove")
end event

event closequery;return 1
end event

event key;f_x_genapp_frame()
end event

type st_3 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 248
integer width = 375
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "系统解决方案"
end type

event clicked;call super::clicked;f_sys_main(828)
end event

type st_35 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 248
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "本地新程序上传"
end type

event clicked;call super::clicked;f_sys_main(806)
end event

type st_34 from uo_text_m within w_main_child_xtwh
integer x = 1481
integer y = 136
integer width = 402
integer height = 52
boolean bringtotop = true
integer textsize = -10
integer weight = 700
long textcolor = 0
boolean enabled = false
string text = "版本管理"
end type

event mousemove;call super::mousemove;int i = 0
end event

event key;call super::key;int i = 0
end event

type p_3 from picture within w_main_child_xtwh
integer x = 1317
integer y = 92
integer width = 160
integer height = 140
string pointer = "HAND.CUR"
boolean enabled = false
string picturename = "graphics\bt_sys2.bmp"
boolean focusrectangle = false
end type

type st_33 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 728
integer width = 562
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "系统数据字典"
end type

event clicked;call super::clicked;f_sys_main(831)
end event

type st_32 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 848
integer width = 475
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "Excel表字段标记"
end type

event clicked;call super::clicked;f_sys_main(825)
end event

type st_26 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 968
integer width = 475
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "Excel模版管理"
end type

event clicked;call super::clicked;f_sys_main(826)
end event

type st_9 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 1088
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "数据窗口编辑器"
end type

event clicked;call super::clicked;f_sys_main(833)
end event

type st_31 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 728
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "嵌入式自定义报表"
end type

event clicked;call super::clicked;f_sys_main(840)
end event

type st_30 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 968
integer width = 475
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "外挂程序"
end type

event clicked;call super::clicked;f_sys_main(838)
end event

type st_29 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 848
integer width = 475
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "外挂程序设定"
end type

event clicked;call super::clicked;f_sys_main(837)
end event

type st_28 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 608
integer width = 562
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "嵌入式自定义报表设定"
end type

event clicked;call super::clicked;f_sys_main(839)
end event

type st_11 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 608
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "版本升级日志"
end type

event clicked;call super::clicked;f_sys_main(842)
end event

type st_23 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 488
integer width = 562
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "自定义单据打印格式"
end type

event clicked;call super::clicked;f_sys_main(841)
end event

type p_2 from picture within w_main_child_xtwh
integer x = 18
integer y = 92
integer width = 160
integer height = 136
string pointer = "HAND.CUR"
boolean enabled = false
string picturename = "graphics\bt_sys1.bmp"
boolean focusrectangle = false
end type

type p_1 from picture within w_main_child_xtwh
integer x = 613
integer y = 92
integer width = 160
integer height = 132
string pointer = "HAND.CUR"
boolean enabled = false
boolean originalsize = true
string picturename = "graphics\bt_sys4.bmp"
boolean focusrectangle = false
end type

type p_5 from picture within w_main_child_xtwh
integer x = 1979
integer y = 92
integer width = 160
integer height = 128
string pointer = "HAND.CUR"
boolean enabled = false
string picturename = "graphics\bt_sys3.bmp"
boolean focusrectangle = false
end type

type st_21 from uo_text_m within w_main_child_xtwh
integer x = 2043
integer y = 248
integer width = 389
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "定义资料导入"
end type

event clicked;call super::clicked;f_sys_main(818)
end event

type st_18 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 488
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "单据抬头格式"
end type

event clicked;call super::clicked;f_sys_main(823)
end event

type st_8 from uo_text_m within w_main_child_xtwh
integer x = 2139
integer y = 136
integer width = 270
integer height = 52
boolean bringtotop = true
integer textsize = -10
integer weight = 700
long textcolor = 0
boolean enabled = false
string text = "数据维护"
end type

event mousemove;call super::mousemove;int i = 0
end event

event key;call super::key;int i = 0
end event

type st_6 from uo_text_m within w_main_child_xtwh
integer x = 192
integer y = 136
integer width = 352
integer height = 52
boolean bringtotop = true
integer textsize = -10
integer weight = 700
long textcolor = 0
boolean enabled = false
string text = "管理员设置"
end type

event mousemove;call super::mousemove;int i = 0
end event

event key;call super::key;int i = 0
end event

type st_5 from uo_text_m within w_main_child_xtwh
integer x = 96
integer y = 488
integer width = 293
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "用户组"
end type

event clicked;call super::clicked;f_sys_main(820)
end event

type st_16 from uo_text_m within w_main_child_xtwh
integer x = 96
integer y = 368
integer width = 343
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "用户权限"
end type

event clicked;call super::clicked;f_sys_main(801)
end event

type st_17 from uo_text_m within w_main_child_xtwh
integer x = 2043
integer y = 608
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "数据库备份与恢复"
end type

event clicked;call super::clicked;f_sys_main(804)
end event

type st_19 from uo_text_m within w_main_child_xtwh
integer x = 96
integer y = 608
integer width = 375
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "帐套管理"
end type

event clicked;call super::clicked;f_sys_main(802)
end event

type st_27 from uo_text_m within w_main_child_xtwh
integer x = 96
integer y = 728
integer width = 389
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "系统操作日志"
end type

event clicked;call super::clicked;f_sys_main(812)
end event

type st_2 from uo_text_m within w_main_child_xtwh
integer x = 96
integer y = 248
integer width = 343
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "系统用户信息"
end type

event clicked;call super::clicked;f_sys_main(803)
end event

type st_1 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 1088
integer width = 475
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "本地用户注册"
end type

event clicked;call super::clicked;f_sys_main(805)
end event

type st_12 from uo_text_m within w_main_child_xtwh
integer x = 1390
integer y = 368
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "新打印格式上传"
end type

event clicked;call super::clicked;f_sys_main(846)
end event

type st_13 from uo_text_m within w_main_child_xtwh
integer x = 2043
integer y = 488
integer width = 507
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "数据导出成文件"
end type

event clicked;call super::clicked;f_sys_main(816)
end event

type st_14 from uo_text_m within w_main_child_xtwh
integer x = 2043
integer y = 368
integer width = 494
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "数据导入"
end type

event clicked;call super::clicked;f_sys_main(814)
end event

type st_15 from uo_text_m within w_main_child_xtwh
integer x = 2043
integer y = 848
integer width = 475
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "截数及数据删除"
end type

event clicked;call super::clicked;f_sys_main(815)
end event

type st_20 from uo_text_m within w_main_child_xtwh
integer x = 686
integer y = 368
integer width = 375
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "系统选项设置"
end type

event clicked;call super::clicked;f_sys_main(808)
end event

type st_22 from uo_text_m within w_main_child_xtwh
boolean visible = false
integer x = 1390
integer y = 1208
integer width = 475
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "系统注册信息管理"
end type

event clicked;call super::clicked;f_sys_main(811)
end event

type st_24 from uo_text_m within w_main_child_xtwh
integer x = 2043
integer y = 728
integer width = 507
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "外部数据库连接设置"
end type

event clicked;call super::clicked;f_sys_main(813)
end event

type st_25 from uo_text_m within w_main_child_xtwh
integer x = 2043
integer y = 968
integer width = 457
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "转移已截数数据"
end type

event clicked;call super::clicked;f_sys_main(817)
end event

type st_4 from uo_text_m within w_main_child_xtwh
boolean visible = false
integer x = 14
integer y = 1140
integer width = 73
integer height = 80
boolean bringtotop = true
integer textsize = -10
string text = ""
boolean border = true
end type

event clicked;call super::clicked;f_sys_main(406)
end event

type st_7 from uo_text_m within w_main_child_xtwh
integer x = 777
integer y = 136
integer width = 402
integer height = 52
boolean bringtotop = true
integer textsize = -10
integer weight = 700
long textcolor = 0
boolean enabled = false
string text = "自定义管理"
end type

event mousemove;call super::mousemove;int i = 0
end event

event key;call super::key;int i = 0
end event

type ln_1 from line within w_main_child_xtwh
long linecolor = 33554432
linestyle linestyle = dot!
integer linethickness = 4
integer beginx = 571
integer beginy = 104
integer endx = 571
integer endy = 1196
end type

type ln_2 from line within w_main_child_xtwh
long linecolor = 33554432
linestyle linestyle = dot!
integer linethickness = 4
integer beginx = 1952
integer beginy = 104
integer endx = 1952
integer endy = 1196
end type

type ln_3 from line within w_main_child_xtwh
long linecolor = 33554432
linestyle linestyle = dot!
integer linethickness = 4
integer beginx = 1285
integer beginy = 104
integer endx = 1285
integer endy = 1196
end type