首先说说简单的上机登陆
1.窗体界面设计
简单的上机登录很简单,它首先需要在vb.net中新建项目,添加一个windows窗体应用程序。对于窗口界面的设计,主要根据用户的需求来做,用户至上嘛,在这里我就做了个简单的界面,主要以实现它的功能为主,窗体界面设计如图:
2.主要实现的功能
单击确定按钮时,上机成功,弹出“登陆成功!”,否则弹出“登陆失败!”。单机取消按钮时,退出系统。
3.数据库操作
利用SQL Server数据库,建了一个“Login”数据库,其中建了一张UserInfo表,数据表内容具体如图:
4.代码设计
'引用命名空间
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
'连接数据库
Dim sqlConnection1 As SqlClient.SqlConnection
Dim sqlConnect As String = "Server=waly-pc;database=Login;uid=sa;pwd=123456;" '“server=计算机名;database=数据库名;uid=登录数据库用户名;pwd=登录数据库密码”
sqlConnection1 = New System.Data.SqlClient.SqlConnection(sqlConnect)
sqlConnection1.Open() '打开数据库
'验证代码
Dim sql As String = "select count(*) from UserInfo where UserID='" & txtUserName.Text.Trim() & "' and UserPassword='" & txtPassword.Text() & "'"
Dim sqlCmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
Dim count As Integer
count = sqlCmd.ExecuteScalar
If count > 0 Then
MsgBox("登陆成功!")
Else
MsgBox("登陆失败!")
End If
sqlConnection1.Close() '关闭数据库
End Sub
'退出系统
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
End
End Sub
End Class