Q5/ws_objects/Ew_axmswinsock.pbl.src/w_sys_login_q6.srw

$PBExportHeader$w_sys_login_q6.srw
forward
global type w_sys_login_q6 from w_publ_base
end type
type cb_3 from commandbutton within w_sys_login_q6
end type
type em_remoteport from editmask within w_sys_login_q6
end type
type st_3 from statictext within w_sys_login_q6
end type
type sle_remotehost from singlelineedit within w_sys_login_q6
end type
type st_4 from statictext within w_sys_login_q6
end type
type st_msg from statictext within w_sys_login_q6
end type
type st_5 from statictext within w_sys_login_q6
end type
type st_6 from statictext within w_sys_login_q6
end type
type st_7 from statictext within w_sys_login_q6
end type
type em_frame_size from editmask within w_sys_login_q6
end type
type st_8 from statictext within w_sys_login_q6
end type
type em_2 from editmask within w_sys_login_q6
end type
type cb_ok from uo_imflatbutton within w_sys_login_q6
end type
type cb_connect from uo_imflatbutton within w_sys_login_q6
end type
type cb_disconnect from uo_imflatbutton within w_sys_login_q6
end type
type st_9 from statictext within w_sys_login_q6
end type
type sle_autodistime from singlelineedit within w_sys_login_q6
end type
type p_ip from picture within w_sys_login_q6
end type
type cbx_saveuid from checkbox within w_sys_login_q6
end type
type cb_chc from uo_imflatbutton within w_sys_login_q6
end type
type st_11 from statictext within w_sys_login_q6
end type
type st_name from statictext within w_sys_login_q6
end type
type st_status from statictext within w_sys_login_q6
end type
type gb_1 from groupbox within w_sys_login_q6
end type
type r_1 from rectangle within w_sys_login_q6
end type
type ln_2 from line within w_sys_login_q6
end type
type ln_3 from line within w_sys_login_q6
end type
type ln_4 from line within w_sys_login_q6
end type
type ln_5 from line within w_sys_login_q6
end type
type p_1 from picture within w_sys_login_q6
end type
type sle_pwd from singlelineedit within w_sys_login_q6
end type
type sle_uid from singlelineedit within w_sys_login_q6
end type
type ddlb_acount from dropdownlistbox within w_sys_login_q6
end type
type cb_2 from uo_imflatbutton within w_sys_login_q6
end type
type st_version from statictext within w_sys_login_q6
end type
type st_1 from statictext within w_sys_login_q6
end type
type st_2 from statictext within w_sys_login_q6
end type
type st_10 from statictext within w_sys_login_q6
end type
end forward

global type w_sys_login_q6 from w_publ_base
integer width = 2249
integer height = 1512
string title = "企精灵6"
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
event ue_refresh_prpstaus ( )
cb_3 cb_3
em_remoteport em_remoteport
st_3 st_3
sle_remotehost sle_remotehost
st_4 st_4
st_msg st_msg
st_5 st_5
st_6 st_6
st_7 st_7
em_frame_size em_frame_size
st_8 st_8
em_2 em_2
cb_ok cb_ok
cb_connect cb_connect
cb_disconnect cb_disconnect
st_9 st_9
sle_autodistime sle_autodistime
p_ip p_ip
cbx_saveuid cbx_saveuid
cb_chc cb_chc
st_11 st_11
st_name st_name
st_status st_status
gb_1 gb_1
r_1 r_1
ln_2 ln_2
ln_3 ln_3
ln_4 ln_4
ln_5 ln_5
p_1 p_1
sle_pwd sle_pwd
sle_uid sle_uid
ddlb_acount ddlb_acount
cb_2 cb_2
st_version st_version
st_1 st_1
st_2 st_2
st_10 st_10
end type
global w_sys_login_q6 w_sys_login_q6

type prototypes
FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf) LIBRARY "kernel32.dll" alias for "GetComputerNameA;Ansi"

Function long getcpuid() Library "getcpuid.dll"
end prototypes

type variables
int if_halt=0  //默认不退出系统
int if_openprp=0 //是否打开连接属性面版
int if_connected=0//是否已经连接了
time ins_connectedtime//连接成功的时间(非连接状态为null)
long ins_autodisconnect_sec=10//连接成功不登录等待自动断开的时间


String ins_signStr = ">> "
String uid = ""
String pwd = ""//加密的
String Acount = ""
String HostName
String IP
string LastAcount
string LastUser

string StatusMsg = "请先连接服务器!"

String MsgHead[] = {"<MH>","<Msg>"}
String MsgEnd[] = {"</MH>","</Msg>"}

//
Int I_ERROR = 0
Int I_MSG = 1
Int I_STATUS = 2
Int I_ACOUNT = 3
Int I_DBINFO = 4
Int I_SETREQ = 5
Int I_LOGINREQ = 6
Int I_RELOGINREQ = 7
Int I_CHKLOGINREQ = 8
Int I_USERQUTIREQ = 9

s_msgframe s_msg
string ins_LoginAcount = ""

//返回值,是否换账套重新登陆 0：首次 1：帐套相同 2：帐套不同
int ins_ReLogin = 0 

boolean I_Login = false
boolean Ib_AcountMustUser = false
boolean Ib_EmptyAcount = false

uo_fingerprint uo_fp
boolean lb_collect = false

end variables

forward prototypes
public function string wf_getcomputername ()
public function integer wf_acceptmsg ()
public function integer wf_sendmsg (integer arg_framenum)
public function integer wf_write_ini ()
public function integer wf_connect ()
public subroutine wf_lock (boolean arg_flag)
end prototypes

event ue_refresh_prpstaus();
IF if_openprp = 1 THEN
	//	THIS.Height = 1040 
	This.Height = 1432 + This.Height -  This.WorkSpaceHeight()
	cb_2.Text = '︽'
ELSE
	//	THIS.Height = 740 
	This.Height = 1100  + This.Height -  This.WorkSpaceHeight()
	cb_2.Text = '︾'
END IF

cb_2.TriggerEvent('ue_textchange')

end event

public function string wf_getcomputername ();String ls_computername=space(512)
Long ll_buffer=512
Getcomputernamea(ls_computername,ll_buffer)
Return ls_computername 
end function

public function integer wf_acceptmsg ();Long AcountIndex, i
Long rslt = 0 //, ll_TotalItems
String ls_regtitle
//Long li_version_type

