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

$PBExportHeader$w_aifmb_index_read.srw
forward
global type w_aifmb_index_read from window
end type
type r_bar from rectangle within w_aifmb_index_read
end type
type cb_exit from uo_imflatbutton within w_aifmb_index_read
end type
type cb_book from uo_imflatbutton within w_aifmb_index_read
end type
type cb_download from uo_imflatbutton within w_aifmb_index_read
end type
type dw_2 from datawindow within w_aifmb_index_read
end type
type dw_1 from u_dw_rbtnfilter within w_aifmb_index_read
end type
type cb_refresh from uo_imflatbutton within w_aifmb_index_read
end type
type ln_bar from line within w_aifmb_index_read
end type
type ln_bar2 from line within w_aifmb_index_read
end type
type ln_1 from line within w_aifmb_index_read
end type
type ln_2 from line within w_aifmb_index_read
end type
type ln_3 from line within w_aifmb_index_read
end type
type ln_4 from line within w_aifmb_index_read
end type
type ole_1 from uo_aifmb_webbrowser within w_aifmb_index_read
end type
end forward

global type w_aifmb_index_read from window
integer width = 3369
integer height = 1848
windowtype windowtype = child!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event ue_retrieve ( )
event ue_retrieve_mx ( )
r_bar r_bar
cb_exit cb_exit
cb_book cb_book
cb_download cb_download
dw_2 dw_2
dw_1 dw_1
cb_refresh cb_refresh
ln_bar ln_bar
ln_bar2 ln_bar2
ln_1 ln_1
ln_2 ln_2
ln_3 ln_3
ln_4 ln_4
ole_1 ole_1
end type
global w_aifmb_index_read w_aifmb_index_read

event ue_retrieve();dw_1.Retrieve()
end event

event ue_retrieve_mx();Long ll_row
ll_row = dw_1.GetRow()

IF ll_row > 0 THEN
	dw_2.Retrieve(dw_1.Object.indexid[ll_row])
ELSE
	dw_2.Reset()
END IF

end event

on w_aifmb_index_read.create
this.r_bar=create r_bar
this.cb_exit=create cb_exit
this.cb_book=create cb_book
this.cb_download=create cb_download
this.dw_2=create dw_2
this.dw_1=create dw_1
this.cb_refresh=create cb_refresh
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
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.ole_1=create ole_1
this.Control[]={this.r_bar,&
this.cb_exit,&
this.cb_book,&
this.cb_download,&
this.dw_2,&
this.dw_1,&
this.cb_refresh,&
this.ln_bar,&
this.ln_bar2,&
this.ln_1,&
this.ln_2,&
this.ln_3,&
this.ln_4,&
this.ole_1}
end on

on w_aifmb_index_read.destroy
destroy(this.r_bar)
destroy(this.cb_exit)
destroy(this.cb_book)
destroy(this.cb_download)
destroy(this.dw_2)
destroy(this.dw_1)
destroy(this.cb_refresh)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_3)
destroy(this.ln_4)
destroy(this.ole_1)
end on

event resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
ln_1.endx = this.width
ln_2.endx = this.width
ln_3.endx = this.width
ln_4.endx = this.width
r_bar.width = this.width

dw_1.Height = this.WorkSpaceHeight() - dw_1.Y
dw_2.X = dw_1.X + dw_1.Width
dw_2.Width = this.WorkSpaceWidth() - dw_2.X
dw_2.Height = this.WorkSpaceHeight() - dw_2.Y

ole_1.X = this.WorkSpaceWidth() - ole_1.Width
end event

event open;ole_1.Object.Navigate("http://www.fib2b.cn/ad/adforerp.htm?positionid=39")
dw_1.SetTransObject(sqlca)
dw_2.SetTransObject(sqlca)

cb_refresh.TriggerEvent(Clicked!)
end event

type r_bar from rectangle within w_aifmb_index_read
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2089
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_3.beginy - 5

end event

