用户管理及登陆程序设计 vb实验报告

软件开发环境与工具
实验报告
实验二
实验题目: 用户管理及登陆程序设计
实验类型:验证性
指导老师：王琦
专业班级:计算机科学与技术系1001班
学号: 2010100152
姓名:陈振北
2012年 11月 17日
一、实验题目
用户管理及登录程序设计
二、实验目的
通过本次实验，进一步掌握五大对象及其功能，掌握利用对数据库进行存取的两种方法，并利用，采用分层架构，实现一个完整的用户管理及登录程序。

两种连接方式。

三、实验功能要求
实验功能要求：
1、实现对用户的各种管理，包括新增、修改、删除、停用、启用、重置密码、查询等。

2、实现完整的用户登录系统。

3、对敏感数据进行加密处理。

4、用.NET分层架构设计。

四、实验步骤
1.把连库的基本参数放到APP.CONFIG中
<appSettings>
<add key="server" value="LIU-PC\SQLSERVER2005"/>
<add key="uid" value="sa"/>
<add key="pwd" value=""/>
<add key="database" value="vb_net"/>
</appSettings>
2.新建一个类库为myCommon并新建一个类clsStrconn 在里面设置连库的基本语句
Public Shared Function getStrConn() As String
Dim strConn As String
strConn = "server=" &
System.Configuration.ConfigurationManager.AppSettings("server") & ";"
strConn &= "uid=" &
System.Configuration.ConfigurationManager.AppSettings("uid") & ";"
strConn &= "pwd=" &
System.Configuration.ConfigurationManager.AppSettings("pwd") & ";"
strConn &= "database=" &
System.Configuration.ConfigurationManager.AppSettings("database")
Return strConn
End Function
3．新建一个类库，并新建一个类clsuser在类内设置增，删，改，查的基本语句，并且为一个为一个function，要声明命名空间和根
例：
Public Function getall2dr(ByVal strWhere As String) As
SqlClient.SqlDataReader
Dim conn As New SqlClient.SqlConnection
conn.ConnectionString = myCommon.clsStrconn.getStrConn Dim cmd As New SqlClient.SqlCommand
cmd.Connection = conn
If strWhere = "" Then
mandText = "select * from login"
Else
mandText = "select * from login where " & strWhere
End If
conn.Open()
Return
cmd.ExecuteReader(CommandBehavior.CloseConnection)
End Function
搜索stewhere所对应的记录
并且在相应的类中声明一系列变量，把值传回这个类，并进行相应的应用
4.设置一个主窗体，为登陆界面并用MD5进行加密主代码如下
Sys_姓?名? = UsernameTextBox.Text
Autumn_password =
System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi gFile(Me.PasswordTextBox.Text, "MD5")
Dim dr As SqlClient.SqlDataReader
dr = o.getall2dr("")
Dim i As Integer
i = 0
While dr.Read
i = i + 1
If Autumn_password = dr!u_pwd Then
Sys_姓?名? = dr.Item("u_name")
Sys_uid = dr("state")
End If
End While
dr.Close()
5设置一个主界面进行增删改查的选择，如图：
6.设置相应的增，删，改，查的界面
核心代码： add.vb
Dim o As New er.clsUser
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
o.dUser_id = Me.TextBox_uid.Text
o.dUser_Name = Me.TextBox_uname.Text
o.dUser_Pwd =
System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi gFile(Me.TextBox_upwd.Text, "MD5")
o.dUser_sname = Me.TextBox_usname.Text
o.dUser_DeptID = Me.TextBox_usdept.Text
Dim sr As String
sr = o.save
If sr = "1" Then
MsgBox("保存成功")
Else
MsgBox("保存失败" & sr)
End If
End Sub
Updata.vb
Dim o As New er.clsUser
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
o.dUser_id = Me.TextBox1.Text
o.dUser_Name = Me.TextBox2.Text
Dim sr As String
sr = o.update
If sr = "1" Then
MsgBox("成功更新")
Else
MsgBox(“失败更新” & sr)
End If
End Sub
End Class
del_l.vb
Dim o As New er.clsUser
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
o.dUser_id = Me.TextBox1.Text Dim sr As String
sr = o.delete
If sr = "1" Then
MsgBox("成功删除")
Else
MsgBox("失败删除" & sr) End If
End Sub
7.运行如图：
六、实验总结
通过本次实验，懂得了连库的基本方法，及一些基本应用。