IF sys_buf_s_msgFrame.Error < 0 THEN
	IF sys_buf_s_msgFrame.Error = -1 THEN
		MessageBox('系统提示',sys_buf_s_msgFrame.ErrorMsg)
	ELSEIF sys_buf_s_msgFrame.Error = -14 THEN //
		IF Lower(Trim(sle_uid.Text)) = "super" THEN
			IF MessageBox('系统提示',sys_buf_s_msgFrame.ErrorMsg+",是否要查看在线用户?", Exclamation!, OKCancel!, 2) = 1 THEN
				Open(w_client_list)
			END IF
		ELSE
			MessageBox('系统提示',sys_buf_s_msgFrame.ErrorMsg)
		END IF
	ELSEIF sys_buf_s_msgFrame.Error = -15 THEN //
		MessageBox('系统提示',sys_buf_s_msgFrame.ErrorMsg)
	END IF
	sle_pwd.SelectText( 1, Len(sle_pwd.Text))
	sle_pwd.SetFocus()
	StatusMsg = "错误:"+sys_buf_s_msgFrame.ErrorMsg
ELSE
	
	
	IF sys_buf_s_msgFrame.MsgType = 4 THEN
		
		sys_ServerName = sys_buf_s_msgFrame.frame_str[1]
		
		sys_DataBase = sys_buf_s_msgFrame.frame_str[2]
		sys_LoginID = sys_buf_s_msgFrame.frame_str[3]
		sys_LoginPwd = sys_buf_s_msgFrame.frame_str[4] //加密的
		
		sys_version = long(sys_buf_s_msgFrame.frame_str[5]) //系统版本
		
		sys_if_locker = Integer(sys_buf_s_msgFrame.frame_str[6])
		sys_if_register = Integer(sys_buf_s_msgFrame.frame_str[7])
		sys_message_timeoutdate = sys_buf_s_msgFrame.frame_str[8]
		
		IF sys_buf_s_msgFrame.frame_str_index >=19  THEN//附件数据库, 消息数据库
			sys_ServerNameFJ =  sys_buf_s_msgFrame.frame_str[12]
			sys_DataBaseFJ =  sys_buf_s_msgFrame.frame_str[13]
			sys_LoginIDFJ =  sys_buf_s_msgFrame.frame_str[14]
			sys_LoginPwdFJ =  sys_buf_s_msgFrame.frame_str[15]
			
			sys_ServerNameMsg =  sys_buf_s_msgFrame.frame_str[16]
			sys_DataBaseMsg =  sys_buf_s_msgFrame.frame_str[17]
			sys_LoginIDMsg =  sys_buf_s_msgFrame.frame_str[18]
			sys_LoginPwdMsg =  sys_buf_s_msgFrame.frame_str[19]
		END IF
				
		sys_userid = sys_buf_s_msgFrame.UserID
		
		sys_DBMS = 'OLE DB' //ProfileString (sys_inifilename, "database", "dbms",       "")
		sys_dbpass = ProfileString (sys_inifilename, "database", "dbpass",     "") //加密的
		sys_dbparm = ProfileString (sys_inifilename, "database", "dbparm",     "") //加密的
		
	
		IF Pos(sys_buf_s_msgFrame.frame_str[5] , "80200") > 0 THEN
			IF sys_buf_s_msgFrame.frame_str[5] = '802001' THEN //商业
				sys_version_type = 1
				sys_version_id = '801001ewiserpv5.0'
				sys_versionName = "商业版"
				sys_version_int = 1
			ELSEIF sys_buf_s_msgFrame.frame_str[5] = '802002' THEN //工业
				sys_version_type = 0
				sys_version_id = '801002ewiserpv5.0'
				sys_versionName = "工业版"
				sys_version_int = 2
			ELSEIF sys_buf_s_msgFrame.frame_str[5] = '802003' THEN //工业+
				sys_version_type = 2
				sys_version_id = '801003ewiserpv5.0'
				sys_versionName = "工业版+"
				sys_version_int = 3
			END IF
		ELSE
			MessageBox('系统提示',sys_SoftWareName+'不能连接旧版后台服务,请先安装新版后台服务')
			HALT
		END IF
		
		
		
		publ_userid = Trim(sle_uid.Text)
		sys_psw = Trim(sle_pwd.Text)
		
		sys_if_network = 1
		
		IF sys_buf_s_msgFrame.ErrorMsg <> "" THEN
			MessageBox('系统提示',sys_buf_s_msgFrame.ErrorMsg)
		END IF
		
		StatusMsg = "连接帐套:"+sys_DataBase+",登陆用户:"+publ_userid
		I_Login = TRUE
		rslt =  1
	ELSEIF sys_buf_s_msgFrame.MsgType = 3 THEN
		
		
			IF sys_buf_s_msgFrame.if_register  = 1 THEN
				ls_regtitle = ""
			ELSE
				ls_regtitle = "[试用]"
			END IF
			IF sys_buf_s_msgFrame.version_id = '802001' THEN //商业
				sys_version_type = 1
				sys_version_id = '801001ewiserpv5.0'
				sys_versionName = "商业版"
				st_version.text = "商业版[网络]"+ls_regtitle
			ELSEIF sys_buf_s_msgFrame.version_id = '802002' THEN //工业
				sys_version_type = 0
				sys_version_id = '801002ewiserpv5.0'
				sys_versionName = "工业版"
				st_version.text = "工业版[网络]"+ls_regtitle
			ELSEIF sys_buf_s_msgFrame.version_id = '802003' THEN //工业+
				sys_version_type = 2
				sys_version_id = '801003ewiserpv5.0'
				sys_versionName = "工业版+"
				st_version.text = "工业版+[网络]"+ls_regtitle
			ELSE
				MessageBox('系统提示',sys_SoftWareName+'不能连接旧版后台服务,请先安装新版后台服务')
				return 0  //HALT
			END IF
		
		Ib_AcountMustUser = sys_buf_s_msgFrame.AcountMustUser
		
		IF sys_buf_s_msgFrame.acountCnt > 0 THEN //IF UpperBound(sys_buf_s_msgFrame.acount) > 0 THEN
			Ib_EmptyAcount = FALSE
			ddlb_acount.Enabled = TRUE
			
			ddlb_acount.Reset()
			ddlb_acount.Text = ""
			//			ll_TotalItems = ddlb_acount.TotalItems()
			//			FOR i = 1 TO ll_TotalItems
			//				ddlb_acount.DeleteItem( 1 )
			//			NEXT
			
			FOR i = 1 TO sys_buf_s_msgFrame.acountCnt //UpperBound(sys_buf_s_msgFrame.acount)
				ddlb_acount.AddItem( sys_buf_s_msgFrame.acount[i])
				IF LastAcount = sys_buf_s_msgFrame.acount[i] THEN
					AcountIndex = i
				END IF
			NEXT
			
			IF AcountIndex > 0 THEN
				ddlb_acount.SelectItem( AcountIndex)
			ELSE
				ddlb_acount.SelectItem( 1)
			END IF
		
		
