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

$PBExportHeader$w_main_child_rsgz.srw
forward
global type w_main_child_rsgz from w_mface_base
end type
type st_14 from uo_text_m within w_main_child_rsgz
end type
type st_12 from uo_text_m within w_main_child_rsgz
end type
type st_22 from uo_text_m within w_main_child_rsgz
end type
type st_21 from uo_text_m within w_main_child_rsgz
end type
type st_20 from uo_text_m within w_main_child_rsgz
end type
type p_11 from picture within w_main_child_rsgz
end type
type st_19 from uo_text_m within w_main_child_rsgz
end type
type p_10 from picture within w_main_child_rsgz
end type
type p_8 from picture within w_main_child_rsgz
end type
type p_1 from picture within w_main_child_rsgz
end type
type st_17 from uo_text_m within w_main_child_rsgz
end type
type p_6 from picture within w_main_child_rsgz
end type
type st_16 from uo_text_m within w_main_child_rsgz
end type
type p_5 from picture within w_main_child_rsgz
end type
type p_4 from picture within w_main_child_rsgz
end type
type st_15 from uo_text_m within w_main_child_rsgz
end type
type p_3 from picture within w_main_child_rsgz
end type
type st_10 from uo_text_m within w_main_child_rsgz
end type
type st_18 from uo_text_m within w_main_child_rsgz
end type
type st_28 from uo_text_m within w_main_child_rsgz
end type
type st_13 from uo_text_m within w_main_child_rsgz
end type
type st_8 from uo_text_m within w_main_child_rsgz
end type
type st_6 from uo_text_m within w_main_child_rsgz
end type
type st_9 from uo_text_m within w_main_child_rsgz
end type
type st_24 from uo_text_m within w_main_child_rsgz
end type
type p_18 from picture within w_main_child_rsgz
end type
type p_17 from picture within w_main_child_rsgz
end type
type st_1 from uo_text_m within w_main_child_rsgz
end type
type p_9 from picture within w_main_child_rsgz
end type
type p_31 from picture within w_main_child_rsgz
end type
type st_27 from uo_text_m within w_main_child_rsgz
end type
type st_26 from uo_text_m within w_main_child_rsgz
end type
type p_28 from picture within w_main_child_rsgz
end type
type p_7 from picture within w_main_child_rsgz
end type
type p_2 from picture within w_main_child_rsgz
end type
type st_4 from uo_text_m within w_main_child_rsgz
end type
type st_7 from uo_text_m within w_main_child_rsgz
end type
type st_2 from uo_text_m within w_main_child_rsgz
end type
type p_26 from picture within w_main_child_rsgz
end type
type ln_1 from line within w_main_child_rsgz
end type
type rr_1 from roundrectangle within w_main_child_rsgz
end type
end forward

