三层已经学了一些时间了,開始认为自己能够用C#敲代码了,就用C#写了一个实现登陆的,真正再用在机房中。还是认为非常吃力的,所以。决定用vb.net敲了。以下是我用vb.net实现的登陆。能够给大家做一些參考。
watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvcWl1bXV4aWEwOTIx/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" >
这是构架的三层
数据库中的表T_User_DAL:UserI。Level,Password,Head,computer
首先看一下
Entity层:
Public Class UserInfoEntity #Region "定义变量" Private _userID As String Private _level As String Private _Head As String Private _password As String #End Region Public Property UserID() As String ‘将T_User_DAL表中的每个实体都传上去,实体是依据表来建的,不是功能 Get Return _userID End Get Set(value As String) _userID = value End Set End Property Public Property Level() As String Get Return _level End Get Set(ByVal value As String) _level = value End Set End Property Public Property Head() As String Get Return _Head End Get Set(value As String) _Head = value End Set End Property Public Property Password() As String Get Return _password End Get Set(value As String) _password = value End Set End Property End Class
DAL层:
为了可以减少耦合一定要将连接字符串拿出来。不要每个DAL中都写一边。
Imports System.Data Imports System.Data.SqlClient Public Class SqlUtil Public Shared Function connstring() As String ‘connstring = "Server=192.168.24.183;Database=ReconsitutionCharge_sys;User ID=sa;Password=123456" ‘会出现无法识别userid的错误 connstring = "Server=mx; Database=ReconsitutionCharge_sys; User ID=sa; Password=123456" ‘连接SQL的字符串 End Function End Class
T_User_dal表DAL层代码:
Imports System.Data.SqlClient Imports System.Data Public Class UserDAL Public Function SelectUser(ByVal user As Entity.UserInfoEntity) As Entity.UserInfoEntity Dim conn As New SqlConnection ‘定义连接打开数据库 Dim cmd As New SqlCommand ‘定义数据库命令 conn = New SqlConnection(SqlUtil.connstring()) ‘实例化SQLUntil中返回的字符串 cmd.Connection = conn cmd.CommandText = "Select * From T_User_DAL Where [email protected] and [email protected]" ‘存储过程 cmd.Parameters.Add(New SqlParameter("@UserID", user.UserID)) ‘赋值,传參 cmd.Parameters.Add(New SqlParameter("@Password", user.Password)) cmd.CommandType = CommandType.Text ‘CommandText 属性设置为存储过程的名称。当调用 Execute 方法之中的一个时,该命令将运行此存储过程 conn.Open() ‘打开连接 Dim reader As SqlClient.SqlDataReader ‘读取数据库中的表 reader = cmd.ExecuteReader() Dim users As New Entity.UserInfoEntity ‘实例化实体 While (reader.Read()) ‘If users Is Nothing Then ‘ user = New Entity.UserInfoEntity ‘End If users.UserID = reader.GetString(reader.GetOrdinal("UserID")) users.Password = reader.GetString(reader.GetOrdinal("Password")) End While conn.Close() Return users End Function End Class
BLL层:
Public Class LoginBLL Function UserLogin(ByVal user As Entity.UserInfoEntity) As Entity.UserInfoEntity Dim uDAL As New DAL.UserDAL ‘实例化了DAL中的UserDAL Dim users As New Entity.UserInfoEntity ‘实例化了Entity层信息表 users = uDAL.SelectUser(user) ‘selectUser是返回一个Entity类的,给它赋值user Return users ‘返回users实体 End Function End Class
UI层:
界面设计:
watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvcWl1bXV4aWEwOTIx/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" >
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click Dim mgr As New BLL.LoginBLL ‘实例业务层 Dim user As New Entity.UserInfoEntity ‘实例实体 Dim users As Entity.UserInfoEntity ‘接收实体,用于接收UserLogin()返回的数据类型,假设没有New就不是实例化 user.UserID = txtUserID.Text.Trim() ‘给实体层传入值 user.Password = TxtPassword.Text.Trim() If txtUserID.Text = "" Then ‘推断输入是否正确 MsgBox("username不能为空!") Return End If If TxtPassword.Text = "" Then MsgBox("password不能为空!") Return End If Try ‘users接收实体 users = mgr.UserLogin(user) If (users.UserID Is Nothing And users.Password Is Nothing) Then ‘假设users不为空。则登陆成功! MsgBox("登陆失败,username和password不匹配") Return Else MsgBox("登陆成功。登陆用户:" + user.UserID) End If Catch ex As Exception MsgBox(ex.Message()) End Try End Sub End Class
时间: 2024-10-01 07:40:25