VB021报警系统（vb+access数据库）设计与实现
1.无需注册登录,支付后按照提示操作即可获取该资料.
2.资料以网页介绍的为准,下载后不会有水印.资料仅供学习参考之用.
密 惠 保
4系统实现
[资料来源：http://www.THINK58.com]
用户要使用可定时显示报警系统，必须先通过系统的身份认证，这个过程叫做登录。登录过程是根据用户名和密码来判断是否能够进入系统，成功登录的用户将进入系统的主界面。
内容来自think58
4.1登录界面的实现
登录窗体的名称为FrmLogin，它的界面布局如图4.1所示
think58好，好think58
[资料来源：http://www.THINK58.com]
在主窗体启动前，本系统还设置了一个启动系统窗体，在启动窗体过后进入登录窗体，如果不能通过身份验证，则不能进入主窗体。这样可以防止别人非法进入本系统破坏数据库中的数据。
copyright think58
[资料来源：www.THINK58.com]
[资料来源：www.THINK58.com]
4.3系统其他主要窗体的实现4.3.1 设备基本信息录入窗体的实现
设备基本信息录入窗体中可以实现以下功能：用户通过添加“使用设备”、“设备事件”、“事件时长”、“使用人”等信息，可以把信息保存到数据库中，以便以后查询使用，也可以对这些信息进行删除、修改。这样用户可以在不知道设备相关信息的情况下进行定时报警的设置，如：不知道烧开水需要多长时间时可以通过查询获得信息；也可以随时进行设备信息的修改，如：延长使用时间、修改报表等操作。
时钟控件只有一个Timer事件，在该系统中用标签控件来动态显示现在时间（即系统时间）。时钟控件的Interval属性我们设置成1000，意味着每隔一秒产生一个计时器事件，这个计时器事件就是让系统产生报警声音，用beep（系统自动发出“嘟嘟” 声的函数）来实现。在定时时间和现在时间相同时，每一秒产生一次“嘟”的声音。本系统在代码中用了一个“For 1 to 100”的循环语句来实现连续报警，非人为情况下能连续报警100次。
当报警时间还没到，用户可以打开定时设备详情窗体查看定时剩余时间，用来及时提醒用户。
定时设置窗体中用于实现定时功能的部分代码如下:
[版权所有：http://think58.com]
Dim hour, minute
Private Sub tmrClock_Timer()//“定时”按钮的代码
rrr.Caption = Time$
If Mid$(Time$, 1, 5) = hour + ":" + minute Then
For i = 1 To 100
Beep
copyright think58
[资料来源：THINK58.com]
[资料来源：www.THINK58.com]Next i
think58
[来源：http://www.think58.com]
[资料来源：http://THINK58.com]End If
End Sub
[来源：http://think58.com]
Private Sub cmdCancel_Click()//“终止”按钮的代码
hour = "**"
minute = "**"
本文来自think58 [来源：http://www.think58.com]
[资料来源：http://www.THINK58.com]End Sub
[资料来源：http://THINK58.com]
代码中的Time$表示现在时间（即系统时间），用户输入的报警时间中“小时”用变量“ hour”表示，“分钟”用变量“minute”表示。当现在时间和报警时间相等时，系统发出警报声音。
在定时之后，用户可以点击“详细查询”按钮，查看设备的详细情况及定时剩余时间等信息，及时提醒用户报警时间，如图4.10所示为定时设备详情窗体。
copyright think58
[资料来源：http://www.THINK58.com]
(责任编辑：本站添加)