global type w_main_child_rsgz 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_14 st_14
st_12 st_12
st_22 st_22
st_21 st_21
st_20 st_20
p_11 p_11
st_19 st_19
p_10 p_10
p_8 p_8
p_1 p_1
st_17 st_17
p_6 p_6
st_16 st_16
p_5 p_5
p_4 p_4
st_15 st_15
p_3 p_3
st_10 st_10
st_18 st_18
st_28 st_28
st_13 st_13
st_8 st_8
st_6 st_6
st_9 st_9
st_24 st_24
p_18 p_18
p_17 p_17
st_1 st_1
p_9 p_9
p_31 p_31
st_27 st_27
st_26 st_26
p_28 p_28
p_7 p_7
p_2 p_2
st_4 st_4
st_7 st_7
st_2 st_2
p_26 p_26
ln_1 ln_1
rr_1 rr_1
end type
global w_main_child_rsgz w_main_child_rsgz

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_rsgz.create
int iCurrent
call super::create
this.st_14=create st_14
this.st_12=create st_12
this.st_22=create st_22
this.st_21=create st_21
this.st_20=create st_20
this.p_11=create p_11
this.st_19=create st_19
this.p_10=create p_10
this.p_8=create p_8
this.p_1=create p_1
this.st_17=create st_17
this.p_6=create p_6
this.st_16=create st_16
this.p_5=create p_5
this.p_4=create p_4
this.st_15=create st_15
this.p_3=create p_3
this.st_10=create st_10
this.st_18=create st_18
this.st_28=create st_28
this.st_13=create st_13
this.st_8=create st_8
this.st_6=create st_6
this.st_9=create st_9
this.st_24=create st_24
this.p_18=create p_18
this.p_17=create p_17
this.st_1=create st_1
this.p_9=create p_9
this.p_31=create p_31
this.st_27=create st_27
this.st_26=create st_26
this.p_28=create p_28
this.p_7=create p_7
this.p_2=create p_2
this.st_4=create st_4
this.st_7=create st_7
this.st_2=create st_2
this.p_26=create p_26
this.ln_1=create ln_1
this.rr_1=create rr_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_14
this.Control[iCurrent+2]=this.st_12
this.Control[iCurrent+3]=this.st_22
this.Control[iCurrent+4]=this.st_21
this.Control[iCurrent+5]=this.st_20
this.Control[iCurrent+6]=this.p_11
this.Control[iCurrent+7]=this.st_19
this.Control[iCurrent+8]=this.p_10
this.Control[iCurrent+9]=this.p_8
this.Control[iCurrent+10]=this.p_1
this.Control[iCurrent+11]=this.st_17
this.Control[iCurrent+12]=this.p_6
this.Control[iCurrent+13]=this.st_16
this.Control[iCurrent+14]=this.p_5
this.Control[iCurrent+15]=this.p_4
this.Control[iCurrent+16]=this.st_15
this.Control[iCurrent+17]=this.p_3
this.Control[iCurrent+18]=this.st_10
this.Control[iCurrent+19]=this.st_18
this.Control[iCurrent+20]=this.st_28
this.Control[iCurrent+21]=this.st_13
this.Control[iCurrent+22]=this.st_8
this.Control[iCurrent+23]=this.st_6
this.Control[iCurrent+24]=this.st_9
this.Control[iCurrent+25]=this.st_24
this.Control[iCurrent+26]=this.p_18
this.Control[iCurrent+27]=this.p_17
this.Control[iCurrent+28]=this.st_1
this.Control[iCurrent+29]=this.p_9
this.Control[iCurrent+30]=this.p_31
this.Control[iCurrent+31]=this.st_27
this.Control[iCurrent+32]=this.st_26
this.Control[iCurrent+33]=this.p_28
this.Control[iCurrent+34]=this.p_7
this.Control[iCurrent+35]=this.p_2
this.Control[iCurrent+36]=this.st_4
this.Control[iCurrent+37]=this.st_7
this.Control[iCurrent+38]=this.st_2
this.Control[iCurrent+39]=this.p_26
this.Control[iCurrent+40]=this.ln_1
this.Control[iCurrent+41]=this.rr_1
end on

on w_main_child_rsgz.destroy
call super::destroy
destroy(this.st_14)
destroy(this.st_12)
destroy(this.st_22)
destroy(this.st_21)
destroy(this.st_20)
destroy(this.p_11)
destroy(this.st_19)
destroy(this.p_10)
destroy(this.p_8)
destroy(this.p_1)
destroy(this.st_17)
destroy(this.p_6)
destroy(this.st_16)
destroy(this.p_5)
destroy(this.p_4)
destroy(this.st_15)
destroy(this.p_3)
destroy(this.st_10)
destroy(this.st_18)
destroy(this.st_28)
destroy(this.st_13)
destroy(this.st_8)
destroy(this.st_6)
destroy(this.st_9)
destroy(this.st_24)
destroy(this.p_18)
destroy(this.p_17)
destroy(this.st_1)
destroy(this.p_9)
destroy(this.p_31)
destroy(this.st_27)
destroy(this.st_26)
destroy(this.p_28)
destroy(this.p_7)
destroy(this.p_2)
destroy(this.st_4)
destroy(this.st_7)
destroy(this.st_2)
destroy(this.p_26)
destroy(this.ln_1)
destroy(this.rr_1)
end on

event open;SetNull(io_cont)

IF sys_version = 802001 THEN 
	p_10.Visible = False
	st_19.Visible = False
	
	p_11.Visible = False
	st_20.Visible = False
	
	p_11.Visible = False
	st_20.Visible = False
	
	p_7.Visible = False
	st_7.Visible = False
	
	p_17.Visible = False
	
//	st_11.Visible = False
//	st_5.Visible = False
//	st_3.Visible = False
END IF

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_14 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 996
integer width = 402
integer height = 48
integer textsize = -9
boolean underline = true
string text = "奖罚单明细表"
end type

event clicked;f_sys_main(732)
end event

type st_12 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 884
integer width = 402
integer height = 48
integer textsize = -9
boolean underline = true
string text = "借支单明细表"
end type

event clicked;f_sys_main(731)
end event

type st_22 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 756
integer width = 485
integer height = 64
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "考勤单明细表"
end type

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

type st_21 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 628
integer width = 485
integer height = 64
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "扣费品单明细表"
end type

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

