VB021报警系统

3系统设计

3.1系统功能描述
本章将对可定时显示报警系统进行总体设计，介绍系统的总体功能、模块划分，使读者对该系统有一个大体的认识，为进一步开发系统奠定基础。该系统的主要功能如下：
1.基本信息管理模块
包括设备信息录入，完成的功能是对信息设备进行增加、删除、保存、修改、取消等操作。它可以使用户对数据库进行扩充、修改，不断的完善用户制定的任务。
2.系统功能模块
包括定时设置和定时设备详情，完成的功能是通过查询设备事件、事件时长，在现在时间的基础上根据事件时长的提示信息，用户进行报警时间的输入，当报警时间到时，系统可自动报警，在报警声响起时可以人为终止报警声音。这样可以及时提醒用户，通知用户制定的任务已经完成，应该尽快结束事件，确保人身安全。在报警时间没有到时，用户可点击“详细查询”按钮，查看定时设置的详细信息，包括定时剩余时间等。
3.用户管理模块
包括设备信息报表和用户口令修改，用于实现设备信息报表打印和用户密码修改。
4.系统帮助模块
包括系统说明和关于，可实现系统功能简介和作者介绍。
5.退出系统
包括退出到登录和退出。

think58.com

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

3.2功能模块划分
根据上一节的功能介绍，设计出系统的总体功能模块，如图3.1所示。 [资料来源：http://think58.com]

think58好，好think58

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

本文来自think58 [资料来源：www.THINK58.com]

内容来自think58 [来源：http://www.think58.com]

think58好，好think58 [版权所有：http://think58.com]

[资料来源：THINK58.com]

本文来自think58

内容来自think58

[版权所有：http://think58.com]

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

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

本文来自think58

[来源：http://www.think58.com]

[来源：http://www.think58.com]

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

think58.com

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

[来源：http://www.think58.com]

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

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

图3.1 可定时显示报警系统功能模块示意图
可以看出，可定时显示报警系统划分为5个功能模块，其中基本信息管理模块用于管理设备信息的录入、删除、查询，可以使用户不断的对数据库进行扩充、修改，不断的完善用户制定的任务。系统功能模块用于设置用户的定时项目，包括定时设置和定时设备详情，用户通过查询设备事件、事件时长，在现在时间的基础上根据事件时长的提示信息，进行报警时间的输入。当报警时间到时，系统可自动报警，当报警声音响起时可以人为终止报警。这样能够及时提醒用户，通知用户制定的任务已经完成，应该尽快结束事件，确保人身安全。用户管理模块用于实现设备信息的汇总、打印。用户可以在一个星期、一个月之后打印一次报表，不仅可以直观地看出这段时间的学习、生活、工作情况，还可以方便的对某些制定的任务进行改进。同时系统能够实现用户密码的修改，防止他人在了解用户口令后进入系统修改用户设置。
现在我们已经对可定时显示报警系统的功能、模块划分有了比较全面的了解，下一节将介绍系统的数据库表结构。
3.3创建数据库
在设计数据库表结构之前，首先要创建一个数据库。可定时显示报警系统主要应用于学习、工作、生活的各类人群，通过该系统可以实现设备信息的添加、删除、修改和查询操作，还可以实现信息的汇总、打印。同时在用户登录和修改密码时也必须与数据库连接。根据这些要求，系统应设置相应的数据库信息。本系统使用的数据库为“设备信息1.mdb”保存在此目录下，数据库中包含“shebei”和“用户名和密码表”两个表。

本文来自think58

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

shebei表用来保存使用设备、事件时间、使用人等信息。shebei表的设置情况如表3.2所示。
表3.2 shebei表的设置
字段名称 数据类型 说明
使用设备 文本 主键，必填字段（是），允许空字符串（否）
设备事件 文本 必填字段（是），允许空字符串（否）
事件时长 数字 必填字段（是），允许空字符串（否）
使用人 文本 必填字段（否），允许空字符串（是）
用户名和密码表用来保存用户名和密码这两个字段。用户名和密码表如表3.3所示。
表3.3 用户名和密码表的设置
字段名称 数据类型 说明
user 文本 主键，必填字段（是），允许空字符串（否）
pwd 文本 必填字段（是），允许空字符串（否） think58.com [版权所有：http://think58.com]

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

4系统实现 think58.com [资料来源：http://think58.com]

用户要使用可定时显示报警系统，必须先通过系统的身份认证，这个过程叫做登录。登录过程是根据用户名和密码来判断是否能够进入系统，成功登录的用户将进入系统的主界面。
4.1登录界面的实现
登录窗体的名称为FrmLogin，它的界面布局如图4.1所示

图4.1所示 think58.com

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

表4.2 登录窗体的属性
窗体属性
设置值 具体说明
名称 FrmLogin 设置窗体名称
Border Style 1-Fixed Single 设置窗体的边界属性
Caption
身份验证 窗体的标题条文本
ControlBox
False 取消控制按钮，防止用户通过控制按钮关闭对话框
StartUpPosition
2--屏幕中心 设置窗体弹出时，位置在屏幕中心
程序的运行过程如下：
(1)判断用户是否输入了用户名和密码，如果没有输入，则返回，要求用户输入。
(2)当用户名和密码都输入进去，如果用户名或密码错误，要求用户重新输入用户名或密码，同时将计数变量pwdcount加1。
(3)如果输入错误用户名或密码已达3次，即pwdcount大于或等于3，则退出系统。
4.2 主窗体的实现
主窗体是工程的启动对象，可以在系统菜单中选择“工程”/“属性”，打开属性窗体设置启动对象，本系统的主窗体是FrmMain。
打开主窗体的设计窗口，选择“工具”菜单项中的“菜单编辑器”，对菜单内容进行编辑。菜单编辑器如图4.3所示。

图4.3 菜单编辑器
编辑菜单编辑器时参见表4.4来设置菜单项的属性。
表4.4 菜单项的属性

内容来自think58

标题 名称
基本信息管理 mn_1
…设备信息录入 mn_dxl
系统功能 mn_2
…定时设置 mn_sz
用户管理 mn_3
…设备信息报表 mn_sx
…用户口令修改 mn_yk
系统帮助 mn_4
…系统说明 mn_xs
…关于 mn_gy
退出 mn_exit
标题 名称
…退出到登录 mn_td
…退出 Mn_tc
编辑后插入图片形成“可定时显示报警系统”主窗体，如图4.5所示。

图4.5 系统的主界面
在这个主界面中，用户可以参照主界面窗体的属性进行具体操作，如表4.6所示
表4.6 属性参照表
窗体属性 设置值 设置值
名称 FrmMain 设置窗体名称
BorderStyle 1-Fixed Single 设置窗体的边框属性
Caption 身份验证 窗体的标题条文本
MaxButton True 激活最大化按钮
MinButton True 激活最小化按钮
窗体属性 设置值 设置值
Picture Img\Mian.jpg 设置窗体背景
StartUpPosition 2--屏幕中心 设置窗体弹出时，位置在屏幕中心
在主窗体FrmMain中添加如下代码：
Private Sub Form_Load()
FrmMain.show

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

End Sub
在主窗体启动前，本系统还设置了一个启动系统窗体，在启动窗体过后进入登录窗体，如果不能通过身份验证，则不能进入主窗体。这样可以防止别人非法进入本系统破坏数据库中的数据。
4.3系统其他主要窗体的实现
4.3.1 设备基本信息录入窗体的实现
设备基本信息录入窗体中可以实现以下功能：用户通过添加“使用设备”、“设备事件”、“事件时长”、“使用人”等信息，可以把信息保存到数据库中，以便以后查询使用，也可以对这些信息进行删除、修改。这样用户可以在不知道设备相关信息的情况下进行定时报警的设置，如：不知道烧开水需要多长时间时可以通过查询获得信息；也可以随时进行设备信息的修改，如：延长使用时间、修改报表等操作。

图4.7 设备信息录入窗体
制作好该窗体后通过“ADO控件”与 数据库“设备信息1.mdb”进行连接,这样才能对数据库进行一系列的操作。
ADO，即ActiveX数据对象（ActiveX Data Objects）：[3] 实际上是一种提供访问各种数据类型的连接机制。数据访问对象接口让程序设计者简单地创建几个对象便可以连接数据来源，获取所需的数据和进行数据访问后的保存操作。ADO对象模型定义了一个可编程的分层对象集合，主要由三个对象成员Connection、Command和Recordset对象组成。Connection的作用是连接数据来源，Command是从数据源获取所需数据的命令信息，Recordset是所获取的一组记录组成的记录集。在使用ADO数据控件之前，必须先通过“工程/部件”菜单命令选择“Microsoft ADO Data Control 6.0(OLE DB)”选项，将ADO数据控件添加到工具箱。 本文来自think58
在Visual Basic 6.0中，数据控件本身不能直接显示记录集中的数据，必须通过与它绑定的控件来实现。可与数据库绑定的控件对象有文本框、标签、图形框、列表框等控件。绑定控件、数据控件和数据库三者的关系如图4.8所示。 本文来自think58 [资料来源：http://THINK58.com]

本文来自think58 [版权所有：http://think58.com]

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

图4.8 三者的关系
4.3.2 定时设置窗体的实现

图4.9定时设置窗体
定时设置窗体中，用户通过“上一条”、“下一条”等按钮查看“设备事件”、“事件时长”这两个字段在数据库中的情况。窗体中显示有现在时间，它帮助用户判断报警时间，用户根据自己选择的设备事件及事件时长计算报警时间，然后自己输入报警时间，点击“定时”按钮进行定时。在发出报警声音时，用户也可以点击“停止”按钮让系统提前终止报警声音。
根据以上描述，要完成显示现在时间和定时等功能必须在定时设置窗体中添加时钟控件。一个时钟控件能有规律地以一定的时间间隔激发计时器事件（Timer）执行相应的程序代码。[4]时钟控件有一个非常重要的属性Interval（时间间隔），表示两个计时器事件之间的时间间隔，其值以ms（0.001s）为单位。在程序运行期间，时钟控件并不显示在屏幕上，通常用一个标签来显示时间。当Interval为0时表示屏蔽计时器。如果希望每半秒产生一个计时器事件，那么Interval属性值应设为500。这样，每隔500ms引发计时器事件，从而执行相应的Timer事件过程。时钟控件只有一个Timer事件，在该系统中用标签控件来动态显示现在时间（即系统时间）。时钟控件的Interval属性我们设置成1000，意味着每隔一秒产生一个计时器事件，这个计时器事件就是让系统产生报警声音，用beep（系统自动发出“嘟嘟” 声的函数）来实现。在定时时间和现在时间相同时，每一秒产生一次“嘟”的声音。本系统在代码中用了一个“For 1 to 100”的循环语句来实现连续报警，非人为情况下能连续报警100次。 copyright think58

[资料来源：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
Next i
End If
End Sub
Private Sub cmdCancel_Click()//“终止”按钮的代码
hour = "**"
minute = "**"
End Sub
代码中的Time$表示现在时间（即系统时间），用户输入的报警时间中“小时”用变量“ hour”表示，“分钟”用变量“minute”表示。当现在时间和报警时间相等时，系统发出警报声音。
在定时之后，用户可以点击“详细查询”按钮，查看设备的详细情况及定时剩余时间等信息，及时提醒用户报警时间，如图4.10所示为定时设备详情窗体。

图4.10 定时设备详情窗体

copyright think58 [来源：http://think58.com]