用户管理及登陆程序设计

1、2012年 11月17日实验类型_验证性_ 实验室_软件实验室一_一、实验题目 用户管理及登录程序设计二、实验目的 通过本次实验，使学生了解托盘程序的应用及设计思想，利用Timer控件和NotifyIcon控件实现一个动态托盘程序。三、实验内容1、实现对用户的各种管理，包括新增、修改、删除、停用、启用、重置密码、查询等。2、实现完整的用户登录系统。3、对敏感数据进行加密处理。4、用.NET分层架构设计。四、实验代码（注明代码所实现的功能）1.数据库设计：数据库的名字是：student management,在此数据库下创建一张表：gg_User加密：Me.TextBox2.Text=Syste

2、m.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) Ha

3、ndles 登陆.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) f

4、2.Show() Me.Close() Else MsgBox(此用户未启用) End If Else MsgBox(请输入正确的密码, MsgBoxStyle.Information) End If Else MsgBox(请输入正确的用户名, MsgBoxStyle.Critical) End If End SubEnd Class3.主界面：用到各种控件：DataGridView控件、GroupBox控件、textbox以及botton等DataGridView控件用于用来显示数据。3创建类库ClsUser，联机式访问数据库：DataReader对象：Public Function ge

5、tall2dr(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 * fr

6、om gg_user Else cmd.CommandText = select * from gg_user where & strWhere End If Dim dr As SqlClient.SqlDataReader conn.Open() dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) Return drEnd Function4.创建类clsStrconn：Public Class clsStrconn server=ZGC-20111121JBZ;uid=sa;pwd=;database=jxsl Public S

7、hared 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(p

8、wd) & ; strConn &= database= & System.Configuration.ConfigurationManager.AppSettings(database) Return strConn End FunctionEnd Class5.用户信息管理： a增加用户信息：在类库ClsUser中进行定义，Public Function delete() As String建立链接数据库，数据库名为student management Dim conn As New SqlClient.SqlConnection conn.ConnectionString = comm.

9、clsStrconn.getStrConn建立command对象 Dim cmd As New SqlClient.SqlCommand设定活动链接 cmd.Connection = conn设定要执行的命令 cmd.CommandText = delete from gg_User where user_id= & duser_id & Try conn.Open() cmd.ExecuteNonQuery() conn.Close() Return 1 Catch ex As Exception conn.Close() Return -1 & ex.Message End Try End

10、 Function 在homepage.vb中进行操作。 Private Sub 增加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 增加.Click Dim sr As Stringo为重新定义ClsUser o.duser_id = Me.userid.Text o.duser_name = Me.username.Text o.duser_pwd = Me.userpwd.Text o.duser_state = Me.state.Text sr = o.insert If sr = 1

11、 Then MsgBox(添加成功) Call Me.InitGrid() Else MsgBox(添加失败 & sr) End IfEnd Sub下图是增加用户信息，增加“00”“admin”“admin”“启用”b删除信息： Public Function delete() As String Dim conn As New SqlClient.SqlConnection conn.ConnectionString = comm.clsStrconn.getStrConn Dim cmd As New SqlClient.SqlCommand cmd.Connection = conn c

12、md.CommandText = delete from gg_User where user_id= & duser_id & Try conn.Open() cmd.ExecuteNonQuery() conn.Close() Return 1 Catch ex As Exception conn.Close() Return -1 & ex.Message End TryEnd FunctionPrivate Sub 删除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除.Click

13、Dim sr As String o.duser_id = Me.userid.Text sr = o.delete If sr = 1 Then MsgBox(删除成功！) Call Me.InitGrid() Else MsgBox(删除失败！ & sr) End If End Sub c修改信息： Public Function update() As String Dim conn As New SqlClient.SqlConnection conn.ConnectionString = comm.clsStrconn.getStrConn Dim cmd As New SqlCli

14、ent.SqlCommand cmd.Connection = conn cmd.CommandText = update gg_user set user_pwd= & duser_pwd & where user_id= & duser_id & Try conn.Open() cmd.ExecuteNonQuery() conn.Close() Return 1 Catch ex As Exception conn.Close() Return -1 & ex.Message End TryEnd FunctionPrivate Sub 修改_Click(ByVal sender As

15、System.Object, ByVal e As System.EventArgs) Handles 修改.Click o.duser_name = Me.username.Text o.duser_id = Me.userid.Text o.duser_state = Me.state.Text Dim sr As String sr = o.update If sr = 1 Then MsgBox(修改成功！) Call Me.InitGrid() Else MsgBox(修改失败！) End If End Sub6.创建应用程序配置文件：app.config便于修改 7.数据更新：当点

16、击增加（删除、修改）按钮，数据做一次更新Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call Me.InitGrid() End SubSub InitGrid() dv = o.getall2ds().Tables(0).DefaultView Me.DataGridView1.DataSource = dv End Sub8.双击数据进入textbox中Private Sub DataGridView1_CellDoubleCli

17、ck(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClickMe.userid.Text=Me.DataGridView1.Rows(Me.DataGridView1.SelectedCells(0).RowIndex).Cells(user_id).ValueMe.username.Text=Me.DataGridView1.Rows(Me.DataGridView1.SelectedCells(0).RowIndex).Cells(user_name).ValueMe.userpwd.Text=Me.DataGridView1.Rows(Me.DataGridView1.SelectedCells(0).RowIndex).Cells(user_pwd).ValueMe.state.Text=Me.DataGridView1.Rows(Me.DataGridView1.Select