门禁管理系统.doc

此文档收集于网络，如有侵权，请联系网站删除上海电力学院信息网络技术设计课程设计报告题目: 门禁管理系统的设计 姓 名： 肖哲 学 号： 20111925 院系： 电子与信息工程学院 专业年级： 电子信息工程 2011级 2014 年 12 月 3 日一、 设计目的本课程设计的目的是体验基于身份认证的信息网络实践演示平台和综合应用VB.NET或C#软件以及SQL数据库建立公交收费管理系统、门禁管理系统、图书借阅系统、食堂管理系统等应用软件。二设计平台 硬件：IC读卡器、IC卡与PC机 软件：VS2008，SQL Server2005三、 设计内容、要求及组织形式本课程设计的门禁管理系统的设计分为两部分：VB.NET或C#编写的应用软件以及SQL数据库。软件可以完成计算机串口与IC卡硬件设备的通信功能、门禁管理数据库的操作功能以及根据读入的IC卡数据显示相应的数据列表的功能。四、设计内容 设计课题：门禁管理系统的设计 设计要求：当要进门时，持卡人走到读卡区读卡，读卡器接收到IC卡读卡信息后，将卡号信息传送到上位机供分析，根据用户信息以及对用户设定的门禁权限判断该卡是否合法，同时将该信息与日期、时间记录下来供查询。本系统由用户信息、门禁权限信息、正常刷卡记录、非法刷卡记录等应用模块组成。 五、页面设计和编（1）准备1(图1) 添加label，button,控件，引导进入登录界面、 图1.准备1代码： Private Sub Buttondl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttondl.Click Me.Hide() 管理员登录.Show() End Sub Private Sub Buttonsk_Click(sender As Object, e As EventArgs) Handles Buttonsk.Click Me.Hide() 刷卡模拟.Show() End Sub Private Sub 门禁管理系统_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class（2）登录2（图2 ） 添加label，textbox，button，以及SqlCommand1 ，SqlDataAdapter管理员生成的DataSet1管理员1（连接SQL中的管理员表）和SqlConnection1。图2 登录2代码：Public Class 管理员登录 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonok.Click SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_2 where 帐号= & Trim(TextBoxun.Text) & and 密码= & Trim(TextBoxps.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then Me.Hide() 管理员界面.Show() Else MsgBox(用户不存在或帐号密码错误，请从新输入！) End If End Sub Private Sub Buttonr_Click(sender As Object, e As EventArgs) Handles Buttonr.Click TextBoxun.Text = TextBoxps.Text = Me.Hide() 门禁管理系统.Show() End Sub Private Sub 管理员登录_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class（3） 管理员界面 添加label，textbox，button，以及SqlCommand1 ，SqlDataAdapter管理员生成的DataSet1管理员1（连接SQL中的管理员表）和SqlConnection1。图3代码： Public Class 管理员界面 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Hide() 查询界面.Show() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Me.Hide() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.Hide() 用户管理.Show() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Hide() 挂失界面.Show() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Hide() 修改密码.Show() End Sub Private Sub 管理员界面_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class（4）用户管理（图4）添加label，textbox，button，datagrid，以及SqlCommand1 ，SqlDataAdapter用户生成的DataSet1用户资料1（连接SQL中的用户表）和SqlConnection1。 图4代码：Public Class 用户管理 Private Sub 用户管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Table_1TableAdapter.Fill(Me.XiaozheDataSet.Table_1) End Sub Private Sub Buttonrt_Click(sender As Object, e As EventArgs) Handles Buttonrt.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox6.Text = Me.Hide() 管理员界面.Show() End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub Buttontj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttontj.Click If TextBox1.Text = Or TextBox2.Text = Or TextBox3.Text = Or TextBox6.Text = Then MsgBox(添加用户信息不全,请重新添加) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_1 where 学号= & Trim(TextBox2.Text) & SqlCommand2.CommandText = select * from Table_1 where 卡号= & Trim(TextBox3.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar Dim n2 As String = SqlCommand2.ExecuteScalar SqlConnection1.Close() If n1 Or n2 Then MsgBox(用户或卡号已存在，请重新添加) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox6.Text = Else SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = INSERT INTO Table_1(用户名,学号,卡号,联系方式,楼幢号,用户状态) VALUES( & TextBox1.Text & , & TextBox2.Text & , & TextBox3.Text & , & TextBox4.Text & , & TextBox6.Text & ,正常 ) SqlCommand1.ExecuteNonQuery() XiaozheDataSet.Clear() SqlDataAdapter1.Fill(XiaozheDataSet) SqlConnection1.Close() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox6.Text = MsgBox(添加成功) End If End If End Sub Private Sub Buttonzx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonzx.Click If TextBox2.Text = Then MsgBox(请输入你要注销的用户信息) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_1 where 学号= & Trim(TextBox2.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = DELETE FROM Table_1 WHERE 学号= & TextBox2.Text SqlCommand1.ExecuteNonQuery() XiaozheDataSet.Clear() SqlDataAdapter1.Fill(XiaozheDataSet) SqlConnection1.Close() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox6.Text = MsgBox(注销成功) Else MsgBox(用户不存在，请重新输入) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox6.Text = End If End If End Sub Private Sub Buttonxg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonxg.Click If TextBox2.Text = Or TextBox1.Text = Or TextBox4.Text = Or TextBox6.Text = Then MsgBox(请输入你要修改的用户信息) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_1 where 学号= & Trim(TextBox2.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = UPDATE Table_1 SET 用户名= & TextBox1.Text & ,联系方式= & TextBox4.Text & ,楼幢号= & TextBox6.Text & WHERE 学号= & TextBox2.Text & SqlCommand1.ExecuteNonQuery() XiaozheDataSet.Clear() SqlDataAdapter1.Fill(XiaozheDataSet) SqlConnection1.Close() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox6.Text = MsgBox(修改成功) Else MsgBox(用户不存在，请重新输入) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox6.Text = End If End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox7.Text = Then MsgBox(查询信息不能为空，请重新输入) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_3 where 学号= & Trim(TextBox7.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlDataAdapter1.SelectCommand.CommandText = select * from Table_1 where 学号 = & TextBox1.Text & SqlConnection1.Close() XiaozheDataSet.Clear() SqlDataAdapter1.Fill(XiaozheDataSet) DataGridView1.Update() DataGridView1.Refresh() Else MsgBox(用户不存在或无访问信息，请重新查询) TextBox1.Text = End If End If End SubEnd Class（5）访问查询图5代码：Public Class 查询界面 Private Sub 查询界面_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Table_3TableAdapter.Fill(Me.XiaozheDataSet1.Table_3) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(输入卡号不能为空) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_3 where 卡号= & Trim(TextBox1.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlDataAdapter1.SelectCommand.CommandText = select * from Table_3 where 卡号 = & TextBox1.Text & SqlConnection1.Close() XiaozheDataSet1.Clear() SqlDataAdapter1.Fill(XiaozheDataSet1) DataGridView1.Update() DataGridView1.Refresh() TextBox1.Text = Else MsgBox(用户不存在或无访问记录) End If End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() 管理员界面.Show() TextBox1.Text = TextBox2.Text = End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = DELETE FROM Table_3 SqlCommand1.ExecuteNonQuery() XiaozheDataSet1.Clear() SqlDataAdapter1.Fill(XiaozheDataSet1) SqlConnection1.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox2.Text = Then MsgBox(输入楼幢号不能为空) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_3 where 楼幢号= & Trim(TextBox2.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlDataAdapter1.SelectCommand.CommandText = select * from Table_3 where 楼幢号 = & TextBox2.Text & SqlConnection1.Close() XiaozheDataSet1.Clear() SqlDataAdapter1.Fill(XiaozheDataSet1) DataGridView1.Update() DataGridView1.Refresh() TextBox2.Text = Else MsgBox(楼幢不存在或无访问记录) End If End If End SubEnd Class （6） 挂失界面Public Class 挂失界面 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Hide() 管理员界面.Show() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(学号不能为空，请重新输入) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_1 where 学号= & Trim(TextBox1.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = UPDATE Table_1 SET 用户状态=异常 WHERE 学号= & TextBox1.Text & SqlCommand1.ExecuteNonQuery() SqlConnection1.Close() TextBox1.Text = MsgBox(挂失成功) Else MsgBox(用户不存在，请重新输入) TextBox1.Text = End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox1.Text = Then MsgBox(学号不能为空，请重新输入) Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_1 where 学号= & Trim(TextBox1.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = UPDATE Table_1 SET 用户状态=正常 WHERE 学号= & TextBox1.Text & SqlCommand1.ExecuteNonQuery() SqlConnection1.Close() TextBox1.Text = MsgBox(取消成功) Else MsgBox(用户不存在，请重新输入) TextBox1.Text = End If End If End Sub Private Sub 挂失界面_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class（7） 修改密码代码：Public Class 修改密码 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() 管理员界面.Show() TextBox1.Text = TextBox2.Text = TextBox3.Text = End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_2 where 帐号= & Trim(TextBox1.Text) & and 密码= & Trim(TextBox2.Text) & Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = UPDATE Table_2 SET 密码= & TextBox3.Text & WHERE 帐号= & TextBox1.Text & SqlCommand1.ExecuteNonQuery() SqlConnection1.Close() MsgBox(修改成功) Else MsgBox(用户不存在或帐号密码错误，请从新输入！) End If End Sub Private Sub SqlDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlRowUpdatedEventArgs) Handles SqlDataAdapter1.RowUpdated End Sub Private Sub 修改密码_Load(sender As Object, e As EventArgs) Handles MyBase.Load End SubEnd Class(8) 刷卡模拟代码：Public Class 刷卡模拟 Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click Me.Hide() 门禁管理系统.Show() TextBox1.Text = End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub SqlDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlRowUpdatedEventArgs) Handles SqlDataAdapter1.RowUpdated End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = DateTime.Now() If ComboBox1.Text = Then Else If ComboBox1.Text = 一号门 Then If TextBox1.Text = Then Else SqlConnection1.Open() SqlCommand1.CommandText = select * from Table_1 where 卡号= & Trim(TextBox1.Text) & and 用户状态=正常 and 楼幢号=1 Dim n1 As String = SqlCommand1.ExecuteScalar SqlConnection1.Close() If n1 Then SqlConnection1.Open() SqlCommand1.Connection = SqlConnection1 SqlCommand1.CommandText = INSERT INTO Table_3(用户名,楼幢号,卡号,访问时间,访问状态) VALUES(的 ,1, & TextBox1.Text & , & TextBox2.Text & ,正常