实验报告三层架构

1、软件开发环境与工具实 验 报 生 告题目：三层架构实验序号:实验4一学号： 姓名:班级:日期：、实验目的通过本次实验，了解了三层架构实验的具体步骤和方法， 掌握了实验的具体内容。二、实验原理设计一个模拟登录界面，通过登录（姓名与密码）进入用户管理界面。用户管理界面创建四个用户操作功能，浏匹1=1览.修改.新增.删除。并将操作中数据变化同步到数据库，实现数据库与用户管理的同步一体化。二实验过程、核心代码Imports System.Data.SqlClientPublic Class UserDaoPublic conn As New SqlConnectionPublic Function g

2、etData() As DataSetDim ds As New DataSetconn.ConnectionString =server=100.100.28.24;uid=sa;pwd=root;database=test”conn.Open()Dim se As String = select * from userMessage Console.WriteLine(se)Dim da As New SqlDataAdapter(se, conn)da.Fill(ds, userMessage)conn.Close()Return dsEnd FunctionPublic Functio

3、n update(ByVal userId As String, ByVal password As String,ByVal oldUserld As String) As IntegerDim conn As New SqlConnection conn.ConnectionString = server=100.100.28.24;uid=sa;pwd=root;database=test”conn.Open()Dim updateString As String = UPDATE userMessage set userId= & userId & ,password= & passw

4、ord & where userId= & oldUserId & Console.WriteLine(updateString)Dim command As SqlCommand = New SqlCommand(updateString, conn)Dim result As Integer = command.ExecuteNonQuery()conn.Close()Return resultEnd FunctionPublic Function insert(ByVal userID As String, ByVal password As String) As IntegerDim

5、conn As New SqlConnectionconn.ConnectionString =server=100.100.28.24;uid=sa;pwd=root;database=test”conn.Open()Dim insertString As String = insert into userMessage values( & userID &, & password & )Console.WriteLine(insertString)Dim command As SqlCommand = New SqlCommand(insertString, conn)Dim result

6、 As Integer = command.ExecuteNonQuery()conn.Close()Return resultEnd FunctionPublic Function delete(ByVal userId As String) As BooleanDim conn As New SqlConnection conn.ConnectionString = server=100.100.28.24;uid=sa;pwd=root;database=test”conn.Open()Dim insertString As String = DELETE from userMessag

7、e where userId=( & userId &)”Dim command As SqlCommand = New SqlCommand(insertString, conn)Dim result As Integer = command.ExecuteNonQuery()conn.Close()Return resultEnd FunctionPublic Function getUserPassword(ByVal userName) As StringConsole.WriteLine(UserDao)Dim data As DataSetDim password As Strin

8、g =data = getData()Console.WriteLine(userName)For Each row As DataRow In data.Tables(userMessage).RowsConsole.WriteLine(userID + row(userID) + userName + userName)If row(userId).ToString.Trim.Equals(userName) ThenConsole.WriteLine(Password)password = row(password).ToString()End IfNextConsole.WriteLine(从注 数。y据Ya 中 D取 ”？出？的 I?密 r 码?是? + password)Return passwordEnd FunctionEnd ClassPassword *砰*Loginf/iySoftwareIfp dataQij.eryUserID Passwo