Q5/ws_objects/Ew_plugins.pbl.src/w_plugins_view.srw

$PBExportHeader$w_plugins_view.srw
forward
global type w_plugins_view from w_publ_base
end type
type dw_uc from u_dw_rbtnfilter within w_plugins_view
end type
type ln_bar2 from line within w_plugins_view
end type
type ln_bar from line within w_plugins_view
end type
type r_bar from rectangle within w_plugins_view
end type
end forward

global type w_plugins_view from w_publ_base
integer width = 3351
integer height = 2380
string title = "外挂程序"
event retrieve_uc ( )
event ue_run_file ( )
dw_uc dw_uc
ln_bar2 ln_bar2
ln_bar ln_bar
r_bar r_bar
end type
global w_plugins_view w_plugins_view

event retrieve_uc();
dw_UC.retrieve(sys_user_plugins, -1)
end event

event ue_run_file();Int cur_row, ll_dftWinState

cur_row = dw_uc.GetRow()
IF cur_row <= 0 THEN
	MessageBox(publ_operator,'请先选择行！')
	RETURN
END IF

ll_dftWinState = dw_uc.Object.dftWinState[cur_row]

WindowState lwstmp
IF ll_dftWinState = -1 THEN
	lwstmp = Minimized!
ELSEIF ll_dftWinState = 0 THEN
	lwstmp = Normal!
ELSE
	lwstmp = Maximized!
END IF
 

String ls_run
ls_run = dw_uc.Object.psw[cur_row] + '&' 
ls_run += publ_userid + '&' 
ls_run += sqlca.Database + '&' 
ls_run += sqlca.UserID + '&' 
ls_run += f_psw_bczh(sqlca.DBPass,0,sys_power_key) + '&'
ls_run += sqlca.LogID + '&' 
ls_run += sqlca.LogPass + '&' 
ls_run += sqlca.ServerName + '&'  
IF Run(sys_cur_path + dw_uc.Object.filepath[cur_row]  + ' - ' +ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	RETURN
END IF


RETURN
end event

on w_plugins_view.create
int iCurrent
call super::create
this.dw_uc=create dw_uc
this.ln_bar2=create ln_bar2
this.ln_bar=create ln_bar
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_uc
this.Control[iCurrent+2]=this.ln_bar2
this.Control[iCurrent+3]=this.ln_bar
this.Control[iCurrent+4]=this.r_bar
end on

on w_plugins_view.destroy
call super::destroy
destroy(this.dw_uc)
destroy(this.ln_bar2)
destroy(this.ln_bar)
destroy(this.r_bar)
end on

event open;call super::open;dw_UC.SetTransObject (sqlca)
this.triggerevent('retrieve_uc')
end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width
end event

type cb_func from w_publ_base`cb_func within w_plugins_view
boolean visible = false
end type

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

type dw_uc from u_dw_rbtnfilter within w_plugins_view
integer x = 5
integer y = 180
integer width = 3310
integer height = 2092
integer taborder = 20
boolean bringtotop = true
string dataobject = "u_plugins_index"
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.AcceptText()
	THIS.SetRow(row)
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	
	IF dwo.Name = 'b_run' THEN
		PARENT.TriggerEvent('ue_run_file')
	END IF
END IF


end event

event rowfocuschanged;call super::rowfocuschanged;THIS.SetRow(currentrow)
THIS.ScrollToRow(currentrow)
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
end event

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

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

type r_bar from rectangle within w_plugins_view
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1257
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