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

$PBExportHeader$w_aifmb_login.srw
forward
global type w_aifmb_login from window
end type
type cb_exit from commandbutton within w_aifmb_login
end type
type cb_1 from commandbutton within w_aifmb_login
end type
type p_1 from picture within w_aifmb_login
end type
type sle_authcode from singlelineedit within w_aifmb_login
end type
type st_3 from statictext within w_aifmb_login
end type
type st_2 from statictext within w_aifmb_login
end type
type sle_psw from singlelineedit within w_aifmb_login
end type
type st_1 from statictext within w_aifmb_login
end type
type sle_username from singlelineedit within w_aifmb_login
end type
end forward

global type w_aifmb_login from window
integer width = 1061
integer height = 580
boolean titlebar = true
string title = "登录"
boolean controlmenu = true
boolean minbox = true
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_exit cb_exit
cb_1 cb_1
p_1 p_1
sle_authcode sle_authcode
st_3 st_3
st_2 st_2
sle_psw sle_psw
st_1 st_1
sle_username sle_username
end type
global w_aifmb_login w_aifmb_login

on w_aifmb_login.create
this.cb_exit=create cb_exit
this.cb_1=create cb_1
this.p_1=create p_1
this.sle_authcode=create sle_authcode
this.st_3=create st_3
this.st_2=create st_2
this.sle_psw=create sle_psw
this.st_1=create st_1
this.sle_username=create sle_username
this.Control[]={this.cb_exit,&
this.cb_1,&
this.p_1,&
this.sle_authcode,&
this.st_3,&
this.st_2,&
this.sle_psw,&
this.st_1,&
this.sle_username}
end on

on w_aifmb_login.destroy
destroy(this.cb_exit)
destroy(this.cb_1)
destroy(this.p_1)
destroy(this.sle_authcode)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.sle_psw)
destroy(this.st_1)
destroy(this.sle_username)
end on

event open;Int rslt = 1
String arg_msg
uo_aifmb = Create uo_aifmb
Blob lb_pic

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

p_1.SetPicture(lb_pic)

ext:
Destroy uo_aifmb
IF rslt = 0 THEN
	MessageBox('Error', arg_msg)
	cb_exit.PostEvent(Clicked!)
END IF

end event

type cb_exit from commandbutton within w_aifmb_login
integer x = 658
integer y = 392
integer width = 229
integer height = 84
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
boolean cancel = true
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_aifmb_login
integer x = 407
integer y = 392
integer width = 229
integer height = 84
integer taborder = 40
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 uo_aifmb.uf_UserLogin(sle_username.Text, sle_psw.Text, sle_authcode.Text, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

ext:
Destroy uo_aifmb
IF rslt = 0 THEN
	MessageBox('Error', arg_msg)
ELSE
	Close(Parent)
END IF


end event

type p_1 from picture within w_aifmb_login
integer x = 786
integer y = 272
integer width = 215
integer height = 92
boolean originalsize = true
boolean focusrectangle = false
end type

event clicked;int rslt = 1
string arg_msg
uo_aifmb = create uo_aifmb
blob lb_pic

if uo_aifmb.uf_AuthCode(lb_pic, arg_msg) <> 1 then
	rslt = 0
	goto ext
end if

p_1.SetPicture(lb_pic)

ext:
destroy uo_aifmb
if rslt = 0 then
	MessageBox('Error', arg_msg)
end if
end event

type sle_authcode from singlelineedit within w_aifmb_login
integer x = 311
integer y = 272
integer width = 457
integer height = 92
integer taborder = 30
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_login
integer x = 46
integer y = 292
integer width = 247
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "验证码"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_aifmb_login
integer x = 46
integer y = 172
integer width = 247
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "密码"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_psw from singlelineedit within w_aifmb_login
integer x = 311
integer y = 152
integer width = 457
integer height = 92
integer taborder = 20
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_1 from statictext within w_aifmb_login
integer x = 64
integer y = 52
integer width = 229
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "用户名"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_username from singlelineedit within w_aifmb_login
integer x = 311
integer y = 32
integer width = 457
integer height = 92
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