|
第三章 系统设计 第一节 需求分析 paper51.com 本次实习要完成的主要内容：1）能够存储用户处理事件的历史性信息；2）定义时间段（如现代、近代、古代）和时间跨度，实现数据在时间段之间的转换和数据压缩，如根据频率等；3）实现数据库系统中元事件的时态信息查询：可以查询元事件的出现时间，或查看某时间段出现的元事件，或查看一些元事件的统计信息。 paper51.com 根据完成的内容和用户的要求，主要各功能如下： 内容来自论文无忧网 www.paper51.com 信息输入从界面输入，输入的信息有元事件（上网、使用office、玩游戏等等）、起始时间、结束时间，存入时间记录表。 copyright paper51.com
信息输入完毕进行检测（可手动也可设置时间自动触发），将时间记录表中的所有时间与系统当前时间进行比较，当时间记录表的时间-系统当前时间>一天，将该记录存入现代（一天）时间记录表中，以此类推，将时间记录表中的信息存入古代（一个月），近代（一个星期）时间记录表中。 http://www.paper51.com 信息查询： http://www.paper51.com 1）按时间段查询，输入一个时间段（如2006-04-04---2006-04-26），能查询到该时间段内发生的元事件、次数、以及每一次的起始时间和结束时间。 内容来自www.paper51.com 2）按事件查询，当点击其中一个事件，能查询到该事件在古代、近代、现代发生的次数，最早起始时间、最晚起始时间、以及每次的时间记录。 内容来自www.paper51.com 3）图表显示：将古代、近代、现代发生元事件的次数以图表的形式显示，目的是通过该图表可以反映出用户对那个事件感兴趣，达到了课题所要求的用户兴趣的事态数据管理。 内容来自www.paper51.com
第二节 系统总体功能设计 内容来自www.paper51.com 系统总体功能设计是指在系统调查与分析的基础上，对整个系统在结构上的划分，硬软件环境的配置和确定子系统与模块的处理流程。总体设计中最核心的问题是系统总体功能结构的确定和子系统与模块的划分。本系统结构化设计思想，结构化系统设计的思想，就是自顶向下地将系统划分为若干个子系统，而子系统又划分为模块，模块又划分为子模块，层层划分，直到每一个模块能够作为计算机可执行的单独程序为止。 paper51.com 根据用户兴趣事态数据管理系统的需求分析，系统分为信息输入、信息检索、图形显示、系统关于、数据处理五个模块。 paper51.com 系统各模块流程图如下图3-1: http://www.paper51.com 内容来自www.paper51.com 图 3-1 系统功能流程图 内容来自论文无忧网 www.paper51.com 各模块详细的功能如下： 内容来自论文无忧网 www.paper51.com 信息输入：手工输入元事件的信息。 内容来自www.paper51.com 信息处理：是对输入的元事件进行处理。分自动和手动，自动处理是系统每次启动的时候都要自动进行处理，手动处理是人工处理，随时处理元事件。 内容来自www.paper51.com 信息检索：对输入的元事件、处理的元事件进行检索。 内容来自论文无忧网 www.paper51.com
系统关于：主要记录元事件和元事件编号的信息及系统的一些信息。 paper51.com
图形显示：主要是对处理的元事件进行直观的统计后以图形的方式显示出来。 http://www.paper51.com 第三节 数据库的设计 内容来自www.paper51.com 在概念设计阶段中，设计人员从用户的角度看待数据及处理要求和约束，产生一个反映用户观点的概念模式。然后再把概念模式转换成逻辑模式。将概念设计从设计过程中独立开来，使各阶段的任务相对单一化，设计复杂程度大大降低，不受特定DBMS的限制。 paper51.com 本系统的数据库设计的表有：时间记录表、元事件古代时间记录表、元事件近代时间记录表、元事件现代时间记录表、元事件信息表五个表。 paper51.com 时间记录表是记录所有元事件发生的信息。 paper51.com
古代时间记录表是记录发生在一个月以前的元事件信息。 http://www.paper51.com
近代时间记录表是记录发生在一个月以内，一周以前的元事件信息。 paper51.com 现代时间记录表是记录发生在一周以内，一天以前的元事件信息。 paper51.com 元事件信息表是记录所有的元事件和元事件编号的信息。 paper51.com 各表的结构如下： 内容来自www.paper51.com 时间记录表 内容来自www.paper51.com
字段名 copyright paper51.com 类型 内容来自www.paper51.com
ID 内容来自论文无忧网 www.paper51.com 自动编号 copyright paper51.com 元事件编号 http://www.paper51.com char paper51.com 元事件 http://www.paper51.com
char paper51.com
起始时间 paper51.com
datetime http://www.paper51.com
结束时间 http://www.paper51.com
datetime http://www.paper51.com 古代时间记录表 http://www.paper51.com 字段名 内容来自论文无忧网 www.paper51.com 类型 paper51.com 元事件编号 paper51.com char paper51.com
元事件 内容来自www.paper51.com char http://www.paper51.com
最早起始时间 copyright paper51.com
datetime paper51.com 最晚起始时间 copyright paper51.com datetime http://www.paper51.com 出现的次数 内容来自www.paper51.com
int 内容来自论文无忧网 www.paper51.com 近代时间记录表 http://www.paper51.com 字段名 copyright paper51.com 类型 内容来自论文无忧网 www.paper51.com 元事件编号 paper51.com char copyright paper51.com
元事件 paper51.com char copyright paper51.com 最早起始时间 http://www.paper51.com datetime 内容来自论文无忧网 www.paper51.com
最晚起始时间 内容来自www.paper51.com datetime 内容来自论文无忧网 www.paper51.com
出现的次数 内容来自论文无忧网 www.paper51.com
int 内容来自论文无忧网 www.paper51.com
现代时间记录表 copyright paper51.com 字段名 内容来自www.paper51.com 类型 copyright paper51.com 元事件编号 paper51.com char http://www.paper51.com 元事件 http://www.paper51.com char copyright paper51.com 最早起始时间 内容来自论文无忧网 www.paper51.com datetime http://www.paper51.com
最晚起始时间 内容来自www.paper51.com datetime 内容来自www.paper51.com 出现的次数 paper51.com int 内容来自www.paper51.com 元事件信息表 内容来自www.paper51.com 字段名 copyright paper51.com 类型 copyright paper51.com 元事件编号 内容来自www.paper51.com char 内容来自www.paper51.com 元事件 内容来自www.paper51.com char paper51.com
第四章 系统应用程序的开发 paper51.com 应用程序是用VB开发的，界面设计的简单明了。根据需求分析和功能设计，系统应用程序分为五大模块：信息输入、数据处理、信息检索、图形显示、系统关于五个模块。 copyright paper51.com 第一节 界面开发 copyright paper51.com 系统界面非常简单明了，操作很实用。在界面上采用了四个按钮把各功能分开。如图4-1所示。 paper51.com
http://www.paper51.com
图4-1 系统界面 内容来自论文无忧网 www.paper51.com 四个按钮分别对应信息输入、信息检索、图形显示、关于系统（包括检测处理）。 内容来自www.paper51.com 系统连接数据库采用ADO控件。引擎采用Microsoft.Jet.OLEDB.4.0连接数据库(Access 2000)实现代码如下： paper51.com DimCN As New ADODB.Connection If CN.State Then CN.Close CN.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource= " & App.Path & "\database.mdb;Persist SecurityInfo=False" CN.Open copyright paper51.com 详细代码实现请参考附录程序源代码。 copyright paper51.com 第二节 信息输入模块 内容来自www.paper51.com 在系统界面上点信息输入选项卡，进入了信息输入界面。输入的信息有元事件（上网、使用office、玩游戏等等）、起始时间、结束时间，存入时间记录表。如图4-2 信息输入。 内容来自论文无忧网 www.paper51.com 信息输入模块的设计采用了记录列表来显示所有的记录。下边有添加（修改）、删除、保存、退出按钮。 内容来自论文无忧网 www.paper51.com
添加：是添加一新元事件信息到时间记录表中。 paper51.com 修改：是在记录列表区中，选中记录，在记录输入区修改数据，保存。 copyright paper51.com 删除：是在时间记录表中，删除选中的元事件记录。 内容来自论文无忧网 www.paper51.com 保存：是在添加和修改了一条记录时，要保存入时间记录表中。 copyright paper51.com 退出：是退出元事件管理系统。 http://www.paper51.com
http://www.paper51.com 图4-2 信息输入模块 内容来自论文无忧网 www.paper51.com 信息输入的设计： http://www.paper51.com ID记录，系统自动的编号，用户无法改。 paper51.com 元事件编号和元事件，采用选择式的输入方法，只有在关于系统里输入了元事件和元事件编号。在些才可以选择。 内容来自论文无忧网 www.paper51.com 日期时间输入，采用DTPicker控件，格式为yyyy-MM-dd HH:mm:ss，如2006-04-09 01:10:22。如图4-3 所示。 内容来自www.paper51.com 添加、删除、保存的代码实现如下： 内容来自论文无忧网 www.paper51.com copyright paper51.com 图4-3 日期时间选择 http://www.paper51.com Private Sub cmdRegAdd_Click() '''添加按钮 Dim i As Integer For i = 0 To txt.Count - 1 txt(i).Text ="" Next i End Sub Private Sub cmdRegDel_Click() '''删除按钮 On Error GoTo Err If Trim(txt(0).Text) <> "" Then IfMsgBox("真的删除吗?", vbInformation + vbYesNo, "提示") = vbYesThen CN.Execute "delete from 时间记录表 where ID=" &Trim(txt(0).Text) Dimrs1 As New ADODB.Recordset Ifrs1.State Then rs1.Close rs1.Open "select * from 时间记录表", CN, adOpenStatic,adLockOptimistic SetMSHFlexGrid1.DataSource = rs1 MsgBox "删除成功!", vbInformation, "提示" End If End If Exit Sub Err: MsgBox Err.Description, , "提示" End Sub copyright paper51.com Private Sub cmdRegSave_Click() '''保存按钮 Dim rs1 As New ADODB.Recordset Dim i As Integer On Error GoTo Err If txt(0).Text = "" Then ''添加 IfTrim(txt(1).Text) <> "" And Trim(txt(2).Text) <>"" And Trim(txt(3).Text) <> "" Then Ifrs1.State Then rs1.Close rs1.Open "select * from 时间记录表", CN, adOpenStatic,adLockOptimistic rs1.AddNew Fori = 1 To txt.Count - 1 rs1.Fields(i).Value = Trim(txt(i).Text) Nexti rs1.Update SetMSHFlexGrid1.DataSource = rs1 MsgBox "添加成功!", , "提示" End If Else '''修改 IfTrim(txt(1).Text) <> "" And Trim(txt(2).Text) <>"" And Trim(txt(3).Text) <> "" Then Ifrs1.State Then rs1.Close rs1.Open "select * from 时间记录表 where ID= " &Trim(txt(0).Text), CN, adOpenStatic, adLockOptimistic Fori = 1 To txt.Count - 1 rs1.Fields(i).Value = Trim(txt(i).Text) Nexti rs1.Update Ifrs1.State Then rs1.Close rs1.Open "select * from 时间记录表", CN, adOpenStatic,adLockOptimistic SetMSHFlexGrid1.DataSource = rs1 MsgBox "修改成功!", , "提示" End If End If Exit Sub Err: MsgBox Err.Description End Sub http://www.paper51.com copyright paper51.com 内容来自论文无忧网 www.paper51.com
paper51.com
内容来自www.paper51.com
http://www.paper51.com
内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com
paper51.com http://www.paper51.com copyright paper51.comcopyright paper51.com
paper51.com copyright paper51.com copyright paper51.com 内容来自www.paper51.compaper51.com 内容来自论文无忧网 www.paper51.com paper51.com http://www.paper51.com内容来自论文无忧网 www.paper51.com copyright paper51.comcopyright paper51.com
copyright paper51.com 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.comhttp://www.paper51.com
内容来自www.paper51.com
copyright paper51.com
http://www.paper51.com
http://www.paper51.com
copyright paper51.com
http://www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com http://www.paper51.com
paper51.com
copyright paper51.com 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com
copyright paper51.com
http://www.paper51.com http://www.paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com paper51.com
paper51.com
内容来自www.paper51.com paper51.com http://www.paper51.com内容来自www.paper51.com http://www.paper51.comcopyright paper51.com
paper51.com
|