用戶管理及登陸程序設(shè)計

1、2012年 11月17日實驗類型_驗證性_ 實驗室_軟件實驗室一_一、實驗題目 用戶管理及登錄程序設(shè)計二、實驗?zāi)康?通過本次實驗，使學(xué)生了解托盤程序的應(yīng)用及設(shè)計思想，利用Timer控件和NotifyIcon控件實現(xiàn)一個動態(tài)托盤程序。三、實驗內(nèi)容1、實現(xiàn)對用戶的各種管理，包括新增、修改、刪除、停用、啟用、重置密碼、查詢等。2、實現(xiàn)完整的用戶登錄系統(tǒng)。3、對敏感數(shù)據(jù)進行加密處理。4、用.NET分層架構(gòu)設(shè)計。四、實驗代碼（注明代碼所實現(xiàn)的功能）1.數(shù)據(jù)庫設(shè)計：數(shù)據(jù)庫的名字是：student management,在此數(shù)據(jù)庫下創(chuàng)建一張表：gg_User加密：Me.TextBox2.Text=Syste

2、m.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Me.TextBox1.Text & Me.TextBox2.Text, MD5)加密后：gg_User表內(nèi)的數(shù)據(jù)如圖：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控件用于用來顯示數(shù)據(jù)。3創(chuàng)建類庫ClsUser，聯(lián)機式訪問數(shù)據(jù)庫：DataReader對象：Public Function ge

5、tall2dr(ByVal strWhere As String) As SqlClient.SqlDataReader Dim conn As New SqlClient.SqlConnection設(shè)定連接字符串 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.創(chuàng)建類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建立鏈接數(shù)據(jù)庫，數(shù)據(jù)庫名為student management Dim conn As New SqlClient.SqlConnection conn.ConnectionString = comm.

9、clsStrconn.getStrConn建立command對象 Dim cmd As New SqlClient.SqlCommand設(shè)定活動鏈接 cmd.Connection = conn設(shè)定要執(zhí)行的命令 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.創(chuàng)建應(yīng)用程序配置文件：app.config便于修改 7.數(shù)據(jù)更新：當(dāng)點

16、擊增加（刪除、修改）按鈕，數(shù)據(jù)做一次更新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.雙擊數(shù)據(jù)進入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