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

1、軟件開發(fā)環(huán)境與工具實(shí) 驗(yàn) 報 生 告題目：三層架構(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ìn)入用戶管理界面。用戶管理界面創(chuàng)建四個用戶操作功能，瀏匹1=1覽.修改.新增.刪除。并將操作中數(shù)據(jù)變化同步到數(shù)據(jù)庫，實(shí)現(xiàn)數(shù)據(jù)庫與用戶管理的同步一體化。二實(shí)驗(yàn)過程、核心代碼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(從注 數(shù)。y據(jù)Ya 中 D取 ”？出？的 I?密 r 碼?是? + password)Return passwordEnd FunctionEnd ClassPassword *砰*Loginf/iySoftwareIfp dataQij.eryUserID Passwo