VB.net登陆界面输入用户名密码跳转页面
我想做一个登录界面输入用户名(text1)和密码(text2),再选择用户所在的部门
点击确定就能进入到用户信息界面
求【确定】键的代码!! --------------------编程问答-------------------- 其实就是把这三项作为检索条件,检索数据库
1用户存在check
2密码check
3部门check
--------------------编程问答-------------------- 对啊,自己的想法都很明确了
就去查数据显示出来就好了啊
首先检查改用户和使用该密码的是否存在
然后就按照该用户的部门信息显示相应的内容 --------------------编程问答-------------------- 这个简单啊
Me.Cursor = Cursors.WaitCursor
Dim sAnotherUser As String = ""
If CheckValue() Then
If LoadUserProfile(txtUserID.Text.Trim, txtPw.Text.Trim) = True Then
g_sTxtUserID = Me.txtUserID.Text.Trim
Dim path As String = Directory.GetCurrentDirectory.ToString & "\UserLogin.ini"
Using fileWriter As System.IO.StreamWriter = _
My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\MD.ini", True, System.Text.Encoding.Default)
fileWriter.WriteLine("MD System")
fileWriter.WriteLine("User" & " " & Me.txtUserID.Text.Trim)
fileWriter.WriteLine("Password" & " " & XorString(Me.txtPw.Text.Trim))
fileWriter.WriteLine("WebJob" & " " & System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList().GetValue(0).ToString())
fileWriter.WriteLine("Server" & " " & g_sServerName)
fileWriter.WriteLine("Login Time: " & Format(Now, "yyyy/MM/dd HH:mm:ss"))
fileWriter.WriteLine("------------------------------------------------------------------------------")
End Using
Me.Cursor = Cursors.Default
Dim frmMain As New frm002Main
frmMain.Show()
Me.Visible = False
End If
End If
Me.Cursor = Cursors.Default --------------------编程问答-------------------- 正解
补充:.NET技术 , VB.NET