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

$PBExportHeader$w_reg_manager.srw
$PBExportComments$Generated About window
forward
global type w_reg_manager from window
end type
type st_1 from statictext within w_reg_manager
end type
type st_2 from statictext within w_reg_manager
end type
type em_basecount from editmask within w_reg_manager
end type
type em_phonecount from editmask within w_reg_manager
end type
type dw_1 from datawindow within w_reg_manager
end type
type cb_1 from commandbutton within w_reg_manager
end type
type st_publish from statictext within w_reg_manager
end type
type st_tele1 from statictext within w_reg_manager
end type
type cb_ok from uo_imflatbutton within w_reg_manager
end type
type cb_reg from uo_imflatbutton within w_reg_manager
end type
end forward

global type w_reg_manager from window
integer x = 777
integer y = 436
integer width = 3904
integer height = 2464
boolean titlebar = true
string title = "注册信息"
boolean controlmenu = true
windowtype windowtype = popup!
long backcolor = 16777215
st_1 st_1
st_2 st_2
em_basecount em_basecount
em_phonecount em_phonecount
dw_1 dw_1
cb_1 cb_1
st_publish st_publish
st_tele1 st_tele1
cb_ok cb_ok
cb_reg cb_reg
end type
global w_reg_manager w_reg_manager

type variables
Long ins_reqid
Long ins_newreqid
oleObject ins_curRegMsg
end variables

forward prototypes
public subroutine wf_retrieve ()
public subroutine wf_get_regmsg (long arg_reqid)
end prototypes

public subroutine wf_retrieve ();int i,row


DataStore ds_module
ds_module = Create DataStore
ds_module.DataObject = 'ds_sys_module_kf'

ds_module.RowsCopy(1, ds_module.RowCount(), Primary!, dw_1, 1, Primary!)

destroy ds_module


string arg_msg
oleobject getRegMsgRequest,getRegMsgResponse
getRegMsgRequest = RegCom.NewPBDictionary()
getRegMsgResponse = RegCom.DoExecute('GetRegMsg',getRegMsgRequest)
arg_msg = getRegMsgResponse.getString('ErrMsg')
IF arg_msg <> '' THEN
	MessageBox('ERROR', '获取注册信息失败:' + arg_msg)
	RETURN
END IF
oleObject moduleinfos,item
ins_curRegMsg = getRegMsgResponse.GetPBDictionary('regMsg')
IF IsNull(ins_curRegMsg) THEN
	MessageBox('ERROR', '本服务未注册，请先进行注册')
	cb_1.Triggerevent(clicked!)
	RETURN
END IF
ins_reqid = ins_curRegMsg.GetInt('reqid')
ins_newreqid = ins_curRegMsg.GetInt('newreqid')
IF ins_reqid > 0 THEN
	em_basecount.Text = String(ins_curRegMsg.GetInt('basecount'))
	em_phonecount.Text = String(ins_curRegMsg.GetInt('phonecount'))
	moduleinfos = ins_curRegMsg.GetPBArray('moduleinfos')
	IF moduleinfos.Count = 0 THEN RETURN
	FOR i = 1 TO moduleinfos.Count
		item = moduleinfos.GetPBDictionary(i - 1)
		row = dw_1.Find("moduleid = "+String(item.GetInt('ModuleID')),1,dw_1.RowCount())
		IF row > 0 THEN
			dw_1.Object.ch[row] = 1
			dw_1.Object.overdate[row] = String(item.GetDateTime('overdate'),'yyyy-MM-dd')
		END IF
	NEXT
END IF
IF ins_reqid <> ins_newreqid THEN
	// 获取新注册信息
	f_init_yunregcom(ref arg_msg)
	if (arg_msg <> '') then
		MessageBox('提示', '加载云注册模块失败:' + arg_msg)
		Close(this)
		return
	end if
	oleobject getRegCodeRequest, getRegCodeResponse
	getRegCodeRequest = YunRegCom.NewPBDictionary()
	getRegCodeRequest.SetInt("reqid",ins_newreqid)
	getRegCodeResponse = YunRegCom.DoExecute('GetRegCode',getRegCodeRequest)
	arg_msg = getRegCodeResponse.getString('ErrMsg')
	IF arg_msg <> '' THEN
		MessageBox('ERROR', '获取新注册信息失败:' + arg_msg)
		RETURN
	END IF
	
	oleobject saveRegMsgResponse
	saveRegMsgResponse = RegCom.DoExecute('SaveRegMsg', getRegCodeResponse)
	arg_msg = saveRegMsgResponse.getString('ErrMsg')
	IF arg_msg <> '' THEN
		MessageBox('ERROR', '保存注册申请信息失败:' + arg_msg)
		RETURN
	END IF
	wf_retrieve()
