VB523 门禁IC卡系统软件设计VB+Access

电脑联网型门禁控制系统是在电脑软件的支持下对门禁系统进行管理。通过软件，可以对每个持卡人的出入门权限进行授权，限定其在特定的时间段内可通行特定的门。电脑将记录下每次读卡的记录以及发生的事件供管理人员进行监控或查询。
门禁系统是一个禁止非授权人在特定时间进入特定地点的电子门锁系统，主要功能包括：A.拒绝非授权人出入，B.允许授权人有条件出入特定地点，C.允许授权人在特定时间出入，D.查看授权人出入记录，E.对非法出入进行报警，F.远程控制。
以色列DDS公司成立于1986年，专门从事门禁报警监控等安全系统的设计和制造，产品销售网遍布世界30多个国家和地区，至今已有35000多门禁保安系统在运行。如史可必成药业公司、美国商会、广电部数据中心、石家庄全部邮政储蓄网点、泰康保险、惠而浦公司、新加坡太平船务公司、美国康宁公司，诺基亚北京大楼，爱立信技术支持公司，MOTOROLA东北亚总部和其新开的各分公司等。
〖本文来自：计算机毕业网  〗
但是随着接触式智能IC卡门禁系统应用规模的扩大，其本身不可克服的缺点成了它进一步发展的绊脚石，如接触磨损、难以维护、基础设施投入大等。随着信息业和服务业的全球化，社会对信息载体的便携性、高安全性及容易使用等方面提出更高的要求，于是非接触式智能卡以其无机械磨损、容易维护、方便使用等优点，成为智能卡潜力最大的新军而倍受业界瞩目。非接触式门禁系统是当今最具有用在各种场合均有大量应用的机械锁方面；机电一体化控制处理模块，主要应用在各种独立的，安全防范级别要求不高，且无需随时检测系统运行的环境中；全电子型控制处理模块，是当今门禁系统的真实代表。正是由于数字化的大量普及，高性能数字电路的不断完善，各种保护电路的不断改进，各种芯片的大幅降价，使得全世界的设计师有机会设计出性能千姿百态、结构不断推陈出新、性价比极高的优秀产品。门禁系统所有的功能、概念、组态方式均是出自控制处理模块这一门禁系统的灵魂中心，它能充分地表现出门禁系统对安防工作以及对日常管理工作的真实贡献。

