實(shí)驗(yàn)報(bào)告三層架構(gòu).doc

1、。軟件開發(fā)環(huán)境與工具實(shí)驗(yàn)報(bào)告題目：三層架構(gòu)實(shí)驗(yàn)序號：實(shí)驗(yàn) 4學(xué)號：姓名：班級：日期：精選資料，歡迎下載。一、 實(shí)驗(yàn)?zāi)康耐ㄟ^本次實(shí)驗(yàn)， 了解了三層架構(gòu)實(shí)驗(yàn)的具體步驟和方法，掌握了實(shí)驗(yàn)的具體內(nèi)容。二、 實(shí)驗(yàn)原理設(shè)計(jì)一個(gè)模擬登錄界面，通過登錄（姓名與密碼）進(jìn)入用戶管理界面。用戶管理界面創(chuàng)建四個(gè)用戶操作功能，瀏覽 . 修改 . 新增 . 刪除。并將操作中數(shù)據(jù)變化同步到數(shù)據(jù)庫，實(shí)現(xiàn)數(shù)據(jù)庫與用戶管理的同步一體化。三、實(shí)驗(yàn)過程核心代碼Imports System.Data.SqlClientPublic Class UserDaoPublic conn As New SqlConnectionPublic

2、Function getData() As DataSetDim ds As New DataSetconn.ConnectionString =server=100.100.28.24;uid=sa;pwd=root;database=testconn.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 FunctionPubli

3、c Function update(ByVal userId As String, ByVal password As String, ByVal oldUserId As String) As IntegerDim conn As New SqlConnectionconn.ConnectionString =server=100.100.28.24;uid=sa;pwd=root;database=testconn.Open()精選資料，歡迎下載。Dim updateString As String = UPDATE userMessage set userId= & userId & ,

4、password= & password & 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 Strin

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

6、, conn)Dim result As Integer = command.ExecuteNonQuery()conn.Close()Return resultEnd FunctionPublic Function delete(ByVal userId As String) As Boolean Dim conn As New SqlConnection conn.ConnectionString =server=100.100.28.24;uid=sa;pwd=root;database=testconn.Open()Dim insertString As String = DELETE

7、 from userMessage 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 String Console.WriteLine(UserDao)Dim data As DataSetDim

8、password As String = data = getData()Console.WriteLine(userName)For Each row As DataRow In data.Tables(userMessage).Rows Console.WriteLine(userID + row(userID) + userName +userName)精選資料，歡迎下載。If row(userId).ToString.Trim.Equals(userName) ThenConsole.WriteLine(Password)password = row(password).ToString()End IfNextConsole.WriteLine( 從? 數(shù)oy據(jù) Y庫 a中 D取 ?出?的?密 1碼?是o? + password)Return passwo