各位专家新年好，请专家帮忙指点一下，感谢感谢！
’-----------------以下是登录界面的“确认键”代码
Dim txt1 As String = e.Form.Controls("TextBox1").text
Dim txt2 As String = e.Form.Controls("TextBox2").text
txt2=EncryptText(txt2,"123","321")
If txt1>"" And txt2 >"" Then
Dim dr As DataRow
dr = DataTables("contact").SQLFind("c And login_ps = '"& txt2 &"'","cont_code")
If dr IsNot Nothing Then '如果找到符合条件的行\
Vars("user_id")=dr("cont_code")
Vars("user_name")=dr("cont_name")
Vars("ok_true") = 1 '验证成功
e.Form.Visible = False
Forms("login_form").close() '退出系统 在打开应用界面之前，关闭了登录界面，但主界面启动后，登录界面的背影依然存在
Forms("quotation_Main").open()
TableCaptionVisible = False
Else
messagebox.show("请重新输入登录用户和密码!","验证错误:")
txt2 = Nothing
e.Form.controls("TextBox2").Select() '让这个栏位得到光标
Vars("ok_true")=0 '验证失败
End If
Else
messagebox.show("请输入登录用户和密码!","登录验证:")
Return
End If
[此贴子已经被作者于2023/1/29 11:37:26编辑过]
加好友 
发短信
Post By：2023/1/28 21:38:00 [只看该作者]
