Q5/ws_objects/Ew_aifmb.pbl.src/w_aifmb_regcom.srw

$PBExportHeader$w_aifmb_regcom.srw
forward
global type w_aifmb_regcom from window
end type
type st_15 from statictext within w_aifmb_regcom
end type
type ddlb_1 from dropdownlistbox within w_aifmb_regcom
end type
type cb_3 from commandbutton within w_aifmb_regcom
end type
type sle_address from multilineedit within w_aifmb_regcom
end type
type st_14 from statictext within w_aifmb_regcom
end type
type sle_dscrp from multilineedit within w_aifmb_regcom
end type
type st_13 from statictext within w_aifmb_regcom
end type
type sle_lognewpsw from singlelineedit within w_aifmb_regcom
end type
type st_12 from statictext within w_aifmb_regcom
end type
type sle_logpsw from singlelineedit within w_aifmb_regcom
end type
type st_11 from statictext within w_aifmb_regcom
end type
type sle_repname from singlelineedit within w_aifmb_regcom
end type
type st_10 from statictext within w_aifmb_regcom
end type
type sle_logname from singlelineedit within w_aifmb_regcom
end type
type cb_2 from commandbutton within w_aifmb_regcom
end type
type cb_1 from commandbutton within w_aifmb_regcom
end type
type sle_comcode from singlelineedit within w_aifmb_regcom
end type
type st_9 from statictext within w_aifmb_regcom
end type
type sle_qq from singlelineedit within w_aifmb_regcom
end type
type st_8 from statictext within w_aifmb_regcom
end type
type sle_email from singlelineedit within w_aifmb_regcom
end type
type st_7 from statictext within w_aifmb_regcom
end type
type st_6 from statictext within w_aifmb_regcom
end type
type sle_phone from singlelineedit within w_aifmb_regcom
end type
type st_5 from statictext within w_aifmb_regcom
end type
type sle_tele from singlelineedit within w_aifmb_regcom
end type
type st_4 from statictext within w_aifmb_regcom
end type
type sle_newpsw from singlelineedit within w_aifmb_regcom
end type
type st_3 from statictext within w_aifmb_regcom
end type
type sle_psw from singlelineedit within w_aifmb_regcom
end type
type st_2 from statictext within w_aifmb_regcom
end type
type st_1 from statictext within w_aifmb_regcom
end type
type sle_username from singlelineedit within w_aifmb_regcom
end type
end forward

global type w_aifmb_regcom from window
integer width = 2245
integer height = 1920
boolean titlebar = true
string title = "注册电商"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 16777215
string icon = "AppIcon!"
boolean center = true
event ue_after_open ( )
st_15 st_15
ddlb_1 ddlb_1
cb_3 cb_3
sle_address sle_address
st_14 st_14
sle_dscrp sle_dscrp
st_13 st_13
sle_lognewpsw sle_lognewpsw
st_12 st_12
sle_logpsw sle_logpsw
st_11 st_11
sle_repname sle_repname
st_10 st_10
sle_logname sle_logname
cb_2 cb_2
cb_1 cb_1
sle_comcode sle_comcode
st_9 st_9
sle_qq sle_qq
st_8 st_8
sle_email sle_email
st_7 st_7
st_6 st_6
sle_phone sle_phone
st_5 st_5
sle_tele sle_tele
st_4 st_4
sle_newpsw sle_newpsw
st_3 st_3
sle_psw sle_psw
st_2 st_2
st_1 st_1
sle_username sle_username
end type
global w_aifmb_regcom w_aifmb_regcom

event ue_after_open();Int rslt = 1
String arg_msg

uo_aifmb = Create uo_aifmb
datastore ds_grade
ds_grade = Create datastore

