用户管理及登陆程序设计

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

2、namevarchan(50auserjswdvanchaiXSO匣1user_dep13Dvan：har(50)團i user_5tate| rrvancherp)a加密：MeTextBox2.Text=System.Web.Security.FormsAuthe nticatio n .HashPasswordForStori ngln Co nfigFile(MeTextBox1.Text & Me.TextBox2.Text, "MD5")加密后：gg_User表内的数据如图：userjduserjnameuser_pwduser_deptJDuser_st

3、tE01张三69QD51A19D3A.1启用02李斯20343A25S34DD| 2启用03吴膚310DCBBF4CCE.2启用AUXNULLNULLNULkNULL2.登陆界面：（针对 forml）PublicClassformlDim o As NewmyData. CisUserDim f2 As New homepagePrivate Sub 登陆_Click( ByVai sender As System. Object , ByVai e As System. EventArgs) Handles 登陆.ClickDim dr As SqlClient.SqlDataReaderd

4、r = o.getall2dr(MeTextBoxl.Text)If dr.Read() ThenIf dr.Item( "user_pwd")=System.Web.Security. FormsAuthentication .HashPasswordForStoringlnConfi gFile( MeTextBox2.Text, "MD5") Then'If dr.Item("User_state")="启用"The nMsgBox("登录成功", MsgBoxStyle.MsgB

5、oxRight)f2.Show()Me.Close()'Else'MsgBox("此用户未启用")'End IfElseMsgBox("请输入正确的密码"，MsgBoxStyle.Information)End IfElseMsgBox("请输入正确的用户名"，MsgBoxStyle.Critical)End IfEnd SubEnd Class学生信息管理系统用户名:用户密码;用户ID:增加 删除3.主界面:用到各种控件：DataGridView 控件、GroupBox控件、textbox 以及 botton

6、 等DataGridView控件用于用来显示数据uj兰界面3. 创建类库CisUser，联机式访问数据库：DataReader对象： Public Function getall2dr(ByVal strWhere As String) As SqlClie nt.SqlDataReaderDim conn As New SqlClie nt.SqlCo nn ectio n设定连接字符串conn.Conn ecti on Stri ng = comm.clsStrc onn .getStrC onnDim cmd As New SqlClie nt.SqlComma nd cmd.Comma

7、 ndType = Comma ndType.Text cmd.C onn ecti on = connIf strWhere = "" The ncmd.Comma ndText = "select * from gg_user"Elsecmd.Comma ndText = "select * from gg_user where " & strWhere End IfDim dr As SqlClie nt.SqlDataReader conn. Ope n()dr = cmd.ExecuteReader(Comma nd

8、Behavior.CloseC onnection)Retur n drEnd Function4. 创建类 clsStrconn :Public Class clsStrc onn'server=ZGC-20111121JB Z; uid=sa;pwd=;database=jxslPublic Shared Fun ction getStrCo nn() As Stri ngDim strC onn As Stri ngstrC onn = "server=" &System.C on figuratio n.Con figurati onMan ager

9、.AppSett in gs("server") & "" strCo nn &= "uid=" &System.C on figuratio n.Con figurati onMan ager.AppSett in gs("uid") & "" strCo nn &= "pwd=" &System.C on figuratio n.Con figurati onMan ager.AppSett in gs("pwd&

10、quot;) & "" strC onn &= "database=" &System.C on figuratio n.Con figurati onMan ager.AppSetti ngs("database")Retur n strC onnEnd FunctionEnd Class5. 用户信息管理：a 增加用户信息：'在类库ClsUser中进行定义，Public Function delete() As String'建立链接数据库，数据库名为 stude nt man ageme

11、ntDim conn As NewSqlClient.SqlConnectionconn.ConnectionString = comm.clsStrconn .getStrConn'建立comma n对象Dim cmd As NewSqlClient. SqlCommand'设定活动链接cmd.C onn ecti on = conn设定要执行的命令cmd.Comma ndText ="delete from gg_User where user_id='" &duser_id &"'"Tryconn.