//			IF sys_version_id = '802001ewiserpv5.0' THEN
////				THIS.Title = "身份确认 - 龙嘉企精灵V3.1商业版" + ls_regtitle
//				
//			ELSEIF sys_version_id = '802002ewiserpv5.0' THEN
////				THIS.Title = "身份确认 - 龙嘉企精灵V3.1工业版 " + ls_regtitle
//				
//			ELSEIF sys_version_id = '802003ewiserpv5.0' THEN
////				THIS.Title = "身份确认 - 龙嘉企精灵V3.1工业版+"+ ls_regtitle
//				
//			END IF
			
			StatusMsg = "请选择要登陆的MIS帐套!"
		ELSE
			Ib_EmptyAcount = TRUE
			IF Ib_AcountMustUser THEN
				StatusMsg = "严格MIS帐套模式,请输入用户名/密码获取MIS帐套!"
				ddlb_acount.Reset()
				ddlb_acount.Text = ""
				ddlb_acount.Enabled = false
			ELSE
				StatusMsg = "宽松MIS帐套模式,请检查服务器MIS帐套设置是否正确!"
			END IF
		END IF
	ELSE
		
	END IF
	
END IF

RETURN rslt


end function

public function integer wf_sendmsg (integer arg_framenum);Long rslt = 0

sys_wsc.setsendmsg( s_msg, arg_framenum)
sys_wsc.TriggerEvent('ue_send') //发送命令

IF IsValid(w_ws) THEN
	w_ws.ins_HeartBeatSec = 0
END IF

//rslt =  //20秒内超时
IF f_waitforrslt_ws(sys_retritime) = 0 THEN
	MessageBox('系统提示','服务器超时!')
	rslt = -1
	GOTO ext
END IF

IF wf_acceptmsg() = 1 THEN
	rslt = 1
END IF

ext:
RETURN rslt


end function

public function integer wf_write_ini ();//写入INI
String IPAddress
Long Port
IPAddress = Trim(sle_remotehost.Text)
Port = Long(em_remoteport.Text)
Long i,j,ll_iffind
String ls_ini_ip,ls_ini_ip_j
//先查询是否已保存在INI中.有则不再操作
FOR i = 1 TO 10
	ls_ini_ip = ProfileString (sys_inifilename,'sys_dl_ip', String(i), '')
	IF ls_ini_ip = Trim(IPAddress) +':' + String(Port) THEN
		ll_iffind = 1
		EXIT
	END IF
NEXT
//如果没有记录在INI中,则先将1~9号顺延一位,然后将新IP记录在序号为"1"的位置中.
IF ll_iffind = 0 THEN
	FOR j = 9 TO 1 STEP -1
		ls_ini_ip_j = ProfileString (sys_inifilename,'sys_dl_ip', String(j), '')
		IF  Trim(ls_ini_ip_j) = '' THEN CONTINUE
		SetProfileString (sys_inifilename,'sys_dl_ip', String(j + 1), ls_ini_ip_j)
	NEXT
	
	SetProfileString (sys_inifilename,'sys_dl_ip', '1', Trim(IPAddress) +':' + String(Port))
END IF
// //


RETURN 1

end function

public function integer wf_connect ();return 1
end function

public subroutine wf_lock (boolean arg_flag);IF NOT arg_flag THEN
	ddlb_acount.Enabled = TRUE
	sle_uid.Enabled = TRUE
	sle_pwd.Enabled = TRUE
	cb_ok.Enabled = TRUE
	cb_ok.Text = '确定'
	cb_chc.Enabled = TRUE
	cb_exit.Enabled = TRUE
	lb_collect = false
ELSE
	 ddlb_acount.Enabled = FALSE
	sle_uid.Enabled = FALSE
	sle_pwd.Enabled = FALSE
	cb_ok.Enabled = FALSE
	cb_ok.Text = '验证指纹中'
	cb_chc.Enabled = FALSE
	cb_exit.Enabled = FALSE
	lb_collect = TRUE
END IF


end subroutine

on w_sys_login_q6.create
int iCurrent
call super::create
this.cb_3=create cb_3
this.em_remoteport=create em_remoteport
this.st_3=create st_3
this.sle_remotehost=create sle_remotehost
this.st_4=create st_4
this.st_msg=create st_msg
this.st_5=create st_5
this.st_6=create st_6
this.st_7=create st_7
this.em_frame_size=create em_frame_size
this.st_8=create st_8
this.em_2=create em_2
this.cb_ok=create cb_ok
this.cb_connect=create cb_connect
this.cb_disconnect=create cb_disconnect
this.st_9=create st_9
this.sle_autodistime=create sle_autodistime
this.p_ip=create p_ip
this.cbx_saveuid=create cbx_saveuid
this.cb_chc=create cb_chc
this.st_11=create st_11
this.st_name=create st_name
this.st_status=create st_status
this.gb_1=create gb_1
this.r_1=create r_1
this.ln_2=create ln_2
this.ln_3=create ln_3
this.ln_4=create ln_4
this.ln_5=create ln_5
this.p_1=create p_1
this.sle_pwd=create sle_pwd
this.sle_uid=create sle_uid
this.ddlb_acount=create ddlb_acount
this.cb_2=create cb_2
this.st_version=create st_version
this.st_1=create st_1
this.st_2=create st_2
this.st_10=create st_10
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_3
this.Control[iCurrent+2]=this.em_remoteport
this.Control[iCurrent+3]=this.st_3
this.Control[iCurrent+4]=this.sle_remotehost
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.st_msg
this.Control[iCurrent+7]=this.st_5
this.Control[iCurrent+8]=this.st_6
this.Control[iCurrent+9]=this.st_7
this.Control[iCurrent+10]=this.em_frame_size
this.Control[iCurrent+11]=this.st_8
this.Control[iCurrent+12]=this.em_2
this.Control[iCurrent+13]=this.cb_ok
this.Control[iCurrent+14]=this.cb_connect
this.Control[iCurrent+15]=this.cb_disconnect
this.Control[iCurrent+16]=this.st_9
this.Control[iCurrent+17]=this.sle_autodistime
this.Control[iCurrent+18]=this.p_ip
this.Control[iCurrent+19]=this.cbx_saveuid
this.Control[iCurrent+20]=this.cb_chc
this.Control[iCurrent+21]=this.st_11
this.Control[iCurrent+22]=this.st_name
this.Control[iCurrent+23]=this.st_status
this.Control[iCurrent+24]=this.gb_1
this.Control[iCurrent+25]=this.r_1
this.Control[iCurrent+26]=this.ln_2
this.Control[iCurrent+27]=this.ln_3
this.Control[iCurrent+28]=this.ln_4
this.Control[iCurrent+29]=this.ln_5
this.Control[iCurrent+30]=this.p_1
this.Control[iCurrent+31]=this.sle_pwd
this.Control[iCurrent+32]=this.sle_uid
this.Control[iCurrent+33]=this.ddlb_acount
this.Control[iCurrent+34]=this.cb_2
this.Control[iCurrent+35]=this.st_version
this.Control[iCurrent+36]=this.st_1
this.Control[iCurrent+37]=this.st_2
this.Control[iCurrent+38]=this.st_10
end on