IF uo_aifmb.uf_getusergrade(ds_grade, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

Long i
string item
FOR i = 1 To ds_grade.RowCount()
	item = '[' + string(ds_grade.Object.ItemID[i]) + ']' + trim(ds_grade.Object.ItemName[i], true)
	ddlb_1.AddItem(item)
NEXT

ext:
Destroy uo_aifmb
Destroy ds_grade
IF rslt <> 1 THEN
	MessageBox('ERROR', arg_msg)
END IF



end event

on w_aifmb_regcom.create
this.st_15=create st_15
this.ddlb_1=create ddlb_1
this.cb_3=create cb_3
this.sle_address=create sle_address
this.st_14=create st_14
this.sle_dscrp=create sle_dscrp
this.st_13=create st_13
this.sle_lognewpsw=create sle_lognewpsw
this.st_12=create st_12
this.sle_logpsw=create sle_logpsw
this.st_11=create st_11
this.sle_repname=create sle_repname
this.st_10=create st_10
this.sle_logname=create sle_logname
this.cb_2=create cb_2
this.cb_1=create cb_1
this.sle_comcode=create sle_comcode
this.st_9=create st_9
this.sle_qq=create sle_qq
this.st_8=create st_8
this.sle_email=create sle_email
this.st_7=create st_7
this.st_6=create st_6
this.sle_phone=create sle_phone
this.st_5=create st_5
this.sle_tele=create sle_tele
this.st_4=create st_4
this.sle_newpsw=create sle_newpsw
this.st_3=create st_3
this.sle_psw=create sle_psw
this.st_2=create st_2
this.st_1=create st_1
this.sle_username=create sle_username
this.Control[]={this.st_15,&
this.ddlb_1,&
this.cb_3,&
this.sle_address,&
this.st_14,&
this.sle_dscrp,&
this.st_13,&
this.sle_lognewpsw,&
this.st_12,&
this.sle_logpsw,&
this.st_11,&
this.sle_repname,&
this.st_10,&
this.sle_logname,&
this.cb_2,&
this.cb_1,&
this.sle_comcode,&
this.st_9,&
this.sle_qq,&
this.st_8,&
this.sle_email,&
this.st_7,&
this.st_6,&
this.sle_phone,&
this.st_5,&
this.sle_tele,&
this.st_4,&
this.sle_newpsw,&
this.st_3,&
this.sle_psw,&
this.st_2,&
this.st_1,&
this.sle_username}
end on

on w_aifmb_regcom.destroy
destroy(this.st_15)
destroy(this.ddlb_1)
destroy(this.cb_3)
destroy(this.sle_address)
destroy(this.st_14)
destroy(this.sle_dscrp)
destroy(this.st_13)
destroy(this.sle_lognewpsw)
destroy(this.st_12)
destroy(this.sle_logpsw)
destroy(this.st_11)
destroy(this.sle_repname)
destroy(this.st_10)
destroy(this.sle_logname)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.sle_comcode)
destroy(this.st_9)
destroy(this.sle_qq)
destroy(this.st_8)
destroy(this.sle_email)
destroy(this.st_7)
destroy(this.st_6)
destroy(this.sle_phone)
destroy(this.st_5)
destroy(this.sle_tele)
destroy(this.st_4)
destroy(this.sle_newpsw)
destroy(this.st_3)
destroy(this.sle_psw)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.sle_username)
end on

event open;postevent('ue_after_open')
end event

type st_15 from statictext within w_aifmb_regcom
integer x = 142
integer y = 1568
integer width = 238
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "会员级别"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_1 from dropdownlistbox within w_aifmb_regcom
integer x = 398
integer y = 1552
integer width = 855
integer height = 740
integer taborder = 130
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type cb_3 from commandbutton within w_aifmb_regcom
integer x = 114
integer y = 1684
integer width = 384
integer height = 100
integer taborder = 170
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "使用现有帐号"
end type

event clicked;Open(w_aifmb_com_match)
Long ll_rtn
ll_rtn = Message.DoubleParm
IF ll_rtn = 1 THEN
	CloseWithReturn(Parent, 1)
END IF

end event

type sle_address from multilineedit within w_aifmb_regcom
integer x = 1307
integer y = 1056
integer width = 855
integer height = 576
integer taborder = 140
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean hscrollbar = true
boolean vscrollbar = true
boolean autohscroll = true
boolean autovscroll = true
borderstyle borderstyle = stylelowered!
end type

type st_14 from statictext within w_aifmb_regcom
integer x = 1335
integer y = 80
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "企业简介"
boolean focusrectangle = false
end type

type sle_dscrp from multilineedit within w_aifmb_regcom
integer x = 1303
integer y = 188
integer width = 855
integer height = 704
integer taborder = 130
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean hscrollbar = true
boolean vscrollbar = true
boolean autohscroll = true
boolean autovscroll = true
borderstyle borderstyle = stylelowered!
end type

type st_13 from statictext within w_aifmb_regcom
integer x = 37
integer y = 948
integer width = 343
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "登陆密码确认"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_lognewpsw from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 932
integer width = 855
integer height = 84
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_12 from statictext within w_aifmb_regcom
integer x = 37
integer y = 824
integer width = 343
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "登陆密码"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_logpsw from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 808
integer width = 855
integer height = 84
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_11 from statictext within w_aifmb_regcom
integer x = 37
integer y = 700
integer width = 343
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "真实姓名"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_repname from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 684
integer width = 855
integer height = 84
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_10 from statictext within w_aifmb_regcom
integer x = 37
integer y = 576
integer width = 343
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "用户名"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_logname from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 560
integer width = 855
integer height = 84
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_2 from commandbutton within w_aifmb_regcom
integer x = 1838
integer y = 1684
integer width = 288
integer height = 100
integer taborder = 160
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "退出"
end type

