VB.net登陆界面输入用户名密码跳转页面

[carlnaeo]

我想做一个登录界面


输入用户名（text1）和密码(text2)，再选择用户所在的部门


点击确定就能进入到用户信息界面


求【确定】键的代码！！

[ouzui]

其实就是把这三项作为检索条件，检索数据库
1用户存在check
2密码check
3部门check

[水猿兵团五哥]

对啊，自己的想法都很明确了
就去查数据显示出来就好了啊

首先检查改用户和使用该密码的是否存在

然后就按照该用户的部门信息显示相应的内容

[hurtsobad]

这个简单啊
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

[xysyzj]

[Quote=引用 2 楼 machong8183 的回复:]
对啊，自己的想法都很明确了
就去查数据显示出来就好了啊
首先检查改用户和使用该密码的是否存在
然后就按照该用户的部门信息显示相应的内容
[/Quote]正解