原创力文档- 1、本文档共8页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
用户管理及登陆程序设计
2012年 11月17日
实验类型__验证性__ 实验室_软件实验室一__
一、实验题目
用户管理及登录程序设计
二、实验目的
通过本次实验，使学生了解NotifyIcon控件实现一个动态托盘程序。
三、实验内容
1、实现对用户的各种管理，包括新增、修改、删除、停用、启用、重置密码、查询等。
2、实现完整的用户登录系统。
3、对敏感数据进行加密处理。
4、用.NET分层架构设计。
四、实验代码（注明代码所实现的功能）
1.数据库设计：
数据库的名字是：student management,在此数据库下创建一张表：gg_User
加密：Me.TextBox2.Text=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Me.TextBox1.Text Me.TextBox2.Text, MD5)
加密后：gg_User表内的数据如图：
2. 登陆界面：（针对form1）
Public Class form1
Dim o As New myData.ClsUser
Dim f2 As New homepage
Private Sub 登陆_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 登陆.Click Dim dr As SqlClient.SqlDataReader
dr = o.getall2dr(Me.TextBox1.Text)
If dr.Read() Then
If dr.Item(user_pwd) = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Me.TextBox2.Text, MD5) Then
If dr.Item(User_state) = 启用 Then
MsgBox(登录成功, MsgBoxStyle.MsgBoxRight)
f2.Show()
Me.Close()
Else
MsgBox(此用户未启用)
End If
Else
MsgBox(请输入正确的密码, MsgBoxStyle.Information)
End If
Else
MsgBox(请输入正确的用户名, MsgBoxStyle.Critical)
End If
End Sub
End Class
3.主界面：
用到各种控件：DataGridView控件、GroupBox控件、textbox以及botton等
DataGridView控件用于用来显示数据Public Function getall2dr(ByVal strWhere As String) As SqlClient.SqlDataReader
Dim conn As New SqlClient.SqlConnection
‘设定连接字符串
conn.ConnectionString = comm.clsStrconn.getStrConn
Dim cmd As New SqlClient.SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = conn
If strWhere = Then
cmd.CommandText = select * from gg_user
Else
cmd.CommandText = select * from gg_user where strWhere
End If
Dim dr As SqlClient.SqlDataReader
conn.Open()
dr = cmd.ExecuteReader(CommandBehavior.CloseCon
文档评论（0）