think58 [资料来源：http://think58.com]

[资料来源：www.THINK58.com]

智能门禁系统是怎样发展起来的并且有哪些特点呢？让我们来看一下门禁系统的发展过程。门禁系统，又称出人口控制系统。在何处放行某些人，拒绝某些人，何时要发出警报，记忆出入的过程，以达到安全的目的，是门禁系统最基本的功能。门禁系统的发展是随着人类社会的发展一起进步的。从原始社会以来，随着剩余价值的产生，人们有了自己的财产和物业，为了保护自己的产业不受他人的侵犯，人们用杠棒或木插将门锁起。于是，人类从有看家护院的意识起，就有了最初的出人口控制概念，门禁也就随之产生了。随着社会的发展和人们安全意识的提高，产生了铁锁和暗锁等门锁设备。
但是传统的门锁仅仅是单纯的契合性机械装置，无论它的结构如何复杂坚固，一把在街头就可以配制的钥匙就能打开，并且不留痕迹。如果钥匙遗失连带 本文来自think58 [资料来源：www.THINK58.com]

最近几年随着感应卡技术，生物识别技术的发展，门禁系统得到了飞跃式的发展，进入了成熟期，出现了感应卡式门禁系统，指纹门禁系统，虹膜门禁系统，面部识别门禁系统，乱序键盘门禁系统等各种技术的系统，它们在安全性，方便性，易管理性等方面都各有特长，门禁系统的应用领域也越来越广。
2.2门禁系统工作原理
门禁以门为主，在所控制的门内外及门的上方，装有各种各样的门禁设备。
当持卡人打算进门时，他会在门外用感应卡在读卡器上刷卡、在密码键盘上输入密码，也可能是使用指纹识别器、掌纹识别器、视网膜识别器等等生物识别器核对身份。
当持卡人刷卡后，信息北传送到门附近的控制器中，通过门禁控制器内的电脑识别，确认该持卡人有资格进入后，发送控制信号给门上方（或门侧）的电锁，开门让持卡人进入。
持卡人在进门后，门会自动关闭（使用地弹簧、闭门器等装置）。在电锁内往往还装有感应器件（锁状态传感器），一旦门或电锁处于开启状态，则它会回传信号给控制器，当门开启时间过长时，控制器或电铃会发出声响，通知开门者赶紧关门（这一现象在宾馆客房门口经常见到）。 think58好，好think58 [来源：http://www.think58.com]

成熟的门禁系统实现的基本功能：
 对通道进出权限的管理
对通道进出权限的管理主要有以下几个方面：
进出通道的权限:就是对每个通道设置哪些人可以进出，哪些人不能进出
进出通道的方式: 就是对可以进出该通道的人进行进出方式的授权，进出方式通常有密码、读卡（生物识别）、读卡（生物识别）+密码三种方式
进出通道的时段: 就是设置可以该通道的人在什么时间范围内可以进出
 实时监控功能
系统管理人员可以通过微机实时查看每个门区人员的进出情况（同时有照片显示）、每个门区的状态（包括门的开关，各种非正常状态报警等）；也可以在紧急状态打开或关闭所有的门区。
 出入记录查询功能
系统可储存所有的进出记录、状态记录，可按不同的查询条件查询，配备相应考勤软件可实现考勤、门禁一卡通
 异常报警功能
在异常情况下可以实现微机报警或报警器报警，如：非法侵入、门超时未关等
根据系统的不同门禁系统还可以实现以下一些特殊功能： think58好，好think58 [版权所有：http://think58.com]

 网络设置管理监控功能：大多数门禁系统只能用一台微机管理，而技术先进的系统则可以在网络上任何一个授权的位置对整个系统进行设置监控查询管理，也可以通过INTERNET网上进行异地设置管理监控查询。
 逻辑开门功能：简单地说就是同一个门需要几个人同时刷卡（或其它方式）才能打开电控 门锁。
 电梯控制系统：就是在电梯内部安装读卡器，用户通过读卡对电梯进行控制，无须按任何按钮。
2.5本门禁系统的设计方案
为满足以上要求，我初步设想上位机以Visual Bisic做界面，访问数据库，下位机用keil编写C51，通过串口实现上位机与下位机的通信。
1)开发硬件：本系统选用WindowsXP操作系统下的PC机，AT89S51单片机。
2)软 件：以WindowsXP为操作系统，用VB6.0，Keil uVision3，编写程序，Proteus和串口助手仿真调试。
3门禁系统的硬件电路设计
门禁系统的硬件设计主要是下位机硬件电路的设计，然后通过串口连接线将上位机与下位机连接起来即可。
下位机部分包括电源部分、单片机最小系统、按键部分、指示部分和串口电路。硬件模块设计方案入图3.1.
〖本文来自：计算机毕业网  〗
   'MSComm1.InputMode = comInputModeBinary              '数据接受采用二进制传输 内容来自think58

    MSComm1.InBufferSize = 4000                         '数据接受缓冲区大小为4000字节
    MSComm1.InputLen = 0                                'INPUT读取缓冲区的所有内容
    MSComm1.NullDiscard = False                         'NULL字符从端口传送到接受缓冲区
    MSComm1.DTREnable = False                           'DTR线无效
    MSComm1.EOFEnable = False                           '不寻找EOF符 think58.com
    MSComm1.RTSEnable = False                           'RTS线无效
    MSComm1.InBufferCount = 0                           '清空接受缓冲区
    MSComm1.OutBufferCount = 0                          '清空传输缓冲区
    MSComm1.SThreshold = 1                              '如果传输缓冲区完全空时产生MSComm事件
    MSComm1.RThreshold = 0                              '不产生MSComm事件 [来源：http://think58.com]
    If MSComm1.PortOpen = False Then
       MSComm1.PortOpen = True
       opencom.Caption = "关闭通信"
       Label4.BackColor = &HFF0000
       Combo1.Enabled = False
       Combo2.Enabled = False
       Timer2.Enabled = True
       Timer1.Enabled = True
       flag = 0
    End If
Else
    Label4.BackColor = &H808080
    Timer1.Enabled = False
    Timer2.Enabled = False
    Combo1.Enabled = True
    Combo2.Enabled = True
    Timer2.Enabled = False
    MSComm1.PortOpen = False
    opencom.Caption = "接通系统"
    flag = 1
End If
Exit Sub
ErExit: [来源：http://think58.com]
   MsgBox "此通信串口已经被其他程序使用", 5 + vbExclamation, "请重新选择"
End Sub
〖本文来自：计算机毕业网  〗
Private Sub Timer1_Timer()
On Error GoTo ErrrExit
  If MSComm1.InBufferCount > 0 Then '程序检查输入缓冲区中是否有数据，若有数据
    Select Case MSComm1.Input
      Case "1"
        Text1.Text = "1号打开" + Chr(13) & Chr(10) + Text1.Text
        Label5.BackColor = &HC000&
        Command2.Enabled = False
        Command3.Enabled = True
      Case "2"
        Text1.Text = "1号关闭" + Chr(13) & Chr(10) + Text1.Text
        Label5.BackColor = &H80000008
        Command3.Enabled = False
        Command2.Enabled = True
      Case "3"
        Text1.Text = "2号打开" + Chr(13) & Chr(10) + Text1.Text
        Label6.BackColor = &HC000&
        Command4.Enabled = False
        Command5.Enabled = True
[资料来源：www.THINK58.com]