数据库应用设计-计算机应用毕业设计-监区业务系统的分析与设计.doc

自考计算机及应用（本科）毕业设计分监区业务系统的分析与设计摘要:分监区业务系统是采用面向对象语言Visual basic.Net开发的一个关于监狱基层单位进行业务处理的数据库应用软件。本文主要介绍开发该应用软件的步骤：系统分析、系统设计、系统实现、系统测试。在系统分析中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块、所需的数据库表及表字段、菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件及代码、以及菜单实现的方法。文章的最后则给出了本系统的主要功能源代码。本系统具有数据输入，数据存储，信息查询，数据分析等功能，具有人机对话界面友好、功能全面、操作方便等特点。关键词：面向对象Visual basic.Net 监狱 业务系统Abstract:“The service system of the prison area ” adopts a data base management system that Visual basic.Net developed .This design instruction has recommend the basic developing step of this system one by one: Network analysis,designs systematically,realizes systematically,safeguards systematicallying. Successively with dataflow picture, data dictionary, function structure chart various kinds of datum analyticl system take of system in network analysis. In the design of the system, detailed each function module which has represented the system. Necessary database form and literary name section. Design of the menu ,etc. In the realization of the system, provide and realize the incidents and codes of the corresponding function controlling part among forms. And the method that the menu realize. Provide the main function source code of this system at the end of the article. This system has data entry , the data are stored, file inquiry, such functions as the report form is typed, the interactive interface friendship of the system. The systematic function is overall, it is a characteristic that is originally designed that users are easy to operate. Key words: Archives Visual Basic.Net Prison The service system 1 绪 论1.1 设计目的监狱最基层的押犯单位分监区对在押罪犯进行考核评价是促其改造的重要方式，是体现司法公正的重要手段。本着理论联系实际的宗旨，我利用这次毕业设计实践的机会，在指导教师的帮助下，打算设计一套分监区业务系统，其主要功能是对罪犯考核评价。通过在实践中熟悉掌握软件的设计、编制、调试以及系统评价的一般过程，提升用计算机知识解决实际问题的能力，为以后的工作打下良好基础。1.2 设计背景“监狱信息化是引领监狱工作科学发展的必然要求。” 1监狱传统的运作方式中存在着工作随意、尺度不一、监管滞后的问题。推进监狱基层单位信息化办公，按照现代监狱的工作模式设计工作流程，能够以信息系统的强制型，来保障执法过程的规范型。目前，安徽省监狱办公、执法的信息化程度相对较低，“监狱综合业务平台”虽然已经运行了近两年，但其针对分监区直接管理、评价罪犯的功能还有待细化。针对这种情况，在系统学习了计算机应用本科专业的全部理论课程后，我打算应用计算机科学理论和技术以及工程管理原则和方法，按进度实现2“分监区业务系统”。我提出了一套比较适宜的施行方案：在熟悉计算机应用专业各门理论课的基础进行了大量的系统调查、分析、设计工作，在明晰整个系统构架、各阶段目标的前提下再着手系统实现，如此既兼顾了个人能力水平有限，又兼顾了软件质量和进度要求。但由于本人的水平有限，且完成毕业设计仅一人独立操场，错误和不足难免。1.3 设计过程结合工作经历完成系统调查、需求分析，明确开发的应用程序要达到的目标和要实现的功能，再通过概念结构设计、逻辑结构设计、软件的编制、调试等一系列步骤实现软件的基本功能和完成设计报告。2 系统设计2.1 分监区业务系统的需求分析2.1.1 系统调查通过详细的系统调查。可以得到人工处理业务的流程，经总结后得到“分监区业务处理流程图”，如下：指导员：管理民警权限；召开区务会讨论罪犯考分情况，根据区务会要求调整罪犯考分；内勤：次月初汇总罪犯上月日常分和劳动分，形成罪犯考核分。负责维护罪犯的基本信息，添加新入罪犯、删除释放罪犯。承包民警：直接管理其承包的罪犯，平时依据条例赋予罪犯日常奖、扣分；可查阅罪犯信息。队长：负责生产，根据罪犯生产情况赋予罪犯劳动改造分；可查阅罪犯信息。图2.1 分监区业务处理流程图2.1.2 功能分析(1) 罪犯基本信息管理功能:主要实现罪犯的一些基本信息，如罪犯编号、姓名、籍贯、出生年月、罪名、犯罪类型、刑期、刑期起日、刑期止日、所在小组等，的修改、删除和查询功能。(2) 计分信息管理功能:主要实现考核分的一些基本信息，如劳动分、日常奖扣分的录入、修改、汇总、查询等功能。(3) 罪犯改造现状的评价功能:主要实现通过对罪犯基本情况、考分情况的分析得出罪犯改造的现状、犯罪成因以供参考。(4)用户权限管理功能:主要实现民警权限的分配保障数据安全。2.1.3 分监区业务系统的功能设计根据上述的功能，可以设计出系统的总体功能框架，如图2.1所示。分监区业务系统计分信息管理系统罪 犯 管 理 系 统改 造 评 价 系 统用 户 管 理 系 统密码设定用户登录用户信息维护罪犯信息的录入罪犯信息的查询罪犯信息的修改劳动分的计量日常分的计量现实表现分析犯罪成因分析图2.2 分监区业务系统总框架图2.1.4 数据字典名字描 述定 义罪犯罪犯的有关信息，用于对罪犯的确认罪犯= 编号+姓名+出生日期+籍贯+罪名+原判刑期+刑期起日+刑期止日+所在小组犯罪类型民警定义了民警的有关信息民警=警号+职务+姓名+承包组号+登录密码考核定义了考分的有关信息考核=序号+时间+警号+编号+劳动分+日常分+理由月考分=月份+编号+姓名+得分重点罪犯定义了评价的有关信息重点罪犯=日期+编号+警号+原因表2.1 数据字典2.2 概念模型设计2.2.1 概念模型设计的方法概念设计阶段我采用自底向上的方法，即自顶向下的进行需求分析，然后再自底向上的进行概念结构设计。对已经细化到无法再分的阶段逐步集成在一起，最终合成一个全局概念模式。民警用户信息管理登陆系统罪犯信息管理计分考核信息管理罪犯评价信息管理其他功能退出图2.3 概要设计形象图说明：(1) 民警用户信息管理：民警根据分配的权限（职务）进行自己的信息维护、他人信息的查询、用户的增加、删除、修改。(2) 罪犯信息管理：民警根据权限进行罪犯信息的添加、修改、删除、查询。(3) 计分考核信息管理：民警根据权限进行罪犯日常分和劳动分的录入、修改、月得分汇总。(4)罪犯评价：分为重点关注犯评价、犯群分析、个别分析，系统量化分析辅助民警管理。(5)其他功能：日历查询、业务说明、电话簿等功能。2.2.1 概念模型设计的步骤第一步是进行局部视图的设计：由于高层的数据流图只能反映系统的概貌，而中层流图能较好的反映系统中各局部应用的子系统组成，因此我先逐一的设计分E-R图。第二步是进行视图的集成：各子系统的E-R图设计好之后，下一步就是要将所有的分E-R图合成一个系统的总E-R图。2.2.2 分监区业务系统总E-R图罪犯编号民警承包组号日常分劳动分分民警重点关注考核姓名出生日期罪名刑期时间得分民警警号姓名职务日期成因现状刑期起日密码刑期止日图2.4 分监区业务系统总E-R图2.3 逻辑结构设计2.3.1 E-R图向关系模型的转换 将概念结构E-R图转化成关系模型。（1）罪犯（编号、姓名、出生年月、籍贯、罪名、犯罪类型、原判刑期、刑期起日、刑期止日、所在小组）；（2）警察（警号、姓名、职务、承包小组、密码、备注）；（3）考核（序号、警号、编号、时间、劳动分、日常分、理由）；（4）重点关注（时间、警号、编号、原因）；（5）月考分（月份、编号、姓名、得分）。2.3.2 转化的关系模式进行优化经验证：（1）罪犯（编号、姓名、出生年月、籍贯、罪名、犯罪类型、原判刑期、刑期起日、刑期止日、所在小组）；（2）警察（警号、姓名、职务、承包小组、密码、备注）；（3）考核（序号、警号、编号、时间、劳动分、日常分、理由）；（4）重点关注（时间、警号、编号、原因）；四个关系中的数据依赖均是直接依赖，但是有：（考核.序号，考核.警号,考核.编号）（ 考核.劳动分，考核.日常分）（月考分.得分），即存在传递依赖，可能导致数据库数据不一致的现象存在。实际应用的业务流程中，严格控制了劳动分、日常分生成和月考分生成的先后顺序（劳动分、日常分本月生成，月考分次月生成），在劳动分和日常分调整后方可以汇总成月考分，生成后考分不可以进行更改，如此避免了数据不一致，故为了方便地实现系统功能，不将其分解为3FN。2.3.3 数据库的结构 各表的结构，其相应标的定义如下：表2.2 民警信息的结构字段号数据类型长度约束警号文本10主键姓名文本8不为空职务文本20不为空承包组文本2不为空密码文本10不为空备注文本40可为空表2.3 罪犯信息的结构字段名数据类型长度约束编号文本10主键姓名文本10不为空出生日期日期不为空籍贯文本10不为空罪名文本20不为空原判刑期文本10不为空刑期起日日期不为空刑期止日日期不为空所在小组文本1不为空犯罪类型文本20不为空表2.4 考核信息的结构字段名数据类型长度约束序号长整型主键警号文本10主键（外键）编号文本10主键（外键）劳动分数字不为空日常分数字不为空理由文本30不为空时间时间不为空表2.5 重点关注信息的结构字段名数据类型长度约束日期日期主键警号文本10主键（外键）编号文本10主键（外键）理由文本30不为空表2.6 月得分信息的结构字段名数据类型长度约束月份文本20主键编号文本10主键（外键）姓名文本20主键（外键）得分数字不为空3 应用系统实现3.1 用户登录界面的实现图3.1 用户登录界面算法描述：通过连接命令连接数据库，把用户输入的“警号”和“密码”信息和数据库信息进行比对，如相符则加载主页面，否则拒绝。frmLogin窗体代码(“确定”按钮响应)：Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click '确定按钮响应 Dim sql As String If UsernameTextBox.Text <> "" And PasswordTextBox.Text <> "" Then Try sql = "select * from 警察 where 警号=" & "'" & UsernameTextBox.Text & "'" Dim da As New OleDbDataAdapter(sql, gLinkSting) Dim ds As New DataSet() Dim tb As DataTable da.Fill(ds, "Mytable") tb = ds.Tables("Mytable") If tb.Rows.Count() = 0 Then MsgBox("对不起，您输入的警号不存在!", MsgBoxStyle.OkOnly, "谢谢使用") UsernameTextBox.Focus() ElseIf tb.Rows(0).Item("密码").ToString <> PasswordTextBox.Text Then MsgBox("同志" & Chr(13) & "您的警号或密码不正确" & Chr(13) & "请重新登录", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "登录失败") UsernameTextBox.Focus() Else Dim mainf As New frmmain() '加载程序主界面 mainf.ShowDialog(Me) End If Catch MsgBox(Err.Description) UsernameTextBox.Focus() End Try Else UsernameTextBox.Focus() If UsernameTextBox.Text = "" Then MsgBox("警号不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, " 警号为空") Else MsgBox("密码不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "密码为空") End If End If UsernameTextBox.Text = "" PasswordTextBox.Text = "" End Sub3.2 分监区业务管理系统主程序界面的实现图3,2 分监区业务系统主界面算法描述：frmmain窗体加载时统计罪犯总数、登录民警的姓名、承包组、当日重点罪犯情况并利用laber和datagridview控件显示。同时通过设定界面上菜单的enabled属性控制用户的权限。frmmain窗体类加载窗体事件的代码（节选）： Public Sub refreshmainC() '更新主界面显示重点犯的datagridview界面的自定义函数 Try Dim strfre As String = "select 重点关注.编号,罪犯.姓名,出生日期,罪犯.罪名,犯罪类型,罪犯.原判刑期,刑期起日,刑期止日,(重点关注.理由) as 关注原因from 罪犯,重点关注where 重点关注.编号=罪犯.编号" Dim da As New OleDbDataAdapter(strfre, gLinkSting) Dim ds As New DataSet() da.Fill(ds, "crimeinfo") datagridview_crime.DataSource = ds.Tables.Item("crimeinfo").DefaultView Catch MsgBox(Err.Description, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, " 错误") End Try End Sub'更新主界面显示用户信息的datagridview界面的公共函数refreshmainP()与refreshmain类似，此处不列举查询登录民警职务的功能代码： Dim comfineauth As New OleDbCommand("select 职务from 警察where 警号='" & frmLogin.strPoliceNumber & "'") With comfineauth .Connection = New OleDbConnection(gLinkSting) .Connection.Open() authority = .ExecuteScalar() .Connection.Close() End With '查询后，设置权限的功能代码 Select Case authority Case "指导员" mnuChUM.Enabled = False '禁修改用户 mnuChUA.Enabled = False '禁添加用户 mnuChUD.Enabled = False '禁删除用户 mnuAddCr.Enabled = False '禁调入罪犯 mnuChangeCri.Enabled = False '禁修改罪犯 mnuDeleteCri.Enabled = False '禁调出罪犯 mnuWriWsco.Enabled = False '禁劳动分录入队长、内勤、承包民警权限设置的代码与上述代码类似，此处不列举 End Select3.3 修改密码界面的实现图3,3 用户管理-修改密码 界面算法描述：单击主界面 frmmain窗体类中“更改密码”菜单项后弹出“更改密码”界面UfrmChangPW窗体对象，其中“提交”按钮响应更改操作：首先核实输入信息是否正确，输入合法后更新数据库并提示结果。UfrmChangPW窗体类中OK_Click按钮（“提交”按钮）的响应代码：Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click '“提交”按钮响应 If txtOldPass.Text <> frmLogin.strPolicePass Then MsgBox("密码不正确！", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "密码错误") txtOldPass.Text = "" txtOldPass.Focus() ElseIf txtNewPass.Text = "" Then MsgBox("新密码不能为空！", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "新密码为空") txtNewPass.Focus() ElseIf txtNewPass.Text <> txtNewPass2.Text Then MsgBox("两次输入的密码不相符！", MsgBoxStyle.OkOnly + MsgBoxStyle.OkOnly, "警告") txtNewPass.Text = "" txtNewPass2.Text = "" txtNewPass.Focus() Else Dim updatestring As String = "update 警察 set 密码='" & txtNewPass.Text & "'where 警号 = '" & frmLogin.strPoliceNumber & "'" Dim com As New OleDbCommand(updatestring) Try With com .Connection = New OleDbConnection(gLinkSting) .Connection.Open() .ExecuteReader() .Connection.Close() End With MsgBox("密码已经成功修改！", MsgBoxStyle.OkOnly + MsgBoxStyle.OkOnly, "恭喜") Me.Close() Catch com.Connection.Close() MsgBox(Err.Description, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "错误") End Try txtOldPass.Text = "" txtNewPass.Text = "" txtNewPass2.Text = "" End If End Sub3.4 查看、修改用户、添加用户、删除用户界面的实现图3,4 用户管理-查看现有用户 界面图3,5 用户管理-修改用户信息 界面算法描述：“查看用户”功能是通过单击在主界面的“查看现有用户”菜单项，通过查询数据库并在datagridview控件上显示，查询语句是： "select 警号,姓名,职务,承包组,备注from 警察"，实现过程与“3.2 分监区业务管理系统主程序界面的实现”部分列举的refreshmainC函数实现类似，详细代码在此不列举；“修改用户”、 “添加用户”、 “删除用户”操作的实现均是通过先在数据库中查找用户并对输入信息进行核实，再对数据库进行相应的修改、添加、删除操作。在frmChangUse窗体类中“查找用户”按钮的响应代码的功能段节选： Dim sql As String If boxChUNu.Text <> "" Then Try sql = "select * from 警察 where 警号=" & "'" & boxChUNu.Text & "'" Dim da As New OleDbDataAdapter(sql, gLinkSting) Dim ds As New DataSet() Dim tb As DataTable da.Fill(ds, "Mytable") tb = ds.Tables("Mytable") If tb.Rows.Count() = 0 Then MsgBox("对不起，输入的警号不存在!", MsgBoxStyle.OkOnly, "请重新输入警号") Else boxChUNu.Text = tb.Rows(0).Item("警号") strFPNu = boxChUNu.Text boxChUNa.Text = tb.Rows(0).Item("姓名") boxChUDu.Text = tb.Rows(0).Item("职务") boxChUMa.Text = tb.Rows(0).Item("承包组") boxChUOt.Text = tb.Rows(0).Item("备注") butChUM.Enabled = True butChUD.Enabled = True butChUA.Enabled = True End If Catch MsgBox(Err.Description) boxChUNu.Focus() End Try Else boxChUNu.Focus() MsgBox("警号不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, " 警号为空") End If strFPMa = boxChUMa.Text labChangeU.Text = "请进行修改或者删除用户"在frmChangUse窗体类中修改用户按钮的代码选段 Private Sub butChUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butChUM.Click ' 修改用户按钮的实现 Dim sql As String Dim ifchanged As String = "ture" If strFPNu = boxChUNu.Text And boxChUNa.Modified = False And boxChUDu.Modified = False And boxChUMa.Text = strFPMa And boxChUOt.Modified = False Then MsgBox("您没有修改用户信息!", MsgBoxStyle.OkOnly , "没有修改") ifchanged = "false" ElseIf strFPNu <> boxChUNu.Text Then '对警号进行了修改则先查找警号是否冲突 查找代码与本节“查找用户”部分查找代码相同，此处略 MsgBox("警号冲突！", MsgBoxStyle.OkOnly, "警号冲突") '如果冲突的话必须重填 ifchanged = "false" End If End If If ifchanged = "ture" Then Dim updatestring As String = "update 警察 set 警号='" & boxChUNu.Text & " ',职务='" & boxChUDu.Text & " ',姓名='" & boxChUNa.Text & " ',承包组='" & boxChUMa.Text & " ',备注='" & boxChUOt.Text & " 'where 警号 = '" & strFPNu & " '" Dim com As New OleDbCommand(updatestring) Try With com .Connection = New OleDbConnection(gLinkSting) .Connection.Open() .ExecuteReader() .Connection.Close() End With MsgBox("用户信息已经成功修改！", MsgBoxStyle.OkOnly + MsgBoxStyle.OkOnly, "恭喜") Me.Close() Catch com.Connection.Close() MsgBox(Err.Description, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "错误") End Try End If labChangeU.Text = strFPNu mymainfrom.refreshmainP()End Sub' 添加和删除用户功能的实现与修改用户代码类似，详细代码在此不列举' 删除用户按钮的实现的SQL语句："delete from 警察 where 警号 = '" & boxChUNu.Text & "'"' 添加用户按钮的实现的SQL语句："insert into 警察(警号,密码,姓名,职务,承包组,备注) values('" & boxChUNu.Text & "','" & boxChUNu.Text & "','" & boxChUNa.Text & "','" & boxChUDu.Text & "','" & boxChUMa.Text & "','" & boxChUOt.Text & "') "，在添加用户前判断了警号是否冲突3.5 查看承包组、查看所有罪犯、查找罪犯界面的实现图3.6 罪犯信息-查看所有罪犯 界面图3.7 罪犯信息-查看承包组罪犯 界面算法描述：在主界面 frmmain窗体对象上单击“查看承包组罪犯”、“查看所有罪犯”、“查找罪犯”菜单项，通过连接命令查询数据库，并将结果用datagridview控件上显示出来。“查找罪犯”按钮的响应代码： Private Sub butCriF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butCriF.Click '响应“查找”罪犯按钮 labmain.Text = "罪犯信息如下：" Try Dim strCrimefind As String = "" If tbCrimeNa.Text = "" And tbCrimeNu.Text <> "" Then '输入了罪犯编号，姓名空 strCrimefind = "select 编号,姓名,罪名,刑期止日 from 罪犯where 编号=" & "'" & tbCrimeNu.Text & "'" ElseIf tbCrimeNa.Text <> "" And tbCrimeNu.Text = "" Then '输入了罪犯姓名，编号空 strCrimefind = "select 编号,姓名,罪名,刑期止日 from 罪犯where 姓名like