type st_20 from uo_text_m within w_main_child_rsgz
integer x = 1275
integer y = 228
integer width = 507
integer height = 52
integer textsize = -9
string text = "个人产品工序计件单"
alignment alignment = center!
end type

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

type p_11 from picture within w_main_child_rsgz
integer x = 1431
integer y = 64
integer width = 183
integer height = 160
boolean bringtotop = true
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzjjd.bmp"
boolean focusrectangle = false
end type

event clicked;st_20.triggerevent(clicked!)
end event

type st_19 from uo_text_m within w_main_child_rsgz
integer x = 27
integer y = 224
integer width = 507
integer height = 52
integer textsize = -9
string text = "产品个人工序计件单"
alignment alignment = center!
end type

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

type p_10 from picture within w_main_child_rsgz
integer x = 183
integer y = 60
integer width = 183
integer height = 160
boolean bringtotop = true
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzjjd.bmp"
boolean focusrectangle = false
end type

event clicked;st_19.triggerevent(clicked!)
end event

type p_8 from picture within w_main_child_rsgz
integer x = 1189
integer y = 524
integer width = 169
integer height = 80
string picturename = "graphics\arrow_2.bmp"
boolean focusrectangle = false
end type

type p_1 from picture within w_main_child_rsgz
integer x = 517
integer y = 524
integer width = 169
integer height = 80
string picturename = "graphics\arrow_1.bmp"
boolean focusrectangle = false
end type

type st_17 from uo_text_m within w_main_child_rsgz
integer x = 1454
integer y = 632
integer width = 256
integer height = 52
boolean bringtotop = true
integer textsize = -9
string text = "借支单"
alignment alignment = center!
end type

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

type p_6 from picture within w_main_child_rsgz
integer x = 1472
integer y = 464
integer width = 183
integer height = 160
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzjjd.bmp"
boolean focusrectangle = false
end type

event clicked;st_17.triggerevent(clicked!)
end event

type st_16 from uo_text_m within w_main_child_rsgz
integer x = 151
integer y = 632
integer width = 256
integer height = 52
integer textsize = -9
string text = "扣费品单"
alignment alignment = center!
end type

event clicked;call super::clicked;f_sys_main(329)

end event

type p_5 from picture within w_main_child_rsgz
integer x = 174
integer y = 464
integer width = 183
integer height = 160
boolean bringtotop = true
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzjjd.bmp"
boolean focusrectangle = false
end type

event clicked;st_16.triggerevent(clicked!)
end event

type p_4 from picture within w_main_child_rsgz
integer x = 882
integer y = 308
integer width = 91
integer height = 152
string picturename = "graphics\arrow_3.bmp"
boolean focusrectangle = false
end type

type st_15 from uo_text_m within w_main_child_rsgz
integer x = 777
integer y = 224
integer width = 325
integer height = 52
boolean bringtotop = true
integer textsize = -9
string text = "人员"
alignment alignment = center!
end type

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

type p_3 from picture within w_main_child_rsgz
integer x = 827
integer y = 60
integer width = 183
integer height = 160
boolean bringtotop = true
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\ygzl.bmp"
boolean focusrectangle = false
end type

event clicked;st_15.triggerevent(clicked!)
end event

type st_10 from uo_text_m within w_main_child_rsgz
integer x = 873
integer y = 1228
integer width = 233
integer height = 52
integer textsize = -9
boolean underline = true
string text = "工资项目"
end type

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

type st_18 from uo_text_m within w_main_child_rsgz
integer x = 384
integer y = 1228
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(702)
end event

type st_28 from uo_text_m within w_main_child_rsgz
integer x = 1239
integer y = 1228
integer width = 224
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "考勤项目"
end type

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

type st_13 from uo_text_m within w_main_child_rsgz
integer x = 119
integer y = 1228
integer width = 128
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
long textcolor = 0
string text = "部门"
end type

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

type st_8 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 244
integer width = 485
integer height = 64
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "工资汇总表"
end type

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

type st_6 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 372
integer width = 485
integer height = 64
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "工资单"
end type

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

type st_9 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 500
integer width = 485
integer height = 64
boolean bringtotop = true
integer textsize = -9
boolean underline = true
string text = "工资表"
end type

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

type st_24 from uo_text_m within w_main_child_rsgz
integer x = 1929
integer y = 1108
integer width = 553
integer height = 64
boolean bringtotop = true
integer textsize = -9
long textcolor = 0
string text = "更多报表>>"
end type

