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相关技术实现程序,能够进行登录验证,实现了对用户的基本管理,在系统中实现了增删查改的功能,利用数据库连接访问数据库,提高了安全性,为以后的学习打下了很好的基础。