实验报告三层架构.docVIP

。

-可编辑修改-

软件开发环境与工具

实

验

报

告

题目：三层架构实验

序号：实验4

学号：

姓名：

班级：

日期：

一、实验目的

通过本次实验，了解了三层架构实验的具体步骤和方法，掌握了实验的具体内容。

实验原理

设计一个模拟登录界面，通过登录（姓名与密码）进入用户管理界面。用户管理界面创建四个用户操作功能，浏览.修改.新增.删除。并将操作中数据变化同步到数据库，实现数据库与用户管理的同步一体化。

实验过程

核心代码

ImportsSystem.Data.SqlClient

PublicClassUserDao

PublicconnAsNewSqlConnection

PublicFunctiongetData()AsDataSet

DimdsAsNewDataSet

conn.ConnectionString=server=100.100.28.24;uid=sa;pwd=root;database=test

conn.Open()

DimseAsString=select*fromuserMessage

Console.WriteLine(se)

DimdaAsNewSqlDataAdapter(se,conn)

da.Fill(ds,userMessage)

conn.Close()

Returnds

EndFunction

PublicFunctionupdate(ByValuserIdAsString,ByValpasswordAsString,ByValoldUserIdAsString)AsInteger

DimconnAsNewSqlConnection

conn.ConnectionString=server=100.100.28.24;uid=sa;pwd=root;database=test

conn.Open()

DimupdateStringAsString=UPDATEuserMessagesetuserId=userId,password=passwordwhereuserId=oldUserId

Console.WriteLine(updateString)

DimcommandAsSqlCommand=NewSqlCommand(updateString,conn)

DimresultAsInteger=command.ExecuteNonQuery()

conn.Close()

Returnresult

EndFunction

PublicFunctioninsert(ByValuserIDAsString,ByValpasswordAsString)AsInteger

DimconnAsNewSqlConnection

conn.ConnectionString=server=100.100.28.24;uid=sa;pwd=root;database=test

conn.Open()

DiminsertStringAsString=insertintouserMessagevalues(userID,password)

Console.WriteLine(insertString)

DimcommandAsSqlCommand=NewSqlCommand(insertString,conn)

DimresultAsInteger=command.ExecuteNonQuery()

conn.Close()

Returnresult

EndFunction

PublicFunctiondelete(ByValuserIdAsString)AsBoolean