VB用户登录管理系统.docx
《VB用户登录管理系统.docx》由会员分享，可在线阅读，更多相关《VB用户登录管理系统.docx（15页珍藏版）》请在冰点文库上搜索。
VB用户登录管理系统
软件开发环境与工具
实验报告
实验二
实验题目：
用户登录及管理系统
实验地点：
软件实验室一
指导老师：
王琦
实验类型：
设计型
系班：
计算机科学与技术系1103班
姓名：
秦芳芳（2011100316）
2013年11月22日
一．实验项目名称：
用户登录及管理系统
二.实验目的和任务：
1、掌握系统登录界面设计基本流程
2、了解用户管理所要实现的基本功能
3、要求利用三层架构思想机ado.Net相关技术实现程序
三.实验内容及要求：
1、能够进行登录验证
2、能够实现对用户的基本管理,管理员能够进行查询添加修改删除
3、利用数据库连接访问数据库,提高安全性
四．实验步骤：
1、class1.vb的代码：
ImportsSystem.Data.SqlClient
PublicClassClass1
DimstrconnAsString=Me.getstrconn（）
PublicFunctionyanzheng（ByValstr1AsString）AsInteger
DimconnAsNewSqlConnection
conn.ConnectionString=strconn
conn.Open（）
DimcmdAsNewSqlCommand
cmd.CommandText="select*fromstudentwheresname='"&str1&"'"
cmd.Connection=conn
'cmd.CommandType=CommandType.Text
DimdrAsSqlDataReader
dr=cmd.ExecuteReader
Ifdr.ReadThen
dr.Close（）
conn.Close（）
Return1
Else
dr.Close（）
conn.Close（）
Return0
EndIf
EndFunction
PublicFunctionpwdyanzheng（ByValstrAsString）AsSqlDataReader
DimconnAsNewSqlConnection
conn.ConnectionString=strconn
conn.Open（）
DimcmdAsNewSqlCommand
cmd.CommandText="select*fromstudentwheresname='"&str&"'"
cmd.Connection=conn
DimdrAsSqlDataReader=cmd.ExecuteReader
Returndr
EndFunction
PublicFunctiongetstrconn（）AsString
DimstrAsString
str="server="&System.Configuration.ConfigurationManager.AppSettings（"server"）&";"
str&="uid="&System.Configuration.ConfigurationManager.AppSettings（"uid"）&";"
str&="pwd="&System.Configuration.ConfigurationManager.AppSettings（"pwd"）&";"
str&="database="&System.Configuration.ConfigurationManager.AppSettings（"database"）
Returnstr
EndFunction
PublicFunctiongetalldata（）AsDataSet
DimconnAsNewSqlConnection
conn.ConnectionString=strconn
conn.Open（）
DimdaAsNewSqlDataAdapter（"select*fromstudent",conn）
DimdsAsNewDataSet
da.Fill（ds,"student"）
conn.Close（）
Returnds
EndFunction
PublicFunctioninsdata（ByValstr1AsString,ByValstr2AsString）AsString
DimconnAsNewSqlConnection
conn.ConnectionString=strconn
DimcmdAsNewSqlCommand
cmd.Connection=conn
cmd.CommandText="insertintostudent（sname,sno）values（'"&str1&"','"&str2&"'）"
Try
conn.Open（）
cmd.ExecuteNonQuery（）
Return"1"
CatchexAsException
Return"-1"&ex.Message
EndTry
conn.Close（）
EndFunction
PublicFunctionupd（ByValstr1AsString,ByValstr2AsString）AsString
DimconnAsNewSqlConnection
conn.ConnectionString=strconn
DimcmdAsNewSqlCommand
cmd.Connection=conn
cmd.CommandText="updatestudentsetsno='"&str2&"'wheresname='"&str1&"'"
Try
conn.Open（）
cmd.ExecuteNonQuery（）
Return"1"
CatchexAsException
Return"-1"&ex.Message
EndTry
conn.Close（）
EndFunction
PublicFunctiondeldata（ByValstrAsString）AsString
DimconnAsNewSqlConnection
conn.ConnectionString=strconn
DimcmdAsNewSqlCommand
cmd.Connection=conn
cmd.CommandText="deletefromstudentwheresname='"&str&"'"
Try
conn.Open（）
cmd.ExecuteNonQuery（）
Return"1"
CatchexAsException
Return"-1"&ex.Message
EndTry
conn.Close（）
EndFunction
PublicFunctionsearch（ByValstr1AsString）AsString
DimconnAsNewSqlConnection
conn.ConnectionString=strconn
DimcmdAsNewSqlCommand
cmd.Connection=conn
cmd.CommandText="select*fromstudent"
Try
conn.Open（）
cmd.ExecuteNonQuery（）
Return"1"
CatchexAsException
Return"-1"&ex.Message
EndTry
conn.Close（）
EndFunction
EndClass
2、进入界面功能的代码：
ImportsSystem.Data.SqlClient
PublicClassForm1
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimoAsNewClass1
DimfAsInteger
f=o.yanzheng（Me.TextBox1.Text）
Iff=0Then
MsgBox（"不存在该用户，请重新输入！
"）
Me.TextBox1.Text=""
Me.TextBox1.Focus（）
Else
Iff=1Then
DimdrAsSqlDataReader
dr=o.pwdyanzheng（Me.TextBox1.Text）
dr.Read（）
IfRTrim（dr!
sno）<>Me.TextBox2.TextThen
MsgBox（"密码错误，请重新输入！
"）
Me.TextBox2.Text=""
Me.TextBox2.Focus（）
Else
DimstrpwdAsString
strpwd=Me.TextBox2.Text
strpwd=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile（strpwd,"md5"）
DimfrmAsNewForm2
frm.loginname=Me.TextBox1.Text
frm.logintime=TimeOfDay
frm.Show（）
Me.Hide（）
EndIf
EndIf
EndIf
EndSub
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
MyBase.Dispose（）
EndSub
EndClass
3、用户管理和浏览信息界面的代码：
PublicClassForm2
PublicloginnameAsString
PubliclogintimeAsString
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Me.Hide（）
Form3.Show（）
EndSub
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
Me.Hide（）
Form4.Show（）
EndSub
PrivateSubForm2_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
Me.loginstatusname.Text="用户名：
"&loginname
Me.loginstatustime.Text="登录时间：
"&logintime
EndSub
PrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTimer1.Tick
Me.ToolStripStatusLabel1.Text=Now
EndSub
EndClass
4、增，删，改，查功能页面的代码：
PublicClassForm3
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click
Me.Hide（）
del.Show（）
EndSub
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Me.Hide（）
ins.Show（）
EndSub
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
Me.Hide（）
upda.Show（）
EndSub
PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click
Me.Close（）
search.Show（）
EndSub
EndClass
5、显示信息界面的代码：
PublicClassForm4
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
Me.Close（）
Form2.Show（）
EndSub
PrivateSubForm4_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load
DimoAsNewClass1
DimdsAsNewDataSet
ds=o.getalldata（）
Me.DataGridView1.Refresh（）
Me.DataGridView1.DataSource=ds.Tables（"student"）
EndSub
EndClass
6、插入信息界面的代码：
PublicClassins
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimoAsNewClass1
o.insdata（Me.TextBox1.Text,Me.TextBox2.Text）
Me.Close（）
Form2.Show（）
EndSub
EndClass
7、查询信息界面的代码：
PublicClasssearch
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimoAsNewClass1
DimdsAsNewDataSet
o.search（Me.TextBox1.Text）
ds=o.getalldata（）
Me.DataGridView1.Refresh（）
Me.DataGridView1.DataSource=ds.Tables（"student"）
EndSub
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
Me.Close（）
Form2.Show（）
EndSub
PrivateSubDataGridView1_CellClick（ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs）HandlesDataGridView1.CellClick
Me.TextBox1.Text=DataGridView1.CurrentRow.Cells.Item（0）.Value.ToString
Me.TextBox2.Text=DataGridView1.CurrentRow.Cells.Item
（1）.Value.ToString
Me.TextBox3.Text=DataGridView1.CurrentRow.Cells.Item
（2）.Value.ToString
Me.TextBox4.Text=DataGridView1.CurrentRow.Cells.Item（3）.Value.ToString
Me.TextBox5.Text=DataGridView1.CurrentRow.Cells.Item（4）.Value.ToString
EndSub
EndClass
8、修改信息界面的代码：
PublicClassupda
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimoAsNewClass1
o.upd（Me.TextBox1.Text,Me.TextBox2.Text）
Me.Close（）
Form2.Show（）
EndSub
EndClass
9、删除信息界面的代码：
PublicClassdel
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimoAsNewClass1
'o.deldata（Me.TextBox1.Text）
o.deldata（Me.TextBox1.Text）
Me.Close（）
Form2.Show（）
EndSub
EndClass
五、运行结果及截图：
（1）建立数据库
（2）运行截图
六、实验总结：
通过本次实验，我大致掌握了一个登录系统界面设计的基本流程，同时了解了用户管理所要实现的基本功能，而且能够利用三层架构思想机ado.Net相关技术实现程序，能够进行登录验证，实现了对用户的基本管理,在系统中实现了增删查改的功能，利用数据库连接访问数据库,提高了安全性，为以后的学习打下了很好的基础。
升级会员 