Q5/ws_objects/Ew_aifmb.pbl.src/w_aifmb_productcode_pics.srw

$PBExportHeader$w_aifmb_productcode_pics.srw
forward
global type w_aifmb_productcode_pics from window
end type
type dw_1 from datawindow within w_aifmb_productcode_pics
end type
type lv_1 from uo_piclistview within w_aifmb_productcode_pics
end type
type st_3 from statictext within w_aifmb_productcode_pics
end type
type em_pageindex from editmask within w_aifmb_productcode_pics
end type
type st_2 from statictext within w_aifmb_productcode_pics
end type
type st_1 from statictext within w_aifmb_productcode_pics
end type
type em_pagesize from editmask within w_aifmb_productcode_pics
end type
type cb_reflash from uo_imflatbutton within w_aifmb_productcode_pics
end type
type cb_exit from uo_imflatbutton within w_aifmb_productcode_pics
end type
type r_bar from rectangle within w_aifmb_productcode_pics
end type
type ln_bar from line within w_aifmb_productcode_pics
end type
type ln_bar2 from line within w_aifmb_productcode_pics
end type
end forward

global type w_aifmb_productcode_pics from window
integer width = 3488
integer height = 1848
boolean titlebar = true
string title = "产品信息"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event ue_page ( )
dw_1 dw_1
lv_1 lv_1
st_3 st_3
em_pageindex em_pageindex
st_2 st_2
st_1 st_1
em_pagesize em_pagesize
cb_reflash cb_reflash
cb_exit cb_exit
r_bar r_bar
ln_bar ln_bar
ln_bar2 ln_bar2
end type
global w_aifmb_productcode_pics w_aifmb_productcode_pics

type variables
long ins_relationid
string ins_mtrlname
end variables

event ue_page();Long ll_pageindex
Long ll_pagesize
uo_aifmb = Create uo_aifmb
lv_1.SetRedraw(false)
ll_pageindex = Long(em_pageindex.Text)
ll_pagesize = Long(em_pagesize.Text)
Int rslt = 1
String arg_msg
s_aifmb_SearchProductAnnex arr_annex[]

IF uo_aifmb.uf_searchproductannexlist(ins_relationid, ll_pageindex, ll_pagesize, arr_annex, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

lv_1.uf_clear()


Long i
s_piclistview_parm s_parm


FOR i = 1 To UpperBound(arr_annex)
	s_parm.Label = arr_annex[i].annexname
	s_parm.Data = arr_annex[i].Pic
	s_parm.a_any = arr_annex[i].AnnexID
	s_parm.tmppath = sys_cur_path + 'aifmb_tmp\Annex_min_' + String(arr_annex[i].AnnexID) + '.png'
	
	IF lv_1.uf_AddItem(s_parm, arg_msg) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
	
NEXT

ext:
lv_1.SetRedraw(true)
Destroy uo_aifmb
IF rslt = 0 THEN
	MessageBox('ERROR', arg_msg)
END IF


end event

on w_aifmb_productcode_pics.create
this.dw_1=create dw_1
this.lv_1=create lv_1
this.st_3=create st_3
this.em_pageindex=create em_pageindex
this.st_2=create st_2
this.st_1=create st_1
this.em_pagesize=create em_pagesize
this.cb_reflash=create cb_reflash
this.cb_exit=create cb_exit
this.r_bar=create r_bar
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.Control[]={this.dw_1,&
this.lv_1,&
this.st_3,&
this.em_pageindex,&
this.st_2,&
this.st_1,&
this.em_pagesize,&
this.cb_reflash,&
this.cb_exit,&
this.r_bar,&
this.ln_bar,&
this.ln_bar2}
end on

on w_aifmb_productcode_pics.destroy
destroy(this.dw_1)
destroy(this.lv_1)
destroy(this.st_3)
destroy(this.em_pageindex)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.em_pagesize)
destroy(this.cb_reflash)
destroy(this.cb_exit)
destroy(this.r_bar)
destroy(this.ln_bar)
destroy(this.ln_bar2)
end on

event resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width

r_bar.Width = THIS.Width

dw_1.Width = this.WorkSpaceWidth() - dw_1.X

lv_1.Width = this.WorkSpaceWidth() - lv_1.X
lv_1.Height = this.WorkSpaceHeight() - lv_1.Y
end event

event open;s_aifmb_myproductcode_pics_parm s_parm
s_parm = Message.PowerObjectParm

ins_relationid = s_parm.relationid
ins_mtrlname = s_parm.mtrlname

//this.title = '产品图片-' + ins_mtrlname

lv_1.uf_setsize(100, 100)

s_parm.dw_1.RowsCopy(s_parm.row, s_parm.row, Primary!, dw_1, 1, Primary!)

triggerevent('ue_page')

end event

type dw_1 from datawindow within w_aifmb_productcode_pics
integer y = 188
integer width = 2267
integer height = 380
integer taborder = 40
string title = "none"
string dataobject = "dw_aifmb_productcode_detail"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type lv_1 from uo_piclistview within w_aifmb_productcode_pics
integer y = 572
integer height = 772
integer taborder = 40
end type

type st_3 from statictext within w_aifmb_productcode_pics
integer x = 1239
integer y = 92
integer width = 151
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "页"
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type em_pageindex from editmask within w_aifmb_productcode_pics
integer x = 1033
integer y = 76
integer width = 201
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type

event modified;parent.TriggerEvent('ue_page')
end event

type st_2 from statictext within w_aifmb_productcode_pics
integer x = 736
integer y = 92
integer width = 288
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "第"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type st_1 from statictext within w_aifmb_productcode_pics
integer x = 736
integer y = 16
integer width = 288
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "每页项数"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type em_pagesize from editmask within w_aifmb_productcode_pics
integer x = 1033
integer width = 201
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "100"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
end type

type cb_reflash from uo_imflatbutton within w_aifmb_productcode_pics
integer width = 151
integer height = 164
integer taborder = 40
string text = "刷新"
string normalpicname = "refresh.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_page')
end event

type cb_exit from uo_imflatbutton within w_aifmb_productcode_pics
integer x = 151
integer width = 151
integer height = 164
integer taborder = 10
string text = "退出"
boolean cancel = true
string normalpicname = "exit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Close(PARENT)

end event

type r_bar from rectangle within w_aifmb_productcode_pics
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
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_bar from line within w_aifmb_productcode_pics
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 2007
integer endy = 172
end type

type ln_bar2 from line within w_aifmb_productcode_pics
long linecolor = 16777215
integer linethickness = 4
integer beginy = 176
integer endx = 2039
integer endy = 176
end type