$PBExportHeader$w_sys_init_guide_zl.srw forward global type w_sys_init_guide_zl from w_publ_base end type type cb_next from uo_imflatbutton within w_sys_init_guide_zl end type type tab_1 from tab within w_sys_init_guide_zl end type type tabpage_1 from userobject within tab_1 end type type st_msg_cusarea from statictext within tabpage_1 end type type st_msg_mtrltype from statictext within tabpage_1 end type type st_msg_storage from statictext within tabpage_1 end type type st_msg_sc from statictext within tabpage_1 end type type st_6 from statictext within tabpage_1 end type type st_4 from statictext within tabpage_1 end type type st_2 from statictext within tabpage_1 end type type st_1 from statictext within tabpage_1 end type type p_3 from picture within tabpage_1 end type type p_2 from picture within tabpage_1 end type type p_1 from picture within tabpage_1 end type type p_4 from picture within tabpage_1 end type type st_5 from uo_text_m within tabpage_1 end type type st_3 from uo_text_m within tabpage_1 end type type st_41 from uo_text_m within tabpage_1 end type type st_42 from uo_text_m within tabpage_1 end type type tabpage_1 from userobject within tab_1 st_msg_cusarea st_msg_cusarea st_msg_mtrltype st_msg_mtrltype st_msg_storage st_msg_storage st_msg_sc st_msg_sc st_6 st_6 st_4 st_4 st_2 st_2 st_1 st_1 p_3 p_3 p_2 p_2 p_1 p_1 p_4 p_4 st_5 st_5 st_3 st_3 st_41 st_41 st_42 st_42 end type type tabpage_2 from userobject within tab_1 end type type st_qtjcyy from statictext within tabpage_2 end type type st_cnzh from statictext within tabpage_2 end type type st_szxm from statictext within tabpage_2 end type type st_jsfs from statictext within tabpage_2 end type type st_ywy from statictext within tabpage_2 end type type st_16 from statictext within tabpage_2 end type type st_15 from uo_text_m within tabpage_2 end type type p_9 from picture within tabpage_2 end type type st_14 from statictext within tabpage_2 end type type st_13 from uo_text_m within tabpage_2 end type type p_8 from picture within tabpage_2 end type type st_12 from statictext within tabpage_2 end type type st_11 from uo_text_m within tabpage_2 end type type p_7 from picture within tabpage_2 end type type st_10 from statictext within tabpage_2 end type type st_9 from uo_text_m within tabpage_2 end type type p_6 from picture within tabpage_2 end type type st_8 from uo_text_m within tabpage_2 end type type p_5 from picture within tabpage_2 end type type st_7 from statictext within tabpage_2 end type type tabpage_2 from userobject within tab_1 st_qtjcyy st_qtjcyy st_cnzh st_cnzh st_szxm st_szxm st_jsfs st_jsfs st_ywy st_ywy st_16 st_16 st_15 st_15 p_9 p_9 st_14 st_14 st_13 st_13 p_8 p_8 st_12 st_12 st_11 st_11 p_7 p_7 st_10 st_10 st_9 st_9 p_6 p_6 st_8 st_8 p_5 p_5 st_7 st_7 end type type tabpage_3 from userobject within tab_1 end type type st_kh from statictext within tabpage_3 end type type st_gys from statictext within tabpage_3 end type type st_cp from statictext within tabpage_3 end type type st_22 from statictext within tabpage_3 end type type st_21 from uo_text_m within tabpage_3 end type type p_12 from picture within tabpage_3 end type type st_20 from statictext within tabpage_3 end type type st_19 from uo_text_m within tabpage_3 end type type p_11 from picture within tabpage_3 end type type st_18 from statictext within tabpage_3 end type type st_17 from uo_text_m within tabpage_3 end type type p_10 from picture within tabpage_3 end type type tabpage_3 from userobject within tab_1 st_kh st_kh st_gys st_gys st_cp st_cp st_22 st_22 st_21 st_21 p_12 p_12 st_20 st_20 st_19 st_19 p_11 p_11 st_18 st_18 st_17 st_17 p_10 p_10 end type type tab_1 from tab within w_sys_init_guide_zl tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_3 tabpage_3 end type end forward global type w_sys_init_guide_zl from w_publ_base integer width = 2277 integer height = 1332 boolean titlebar = false string title = "" boolean controlmenu = false boolean minbox = false boolean border = false windowtype windowtype = child! long backcolor = 16777215 event ue_chk_sc ( ) event ue_chk_storage ( ) event ue_chk_mtrltype ( ) event ue_chk_cusarea ( ) event ue_chk_ywy ( ) event ue_chk_jsfs ( ) event ue_chk_szxm ( ) event ue_chk_cnzh ( ) event ue_chk_qtjcyy ( ) event ue_chk_cp ( ) event gys ( ) event ue_chk_gys ( ) event ue_chk_kh ( ) cb_next cb_next tab_1 tab_1 end type global w_sys_init_guide_zl w_sys_init_guide_zl forward prototypes public subroutine wf () end prototypes event ue_chk_sc();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_scdef; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_1.st_msg_sc.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_storage();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_storage; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_1.st_msg_storage.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_mtrltype();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_mtrltype; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_1.st_msg_mtrltype.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_cusarea();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_cusarea; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_1.st_msg_cusarea.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_ywy();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_outrepdef; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_2.st_ywy.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_jsfs();Long ll_cnt SELECT count(*) INTO :ll_cnt From cw_banktype; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_2.st_jsfs.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_szxm();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_itemdef; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_2.st_szxm.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_cnzh();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_accounts; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_2.st_cnzh.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_qtjcyy();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_static; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_2.st_qtjcyy.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_cp();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_mtrldef; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_3.st_cp.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_gys();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_spt; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_3.st_gys.Text = "已设"+String(ll_cnt)+"条数据" end event event ue_chk_kh();Long ll_cnt SELECT count(*) INTO :ll_cnt From u_cust; IF sqlca.SQLCode <> 0 THEN ll_cnt = 0 END IF tab_1.tabpage_3.st_kh.Text = "已设"+String(ll_cnt)+"条数据" end event public subroutine wf ();return end subroutine on w_sys_init_guide_zl.create int iCurrent call super::create this.cb_next=create cb_next this.tab_1=create tab_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_next this.Control[iCurrent+2]=this.tab_1 end on on w_sys_init_guide_zl.destroy call super::destroy destroy(this.cb_next) destroy(this.tab_1) end on event open;call super::open;This.TriggerEvent('ue_chk_sc') This.TriggerEvent('ue_chk_storage') This.TriggerEvent('ue_chk_mtrltype') This.TriggerEvent('ue_chk_cusarea') This.TriggerEvent('ue_chk_ywy') This.TriggerEvent('ue_chk_jsfs') This.TriggerEvent('ue_chk_szxm') This.TriggerEvent('ue_chk_cnzh') This.TriggerEvent('ue_chk_qtjcyy') This.TriggerEvent('ue_chk_cp') This.TriggerEvent('ue_chk_gys') This.TriggerEvent('ue_chk_kh') //tab_1.y=this.y // end event event close;//f_set_sysmessage() end event type cb_func from w_publ_base`cb_func within w_sys_init_guide_zl boolean visible = false integer x = 1646 integer y = 1604 integer width = 357 integer height = 96 string text = "<上一步(&B)" string normalpicname = "" integer picsize = 0 toolbaralignment pic_align = alignatleft! boolean border = true end type event cb_func::clicked;//if dw_1.update()<>1 then // messagebox('提示','系统用户信息修改失败,请重试!', Information!, OK! ) // rollback; //else // messagebox('提示','系统用户信息修改成功!', Information!, OK! ) // commit; // f_set_sysmessage() //end if end event type cb_exit from w_publ_base`cb_exit within w_sys_init_guide_zl boolean visible = false integer x = 2359 integer y = 1604 integer width = 357 integer taborder = 30 string text = "取消(&C)" string normalpicname = "" end type type cb_next from uo_imflatbutton within w_sys_init_guide_zl boolean visible = false integer x = 2002 integer y = 1604 integer width = 357 integer height = 96 integer taborder = 30 boolean bringtotop = true string text = "下一步>(&N)" end type type tab_1 from tab within w_sys_init_guide_zl integer width = 2272 integer height = 1324 integer taborder = 20 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 boolean raggedright = true boolean focusonbuttondown = true integer selectedtab = 1 tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_3 tabpage_3 end type on tab_1.create this.tabpage_1=create tabpage_1 this.tabpage_2=create tabpage_2 this.tabpage_3=create tabpage_3 this.Control[]={this.tabpage_1,& this.tabpage_2,& this.tabpage_3} end on on tab_1.destroy destroy(this.tabpage_1) destroy(this.tabpage_2) destroy(this.tabpage_3) end on type tabpage_1 from userobject within tab_1 event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 2235 integer height = 1212 long backcolor = 16777215 string text = "1.基础资料(必须)" long tabtextcolor = 33554432 long tabbackcolor = 16777215 long picturemaskcolor = 536870912 st_msg_cusarea st_msg_cusarea st_msg_mtrltype st_msg_mtrltype st_msg_storage st_msg_storage st_msg_sc st_msg_sc st_6 st_6 st_4 st_4 st_2 st_2 st_1 st_1 p_3 p_3 p_2 p_2 p_1 p_1 p_4 p_4 st_5 st_5 st_3 st_3 st_41 st_41 st_42 st_42 end type on tabpage_1.create this.st_msg_cusarea=create st_msg_cusarea this.st_msg_mtrltype=create st_msg_mtrltype this.st_msg_storage=create st_msg_storage this.st_msg_sc=create st_msg_sc this.st_6=create st_6 this.st_4=create st_4 this.st_2=create st_2 this.st_1=create st_1 this.p_3=create p_3 this.p_2=create p_2 this.p_1=create p_1 this.p_4=create p_4 this.st_5=create st_5 this.st_3=create st_3 this.st_41=create st_41 this.st_42=create st_42 this.Control[]={this.st_msg_cusarea,& this.st_msg_mtrltype,& this.st_msg_storage,& this.st_msg_sc,& this.st_6,& this.st_4,& this.st_2,& this.st_1,& this.p_3,& this.p_2,& this.p_1,& this.p_4,& this.st_5,& this.st_3,& this.st_41,& this.st_42} end on on tabpage_1.destroy destroy(this.st_msg_cusarea) destroy(this.st_msg_mtrltype) destroy(this.st_msg_storage) destroy(this.st_msg_sc) destroy(this.st_6) destroy(this.st_4) destroy(this.st_2) destroy(this.st_1) destroy(this.p_3) destroy(this.p_2) destroy(this.p_1) destroy(this.p_4) destroy(this.st_5) destroy(this.st_3) destroy(this.st_41) destroy(this.st_42) end on type st_msg_cusarea from statictext within tabpage_1 integer x = 827 integer y = 1032 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_msg_mtrltype from statictext within tabpage_1 integer x = 827 integer y = 736 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_msg_storage from statictext within tabpage_1 integer x = 827 integer y = 480 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_msg_sc from statictext within tabpage_1 integer x = 827 integer y = 236 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_6 from statictext within tabpage_1 integer x = 832 integer y = 920 integer width = 837 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "区分客户区域,方便数据维护,查找" alignment alignment = center! boolean focusrectangle = false end type type st_4 from statictext within tabpage_1 integer x = 827 integer y = 648 integer width = 837 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "区分物料分类,方便数据维护,查找" alignment alignment = center! boolean focusrectangle = false end type type st_2 from statictext within tabpage_1 integer x = 827 integer y = 392 integer width = 507 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "企业存放物料的地方" alignment alignment = center! boolean focusrectangle = false end type type st_1 from statictext within tabpage_1 integer x = 827 integer y = 136 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "区分企业内部独立核算的各部分,如分公司,分厂,分店" alignment alignment = center! boolean focusrectangle = false end type type p_3 from picture within tabpage_1 integer x = 151 integer y = 884 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;tab_1.tabpage_1.st_5.triggerevent(clicked!) end event type p_2 from picture within tabpage_1 integer x = 151 integer y = 600 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" boolean originalsize = true string picturename = "graphics\pyd.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_1.st_3.triggerevent(clicked!) end event type p_1 from picture within tabpage_1 integer x = 151 integer y = 332 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" boolean originalsize = true string picturename = "graphics\ckjc.bmp" boolean focusrectangle = false end type event clicked;st_41.triggerevent(clicked!) end event type p_4 from picture within tabpage_1 integer x = 151 integer y = 64 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;tab_1.tabpage_1.st_42.triggerevent(clicked!) end event type st_5 from uo_text_m within tabpage_1 integer x = 96 integer y = 1060 integer width = 306 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true long textcolor = 0 string text = "客户区域" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(116) end event type st_3 from uo_text_m within tabpage_1 integer x = 96 integer y = 776 integer width = 306 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "物料类别" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(328) end event type st_41 from uo_text_m within tabpage_1 integer x = 96 integer y = 508 integer width = 293 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "仓库" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(807) end event type st_42 from uo_text_m within tabpage_1 integer x = 96 integer y = 240 integer width = 293 integer height = 52 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "分部" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(819) end event type tabpage_2 from userobject within tab_1 event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 2235 integer height = 1212 long backcolor = 16777215 string text = "2.基础资料(必须)" long tabtextcolor = 33554432 long tabbackcolor = 16777215 long picturemaskcolor = 536870912 st_qtjcyy st_qtjcyy st_cnzh st_cnzh st_szxm st_szxm st_jsfs st_jsfs st_ywy st_ywy st_16 st_16 st_15 st_15 p_9 p_9 st_14 st_14 st_13 st_13 p_8 p_8 st_12 st_12 st_11 st_11 p_7 p_7 st_10 st_10 st_9 st_9 p_6 p_6 st_8 st_8 p_5 p_5 st_7 st_7 end type on tabpage_2.create this.st_qtjcyy=create st_qtjcyy this.st_cnzh=create st_cnzh this.st_szxm=create st_szxm this.st_jsfs=create st_jsfs this.st_ywy=create st_ywy this.st_16=create st_16 this.st_15=create st_15 this.p_9=create p_9 this.st_14=create st_14 this.st_13=create st_13 this.p_8=create p_8 this.st_12=create st_12 this.st_11=create st_11 this.p_7=create p_7 this.st_10=create st_10 this.st_9=create st_9 this.p_6=create p_6 this.st_8=create st_8 this.p_5=create p_5 this.st_7=create st_7 this.Control[]={this.st_qtjcyy,& this.st_cnzh,& this.st_szxm,& this.st_jsfs,& this.st_ywy,& this.st_16,& this.st_15,& this.p_9,& this.st_14,& this.st_13,& this.p_8,& this.st_12,& this.st_11,& this.p_7,& this.st_10,& this.st_9,& this.p_6,& this.st_8,& this.p_5,& this.st_7} end on on tabpage_2.destroy destroy(this.st_qtjcyy) destroy(this.st_cnzh) destroy(this.st_szxm) destroy(this.st_jsfs) destroy(this.st_ywy) destroy(this.st_16) destroy(this.st_15) destroy(this.p_9) destroy(this.st_14) destroy(this.st_13) destroy(this.p_8) destroy(this.st_12) destroy(this.st_11) destroy(this.p_7) destroy(this.st_10) destroy(this.st_9) destroy(this.p_6) destroy(this.st_8) destroy(this.p_5) destroy(this.st_7) end on type st_qtjcyy from statictext within tabpage_2 integer x = 695 integer y = 1152 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_cnzh from statictext within tabpage_2 integer x = 699 integer y = 956 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_szxm from statictext within tabpage_2 integer x = 709 integer y = 696 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_jsfs from statictext within tabpage_2 integer x = 709 integer y = 440 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_ywy from statictext within tabpage_2 integer x = 704 integer y = 168 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_16 from statictext within tabpage_2 integer x = 709 integer y = 1048 integer width = 1248 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "例如:初始化进仓,异常进出仓" boolean focusrectangle = false end type type st_15 from uo_text_m within tabpage_2 integer x = 91 integer y = 1132 integer width = 343 integer height = 56 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "其它进出原因" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(327) end event type p_9 from picture within tabpage_2 integer x = 91 integer y = 968 integer width = 146 integer height = 140 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\kqfx.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_2.st_15.triggerevent(clicked!) end event type st_14 from statictext within tabpage_2 integer x = 709 integer y = 852 integer width = 923 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "现金,银行" boolean focusrectangle = false end type type st_13 from uo_text_m within tabpage_2 integer x = 91 integer y = 864 integer width = 293 integer height = 56 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "出纳账号" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(513) end event type p_8 from picture within tabpage_2 integer x = 91 integer y = 704 integer width = 192 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\kqds.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_2.st_13.triggerevent(clicked!) end event type st_12 from statictext within tabpage_2 integer x = 709 integer y = 592 integer width = 1152 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "例如:销售收入,采购支出等" boolean focusrectangle = false end type type st_11 from uo_text_m within tabpage_2 integer x = 91 integer y = 640 integer width = 293 integer height = 56 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "收支项目" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(530) end event type p_7 from picture within tabpage_2 integer x = 91 integer y = 464 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\khth.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_2.st_11.triggerevent(clicked!) end event type st_10 from statictext within tabpage_2 integer x = 709 integer y = 340 integer width = 686 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "例如:现金,记账" boolean focusrectangle = false end type type st_9 from uo_text_m within tabpage_2 integer x = 91 integer y = 392 integer width = 293 integer height = 56 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "结算方式" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(101) end event type p_6 from picture within tabpage_2 integer x = 91 integer y = 232 integer width = 187 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\jgft.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_2.st_9.triggerevent(clicked!) end event type st_8 from uo_text_m within tabpage_2 integer x = 91 integer y = 164 integer width = 293 integer height = 76 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "业务员" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(118) end event type p_5 from picture within tabpage_2 integer x = 91 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\kqfk.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_2.st_8.triggerevent(clicked!) end event type st_7 from statictext within tabpage_2 integer x = 709 integer y = 60 integer width = 1001 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "公司业务员" boolean focusrectangle = false end type type tabpage_3 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 2235 integer height = 1212 long backcolor = 16777215 string text = "3.基础资料(可选)" long tabtextcolor = 33554432 long tabbackcolor = 16777215 long picturemaskcolor = 536870912 st_kh st_kh st_gys st_gys st_cp st_cp st_22 st_22 st_21 st_21 p_12 p_12 st_20 st_20 st_19 st_19 p_11 p_11 st_18 st_18 st_17 st_17 p_10 p_10 end type on tabpage_3.create this.st_kh=create st_kh this.st_gys=create st_gys this.st_cp=create st_cp this.st_22=create st_22 this.st_21=create st_21 this.p_12=create p_12 this.st_20=create st_20 this.st_19=create st_19 this.p_11=create p_11 this.st_18=create st_18 this.st_17=create st_17 this.p_10=create p_10 this.Control[]={this.st_kh,& this.st_gys,& this.st_cp,& this.st_22,& this.st_21,& this.p_12,& this.st_20,& this.st_19,& this.p_11,& this.st_18,& this.st_17,& this.p_10} end on on tabpage_3.destroy destroy(this.st_kh) destroy(this.st_gys) destroy(this.st_cp) destroy(this.st_22) destroy(this.st_21) destroy(this.p_12) destroy(this.st_20) destroy(this.st_19) destroy(this.p_11) destroy(this.st_18) destroy(this.st_17) destroy(this.p_10) end on type st_kh from statictext within tabpage_3 integer x = 731 integer y = 1060 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_gys from statictext within tabpage_3 integer x = 713 integer y = 640 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_cp from statictext within tabpage_3 integer x = 722 integer y = 288 integer width = 1303 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 255 long backcolor = 16777215 string text = "已设N条" boolean focusrectangle = false end type type st_22 from statictext within tabpage_3 integer x = 727 integer y = 940 integer width = 837 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "客户(可通过系统管理批量导入)" boolean focusrectangle = false end type type st_21 from uo_text_m within tabpage_3 integer x = 69 integer y = 1004 integer width = 293 integer height = 76 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "客户" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(105) end event type p_12 from picture within tabpage_3 integer x = 105 integer y = 832 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\kqfk.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_3.st_21.triggerevent(clicked!) end event type st_20 from statictext within tabpage_3 integer x = 727 integer y = 548 integer width = 891 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "供应商(可通过系统管理批量导入)" boolean focusrectangle = false end type type st_19 from uo_text_m within tabpage_3 integer x = 73 integer y = 612 integer width = 293 integer height = 76 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "供应商" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(404) end event type p_11 from picture within tabpage_3 integer x = 105 integer y = 440 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\kqfk.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_3.st_19.triggerevent(clicked!) end event type st_18 from statictext within tabpage_3 integer x = 727 integer y = 196 integer width = 1330 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "成品 ,半成品 ,原材料(可通过系统管理批量导入)" boolean focusrectangle = false end type type st_17 from uo_text_m within tabpage_3 integer x = 105 integer y = 260 integer width = 293 integer height = 76 boolean bringtotop = true integer textsize = -9 boolean underline = true string text = "产品及物料" alignment alignment = center! end type event clicked;call super::clicked;f_sys_main(201) end event type p_10 from picture within tabpage_3 integer x = 105 integer y = 88 integer width = 183 integer height = 160 boolean bringtotop = true string pointer = "HAND.CUR" string picturename = "graphics\bbxx.bmp" boolean focusrectangle = false end type event clicked;tab_1.tabpage_3.st_17.triggerevent(clicked!) end event