END IF

end subroutine

public subroutine wf_get_regmsg (long arg_reqid);string arg_msg
f_init_yunregcom(ref arg_msg)
if (arg_msg <> '') then
	MessageBox('提示', '加载云注册模块失败:' + arg_msg)
	Close(this)
	return
end if

oleobject getRegCodeRequest,getRegCodeResponse
getRegCodeRequest = YunRegCom.NewPBDictionary()
getRegCodeRequest.SetInt('reqid',arg_reqid)
getRegCodeResponse = YunRegCom.DoExecute('GetRegCode',getRegCodeRequest)
arg_msg = getRegCodeResponse.getString('ErrMsg')
IF arg_msg <> '' THEN
	MessageBox('ERROR', '获取新注册信息失败:' + arg_msg)
	RETURN
END IF

oleobject saveRegMsgResponse
saveRegMsgResponse = RegCom.DoExecute('SaveRegMsg', getRegCodeResponse)
wf_retrieve()
end subroutine

on w_reg_manager.create
this.st_1=create st_1
this.st_2=create st_2
this.em_basecount=create em_basecount
this.em_phonecount=create em_phonecount
this.dw_1=create dw_1
this.cb_1=create cb_1
this.st_publish=create st_publish
this.st_tele1=create st_tele1
this.cb_ok=create cb_ok
this.cb_reg=create cb_reg
this.Control[]={this.st_1,&
this.st_2,&
this.em_basecount,&
this.em_phonecount,&
this.dw_1,&
this.cb_1,&
this.st_publish,&
this.st_tele1,&
this.cb_ok,&
this.cb_reg}
end on

on w_reg_manager.destroy
destroy(this.st_1)
destroy(this.st_2)
destroy(this.em_basecount)
destroy(this.em_phonecount)
destroy(this.dw_1)
destroy(this.cb_1)
destroy(this.st_publish)
destroy(this.st_tele1)
destroy(this.cb_ok)
destroy(this.cb_reg)
end on

event open;string arg_msg
f_init_regcom(ref arg_msg)
if (arg_msg <> '') then
	MessageBox('提示', '加载协同模块失败:' + arg_msg)
	Close(this)
	return
end if
wf_retrieve()
end event

type st_1 from statictext within w_reg_manager
integer x = 91
integer y = 48
integer width = 302
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "基础站点"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_reg_manager
integer x = 649
integer y = 48
integer width = 302
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "手机站点"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_basecount from editmask within w_reg_manager
integer x = 416
integer y = 32
integer width = 160
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
string text = "0"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "########0"
end type

type em_phonecount from editmask within w_reg_manager
integer x = 978
integer y = 32
integer width = 160
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
string text = "0"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "########0"
end type

type dw_1 from datawindow within w_reg_manager
integer x = 9
integer y = 168
integer width = 3881
integer height = 2220
integer taborder = 20
string title = "none"
string dataobject = "dw_reg_sys_module_readonly"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_1 from commandbutton within w_reg_manager
integer x = 1211
integer y = 32
integer width = 411
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "申请注册"
end type

event clicked;IF ins_newreqid > 0 THEN
	IF MessageBox('','已进行过在线申请，继续进行操作将对注册记录进行重置，确定继续？',Question!,YesNo!) = 2 THEN
		RETURN
	END IF
END IF
IF NOT IsValid(w_reg_apply) THEN
	IF ins_reqid > 0 THEN
		OpenWithParm(w_reg_apply,ins_curRegMsg)
	ELSE
		Open(w_reg_apply)
	END IF
END IF
end event

type st_publish from statictext within w_reg_manager
boolean visible = false
integer x = 238
integer y = 732
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "发 行 者："
boolean focusrectangle = false
end type

type st_tele1 from statictext within w_reg_manager
boolean visible = false
integer x = 238
integer y = 892
integer width = 1810
integer height = 60
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "传    真："
boolean focusrectangle = false
end type

type cb_ok from uo_imflatbutton within w_reg_manager
boolean visible = false
integer x = 864
integer y = 1252
integer width = 384
integer height = 108
integer taborder = 20
integer textsize = -10
boolean default = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;// Close "About" window

Close (parent)
end event

type cb_reg from uo_imflatbutton within w_reg_manager
boolean visible = false
integer x = 960
integer y = 1228
integer width = 329
integer height = 92
integer taborder = 10
string text = "注册信息"
end type

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