on w_sys_login_q6.destroy
call super::destroy
destroy(this.cb_3)
destroy(this.em_remoteport)
destroy(this.st_3)
destroy(this.sle_remotehost)
destroy(this.st_4)
destroy(this.st_msg)
destroy(this.st_5)
destroy(this.st_6)
destroy(this.st_7)
destroy(this.em_frame_size)
destroy(this.st_8)
destroy(this.em_2)
destroy(this.cb_ok)
destroy(this.cb_connect)
destroy(this.cb_disconnect)
destroy(this.st_9)
destroy(this.sle_autodistime)
destroy(this.p_ip)
destroy(this.cbx_saveuid)
destroy(this.cb_chc)
destroy(this.st_11)
destroy(this.st_name)
destroy(this.st_status)
destroy(this.gb_1)
destroy(this.r_1)
destroy(this.ln_2)
destroy(this.ln_3)
destroy(this.ln_4)
destroy(this.ln_5)
destroy(this.p_1)
destroy(this.sle_pwd)
destroy(this.sle_uid)
destroy(this.ddlb_acount)
destroy(this.cb_2)
destroy(this.st_version)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.st_10)
end on

event close;call super::close;
Timer(0)
IF if_halt = 0 THEN
	IF IsValid(sys_wsc) THEN
		sys_wsc.Close()
		CloseUserObject(sys_wsc)
	END IF
	IF IsValid(w_ws) THEN
		Close(w_ws)
	END IF
	
	f_terminate_l1()
	DISCONNECT USING sqlca;
	HALT
	//	RETURN
ELSE
	wf_write_ini()
	
	SetProfileString(sys_inifilename,'longjoews','frame_size',em_frame_size.Text)
	SetProfileString(sys_inifilename,'longjoews','remotehost',sle_remotehost.Text)
	SetProfileString(sys_inifilename,'longjoews','remoteport',em_remoteport.Text)
	SetProfileString(sys_inifilename,'longjoews','max_reconnect',em_2.Text)
	SetProfileString(sys_inifilename,'longjoews','autodisconnect_sec',sle_autodistime.Text)
	SetProfileString(sys_inifilename,'longjoews','LastAcount',ddlb_acount.Text)
	
	IF cbx_saveuid.Checked THEN
		SetProfileString(sys_inifilename,'longjoews','SaveUID',"1")
		SetProfileString(sys_inifilename,'longjoews','LastUID',sle_uid.Text )
	ELSE
		SetProfileString(sys_inifilename,'longjoews','SaveUID',"0")
	END IF
	
	sys_Status = 1
	IF ins_ReLogin = 1 THEN
		IF Trim(ins_LoginAcount) <> Trim(ddlb_acount.Text) THEN
			ins_ReLogin = 2
			
			uo_sys_main uo_main
			uo_main.uof_closeall()
			DISCONNECT USING sqlca;
		END IF
	END IF
END IF

// 断开电话盒连接
uo_cc301_ins.closedevice( ) 

CloseWithReturn(THIS,ins_ReLogin)





end event

event open;call super::open;
//1.新登陆
//  1.1.新登陆,连上
//  1.2.新登陆,连不上
//2.重新登陆


Timer(0.1)
sys_Status = 0

IF sys_wsc.getstate() <> 7 THEN //新登陆
	cb_connect.TriggerEvent(Clicked!) //连接
ELSE //重新登陆
	//发送请求返回登陆帐套
	s_msg.FrameHead = I_ACOUNT
	IF wf_sendmsg(0) = 1 THEN
		StatusMsg = "请输入用户名,密码登陆!"
	END IF
END IF


IF sys_wsc.getstate() = 7 THEN
	IF cbx_saveuid.Checked AND sle_uid.Text <> '' THEN
		sle_pwd.SetFocus()
	ELSE
		sle_uid.SelectText( 1, Len(sle_uid.Text))
		sle_uid.SetFocus( )
	END IF
END IF














end event

event timer;call super::timer;//1秒检测一次连接状态
String arg_msg, arg_msg1
CHOOSE CASE sys_wsc.Object.State()
	CASE 0
		arg_msg = "关闭"
		StatusMsg = "请先连接服务器!"
	CASE 1
		arg_msg = "打开"
	CASE 2
		arg_msg = "侦听"
	CASE 3
		arg_msg = "连接挂起"
	CASE 4
		arg_msg = "识别主机"
	CASE 5
		arg_msg = "已识别主机"
	CASE 6
		arg_msg = "正在连接"
	CASE 7
		arg_msg = "已连接"
	CASE 8
		arg_msg = "同级人员正在关闭连接"
		sys_wsc.Object.Close()
	CASE 9
		arg_msg = "错误"
		sys_wsc.Object.Close()
		IF IsValid(w_waitforconnect) THEN
			Close(w_waitforconnect)
		END IF
		MessageBox('连接失败','连接设置有误或网络问题,请检查连接设置是否正确!')
END CHOOSE




IF sys_wsc.Object.State() = 7 THEN
	//IF if_connected = 0 THEN
	//		ins_connectedtime = Now()
	//	END IF
	ins_connectedtime = Now() //临时干预,不让其自动退出;
	
	if_connected = 1
	
	IF not IsNull(ins_connectedtime) THEN
		Long ll_DisConnectSec
		ll_DisConnectSec = ins_autodisconnect_sec - SecondsAfter(ins_connectedtime,Now())
		IF ll_DisConnectSec <= 0 THEN
			cb_disconnect.TriggerEvent(Clicked!)
			//MessageBox('连接','自动断开!')
		END IF
		arg_msg1 = ",系统将在" +String(ll_DisConnectSec)+"后断开连接"
	END IF
	
	cb_connect.Enabled = FALSE
	cb_disconnect.Enabled = TRUE
	sle_remotehost.Enabled = FALSE
	em_remoteport.Enabled = FALSE
	em_frame_size.Enabled = FALSE
	em_2.Enabled = FALSE
	sle_autodistime.Enabled = FALSE

