Q5/ws_objects/Ew_mainface.pbl.src/w_sys_version_log.srw

$PBExportHeader$w_sys_version_log.srw
forward
global type w_sys_version_log from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_sys_version_log
end type
type cb_1 from uo_imflatbutton within w_sys_version_log
end type
type dw_2 from u_dw_rbtnfilter within w_sys_version_log
end type
type ln_bar from line within w_sys_version_log
end type
type ln_bar2 from line within w_sys_version_log
end type
type r_bar from rectangle within w_sys_version_log
end type
end forward

global type w_sys_version_log from w_publ_base
integer width = 3611
integer height = 2380
string title = "版本升级日志"
boolean maxbox = true
windowstate windowstate = maximized!
event retr_mx ( )
dw_1 dw_1
cb_1 cb_1
dw_2 dw_2
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_sys_version_log w_sys_version_log

event retr_mx();Long ll_row
String ls_ori_version,ls_cur_version
dw_1.AcceptText()
ll_row = dw_1.GetRow()

IF ll_row = 0 THEN
	dw_2.Reset()
ELSE
	ls_ori_version = dw_1.Object.ori_version[ll_row]
	ls_cur_version = dw_1.Object.cur_version[ll_row]
	dw_2.Retrieve(ls_ori_version,ls_cur_version)
END IF

end event

on w_sys_version_log.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_1=create cb_1
this.dw_2=create dw_2
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.dw_2
this.Control[iCurrent+4]=this.ln_bar
this.Control[iCurrent+5]=this.ln_bar2
this.Control[iCurrent+6]=this.r_bar
end on

on w_sys_version_log.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_1)
destroy(this.dw_2)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event resize;call super::resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
r_bar.Width = THIS.Width


dw_1.Height = THIS.Height - dw_1.Y - 150

dw_2.Width = THIS.Width - dw_2.X - 40
dw_2.Height = dw_1.Height

end event

event open;call super::open;dw_1.SetTransObject(sqlca)
dw_2.SetTransObject(sqlca)
cb_1.TriggerEvent(Clicked!)


end event

type cb_func from w_publ_base`cb_func within w_sys_version_log
integer x = 247
integer y = 644
end type

type cb_exit from w_publ_base`cb_exit within w_sys_version_log
integer x = 165
integer width = 165
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_1 from u_dw_rbtnfilter within w_sys_version_log
integer y = 184
integer width = 1669
integer height = 1828
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_sys_version_log"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

PARENT.TriggerEvent('retr_mx')



end event

type cb_1 from uo_imflatbutton within w_sys_version_log
integer width = 165
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF dw_1.Retrieve() > 0 THEN
	dw_1.SelectRow(0,FALSE)
	dw_1.SetRow(1)
	dw_1.SelectRow(1,TRUE)
END IF

PARENT.TriggerEvent('retr_mx')


end event

type dw_2 from u_dw_rbtnfilter within w_sys_version_log
integer x = 1669
integer y = 184
integer width = 1669
integer height = 1828
integer taborder = 30
boolean bringtotop = true
string dataobject = "dw_sys_version_log_mx"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

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

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

type r_bar from rectangle within w_sys_version_log
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