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

$PBExportHeader$w_set_version.srw
forward
global type w_set_version from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_set_version
end type
type rb_enterprise from radiobutton within w_set_version
end type
type rb_business from radiobutton within w_set_version
end type
type rb_single from radiobutton within w_set_version
end type
type rb_network from radiobutton within w_set_version
end type
type rb_enterpriseplug from radiobutton within w_set_version
end type
type gb_1 from groupbox within w_set_version
end type
type gb_2 from groupbox within w_set_version
end type
end forward

global type w_set_version from w_publ_base
integer width = 1385
integer height = 720
string title = "版本设定"
long backcolor = 16777215
cb_1 cb_1
rb_enterprise rb_enterprise
rb_business rb_business
rb_single rb_single
rb_network rb_network
rb_enterpriseplug rb_enterpriseplug
gb_1 gb_1
gb_2 gb_2
end type
global w_set_version w_set_version

on w_set_version.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.rb_enterprise=create rb_enterprise
this.rb_business=create rb_business
this.rb_single=create rb_single
this.rb_network=create rb_network
this.rb_enterpriseplug=create rb_enterpriseplug
this.gb_1=create gb_1
this.gb_2=create gb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.rb_enterprise
this.Control[iCurrent+3]=this.rb_business
this.Control[iCurrent+4]=this.rb_single
this.Control[iCurrent+5]=this.rb_network
this.Control[iCurrent+6]=this.rb_enterpriseplug
this.Control[iCurrent+7]=this.gb_1
this.Control[iCurrent+8]=this.gb_2
end on

on w_set_version.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.rb_enterprise)
destroy(this.rb_business)
destroy(this.rb_single)
destroy(this.rb_network)
destroy(this.rb_enterpriseplug)
destroy(this.gb_1)
destroy(this.gb_2)
end on

event open;call super::open;String ls_network //613444366637208268088
ls_network = ProfileString(sys_inifilename_other,'sys_message', 'network' , '358')

IF ls_network = "613444366637208268088" THEN
	rb_network.Checked = True
	rb_single.Checked = False
ELSE
	rb_network.Checked = False
	rb_single.Checked = True
END IF

Int li_versiontype
IF rb_network.Checked THEN
	gb_1.Visible = False
	rb_enterprise.Visible = False
	rb_business.Visible = False
//	rb_enterpriseplug.Visible = False
ELSE
	
	SELECT top 1 versiontype INTO :li_versiontype
		From sys_DB_version;
	IF sqlca.SQLCode <> 0 THEN
		li_versiontype = 0 //工业版
	END IF
	
	IF li_versiontype = 0 THEN
		rb_enterprise.Checked = True
		rb_business.Checked = False
//		rb_enterpriseplug.Checked = False
	ELSE
		rb_enterprise.Checked = False
		rb_business.Checked = True
//		rb_enterpriseplug.Checked = False
	END IF
END IF




end event

type cb_func from w_publ_base`cb_func within w_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_set_version
integer x = 805
integer y = 476
end type

type cb_1 from uo_imflatbutton within w_set_version
integer x = 311
integer y = 476
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
String ls_version
String ls_network

IF rb_single.Checked THEN
	ls_network = '358' //单机
ELSEIF rb_network.Checked THEN
	ls_network = '613444366637208268088' //网络
END IF
SetProfileString(sys_inifilename_other,'sys_message', 'network' , ls_network)

IF ls_network = '358' THEN //只有单机版才能在这里改版本, 网络版的在后台改
	IF rb_enterprise.Checked THEN
		li_versiontype = 0 //工业版
		ls_version = 'enterprise'
	ELSEIF rb_business.Checked THEN
		li_versiontype = 1
		ls_version = 'business'
	END IF
	
	
	ls_version = f_psw_bczh(ls_version,0,sys_power_key)
	SetProfileString(sys_inifilename_other,'sys_message', 'version' , ls_version)
	
	UPDATE sys_DB_version Set versiontype = :li_versiontype;
	IF sqlca.SQLCode <> 0 THEN
		ls_msg = sqlca.SQLErrText
		ROLLBACK;
		MessageBox('提示','更新系统版本失败,'+ls_msg, Information!, OK! )
		RETURN
	ELSE
		COMMIT;
		//MessageBox('提示','更新系统版本成功', Information!, OK! )
	END IF
	
	sys_version_type = li_versiontype
	IF ls_version = 'business' THEN
		sys_version_type = 1
		sys_version_id = '801001ewiserpv5.0'
		sys_version = 802001
		sys_versionName = "商业版"
	ELSEIF ls_version = 'enterprise' THEN
		sys_version_type = 0
		sys_version_id = '801002ewiserpv5.0'
		sys_version = 802002
		sys_versionName = "工业版"
	END IF
END IF

Close(Parent)





end event

type rb_enterprise from radiobutton within w_set_version
integer x = 558
integer y = 272
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 = 16777215
string text = "工业版"
boolean checked = true
end type

type rb_business from radiobutton within w_set_version
integer x = 155
integer y = 268
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 = 16777215
string text = "商业版 "
end type

type rb_single from radiobutton within w_set_version
integer x = 155
integer y = 96
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 = 16777215
string text = "单机版"
end type

event clicked;IF not This.Checked THEN
	gb_1.Visible = False
	rb_enterprise.Visible = False
	rb_business.Visible = False
//	rb_enterpriseplug.Visible = False
ELSE
	gb_1.Visible = True
	rb_enterprise.Visible = True
	rb_business.Visible = True
//	rb_enterpriseplug.Visible = True
END IF

end event

type rb_network from radiobutton within w_set_version
integer x = 558
integer y = 96
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 = 16777215
string text = "网络版"
end type

event clicked;IF This.Checked THEN
	gb_1.Visible = False
	rb_enterprise.Visible = False
	rb_business.Visible = False
//	rb_enterpriseplug.Visible = False
ELSE
	gb_1.Visible = True
	rb_enterprise.Visible = True
	rb_business.Visible = True
//	rb_enterpriseplug.Visible = True
END IF

end event

type rb_enterpriseplug from radiobutton within w_set_version
boolean visible = false
integer x = 960
integer y = 272
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 = 16777215
string text = "工业版+"
boolean checked = true
end type

type gb_1 from groupbox within w_set_version
integer x = 73
integer y = 204
integer width = 1024
integer height = 160
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "Version"
end type

type gb_2 from groupbox within w_set_version
integer x = 87
integer y = 24
integer width = 1024
integer height = 160
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "NetWork"
end type