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

$PBExportHeader$w_aifmb_com_match.srw
forward
global type w_aifmb_com_match from window
end type
type sle_usercode from singlelineedit within w_aifmb_com_match
end type
type st_3 from statictext within w_aifmb_com_match
end type
type cb_2 from commandbutton within w_aifmb_com_match
end type
type cb_1 from commandbutton within w_aifmb_com_match
end type
type sle_psw from singlelineedit within w_aifmb_com_match
end type
type st_2 from statictext within w_aifmb_com_match
end type
type st_1 from statictext within w_aifmb_com_match
end type
type sle_username from singlelineedit within w_aifmb_com_match
end type
end forward

global type w_aifmb_com_match from window
integer width = 1399
integer height = 676
boolean titlebar = true
string title = "绑定现有帐号"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 16777215
string icon = "AppIcon!"
boolean center = true
sle_usercode sle_usercode
st_3 st_3
cb_2 cb_2
cb_1 cb_1
sle_psw sle_psw
st_2 st_2
st_1 st_1
sle_username sle_username
end type
global w_aifmb_com_match w_aifmb_com_match

on w_aifmb_com_match.create
this.sle_usercode=create sle_usercode
this.st_3=create st_3
this.cb_2=create cb_2
this.cb_1=create cb_1
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.sle_usercode,&
this.st_3,&
this.cb_2,&
this.cb_1,&
this.sle_psw,&
this.st_2,&
this.st_1,&
this.sle_username}
end on

on w_aifmb_com_match.destroy
destroy(this.sle_usercode)
destroy(this.st_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.sle_psw)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.sle_username)
end on

type sle_usercode from singlelineedit within w_aifmb_com_match
integer x = 393
integer y = 60
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
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within w_aifmb_com_match
integer x = 96
integer y = 76
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 cb_2 from commandbutton within w_aifmb_com_match
integer x = 951
integer y = 444
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 = "退出"
boolean cancel = true
end type

event clicked;closewithreturn(parent, 0)
end event

type cb_1 from commandbutton within w_aifmb_com_match
integer x = 608
integer y = 444
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 = "确定"
boolean default = true
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_psw.Text = '' THEN
	rslt = 0
	arg_msg = '请输入企业密码'
	sle_psw.SetFocus()
	GOTO ext
END IF

IF uo_aifmb.uf_commatch(sle_usercode.Text, sle_username.Text, sle_psw.Text, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

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



end event

type sle_psw from singlelineedit within w_aifmb_com_match
integer x = 393
integer y = 308
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_com_match
integer x = 96
integer y = 324
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_com_match
integer x = 96
integer y = 200
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_com_match
integer x = 393
integer y = 184
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