12、Ope n()cmd.ExecuteN on Query()conn. Close()Return "1"Catch ex As Exceptionconn. Close()Return "-1" & ex.MessageEnd TryEnd Function'在homepage.vb中进行操作。AsPrivate Sub 增加_Click( ByVai sender As System. Object , ByVai e System. EventArgs) Handles 增加.ClickDim sr As String 'o

13、为重新定义CisUsero.duser_id = o.duser_ name = o.duser_pwd = o.duser_state = sr = o.i nsertIf sr ="1"Meuserid.Text Meuser name.Text Meuserpwd.Text Mestate.TextThe nMsgBox("添加成功")Call Mel ni tGrid()ElseMsgBox("添加失败"& sr)End IfEnd Sub下图是增加用户信息，增加“ 00”“ admi n”“ admi n”“启用”u

14、ser iduset_najnieuser jwduser00<13B94AQE4A3O1FC3|启用01kz111启用02李斯1112启用03吴庸1112启用b.删除信息：Public Function delete() As StringDim conn As New SqlClie nt.SqlCo nn ectio n conn.Conn ecti on Stri ng = comm.clsStrc onn .getStrC onnDim cmd As New SqlClie nt.SqlComma ndcmd.C onn ecti on = conncmd.Comma ndTe

15、xt = "delete from gg_User where user_id='" & duser_id & "'"Tryconn. Ope n()cmd.ExecuteN on Query()conn. Close()Retur n "1"Catch ex As Excepti onconn. Close()Return "-1" & ex.MessageEnd TryEnd FunctionPrivate Sub 删除_Click( ByVai sender As Sy

16、stem. Object , ByVai e As System. EventArgs) Handles 删除.ClickDim sr As Stringo.duser_id =Meuserid.Textsr = o.deleteIf sr ="1" ThenMsgBox("删除成功！")Call Mel ni tGrid()ElseMsgBox("删除失败！ " & sr)End IfEnd Subc 修改信息：Public Function update() As StringDim conn As New SqlClie

17、 nt.SqlCo nn ectio nconn.Conn ecti on Stri ng = comm.clsStrc onn .getStrC onnDim cmd As New SqlClie nt.SqlComma ndcmd.C onn ecti on = conncmd.Comma ndText = "update gg_user set user_pwd='" & duser_pwd& "'where user_id='" & duser_id & "”'Trycon

18、n. Ope n()cmd.ExecuteN on Query()conn. Close()Retur n "1"Catch ex As Excepti onconn. Close()Return "-1" & ex.MessageEnd TryEnd FunctionPrivate Sub 修改_Click( ByVal sender As System. Object , ByVal e As System. EventArgs) Handles 修改.Clicko.duser_ name =Meuser name.Texto.duser_i

19、d =Meuserid.Texto.duser_state =Mestate.TextDim sr As Stringsr = o.updateIf sr ="1" ThenMsgBox("修改成功！")Call Mel ni tGrid()ElseMsgBox("修改失败！")End IfEnd Sub6. 创建应用程序配置文件：app.config'便于修改v?xml versio n="1.0"?>vcon figuratio n><startup>vsupportedR un

20、 time vers ion="v4.0"sku=".NETFramework,Versio n=v4.0"/></startup>vappSett in gs><add key="server" value="ZGC-20111121JBZ"/><add key="uid" value="sa"/><add key="pwd" value=""/><add key=&q

21、uot;database" value="stude nt man ageme nt"/>v/appSetti ngs>v/con figuratio n>7. 数据更新：当点击增加(删除、修改)按钮，数据做一次更新Private Sub Form1_Load(ByVal sen der As System.Object, ByVal e AsSystem.Eve ntArgs) Han dles MyBase.LoadCall Me.lni tGrid()End SubSub Ini tGrid()dv = o.getall2ds("").Tables(0).DefaultViewMe.DataGridViewl.DataSource = dvEnd Sub8. 双击数据进入textbox中Private Sub DataGridView1_CellDoubleClick(ByValsender As Object, ByVale As System.Wi ndows.Forms.DataGridViewCellEve ntArgs) Han dles DataGridViewl.