$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[] = {"",""} String MsgEnd[] = {"",""} // 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