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

$PBExportHeader$w_func_set_version.srw
forward
global type w_func_set_version from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_func_set_version
end type
type rb_1 from radiobutton within w_func_set_version
end type
type rb_2 from radiobutton within w_func_set_version
end type
type rb_3 from radiobutton within w_func_set_version
end type
type rb_4 from radiobutton within w_func_set_version
end type
end forward

global type w_func_set_version from w_publ_base
integer width = 1751
integer height = 620
string title = "版本设定"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
rb_1 rb_1
rb_2 rb_2
rb_3 rb_3
rb_4 rb_4
end type
global w_func_set_version w_func_set_version

type variables
s_sys_func s_func
end variables

on w_func_set_version.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.rb_1=create rb_1
this.rb_2=create rb_2
this.rb_3=create rb_3
this.rb_4=create rb_4
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.rb_1
this.Control[iCurrent+3]=this.rb_2
this.Control[iCurrent+4]=this.rb_3
this.Control[iCurrent+5]=this.rb_4
end on

on w_func_set_version.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.rb_3)
destroy(this.rb_4)
end on

event open;call super::open;Int li_versiontype

s_func = Message.PowerObjectParm	
li_versiontype = s_func.versiontype

IF li_versiontype = 0 THEN
	rb_1.Checked = TRUE
	rb_2.Checked = FALSE
	rb_3.Checked = FALSE
	rb_4.Checked = FALSE
ELSEIF li_versiontype = 1 THEN
	rb_1.Checked = FALSE
	rb_2.Checked = TRUE
	rb_3.Checked = FALSE
	rb_4.Checked = FALSE
ELSEIF li_versiontype = 2 THEN
	rb_1.Checked = FALSE
	rb_2.Checked = FALSE
	rb_3.Checked = FALSE
	rb_4.Checked = TRUE
ELSE
	rb_1.Checked = FALSE
	rb_3.Checked = TRUE
	rb_2.Checked = FALSE
	rb_4.Checked = FALSE
END IF




end event

type cb_func from w_publ_base`cb_func within w_func_set_version
boolean visible = false
integer x = 494
integer y = 716
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_func_set_version
integer x = 859
integer y = 312
end type

type cb_1 from uo_imflatbutton within w_func_set_version
integer x = 366
integer y = 312
integer width = 311
integer height = 96
integer taborder = 10
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;Int li_versiontype
String ls_msg

IF rb_1.Checked THEN
	li_versiontype = 0
ELSEIF rb_2.Checked THEN
	li_versiontype = 1
ELSEIF rb_4.Checked THEN
	li_versiontype = 2
ELSE
	li_versiontype = -1
END IF

UPDATE  sys_func_pwr
	SET sys_func_pwr.versiontype = :li_versiontype
	Where sys_func_pwr.parentid = :s_func.funcid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示','设置下级版本失败', Information!, OK! )
	return
else
	MessageBox('提示','设置成功', Information!, OK! )
	close(parent)
END IF


end event

type rb_1 from radiobutton within w_func_set_version
integer x = 544
integer y = 160
integer width = 325
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "工业版"
boolean checked = true
end type

type rb_2 from radiobutton within w_func_set_version
integer x = 1321
integer y = 160
integer width = 325
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "商业版 "
end type

type rb_3 from radiobutton within w_func_set_version
integer x = 155
integer y = 160
integer width = 325
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "公共版"
end type

type rb_4 from radiobutton within w_func_set_version
integer x = 933
integer y = 160
integer width = 325
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "工业版+"
boolean checked = true
end type