用戶(hù)管理及登陸程序設(shè)計(jì)

1、2012年 11月17日實(shí)驗(yàn)類(lèi)型_驗(yàn)證性_ 實(shí)驗(yàn)室_軟件實(shí)驗(yàn)室一_一、實(shí)驗(yàn)題目 用戶(hù)管理及登錄程序設(shè)計(jì)二、實(shí)驗(yàn)?zāi)康?通過(guò)本次實(shí)驗(yàn)，使學(xué)生了解托盤(pán)程序的應(yīng)用及設(shè)計(jì)思想，利用Timer控件和NotifyIcon控件實(shí)現(xiàn)一個(gè)動(dòng)態(tài)托盤(pán)程序。三、實(shí)驗(yàn)內(nèi)容1、實(shí)現(xiàn)對(duì)用戶(hù)的各種管理，包括新增、修改、刪除、停用、啟用、重置密碼、查詢(xún)等。2、實(shí)現(xiàn)完整的用戶(hù)登錄系統(tǒng)。3、對(duì)敏感數(shù)據(jù)進(jìn)行加密處理。4、用.NET分層架構(gòu)設(shè)計(jì)。四、實(shí)驗(yàn)代碼（注明代碼所實(shí)現(xiàn)的功能）1.數(shù)據(jù)庫(kù)設(shè)計(jì)：數(shù)據(jù)庫(kù)的名字是：student management,在此數(shù)據(jù)庫(kù)下創(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. 登陸界面：（針對(duì)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(此用戶(hù)未啟用) End If Else MsgBox(請(qǐng)輸入正確的密碼, MsgBoxStyle.Information) End If Else MsgBox(請(qǐng)輸入正確的用戶(hù)名, MsgBoxStyle.Critical) End If End SubEnd Class3.主界面：用到各種控件：DataGridView控件、GroupBox控件、textbox以及botton等DataGridView控件用于用來(lái)顯示數(shù)據(jù)。3創(chuàng)建類(lèi)庫(kù)ClsUser，聯(lián)機(jī)式訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)：DataReader對(duì)象：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)建類(lèi)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.用戶(hù)信息管理： a增加用戶(hù)信息：在類(lèi)庫(kù)ClsUser中進(jìn)行定義，Public Function delete() As String建立鏈接數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名為student management Dim conn As New SqlClient.SqlConnection conn.ConnectionString = comm.

9、clsStrconn.getStrConn建立command對(duì)象 Dim cmd As New SqlClient.SqlCommand設(shè)定活動(dòng)鏈接 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中進(jìn)行操作。 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下圖是增加用戶(hù)信息，增加“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)點(diǎn)

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ù)進(jìn)入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