ELSE
	if_connected = 0
	
	SetNull(ins_connectedtime)
	
	cb_connect.Enabled = TRUE
	cb_disconnect.Enabled = FALSE
	
	IF sys_wsc.Object.State() = 0 THEN
		sle_remotehost.Enabled = TRUE
		em_remoteport.Enabled = TRUE
		em_frame_size.Enabled = TRUE
		em_2.Enabled = TRUE
		sle_autodistime.Enabled = TRUE
	END IF
	
	if_openprp = 1

END IF

st_msg.Text = arg_msg
st_status.Text = "连接状态:"+arg_msg + arg_msg1 + "," + StatusMsg
st_6.Text = String(Now())

THIS.TriggerEvent('ue_refresh_prpstaus')

//if not Ib_AcountMustUser and Ib_EmptyAcount  then
//	s_msg.FrameHead = I_ACOUNT
//	IF wf_sendmsg(0) = 1 THEN
//		StatusMsg = "请输入用户名,密码登陆!"
//	END IF
//end if





end event

event resize;call super::resize;ln_2.endx = this.width
ln_3.endx = this.width
ln_4.endx = this.width
ln_5.endx = this.width

//st_status.y = p_1.y + p_1.height + 10
st_status.y = ln_3.endy + 6
r_1.y = st_status.y + st_status.height

st_status.width=this.workspacewidth()
r_1.width=this.workspacewidth()
r_1.height=this.workspaceheight() - r_1.y
end event

event ue_before_open;call super::ue_before_open;//cb_ok.color_bk_out = rgb(184,202,238)

//shl_1.visible = false
//THIS.Height = 740



SetNull(ins_connectedtime)

sle_remotehost.Text = ProfileString(sys_inifilename,'longjoews','remotehost','127.0.0.1')
em_remoteport.Text = ProfileString(sys_inifilename,'longjoews','remoteport','7893')
em_frame_size.Text = ProfileString(sys_inifilename,'longjoews','frame_size','1000')
sle_autodistime.Text = ProfileString(sys_inifilename,'longjoews','autodisconnect_sec',"10") //string(ins_autodisconnect_sec)
em_2.Text = ProfileString(sys_inifilename,'longjoews','max_reconnect','3')

ins_autodisconnect_sec = Long(sle_autodistime.Text)
LastAcount = ProfileString(sys_inifilename,'longjoews','LastAcount','LJERP1')
HostName = wf_getcomputername()
st_name.Text = HostName

Int i
i = ProfileInt(sys_inifilename,'longjoews','SaveUID',0)
IF i = 0 THEN
	cbx_saveuid.Checked = FALSE
ELSE
	cbx_saveuid.Checked = TRUE
END IF



IF sys_wsc.getstate() <> 7 THEN //新登陆
	//处理界面
//	cb_ok.X = 453
//	cb_exit.X = 1019
	cb_chc.Visible = FALSE
	
	ins_ReLogin = 0
	I_Login = FALSE
	
	IF cbx_saveuid.Checked THEN
		sle_uid.Text = ProfileString(sys_inifilename,'longjoews','LastUID','')
	END IF
ELSE
	
	//处理界面
	cb_chc.Visible = TRUE
//	cb_ok.X = 315
//	cb_exit.X = 1120
	
	ins_ReLogin = 1
	I_Login = TRUE
	
	ddlb_acount.Enabled = TRUE
	ddlb_acount.AddItem( LastAcount)
	ddlb_acount.SelectItem( 1)
	ddlb_acount.Enabled = FALSE

	ins_LoginAcount = LastAcount
	
	IF cbx_saveuid.Checked THEN
		sle_uid.Text = publ_userid
	END IF
	
END IF





end event

event closequery;call super::closequery;if lb_collect then return 1
uo_fp.uf_abort()
end event

