$PBExportHeader$w_aifmb_main.srw forward global type w_aifmb_main from window end type type st_7 from uo_aifmb_text within w_aifmb_main end type type p_1 from picture within w_aifmb_main end type type st_6 from statictext within w_aifmb_main end type type st_5 from uo_aifmb_text within w_aifmb_main end type type st_4 from uo_aifmb_text within w_aifmb_main end type type st_3 from uo_aifmb_text within w_aifmb_main end type type st_2 from uo_aifmb_text within w_aifmb_main end type type st_1 from uo_aifmb_text within w_aifmb_main end type type ole_1 from uo_aifmb_webbrowser within w_aifmb_main end type type tab_1 from uo_aifmb_tab within w_aifmb_main end type type tab_1 from uo_aifmb_tab within w_aifmb_main end type type cb_1 from commandbutton within w_aifmb_main end type type ln_bar from line within w_aifmb_main end type type ln_bar2 from line within w_aifmb_main end type type r_bar from rectangle within w_aifmb_main end type type ln_1 from line within w_aifmb_main end type type ln_2 from line within w_aifmb_main end type type ln_3 from line within w_aifmb_main end type type ln_4 from line within w_aifmb_main end type type ln_5 from line within w_aifmb_main end type type ln_6 from line within w_aifmb_main end type type s_win from structure within w_aifmb_main end type end forward type s_win from structure string title string picture window win end type global type w_aifmb_main from window integer width = 4608 integer height = 2504 boolean titlebar = true string title = "亚洲国际供应链电商平台" boolean controlmenu = true boolean minbox = true boolean maxbox = true boolean resizable = true windowtype windowtype = popup! windowstate windowstate = maximized! long backcolor = 67108864 string icon = "AppIcon!" boolean center = true event ue_querycom ( ) event ue_comrequest ( ) event ue_eb_price ( ) event ue_mtrltype_map ( ) event ue_mtrl_map ( ) event ue_closeself ( ) event ue_inquire_fromme ( ) event ue_inquire_tome ( ) event ue_linkmsg_request ( ) st_7 st_7 p_1 p_1 st_6 st_6 st_5 st_5 st_4 st_4 st_3 st_3 st_2 st_2 st_1 st_1 ole_1 ole_1 tab_1 tab_1 cb_1 cb_1 ln_bar ln_bar ln_bar2 ln_bar2 r_bar r_bar ln_1 ln_1 ln_2 ln_2 ln_3 ln_3 ln_4 ln_4 ln_5 ln_5 ln_6 ln_6 end type global w_aifmb_main w_aifmb_main type prototypes Function Long SetParent(Long hWndChild,Long hWndNewParent) Library "User32.dll" end prototypes type variables private: long ins_userid = 0 end variables forward prototypes public subroutine wf_tv_buildtree () public subroutine wf_face () public subroutine wf_reset_tab () end prototypes event ue_querycom();tab_1.wf_opentab('查找合作', 'w_aifmb_querycom') end event event ue_comrequest();tab_1.wf_opentab('合作请求', 'w_aifmb_addcuscomm_request') end event event ue_eb_price();tab_1.wf_opentab('亚洲国际电商报价', 'w_aifmb_eb_price') end event event ue_mtrltype_map();tab_1.wf_opentab('类别映射', 'w_aifmb_class_map') end event event ue_mtrl_map();tab_1.wf_opentab('物料映射', 'w_aifmb_mtrl_map') end event event ue_closeself();Close(This) end event event ue_inquire_fromme();tab_1.wf_opentab('询价记录', 'w_aifmb_inquire_fromme') end event event ue_inquire_tome();tab_1.wf_opentab('询价回复', 'w_aifmb_inquire_tome') end event event ue_linkmsg_request();tab_1.wf_opentab('互联请求', 'w_aifmb_querycom2') end event public subroutine wf_tv_buildtree ();//Long root //root = wf_insertitemlast(0, '亚洲国际电商网', '', 'graphics\Shell32 005.bmp') //wf_insertitemlast(root, '物料类别映射', 'w_aifmb_class_map', 'graphics\task.bmp') //wf_insertitemlast(root, '物料映射', 'w_aifmb_mtrl_map', 'graphics\task.bmp') //wf_insertitemlast(root, '查找合作', 'w_aifmb_querycom', 'graphics\task.bmp') //wf_insertitemlast(root, '合作请求', 'w_aifmb_addcuscomm_request', 'graphics\task.bmp') //wf_insertitemlast(root, '产品浏览', 'w_aifmb_productcode_view', 'graphics\task.bmp') //wf_insertitemlast(root, '我的产品', 'w_aifmb_myproductcode', 'graphics\task.bmp') //wf_insertitemlast(root, '促销浏览', 'w_aifmb_promotions_view', 'graphics\task.bmp') //wf_insertitemlast(root, '我的促销', 'w_aifmb_mypromotions', 'graphics\task.bmp') //wf_insertitemlast(root, '求购浏览', 'w_aifmb_buyinfo_view', 'graphics\task.bmp') //wf_insertitemlast(root, '我的求购', 'w_aifmb_mybuyinfo', 'graphics\task.bmp') //wf_insertitemlast(root, '指数与行情', 'w_aifmb_index_read', 'graphics\task.bmp') //tv_1.ExpandAll(root) end subroutine public subroutine wf_face ();Int rslt = 0 String arg_msg uo_aifmb lo_aifmb lo_aifmb = Create uo_aifmb String ls_localusername IF lo_aifmb.uf_getlocalusername(ls_localusername, arg_msg) <> 1 THEN ls_localusername = '' END IF String ls_username ls_username = lo_aifmb.sf_username() String ls_msg = '尊敬的' IF ls_username <> '' THEN ls_msg += '用户' + ls_username ELSE ls_msg += '游客' END IF IF ls_localusername <> '' THEN ls_msg += '('+ls_localusername+')' IF lo_aifmb.sf_auditflag() = 1 THEN ls_msg += '(已审核)' ELSE ls_msg += '(未审核)' END IF END IF ls_msg += ',你好!' st_7.Text = ls_msg IF ins_userid <> lo_aifmb.sf_userid() THEN ins_userid = lo_aifmb.sf_userid() wf_reset_tab() END IF Destroy lo_aifmb end subroutine public subroutine wf_reset_tab ();datastore ds ds = Create datastore uo_aifmb lo_aifmb lo_aifmb = Create uo_aifmb ds.DataObject = 'dw_aifmb_main' Long ll_row IF Not sys_power_issuper THEN ll_row = ds.Find("chname = '用户管理'", 1, ds.RowCount()) IF ll_row > 0 THEN ds.Object.ifshow[ll_row] = 0 END IF END IF IF Not lo_aifmb.sf_islogin() THEN FOR ll_row = 1 To ds.RowCount() IF ds.Object.winname[ll_row] = 'w_aifmb_productcode_view' & Or ds.Object.winname[ll_row] = 'w_aifmb_buyinfo_view' & Or ds.Object.winname[ll_row] = 'w_aifmb_promotions_view' THEN ds.Object.ifshow[ll_row] = 1 ELSE ds.Object.ifshow[ll_row] = 0 END IF NEXT END IF tab_1.wf_setdatasource(ds) Destroy ds Destroy lo_aifmb end subroutine on w_aifmb_main.create this.st_7=create st_7 this.p_1=create p_1 this.st_6=create st_6 this.st_5=create st_5 this.st_4=create st_4 this.st_3=create st_3 this.st_2=create st_2 this.st_1=create st_1 this.ole_1=create ole_1 this.tab_1=create tab_1 this.cb_1=create cb_1 this.ln_bar=create ln_bar this.ln_bar2=create ln_bar2 this.r_bar=create r_bar this.ln_1=create ln_1 this.ln_2=create ln_2 this.ln_3=create ln_3 this.ln_4=create ln_4 this.ln_5=create ln_5 this.ln_6=create ln_6 this.Control[]={this.st_7,& this.p_1,& this.st_6,& this.st_5,& this.st_4,& this.st_3,& this.st_2,& this.st_1,& this.ole_1,& this.tab_1,& this.cb_1,& this.ln_bar,& this.ln_bar2,& this.r_bar,& this.ln_1,& this.ln_2,& this.ln_3,& this.ln_4,& this.ln_5,& this.ln_6} end on on w_aifmb_main.destroy destroy(this.st_7) destroy(this.p_1) destroy(this.st_6) destroy(this.st_5) destroy(this.st_4) destroy(this.st_3) destroy(this.st_2) destroy(this.st_1) destroy(this.ole_1) destroy(this.tab_1) destroy(this.cb_1) destroy(this.ln_bar) destroy(this.ln_bar2) destroy(this.r_bar) destroy(this.ln_1) destroy(this.ln_2) destroy(this.ln_3) destroy(this.ln_4) destroy(this.ln_5) destroy(this.ln_6) end on event resize;ln_bar.EndX = This.Width ln_bar2.EndX = This.Width r_bar.Width = This.Width //tv_1.Height = This.WorkSpaceHeight() - tv_1.Y tab_1.Width = This.WorkSpaceWidth() - tab_1.X tab_1.Height = This.WorkSpaceHeight() - tab_1.Y ole_1.X = This.WorkSpaceWidth() - ole_1.Width st_7.Width = ole_1.X - st_7.X //st_1.X = ole_1.X - st_1.Width //st_2.X = st_1.X - st_2.Width end event event open;uo_aifmb lo_aifmb lo_aifmb = Create uo_aifmb Int rslt = 1 String arg_msg = '' IF lo_aifmb.uf_tryautologin(arg_msg) <> 1 THEN END IF wf_face() ole_1.Object.Navigate("http://www.fib2b.cn/ad/adforerp.htm?positionid=26") IF ins_userid = 0 THEN wf_reset_tab() END IF Destroy lo_aifmb IF arg_msg <> '' THEN MessageBox('ERROR', arg_msg) // This.PostEvent('ue_closeself') END IF end event event activate;wf_face() end event type st_7 from uo_aifmb_text within w_aifmb_main integer x = 864 integer y = 36 integer width = 809 integer height = 64 integer textsize = -9 string text = "尊敬的用户,你好!" end type event clicked;call super::clicked;uo_aifmb lo_aifmb lo_aifmb = Create uo_aifmb String arg_msg IF lo_aifmb.sf_userid() > 0 THEN open(w_aifmb_cominfo_view) wf_face() ELSE IF lo_aifmb.uf_tryautologin(arg_msg) <> 1 THEN END IF wf_face() END IF Destroy lo_aifmb end event type p_1 from picture within w_aifmb_main integer width = 850 integer height = 284 boolean originalsize = true string picturename = "AIFMB_LOGO.png" boolean focusrectangle = false end type type st_6 from statictext within w_aifmb_main integer x = 2199 integer y = 232 integer width = 82 integer height = 48 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" boolean underline = true long textcolor = 33554432 long backcolor = 16777215 boolean focusrectangle = false end type type st_5 from uo_aifmb_text within w_aifmb_main integer x = 1952 integer y = 232 integer width = 233 integer height = 56 integer textsize = -9 boolean underline = true string text = "打开副本" end type event clicked;call super::clicked;window lw_win Open(lw_win,PARENT.ClassName()) lw_win.WindowState = Normal! end event type st_4 from uo_aifmb_text within w_aifmb_main integer x = 1819 integer y = 232 integer width = 119 integer height = 56 integer textsize = -9 boolean underline = true string text = "其它" end type event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu String menustr menustr = menustr + "|" + "Text=类别映射~tEvent=ue_mtrltype_map" menustr = menustr + "|" + "Text=物料映射~tEvent=ue_mtrl_map" menustr = menustr + "|" + "Text=询价记录~tEvent=ue_inquire_fromme" menustr = menustr + "|" + "Text=询价回复~tEvent=ue_inquire_tome" menustr = menustr + "|" + "Text=互联请求~tEvent=ue_linkmsg_request" IF Len(Trim(menustr)) <> 0 THEN dmPopupMenu = Create m_Dfc_Control_PopupMenu dmPopupMenu.mf_BuildMenu(This, menustr) dmPopupMenu.mf_PopMenu() Destroy dmPopupMenu END IF end event type st_3 from uo_aifmb_text within w_aifmb_main integer x = 1353 integer y = 232 integer width = 453 integer height = 56 integer textsize = -9 boolean underline = true string text = "亚洲国际电商报价" end type event clicked;call super::clicked;parent.triggerevent('ue_eb_price') end event type st_2 from uo_aifmb_text within w_aifmb_main integer x = 1106 integer y = 232 integer width = 233 integer height = 56 integer textsize = -9 boolean underline = true string text = "合作请求" end type event clicked;call super::clicked;parent.triggerevent('ue_comrequest') end event type st_1 from uo_aifmb_text within w_aifmb_main integer x = 864 integer y = 232 integer width = 229 integer height = 56 integer textsize = -9 boolean underline = true string text = "查找合作" boolean ib_mousein = true end type event clicked;call super::clicked;parent.triggerevent('ue_querycom') end event type ole_1 from uo_aifmb_webbrowser within w_aifmb_main integer x = 2683 integer width = 1829 integer height = 284 integer taborder = 30 string binarykey = "w_aifmb_main.win" end type type tab_1 from uo_aifmb_tab within w_aifmb_main integer y = 312 integer width = 2299 integer height = 764 integer taborder = 30 end type type cb_1 from commandbutton within w_aifmb_main boolean visible = false integer x = 393 integer y = 36 integer width = 402 integer height = 84 integer taborder = 20 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "none" end type event clicked;Long arr[] arr[1] = 4 arr[2] = 6 arr[3] = 2 arr[4] = 5 arr[5] = 1 arr[6] = 3 arr[7] = 7 Long org[] Long i, j, cnt, k, t cnt = UpperBound(tab_1.Control) FOR i = 1 To cnt org[i] = i NEXT FOR i = 1 To cnt FOR j = i To cnt IF org[j] = arr[i] THEN EXIT NEXT tab_1.MoveTab(j, i) t = org[j] FOR k = j To i + 1 Step -1 org[k] = org[k - 1] NEXT org[i] = t NEXT end event type ln_bar from line within w_aifmb_main long linecolor = 268435456 integer linethickness = 4 integer beginy = 308 integer endx = 2007 integer endy = 308 end type type ln_bar2 from line within w_aifmb_main long linecolor = 16777215 integer linethickness = 4 integer beginy = 312 integer endx = 2039 integer endy = 312 end type type r_bar from rectangle within w_aifmb_main long linecolor = 16777215 integer linethickness = 4 long fillcolor = 16777215 integer x = 2139 integer width = 146 integer height = 68 end type event constructor;//this.fillcolor = 14215660 //this.linecolor = 14215660 this.x = -1 this.y = -1 this.height = ln_bar.beginy - 5 end event type ln_1 from line within w_aifmb_main integer linethickness = 4 integer beginx = 855 integer beginy = 232 integer endx = 855 integer endy = 288 end type type ln_2 from line within w_aifmb_main integer linethickness = 4 integer beginx = 1097 integer beginy = 232 integer endx = 1097 integer endy = 288 end type type ln_3 from line within w_aifmb_main integer linethickness = 4 integer beginx = 1344 integer beginy = 232 integer endx = 1344 integer endy = 288 end type type ln_4 from line within w_aifmb_main integer linethickness = 4 integer beginx = 1810 integer beginy = 232 integer endx = 1810 integer endy = 288 end type type ln_5 from line within w_aifmb_main integer linethickness = 4 integer beginx = 1943 integer beginy = 232 integer endx = 1943 integer endy = 288 end type type ln_6 from line within w_aifmb_main integer linethickness = 4 integer beginx = 2190 integer beginy = 232 integer endx = 2190 integer endy = 288 end type Start of PowerBuilder Binary Data Section : Do NOT Edit 00w_aifmb_main.bin 2200000a00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffdfffffffefffffffefffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff0000000100000000000000000000000000000000000000000000000000000000df4408f001cf0eae00000003000001800000000000500003004f0042005800430054005300450052004d0041000000000000000000000000000000000000000000000000000000000000000000000000000000000102001affffffff00000002ffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000000000009c00000000004200500043004f00530058004f00540041005200450047000000000000000000000000000000000000000000000000000000000000000000000000000000000001001affffffffffffffff000000038856f96111d0340ac0006ba9a205d74f00000000df4408f001cf0eaedf4408f001cf0eae000000000000000000000000004f00430054004e004e00450053005400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001020012ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000030000009c000000000000000100000002fffffffe0000000400000005fffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff 24ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff0000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 10w_aifmb_main.bin End of PowerBuilder Binary Data Section : No Source Expected After This Point