$PBExportHeader$w_main_child_cg.srw forward global type w_main_child_cg from w_mface_base end type type p_2 from picture within w_main_child_cg end type type st_12 from uo_text_m within w_main_child_cg end type type st_9 from uo_text_m within w_main_child_cg end type type st_1 from uo_text_m within w_main_child_cg end type type st_14 from uo_text_m within w_main_child_cg end type type st_21 from uo_text_m within w_main_child_cg end type type st_10 from uo_text_m within w_main_child_cg end type type st_8 from uo_text_m within w_main_child_cg end type type st_7 from uo_text_m within w_main_child_cg end type type st_13 from uo_text_m within w_main_child_cg end type type st_19 from uo_text_m within w_main_child_cg end type type st_23 from uo_text_m within w_main_child_cg end type type st_11 from uo_text_m within w_main_child_cg end type type st_6 from uo_text_m within w_main_child_cg end type type st_30 from uo_text_m within w_main_child_cg end type type st_31 from uo_text_m within w_main_child_cg end type type p_11 from picture within w_main_child_cg end type type st_34 from uo_text_m within w_main_child_cg end type type p_8 from picture within w_main_child_cg end type type p_6 from picture within w_main_child_cg end type type st_2 from uo_text_m within w_main_child_cg end type type p_4 from picture within w_main_child_cg end type type p_1 from picture within w_main_child_cg end type type p_9 from picture within w_main_child_cg end type type p_28 from picture within w_main_child_cg end type type st_28 from uo_text_m within w_main_child_cg end type type p_31 from picture within w_main_child_cg end type type st_27 from uo_text_m within w_main_child_cg end type type p_29 from picture within w_main_child_cg end type type st_25 from uo_text_m within w_main_child_cg end type type p_25 from picture within w_main_child_cg end type type st_3 from uo_text_m within w_main_child_cg end type type p_3 from picture within w_main_child_cg end type type p_5 from picture within w_main_child_cg end type type st_5 from uo_text_m within w_main_child_cg end type type st_4 from uo_text_m within w_main_child_cg end type type ln_1 from line within w_main_child_cg end type type rr_1 from roundrectangle within w_main_child_cg end type end forward global type w_main_child_cg from w_mface_base integer x = 1001 integer y = 80 integer width = 2601 integer height = 1352 boolean titlebar = false string title = "" boolean controlmenu = false boolean minbox = false boolean maxbox = false boolean resizable = false boolean border = false windowtype windowtype = child! p_2 p_2 st_12 st_12 st_9 st_9 st_1 st_1 st_14 st_14 st_21 st_21 st_10 st_10 st_8 st_8 st_7 st_7 st_13 st_13 st_19 st_19 st_23 st_23 st_11 st_11 st_6 st_6 st_30 st_30 st_31 st_31 p_11 p_11 st_34 st_34 p_8 p_8 p_6 p_6 st_2 st_2 p_4 p_4 p_1 p_1 p_9 p_9 p_28 p_28 st_28 st_28 p_31 p_31 st_27 st_27 p_29 p_29 st_25 st_25 p_25 p_25 st_3 st_3 p_3 p_3 p_5 p_5 st_5 st_5 st_4 st_4 ln_1 ln_1 rr_1 rr_1 end type global w_main_child_cg w_main_child_cg 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_cg.create int iCurrent call super::create this.p_2=create p_2 this.st_12=create st_12 this.st_9=create st_9 this.st_1=create st_1 this.st_14=create st_14 this.st_21=create st_21 this.st_10=create st_10 this.st_8=create st_8 this.st_7=create st_7 this.st_13=create st_13 this.st_19=create st_19 this.st_23=create st_23 this.st_11=create st_11 this.st_6=create st_6 this.st_30=create st_30 this.st_31=create st_31 this.p_11=create p_11 this.st_34=create st_34 this.p_8=create p_8 this.p_6=create p_6 this.st_2=create st_2 this.p_4=create p_4 this.p_1=create p_1 this.p_9=create p_9 this.p_28=create p_28 this.st_28=create st_28 this.p_31=create p_31 this.st_27=create st_27 this.p_29=create p_29 this.st_25=create st_25 this.p_25=create p_25 this.st_3=create st_3 this.p_3=create p_3 this.p_5=create p_5 this.st_5=create st_5 this.st_4=create st_4 this.ln_1=create ln_1 this.rr_1=create rr_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.p_2 this.Control[iCurrent+2]=this.st_12 this.Control[iCurrent+3]=this.st_9 this.Control[iCurrent+4]=this.st_1 this.Control[iCurrent+5]=this.st_14 this.Control[iCurrent+6]=this.st_21 this.Control[iCurrent+7]=this.st_10 this.Control[iCurrent+8]=this.st_8 this.Control[iCurrent+9]=this.st_7 this.Control[iCurrent+10]=this.st_13 this.Control[iCurrent+11]=this.st_19 this.Control[iCurrent+12]=this.st_23 this.Control[iCurrent+13]=this.st_11 this.Control[iCurrent+14]=this.st_6 this.Control[iCurrent+15]=this.st_30 this.Control[iCurrent+16]=this.st_31 this.Control[iCurrent+17]=this.p_11 this.Control[iCurrent+18]=this.st_34 this.Control[iCurrent+19]=this.p_8 this.Control[iCurrent+20]=this.p_6 this.Control[iCurrent+21]=this.st_2 this.Control[iCurrent+22]=this.p_4 this.Control[iCurrent+23]=this.p_1 this.Control[iCurrent+24]=this.p_9 this.Control[iCurrent+25]=this.p_28 this.Control[iCurrent+26]=this.st_28 this.Control[iCurrent+27]=this.p_31 this.Control[iCurrent+28]=this.st_27 this.Control[iCurrent+29]=this.p_29 this.Control[iCurrent+30]=this.st_25 this.Control[iCurrent+31]=this.p_25 this.Control[iCurrent+32]=this.st_3 this.Control[iCurrent+33]=this.p_3 this.Control[iCurrent+34]=this.p_5 this.Control[iCurrent+35]=this.st_5 this.Control[iCurrent+36]=this.st_4 this.Control[iCurrent+37]=this.ln_1 this.Control[iCurrent+38]=this.rr_1 end on on w_main_child_cg.destroy call super::destroy destroy(this.p_2) destroy(this.st_12) destroy(this.st_9) destroy(this.st_1) destroy(this.st_14) destroy(this.st_21) destroy(this.st_10) destroy(this.st_8) destroy(this.st_7) destroy(this.st_13) destroy(this.st_19) destroy(this.st_23) destroy(this.st_11) destroy(this.st_6) destroy(this.st_30) destroy(this.st_31) destroy(this.p_11) destroy(this.st_34) destroy(this.p_8) destroy(this.p_6) destroy(this.st_2) destroy(this.p_4) destroy(this.p_1) destroy(this.p_9) destroy(this.p_28) destroy(this.st_28) destroy(this.p_31) destroy(this.st_27) destroy(this.p_29) destroy(this.st_25) destroy(this.p_25) destroy(this.st_3) destroy(this.p_3) destroy(this.p_5) destroy(this.st_5) destroy(this.st_4) destroy(this.ln_1) destroy(this.rr_1) 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 p_2 from picture within w_main_child_cg integer x = 1143 integer y = 868 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_12.triggerevent(clicked!) end event type st_12 from uo_text_m within w_main_child_cg integer x = 1051 integer y = 1036 integer width = 370 integer height = 52 boolean bringtotop = true integer textsize = -9 long textcolor = 0 string text = "物料价格提醒" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(431) end event type st_9 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 1144 integer width = 562 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "退货单毛利统计表" end type event clicked;call super::clicked;f_sys_main(419) end event type st_1 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 1016 integer width = 562 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "供应商询价单明细表" end type event clicked;call super::clicked;f_sys_main(423) end event type st_14 from uo_text_m within w_main_child_cg integer x = 2094 integer y = 132 integer width = 206 integer height = 52 boolean bringtotop = true integer textsize = -9 string pointer = "" long textcolor = 0 string text = "报表" end type event clicked;// end event type st_21 from uo_text_m within w_main_child_cg integer x = 82 integer y = 1036 integer width = 370 integer height = 52 boolean bringtotop = true integer textsize = -9 long textcolor = 0 string text = "询价单" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(417) end event type st_10 from uo_text_m within w_main_child_cg integer x = 919 integer y = 1228 integer width = 288 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "产品及物料" end type event clicked;call super::clicked;f_sys_main(201) end event type st_8 from uo_text_m within w_main_child_cg integer x = 576 integer y = 1232 integer width = 201 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "供应商" end type event clicked;call super::clicked;f_sys_main(404) end event type st_7 from uo_text_m within w_main_child_cg integer x = 119 integer y = 1228 integer width = 297 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "供应商类别" end type event clicked;call super::clicked;f_sys_main(426) end event type st_13 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 500 integer width = 553 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "物料采购汇总表" end type event clicked;call super::clicked;f_sys_main(407) end event type st_19 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 756 integer width = 562 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "供应商物料采购汇总表" end type event clicked;call super::clicked;f_sys_main(409) end event type st_23 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 628 integer width = 562 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "供应商采购金额汇总表" end type event clicked;call super::clicked;f_sys_main(408) end event type st_11 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 1264 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_buy_rp om_1 om_1 = CREATE m_buy_rp om_1.PopMenu(w_main_child_cg.X+THIS.X,w_main_child_cg.Y+THIS.Y) DESTROY om_1 end event type st_6 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 884 integer width = 562 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "供应商交货达成统计表" end type event clicked;call super::clicked;f_sys_main(416) end event type st_30 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 372 integer width = 553 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "采购收货单明细表" end type event clicked;call super::clicked;f_sys_main(405) end event type st_31 from uo_text_m within w_main_child_cg integer x = 1929 integer y = 244 integer width = 553 integer height = 64 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "采购订单统计表" end type event clicked;call super::clicked;f_sys_main(402) end event type p_11 from picture within w_main_child_cg integer x = 1627 integer y = 56 integer width = 160 integer height = 136 string pointer = "HAND.CUR" string picturename = "graphics\bt_sys1.bmp" boolean focusrectangle = false end type event clicked;st_34.triggerevent(clicked!) end event type st_34 from uo_text_m within w_main_child_cg integer x = 1554 integer y = 228 integer width = 306 integer height = 52 boolean bringtotop = true integer textsize = -9 long textcolor = 0 string text = "辅助功能" alignment alignment = center! end type event clicked;call super::clicked;m_buy_fz om_1 om_1 = CREATE m_buy_fz om_1.PopMenu(w_main_child_cg.X+THIS.X,w_main_child_cg.Y+THIS.Y) DESTROY om_1 end event type p_8 from picture within w_main_child_cg integer x = 704 integer y = 708 integer width = 91 integer height = 148 boolean bringtotop = true string picturename = "graphics\arrow_3.bmp" boolean focusrectangle = false end type type p_6 from picture within w_main_child_cg integer x = 704 integer y = 288 integer width = 91 integer height = 148 boolean bringtotop = true string picturename = "graphics\arrow_3.bmp" boolean focusrectangle = false end type type st_2 from uo_text_m within w_main_child_cg integer x = 599 integer y = 632 integer width = 302 integer height = 52 boolean bringtotop = true integer textsize = -9 string text = "库存表" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(302) end event type p_4 from picture within w_main_child_cg integer x = 658 integer y = 464 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" boolean originalsize = true string picturename = "graphics\kc.bmp" boolean focusrectangle = false end type event clicked;st_2.triggerevent(clicked!) end event type p_1 from picture within w_main_child_cg integer x = 425 integer y = 108 integer width = 169 integer height = 80 string picturename = "graphics\arrow_1.bmp" boolean focusrectangle = false end type type p_9 from picture within w_main_child_cg integer x = 1929 integer y = 60 integer width = 183 integer height = 160 boolean originalsize = true string picturename = "graphics\bbxx.bmp" boolean focusrectangle = false end type type p_28 from picture within w_main_child_cg integer x = 928 integer y = 104 integer width = 169 integer height = 80 string picturename = "graphics\arrow_10.bmp" boolean focusrectangle = false end type type st_28 from uo_text_m within w_main_child_cg integer x = 2615 integer y = 1308 integer width = 302 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "物料别名" end type event clicked;call super::clicked;f_sys_main(421) end event type p_31 from picture within w_main_child_cg integer x = 658 integer y = 868 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" boolean originalsize = true string picturename = "graphics\xsth.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_cg integer x = 599 integer y = 1036 integer width = 302 integer height = 52 boolean bringtotop = true integer textsize = -9 string text = "采购退货单" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(420) end event type p_29 from picture within w_main_child_cg integer x = 1143 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_25.triggerevent(clicked!) end event type st_25 from uo_text_m within w_main_child_cg integer x = 1038 integer y = 228 integer width = 398 integer height = 52 boolean bringtotop = true integer textsize = -9 string text = "供应商物料价格" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(410) end event type p_25 from picture within w_main_child_cg integer x = 174 integer y = 868 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_21.triggerevent(clicked!) end event type st_3 from uo_text_m within w_main_child_cg integer x = 110 integer y = 228 integer width = 315 integer height = 52 boolean bringtotop = true integer textsize = -9 string text = "采购订单" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(401) end event type p_3 from picture within w_main_child_cg integer x = 174 integer y = 60 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" boolean originalsize = true string picturename = "graphics\cgdd.bmp" boolean focusrectangle = false end type event clicked;st_3.triggerevent(clicked!) end event type p_5 from picture within w_main_child_cg integer x = 658 integer y = 60 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" boolean originalsize = true string picturename = "graphics\cgd.bmp" boolean focusrectangle = false end type event clicked;st_5.triggerevent(clicked!) end event type st_5 from uo_text_m within w_main_child_cg integer x = 599 integer y = 228 integer width = 302 integer height = 52 boolean bringtotop = true integer textsize = -9 string text = "采购收货单" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(403) end event type st_4 from uo_text_m within w_main_child_cg 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 ln_1 from line within w_main_child_cg 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_cg 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