event clicked;call super::clicked;m_rsgz_rp om_1
om_1 = CREATE m_rsgz_rp

IF sys_version = 802001 THEN
	om_1.m_批修改计件单计件单价.Visible = False
	om_1.m_-00.Visible = False
	om_1.m_计件单明细表.Visible = False
	om_1.m_个人产品计件单统计表.Visible = False
	om_1.m_产品个人计件单统计表.Visible = False
	om_1.m_部门员工计件工资汇总表.Visible = False
end if

om_1.PopMenu(w_main_child_rsgz.X+THIS.X,w_main_child_rsgz.Y+THIS.Y)
DESTROY om_1

end event

type p_18 from picture within w_main_child_rsgz
integer x = 1189
integer y = 712
integer width = 187
integer height = 164
string picturename = "graphics\arrow_9.bmp"
boolean focusrectangle = false
end type

type p_17 from picture within w_main_child_rsgz
integer x = 517
integer y = 700
integer width = 187
integer height = 164
string picturename = "graphics\arrow_6.bmp"
boolean focusrectangle = false
end type

type st_1 from uo_text_m within w_main_child_rsgz
integer x = 2094
integer y = 132
integer width = 306
integer height = 52
boolean bringtotop = true
integer textsize = -9
string pointer = " "
long textcolor = 0
string text = "报表"
end type

event clicked;//
end event

type p_9 from picture within w_main_child_rsgz
integer x = 1929
integer y = 60
integer width = 183
integer height = 160
string pointer = " "
boolean originalsize = true
string picturename = "graphics\bbxx.bmp"
boolean focusrectangle = false
end type

event clicked;st_1.triggerevent(clicked!)
end event

type p_31 from picture within w_main_child_rsgz
integer x = 1472
integer y = 884
integer width = 183
integer height = 160
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzjjd.bmp"
boolean focusrectangle = false
end type

event clicked;st_27.triggerevent(clicked!)
end event

type st_27 from uo_text_m within w_main_child_rsgz
integer x = 1454
integer y = 1060
integer width = 256
integer height = 52
boolean bringtotop = true
integer textsize = -9
string text = "奖罚单"
alignment alignment = center!
end type

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

type st_26 from uo_text_m within w_main_child_rsgz
integer x = 777
integer y = 1060
integer width = 325
integer height = 52
boolean bringtotop = true
integer textsize = -9
string text = "考勤单"
alignment alignment = center!
end type

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

type p_28 from picture within w_main_child_rsgz
integer x = 878
integer y = 728
integer width = 91
integer height = 148
boolean bringtotop = true
string picturename = "graphics\arrow_4.bmp"
boolean focusrectangle = false
end type

type p_7 from picture within w_main_child_rsgz
integer x = 174
integer y = 884
integer width = 183
integer height = 160
boolean bringtotop = true
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzjjd.bmp"
boolean focusrectangle = false
end type

event clicked;st_7.triggerevent(clicked!)
end event

type p_2 from picture within w_main_child_rsgz
integer x = 846
integer y = 464
integer width = 183
integer height = 160
boolean bringtotop = true
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzgl.bmp"
boolean focusrectangle = false
end type

event clicked;st_2.triggerevent(clicked!)
end event

type st_4 from uo_text_m within w_main_child_rsgz
boolean visible = false
integer width = 297
integer height = 80
boolean bringtotop = true
integer textsize = -9
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_rsgz
integer x = 73
integer y = 1060
integer width = 398
integer height = 52
integer textsize = -9
string text = "个人工序计件单"
alignment alignment = center!
end type

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

type st_2 from uo_text_m within w_main_child_rsgz
integer x = 777
integer y = 632
integer width = 325
integer height = 52
boolean bringtotop = true
integer textsize = -9
string text = "工资表"
alignment alignment = center!
end type

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

type p_26 from picture within w_main_child_rsgz
integer x = 846
integer y = 884
integer width = 183
integer height = 160
boolean bringtotop = true
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\gzjjd.bmp"
boolean focusrectangle = false
end type

event clicked;st_26.triggerevent(clicked!)
end event

type ln_1 from line within w_main_child_rsgz
long linecolor = 33554432
linestyle linestyle = dot!
integer linethickness = 4
integer beginx = 1879
integer beginy = 36
integer endx = 1879
integer endy = 1300
end type

type rr_1 from roundrectangle within w_main_child_rsgz
long linecolor = 15780518
integer linethickness = 6
long fillcolor = 16777215
integer x = 18
integer y = 1180
integer width = 1842
integer height = 144
integer cornerheight = 40
integer cornerwidth = 46
end type