type cb_func from w_publ_base`cb_func within w_sys_login_q6
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_login_q6
integer x = 1262
integer y = 920
integer width = 398
integer height = 124
integer taborder = 70
string text = "退  出"
integer picsize = 16
long color_bk_out = 16512494
long fontcolor = 2324453
end type

event cb_exit::clicked;if_halt = 0
close(parent)
end event

type cb_3 from commandbutton within w_sys_login_q6
integer x = 1161
integer y = 216
integer width = 274
integer taborder = 160
boolean bringtotop = true
string text = "修改密码"
end type

event clicked;//CALL SUPER::Clicked;
//Long rslt = 0,ls_cnt = 0
//String errmsg
//String ls_changearg[],ls_para
//s_rtuof srt2
//
//IF Long(em_frame_size.Text) <= 0 THEN
//	MessageBox('系统提示','数据包大小不合理,请重新设置!')
//	em_frame_size.SetFocus()
//	RETURN
//ELSEIF Long(em_frame_size.Text) >= sys_maxframe_size THEN
//	MessageBox('系统提示','数据包大小不合理,超出大小上限:'+String(sys_maxframe_size))
//	em_frame_size.SetFocus()
//	RETURN
//END IF
//
//IF sys_wsc.getstate() <> 7 THEN
//	cb_connect.TriggerEvent(Clicked!)
//	Open(w_waitforconnect)
//	Long ls_ifconsuc = 0
//	ls_ifconsuc = Message.DoubleParm
//	IF ls_ifconsuc = 0 THEN RETURN
//END IF
//
//IF sys_wsc.getstate() <> 7 THEN
//	MessageBox('系统提示','连接失败,请先设置连接属性!')
//	RETURN
//END IF
//
//IF Trim(sle_uid.Text) = '' THEN
//	sle_uid.Text = ''
//	MessageBox('系统提示','请输入用户名!')
//	sle_uid.SetFocus()
//	RETURN
//END IF
//
//SetProfileString('ljprj_wiz.ini','longjoews','frame_size',em_frame_size.Text)
//
////sys_wsc.send_login( sle_uid.text, sle_pwd.text, wf_getcomputername(), sys_wsc.ins_lasttime_num , blob(''))
////sys_wsc.triggerevent('ue_send')//发送命令
//
//s_rtlogin srt //登录返回结构
//rslt = f_wait_s_rtlogin(sys_retritime,srt) //20秒内超时
//IF rslt = 0 THEN
//	MessageBox('系统提示','服务器超时!')
//	RETURN
//END IF
//
//IF NOT srt.empid > 0 THEN
//	MessageBox('系统提示',srt.msg)
//	sle_pwd.SelectText( 1, Len(sle_pwd.Text))
//	sle_pwd.SetFocus()
//	RETURN
//ELSE
//	publ_operator = srt.empname
//	sys_power_issuper = (srt.ifsuper = 1)
//	sys_right = srt.rightstr
//	publ_userid = sle_uid.Text
//	sys_empid = srt.empid
//	
//	SetProfileString('ljprj_wiz.ini','longjoews','remotehost',sle_remotehost.Text)
//	SetProfileString('ljprj_wiz.ini','longjoews','remoteport',em_remoteport.Text)
//	
//	s_changepassword ls_cgpsw
//	Open(w_SYS_xgmm)
//	ls_cgpsw = Message.PowerObjectParm
//	
//	IF sys_wsc.getstate() <> 7 THEN
//		if_connected = 0
//		SetNull(ins_connectedtime)
//		RETURN
//	END IF
//	if_connected = 1
//	ins_connectedtime = Now()
//	
//	IF NOT ls_cgpsw.yn THEN RETURN
//	
//	ls_changearg[1] = String(sys_scid)
//	ls_changearg[2] = String(sys_empid)
//	ls_changearg[3] = ls_cgpsw.Password
//	ls_changearg[4] = 'arg_msg'
//	ls_changearg[5] = 'true'
//	ls_para = ''
//	f_createpara(ls_changearg[],ls_para)
//	
//	//sys_wsc.send_uof( 'uo_usergroup.changepsw', ls_para, blob(''))
//	sys_wsc.TriggerEvent('ue_send')
//	rslt = f_wait_s_rtuof(sys_retritime,srt2)
//	IF rslt = 0 THEN
//		MessageBox('系统提示','服务器超时!')
//		RETURN
//	END IF
//	IF srt2.rslt = 0 THEN
//		MessageBox('系统提示',srt2.msg)
//	ELSE
//		MessageBox (publ_operator,"你的密码更新操作成功，请从新登陆。",Exclamation!,OK!)
//		sle_uid.Text = ''
//		sle_pwd.Text = ''
//		sle_uid.SetFocus()
//	END IF
//END IF
//
////string ls_userid=''
////ls_userid=trim(sle_uid.TEXT)
////string ls_find_pass,ls_find_user,ls_powerstring
////long ls_empid
////
////  SELECT u_user.username,  
////  			u_user.empid,
////         u_user.rightstring,   
////         u_user.psw
////    INTO :ls_find_user,   
////	 		:ls_empid,
////         :ls_powerstring,   
////         :ls_find_pass  
////    FROM u_user
////   WHERE u_user.scid = :sys_scid
////	  and u_user.userid=:ls_userid ;
////
////if sqlca.sqlcode<>0 then
////	if sqlca.sqlcode=100 then
////		messagebox('系统提示','没有此用户名,请重新输入!')
////		sle_uid.Text = ''
////   	sle_uid.SetFocus()
////		RETURN
////	else
////		messagebox('系统提示','查询操作失败！')
////		return
////	end if
////end if
////
////if TRIM(f_psw_bczh(ls_find_pass,1,sys_power_key)) = TRIM(sle_pwd.text) then
////  	publ_operator=ls_find_user
////	sys_power_issuper=( LOWER(TRIM(sle_uid.TEXT))=sys_super_id )
////	sys_right=ls_powerstring
////else
//// 	messagebox("系统提示", "用户口令不正确,请重新输入!")
////  	sle_pwd.Text = ''
////  	sle_pwd.SetFocus()
////	RETURN
////end if
////
////
////s_changepassword ls_cgpsw
////OPEN(w_SYS_xgmm)
////ls_cgpsw=MESSAGE.PowerObjectParm
////IF NOT ls_cgpsw.yn THEN RETURN
////ls_find_pass=f_psw_bczh(trim(ls_cgpsw.password),0,sys_power_key)
////  UPDATE u_user
////     SET psw = :ls_find_pass  
////   WHERE u_user.empid = :ls_empid
////	  and u_user.scid=:sys_scid;
////if sqlca.sqlcode<>0 or sqlca.sqlnrows=0 then
////	rollback;
////	MessageBox (publ_operator,"更新数据操作失败!(请从试!)",Exclamation!,OK!)
////	RETURN
////else
////	commit;
////	MessageBox (publ_operator,"你的密码更新操作成功，请从新登陆。",Exclamation!,OK!)
////  	sle_pwd.Text = ''
////  	sle_pwd.SetFocus()	
////end if
//////if_halt=0
//////halt;
//////Close(PARENT)
//// 
////
//
end event

type em_remoteport from editmask within w_sys_login_q6
integer x = 1097
integer y = 1240
integer width = 210
integer height = 88
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "7893"
borderstyle borderstyle = stylelowered!
string mask = "#########"
end type

type st_3 from statictext within w_sys_login_q6
integer x = 928
integer y = 1256
integer width = 165
integer height = 48
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 focusrectangle = false
end type

type sle_remotehost from singlelineedit within w_sys_login_q6
integer x = 398
integer y = 1240
integer width = 411
integer height = 88
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "127.0.0.1"
borderstyle borderstyle = stylelowered!
end type

type st_4 from statictext within w_sys_login_q6
integer x = 119
integer y = 1256
integer width = 279
integer height = 48
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 = "服务器IP："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_msg from statictext within w_sys_login_q6
integer x = 402
integer y = 1368
integer width = 306
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean focusrectangle = false
end type

type st_5 from statictext within w_sys_login_q6
integer x = 119
integer y = 1368
integer width = 288
integer height = 48
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 focusrectangle = false
end type

type st_6 from statictext within w_sys_login_q6
integer x = 1445
integer y = 1228
integer width = 274
integer height = 72
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean focusrectangle = false
end type

type st_7 from statictext within w_sys_login_q6
boolean visible = false
integer x = 64
integer y = 844
integer width = 343
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "数据包大小："
alignment alignment = right!
boolean focusrectangle = false
end type

type em_frame_size from editmask within w_sys_login_q6
boolean visible = false
integer x = 416
integer y = 836
integer width = 306
integer height = 76
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1000"
borderstyle borderstyle = stylelowered!
string mask = "#########"
end type

type st_8 from statictext within w_sys_login_q6
boolean visible = false
integer x = 119
integer y = 928
integer width = 288
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "重连次数："
alignment alignment = right!
boolean focusrectangle = false
end type

type em_2 from editmask within w_sys_login_q6
boolean visible = false
integer x = 416
integer y = 920
integer width = 306
integer height = 76
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "3"
borderstyle borderstyle = stylelowered!
string mask = "###"
end type

type cb_ok from uo_imflatbutton within w_sys_login_q6
integer x = 457
integer y = 920
integer width = 398
integer height = 124
integer taborder = 50
boolean bringtotop = true
string text = "确  定"
string normalpicname = "ok.bmp"
integer picsize = 16
long color_bk_out = 16512494
long fontcolor = 2324453
end type

event clicked;call super::clicked;uid = Trim(sle_uid.Text)
IF uid = '' THEN
	sle_uid.Text = ''
	MessageBox('系统提示','请输入用户名!')
	sle_uid.SetFocus()
	RETURN
END IF

acount = Trim(ddlb_acount.Text)

IF sys_wsc.getstate() <> 7 THEN
	cb_connect.TriggerEvent(Clicked!)
	IF sys_wsc.getstate() <> 7 THEN RETURN
END IF

s_msg.framehead = 6
s_msg.frame_str[1] = uid
s_msg.frame_str[2] = f_psw_bczh(Trim(sle_pwd.Text),0,sys_power_key) //加密
s_msg.frame_str[3] = acount
s_msg.frame_str[4] = HostName
s_msg.frame_str[5] = IP


IF wf_sendmsg(5) = 1 THEN
	//	验证
	Transaction db_Transaction
	db_Transaction = CREATE Transaction
	
	db_Transaction.DBMS       = sys_DBMS
	db_Transaction.Database   = sys_Database
	db_Transaction.UserID     = sys_userid
	db_Transaction.DBPass     = f_psw_bczh(sys_dbpass,1,sys_power_key)
	db_Transaction.LogID      = sys_LoginID
	db_Transaction.LogPass    = f_psw_bczh(sys_LoginPwd,1,sys_power_key)
	db_Transaction.ServerName = sys_ServerName
	db_Transaction.DBParm     = f_psw_bczh(sys_dbparm,1,sys_power_key)
	CONNECT USING db_Transaction;
	
	String ls_uid
	ls_uid = Trim(sle_uid.Text)
	Long dlflag
	SELECT  dlflag
		INTO :dlflag
		FROM u_user
		Where UserID = :ls_uid  USING db_Transaction;
	IF db_Transaction.SQLCode <> 0 THEN  dlflag = 0
	
	IF dlflag = 1 OR dlflag = 2 THEN
		Blob lb_data
		SELECTBLOB fingers INTO :lb_data FROM u_user_fp Where UserID = :ls_uid USING db_Transaction;
		IF db_Transaction.SQLCode <> 0 THEN
			MessageBox('错误', '获取指纹信息失败 ' + sqlca.SQLErrText, StopSign!, OK! )
			wf_lock(FALSE)
			RETURN
		END IF
		String ls_msg
		Long i
		wf_lock(TRUE)
		Open(w_sys_wait_fp)
		w_sys_wait_fp.Show()
		w_sys_wait_fp.wf_set_msg('正在验证指纹...')
		FOR i = 1 TO 3
			IF uo_fp.uf_verifyfingerprint(lb_data, ls_msg) <> 1 THEN
				w_sys_wait_fp.wf_set_msg(ls_msg + ',还有重复次数' + String(3 - i) + '次')
				IF i = 3 THEN
					MessageBox('提示',ls_msg)
					w_sys_wait_fp.Hide()
					Close(w_sys_wait_fp)
					wf_lock(FALSE)
					RETURN
				END IF
			ELSE
				EXIT
			END IF
			
		NEXT
		w_sys_wait_fp.Hide()
		Close(w_sys_wait_fp)
		wf_lock(FALSE)
	END IF
	DISCONNECT USING db_Transaction;
	
	if_halt = 1
	Close(PARENT)
END IF





end event

type cb_connect from uo_imflatbutton within w_sys_login_q6
integer x = 1394
integer y = 1204
integer width = 343
integer height = 108
integer taborder = 110
boolean bringtotop = true
string text = "连接"
long color_bk_out = 16512494
long fontcolor = 2324453
end type

event clicked;call super::clicked;IF Long(em_frame_size.Text) <= 0 THEN
	MessageBox('系统提示','数据包大小不合理,请重新设置!')
	em_frame_size.SetFocus()
	RETURN
ELSEIF Long(em_frame_size.Text) >= sys_maxframe_size THEN
	MessageBox('系统提示','数据包大小不合理,超出大小上限:'+String(sys_maxframe_size))
	em_frame_size.SetFocus()
	RETURN
END IF

sys_wsc.ConnectToServer( sle_remotehost.Text, Long(em_remoteport.Text))

Open(w_waitforconnect)
IF Message.DoubleParm = 0 THEN
	RETURN
END IF


//wf_acceptmsg()

s_msg.FrameHead = I_ACOUNT
IF wf_sendmsg(0) = 1 THEN
	StatusMsg = "请输入用户名,密码登陆!"
END IF

wf_write_ini()



end event

type cb_disconnect from uo_imflatbutton within w_sys_login_q6
integer x = 1742
integer y = 1204
integer width = 343
integer height = 108
integer taborder = 120
boolean bringtotop = true
boolean enabled = false
string text = "断开"
long color_bk_out = 16512494
long fontcolor = 2324453
end type

event clicked;call super::clicked;sys_wsc.Object.Close()
//sle_remotehost.Enabled = TRUE
//em_remoteport.Enabled = TRUE
//cb_connect.Enabled = TRUE
//cb_disconnect.Enabled = FALSE
//em_frame_size.Enabled = TRUE
//em_2.Enabled = TRUE
//sle_autodistime.Enabled = TRUE

end event

type st_9 from statictext within w_sys_login_q6
boolean visible = false
integer x = 9
integer y = 1008
integer width = 398
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "自动断开时间："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_autodistime from singlelineedit within w_sys_login_q6
boolean visible = false
integer x = 416
integer y = 1008
integer width = 306
integer height = 76
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "10"
borderstyle borderstyle = stylelowered!
end type

type p_ip from picture within w_sys_login_q6
integer x = 814
integer y = 1248
integer width = 73
integer height = 64
boolean bringtotop = true
boolean originalsize = true
string picturename = "VCRNext!"
boolean focusrectangle = false
end type

event clicked;IF NOT sle_remotehost.Enabled THEN RETURN
s_ip_ini arg_s_ini,arg_s_return

arg_s_ini.arg_x = PARENT.X + sle_remotehost.X
arg_s_ini.arg_y = PARENT.Y + sle_remotehost.Y + sle_remotehost.Height + 10


OpenWithParm(w_ddd_ip,arg_s_ini)

arg_s_return = Message.PowerObjectParm

IF arg_s_return.ip = '' THEN RETURN

sle_remotehost.Text = arg_s_return.ip
em_remoteport.Text  = arg_s_return.port


end event

type cbx_saveuid from checkbox within w_sys_login_q6
integer x = 658
integer y = 824
integer width = 530
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217741
long backcolor = 16777215
string text = "记住用户名"
end type

event constructor;//this.backcolor = rgb(220,237,247)
this.textcolor = rgb(229,119,35)
end event

type cb_chc from uo_imflatbutton within w_sys_login_q6
integer x = 859
integer y = 920
integer width = 398
integer height = 124
integer taborder = 60
boolean bringtotop = true
string text = "更换帐套"
long color_bk_out = 16512494
long fontcolor = 2324453
end type

event clicked;call super::clicked;uid = Trim(sle_uid.Text)
IF uid = '' THEN
	sle_uid.Text = ''
	MessageBox('系统提示','请输入用户名!')
	sle_uid.SetFocus()
	RETURN
END IF

IF sys_wsc.getstate() <> 7 THEN
	cb_connect.TriggerEvent(Clicked!)
	IF sys_wsc.getstate() <> 7 THEN RETURN
END IF



s_msg.FrameHead = I_RELOGINREQ
s_msg.frame_str[1] = uid
s_msg.frame_str[2] = f_psw_bczh(Trim(sle_pwd.Text),0,sys_power_key) //加密
s_msg.frame_str[3] = ""
s_msg.frame_str[4] = HostName
s_msg.frame_str[5] = IP

IF wf_sendmsg(5) = 1 THEN
	StatusMsg = "请选择帐套!"
END IF


end event

type st_11 from statictext within w_sys_login_q6
integer x = 709
integer y = 1368
integer width = 288
integer height = 48
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 focusrectangle = false
end type

type st_name from statictext within w_sys_login_q6
integer x = 992
integer y = 1368
integer width = 402
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean focusrectangle = false
end type

type st_status from statictext within w_sys_login_q6
integer y = 1100
integer width = 1797
integer height = 56
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 = "none"
boolean focusrectangle = false
end type

type gb_1 from groupbox within w_sys_login_q6
integer x = 78
integer y = 1188
integer width = 1262
integer height = 168
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 r_1 from rectangle within w_sys_login_q6
long linecolor = 134217739
linestyle linestyle = transparent!
integer linethickness = 4
long fillcolor = 16777215
integer y = 1180
integer width = 2085
integer height = 280
end type

type ln_2 from line within w_sys_login_q6
long linecolor = 268435456
integer linethickness = 4
integer beginx = -9
integer beginy = 1100
integer endx = 2002
integer endy = 1100
end type

type ln_3 from line within w_sys_login_q6
long linecolor = 16777215
integer linethickness = 4
integer beginx = -9
integer beginy = 1104
integer endx = 2002
integer endy = 1104
end type

type ln_4 from line within w_sys_login_q6
long linecolor = 268435456
integer linethickness = 4
integer beginx = -9
integer beginy = 1172
integer endx = 2002
integer endy = 1172
end type

type ln_5 from line within w_sys_login_q6
long linecolor = 16777215
integer linethickness = 4
integer beginx = -9
integer beginy = 1176
integer endx = 2002
integer endy = 1176
end type

type p_1 from picture within w_sys_login_q6
integer width = 2240
integer height = 360
boolean originalsize = true
string picturename = "graphics\bar_dl_q6.bmp"
boolean focusrectangle = false
end type

type sle_pwd from singlelineedit within w_sys_login_q6
event key pbm_keydown
integer x = 654
integer y = 716
integer width = 1015
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
boolean password = true
integer limit = 20
borderstyle borderstyle = stylelowered!
end type

event key;IF  Key = KeyEnter! OR Key = KeyDownArrow! THEN //
	cb_ok.PostEvent(Clicked!)
	RETURN 0
END IF



end event

type sle_uid from singlelineedit within w_sys_login_q6
event dwnkey pbm_keydown
integer x = 654
integer y = 612
integer width = 1015
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event dwnkey;IF  KeyDown(KeyEnter!) OR KeyDown(KeyDownArrow!) OR KeyDown(KeyTab!) THEN
//	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
//	keybd_event ( 9, 0, 2, 0 ) // 释放tab 
//	RETURN 1


	sle_pwd.setfocus( )
	
END IF
end event

type ddlb_acount from dropdownlistbox within w_sys_login_q6
event key pbm_dwnkey
integer x = 654
integer y = 508
integer width = 1015
integer height = 936
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF  KeyDown(KeyEnter!) OR KeyDown(KeyDownArrow!) THEN  //
	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
	keybd_event ( 9, 0, 2, 0 ) // 释放tab 
	RETURN 1
END IF
end event

type cb_2 from uo_imflatbutton within w_sys_login_q6
integer x = 1669
integer y = 920
integer width = 128
integer height = 124
integer taborder = 80
boolean bringtotop = true
string text = "︾"
integer picsize = 16
long color_bk_out = 16512494
long fontcolor = 2324453
end type

event clicked;call super::clicked;IF sys_wsc.getstate() <> 7 THEN RETURN
if_openprp = 1 - if_openprp
PARENT.TriggerEvent('ue_refresh_prpstaus')
end event

type st_version from statictext within w_sys_login_q6
integer x = 1449
integer y = 408
integer width = 699
integer height = 64
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 = "网络版"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;//this.backcolor = rgb(220,237,247)
this.textcolor = rgb(229,119,35)
end event

type st_1 from statictext within w_sys_login_q6
integer x = 361
integer y = 524
integer width = 288
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217741
long backcolor = 16777215
string text = "帐    套："
boolean focusrectangle = false
end type

event constructor;this.textcolor = rgb(229,119,35)
end event

type st_2 from statictext within w_sys_login_q6
integer x = 361
integer y = 624
integer width = 288
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217741
long backcolor = 16777215
string text = "用 户 名："
boolean focusrectangle = false
end type

event constructor;this.textcolor = rgb(229,119,35)
end event

type st_10 from statictext within w_sys_login_q6
integer x = 361
integer y = 728
integer width = 288
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217741
long backcolor = 16777215
string text = "登录密码："
boolean focusrectangle = false
end type

event constructor;this.textcolor = rgb(229,119,35)
end event