实验报告三层架构.doc

。
软件开发环境与工具

实
验
报
告

题目： 三层架构实验
序号： 实验4
学号：
姓名：
班级：
日期：

一、实验目的
通过本次实验，了解了三层架构实验的具体步骤和方法，掌握了实验的具体内容。
二、 实验原理
设计一个模拟登录界面，通过登录（姓名与密码）进入用户管理界面。用户管理界面创建四个用户操作功能，浏览.修改.新增.删除。并将操作中数据变化同步到数据库，实现数据库与用户管理的同步一体化。

三、 实验过程
核心代码
Imports System.Data.SqlClient
Public Class UserDao
Public conn As New SqlConnection
Public Function getData() As DataSet
Dim ds As New DataSet
conn.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 ds
End Function
Public Function update(ByVal userId As String, ByVal password As String, ByVal oldUserId As String) As Integer
Dim 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='" & password & "' where userId='" & oldUserId & "'"
Console.WriteLine(updateString)
Dim command As SqlCommand = New SqlCommand(updateString, conn)
Dim result As Integer = command.ExecuteNonQuery()
conn.Close()
Return result
End Function
Public Function insert(ByVal userID As String, ByVal password As String) As Integer
Dim conn As New SqlConnection
conn.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 As Integer = command.ExecuteNonQuery()
conn.Close()
Return result
End Function
Public 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=test"
conn.Open()
Dim insertString As String = "DELETE from userMessage where userId=('" & userId & "')"
Dim command As SqlCommand = New SqlCommand(insertString, conn)
Dim result As Integer = command.ExecuteNonQuery()
conn.Close()
Return result
End Function
Public Function getUserPassword(ByVal userName) As String
Console.WriteLine("UserDao")
Dim data As DataSet
Dim 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) Then
Console.WriteLine("Password")
password = row("password").ToString()
End If

Next
Console.WriteLine("从䨮数ºy据Y库a中D取¨?出?的Ì?密¨¹码?是º?" + password)
Return password
End Function
End Class

四．实验总结
通过本次实验，掌握了三层架构实验具体步骤，实验过程出现了一些问题，但都得到解决。

THANKS !!!

致力为企业和个人提供合同协议，策划案计划书，学习课件等等
打造全网一站式需求

欢迎您的下载，资料仅供参考

-可编辑修改-