type cb_exit from uo_imflatbutton within w_aifmb_index_read
integer x = 576
integer width = 151
integer height = 164
integer taborder = 30
string text = "退出"
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 cb_book from uo_imflatbutton within w_aifmb_index_read
integer width = 151
integer height = 164
integer taborder = 30
string text = "订阅"
string normalpicname = "p2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;open(w_aifmb_index_book)
end event

type cb_download from uo_imflatbutton within w_aifmb_index_read
integer x = 302
integer width = 274
integer height = 164
integer taborder = 20
string text = "下载订阅"
string normalpicname = "imexport.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Int rslt = 1
String arg_msg
uo_aifmb lo_aifmb
lo_aifmb = Create uo_aifmb
IF lo_aifmb.uf_syncindexandvalue(arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

ext:
Destroy lo_aifmb
IF rslt = 1 THEN
	MessageBox('OK', '下载成功')
ELSE
	MessageBox('ERROR', arg_msg)
END IF
Parent.TriggerEvent('ue_retrieve')

end event

type dw_2 from datawindow within w_aifmb_index_read
integer x = 1737
integer y = 420
integer width = 1614
integer height = 1364
integer taborder = 30
boolean titlebar = true
string title = "指数"
string dataobject = "dw_aifmb_index_readmx"
boolean minbox = true
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_1 from u_dw_rbtnfilter within w_aifmb_index_read
integer y = 420
integer width = 1691
integer height = 1360
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_aifmb_index_read"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;This.SelectRow(0,False)
IF currentrow > 0 THEN
	This.SelectRow(currentrow,True)
END IF

parent.triggerevent('ue_retrieve_mx')

end event

event clicked;call super::clicked;IF row > 0 THEN
	This.SetRow(row)
END IF

end event

type cb_refresh from uo_imflatbutton within w_aifmb_index_read
integer x = 151
integer width = 151
integer height = 164
integer taborder = 10
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_retrieve')
end event

type ln_bar from line within w_aifmb_index_read
long linecolor = 268435456
integer linethickness = 4
integer beginy = 168
integer endx = 2007
integer endy = 168
end type

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

type ln_1 from line within w_aifmb_index_read
long linecolor = 268435456
integer linethickness = 4
integer beginy = 288
integer endx = 2016
integer endy = 288
end type

type ln_2 from line within w_aifmb_index_read
long linecolor = 16777215
integer linethickness = 4
integer beginy = 292
integer endx = 2048
integer endy = 292
end type

type ln_3 from line within w_aifmb_index_read
long linecolor = 268435456
integer linethickness = 4
integer beginy = 408
integer endx = 2016
integer endy = 408
end type

type ln_4 from line within w_aifmb_index_read
long linecolor = 16777215
integer linethickness = 4
integer beginy = 412
integer endx = 2048
integer endy = 412
end type

type ole_1 from uo_aifmb_webbrowser within w_aifmb_index_read
integer x = 2464
integer width = 1829
integer height = 284
integer taborder = 40
boolean bringtotop = true
string binarykey = "w_aifmb_index_read.win"
end type


Start of PowerBuilder Binary Data Section : Do NOT Edit
0Ew_aifmb_index_read.bin 
2B00000a00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffdfffffffefffffffefffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff00000001000000000000000000000000000000000000000000000000000000002fefb9a001cec63100000003000001800000000000500003004f0042005800430054005300450052004d0041000000000000000000000000000000000000000000000000000000000000000000000000000000000102001affffffff00000002ffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000000000009c00000000004200500043004f00530058004f00540041005200450047000000000000000000000000000000000000000000000000000000000000000000000000000000000001001affffffffffffffff000000038856f96111d0340ac0006ba9a205d74f000000002fefb9a001cec6312fefb9a001cec631000000000000000000000000004f00430054004e004e00450053005400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001020012ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000030000009c000000000000000100000002fffffffe0000000400000005fffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
24ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff0000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1Ew_aifmb_index_read.bin 
End of PowerBuilder Binary Data Section : No Source Expected After This Point