VB用户登录管理系统_vb用户登录窗口

VB用户登录管理系统由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb用户登录窗口”。

软件开发环境与工具

实验报告

实验二

实验题目：用户登录及管理系统 实验地点：软件实验室一 指导老师：王琦 实验类型：设计型

系 班：计算机科学与技术系1103班 姓 名：秦芳芳（2011100316）

2013年11月22日

一．实验项目名称：用户登录及管理系统 二.实验目的和任务：

1、掌握系统登录界面设计基本流程

2、了解用户管理所要实现的基本功能

3、要求利用三层架构思想机ado.Net相关技术实现程序

三.实验内容及要求：

1、能够进行登录验证

2、能够实现对用户的基本管理,管理员能够进行查询添加修改删除

3、利用ado.net数据库连接访问数据库,提高安全性

四．实验步骤：

1、cla1.vb的代码：

Imports System.Data.SqlClient Public Cla Cla1

Dim strconn As String = Me.getstrconn()Public Function yanzheng(ByVal str1 As String)As Integer

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname ='” & str1 & “'” cmd.Connection = conn 'cmd.CommandType = CommandType.Text

Dim dr As SqlDataReader dr = cmd.ExecuteReader If dr.Read Then dr.Close()conn.Close()Return 1 Else

dr.Close()conn.Close()Return 0 End If

End Function

Public Function pwdyanzheng(ByVal str As String)As SqlDataReader

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()

Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname = '” & str & “'” cmd.Connection = conn Dim dr As SqlDataReader = cmd.ExecuteReader Return dr End Function

Public Function getstrconn()As String

Dim str As String 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”)Return str End Function

Public Function getalldata()As DataSet

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim da As New SqlDataAdapter(“select * from student”, conn)Dim ds As New DataSet da.Fill(ds, “student”)conn.Close()Return ds End Function

Public Function insdata(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “insert into student(sname,sno)values('” & str1 & “','” & str2 & “')”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Meage End Try

conn.Close()

End Function

Public Function upd(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “update student set sno ='” & str2 & “'where sname ='” & str1 & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Meage End Try

conn.Close()End Function

Public Function deldata(ByVal str As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “delete from student where sname ='” & str & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Meage End Try

conn.Close()End Function

Public Function search(ByVal str1 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “select * from student”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Meage End Try

conn.Close()End Function

End Cla2、进入界面功能的代码：

Imports System.Data.SqlClient Public Cla Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Cla

1Dim f As Integer

f = o.yanzheng(Me.TextBox1.Text)If f = 0 Then

MsgBox(“不存在该用户，请重新输入！”)Me.TextBox1.Text = “”

Me.TextBox1.Focus()Else

If f = 1 Then

Dim dr As SqlDataReader

dr = o.pwdyanzheng(Me.TextBox1.Text)dr.Read()If RTrim(dr!sno)Me.TextBox2.Text Then MsgBox(“密码错误，请重新输入！”)Me.TextBox2.Text = “”

Me.TextBox2.Focus()Else

Dim strpwd As String

strpwd = Me.TextBox2.Text strpwd = System.Web.Security.FormsAuthentication.HashPawordForStoringInConfigFile(strpwd, “md5”)Dim frm As New Form2

frm.loginname = Me.TextBox1.Text frm.logintime = TimeOfDay frm.Show()Me.Hide()End If

End If

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click MyBase.Dispose()

End Sub End Cla3、用户管理和浏览信息界面的代码： Public Cla Form2

Public loginname As String

Public logintime As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()Form3.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()Form4.Show()End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load Me.loginstatusname.Text = “用户名：” & loginname Me.loginstatustime.Text = “登录时间：” & logintime End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick Me.ToolStripStatusLabel1.Text = Now End Sub End Cla4、增，删，改，查功能页面的代码： Public Cla Form3

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click Me.Hide()del.Show()End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()ins.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()upda.Show()End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button4.Click Me.Close()search.Show()End Sub End Cla5、显示信息界面的代码： Public Cla Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Close()Form2.Show()End Sub

Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load Dim o As New Cla

1Dim ds As New DataSet ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(“student”)End Sub End Cla6、插入信息界面的代码： Public Cla ins

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Cla1

o.insdata(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Cla7、查询信息界面的代码： Public Cla search

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Cla

1Dim ds As New DataSet

o.search(Me.TextBox1.Text)ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(“student”)End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button2.Click

Me.Close()Form2.Show()End Sub

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.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 End Sub End Cla8、修改信息界面的代码： Public Cla upda

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Cla1

o.upd(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Cla9、删除信息界面的代码： Public Cla del

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Cla1

'o.deldata(Me.TextBox1.Text)o.deldata(Me.TextBox1.Text)Me.Close()Form2.Show()End Sub

End Cla

五、运行结果及截图：

（1）建立数据库

（2）运行截图

六、实验总结：

通过本次实验，我大致掌握了一个登录系统界面设计的基本流程，同时了解了用户管理所要实现的基本功能，而且能够利用三层架构思想机ado.Net相关技术实现程序，能够进行登录验证，实现了对用户的基本管理,在系统中实现了增删查改的功能，利用ado.net数据库连接访问数据库,提高了安全性，为以后的学习打下了很好的基础。