event clicked;closewithreturn(parent,0)
end event

type cb_1 from commandbutton within w_aifmb_regcom
integer x = 1495
integer y = 1684
integer width = 288
integer height = 100
integer taborder = 150
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "注册"
end type

event clicked;Int rslt = 1
String arg_msg
uo_aifmb = Create uo_aifmb

IF sle_username.Text = '' THEN
	rslt = 0
	arg_msg = '请输入企业名称'
	sle_username.SetFocus()
	GOTO ext
END IF

IF sle_comcode.Text = '' THEN
	rslt = 0
	arg_msg = '请输入机构代码'
	sle_comcode.SetFocus()
	GOTO ext
END IF

IF sle_psw.Text = '' THEN
	rslt = 0
	arg_msg = '请输入企业密码'
	sle_psw.SetFocus()
	GOTO ext
END IF

IF sle_newpsw.Text <> sle_psw.Text THEN
	rslt = 0
	arg_msg = '企业密码与企业密码确认不一至'
	sle_newpsw.SetFocus()
	GOTO ext
END IF

IF sle_logname.Text = '' THEN
	rslt = 0
	arg_msg = '请输入用户名'
	sle_logname.SetFocus()
	GOTO ext
END IF

IF sle_repname.Text = '' THEN
	rslt = 0
	arg_msg = '请输入真实姓名'
	sle_repname.SetFocus()
	GOTO ext
END IF

IF sle_logpsw.Text = '' THEN
	rslt = 0
	arg_msg = '请输入登陆密码'
	sle_logpsw.SetFocus()
	GOTO ext
END IF

IF sle_lognewpsw.Text = '' THEN
	rslt = 0
	arg_msg = '登陆密码与登陆密码确认不一至'
	sle_lognewpsw.SetFocus()
	GOTO ext
END IF

Long usertype
Long pos1, pos2
pos1 = Pos(ddlb_1.Text, '[')
pos2 = Pos(ddlb_1.Text, ']')
IF pos1 > 0 And pos2 > pos1 THEN
	usertype = Long(Mid(ddlb_1.Text, pos1 + 1, pos2 - pos1 - 1))
END IF


s_aifmb_regcomrequest s_request
s_request.username = sle_username.Text
s_request.comcode = sle_comcode.Text
s_request.psw = sle_psw.Text
s_request.logname = sle_logname.Text
s_request.repname = sle_repname.Text
s_request.logpsw = sle_logpsw.Text
s_request.tele = sle_tele.Text
s_request.phone = sle_phone.Text
s_request.Address = sle_address.Text
s_request.email = sle_email.Text
s_request.qq = sle_qq.Text
s_request.dscrp = sle_dscrp.Text
s_request.usertype = usertype 

IF uo_aifmb.uf_regcom(s_request, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

ext:
Destroy uo_aifmb
IF rslt = 1 THEN
	MessageBox('OK', '注册成功')
	CloseWithReturn(Parent,1)
ELSE
	MessageBox('ERROR', arg_msg)
END IF


end event

type sle_comcode from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 188
integer width = 855
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_9 from statictext within w_aifmb_regcom
integer x = 101
integer y = 204
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "机构代码"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_qq from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 1428
integer width = 855
integer height = 84
integer taborder = 120
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_8 from statictext within w_aifmb_regcom
integer x = 101
integer y = 1444
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "QQ号"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_email from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 1304
integer width = 855
integer height = 84
integer taborder = 110
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_7 from statictext within w_aifmb_regcom
integer x = 101
integer y = 1320
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "邮件地址"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_aifmb_regcom
integer x = 1335
integer y = 948
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "地址"
boolean focusrectangle = false
end type

type sle_phone from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 1180
integer width = 855
integer height = 84
integer taborder = 100
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_5 from statictext within w_aifmb_regcom
integer x = 101
integer y = 1196
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "手机"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_tele from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 1056
integer width = 855
integer height = 84
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_4 from statictext within w_aifmb_regcom
integer x = 101
integer y = 1072
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "电话"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_newpsw from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 436
integer width = 855
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within w_aifmb_regcom
integer x = 37
integer y = 452
integer width = 343
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "企业密码确认"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_psw from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 312
integer width = 855
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_aifmb_regcom
integer x = 101
integer y = 328
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "企业密码"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_1 from statictext within w_aifmb_regcom
integer x = 101
integer y = 80
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "企业名称"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_username from singlelineedit within w_aifmb_regcom
integer x = 398
integer y = 64
integer width = 855
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type