辽宁工业大学行政管理系统课设.doc

辽 宁 工 业 大 学 课 程 设 计 说 明 （ 计 算 ）书辽 宁 工 业 大 学SQL数据库技术课 程 设 计 说 明 书题目： 成都代理记账管理 学院（系）： 软件学院 专业班级： 软件工程 班 学 号： 网 址： 学生姓名： 成都憬鸿财务飞 指导教师： 佟玉军 教师职称： 副教授 起止时间： 2013.12.30-2014.1.10 目录第一章 概述1第二章 问题定义2第三章 需求分析3第四章 数据库设计7第五章 界面设计10第六章 代码与注释13设计总结15参考文献16 第一章 概述随着现代企业规模的不断扩大，有关企业内部的各种信息量也成倍增加，面对着庞大的信息量，传统的人工方式管理会导致管理上的混乱，人力与物力过多浪费，从而影响整个企业的运作和控制管理，因此，必须制定一套合理、有效，规范和实用的行政管理系统，对企业行政事务进行集中统一的管理。另一方面，IT产业和Internet获得了飞速发展，计算机应用已渗透到了各个领域，引起信息管理的革命，实现了信息的自动化处理，提高了处理的及时性和正确性。本系统本着一切为用户着想的设计指导思想，力求做到界面美观大方，操作简捷明了，而且具备一个实用的操作系统的良好容错性，在用户出现误操作时能尽量及时地给出警告，以便用户能够及时进行改正。由于不同用户所使用的计算机资源总是会受到不同条件的限制，因此，我们就要充分利用的功能，在设计出自己的功能强大的软件的同时，尽可能地减少对系统资源的占用，并且还要力求做到通过使用本行政管理信息系统，尽量使工作系统化、自动化和规范化，从而达到提高效率的目的。 本系统开发的总体设计目标是提高企业管理的工作效率，作到信息的规范管理，科学统计和快速查询，降低企业的管理成本。第二章 问题定义工作人员：系统的录入人员，主要指管理各种费用开支的工作人员，需要通过密码才能进入。他们拥有对系统数据的录入、修改、查询、删除等操作权限。但不可以更改系统密码。查询人员：权限最低的登入人员，他们拥有对相关数据的查询权限，但不能对数据进行修改和删除。系统管理人员：指行政管理系统的管理人员，他们拥有所有权限，包括对系统数据的录入、修改、查询、删除等操作权限。可以对系统密码进行更改，可以管理用户信息、权限。第三章 需求分析一、数据库需求分析行政管理系统涵盖会议、办公、机关事务处理、车辆、费用等行政管理内容以及人机结合的监督考评；建立事前预防（提示），事中监控，事后考评的机制，对行政管理权实施过程进行监控，全面推进行政管理工作的规范化、标准化、法制化和信息化。行政管理包括对企业内部会议的管理、办公管理、车辆信息及用车信息管理、企业消费费用、信息发布及通知、辅助功能等方面的全方位的管理。其中会议管理包括对会议室管理、会议通知和会议查询几部分；办公管理主要是对工作计划、工作日志和周工作安排进行系统的管理；车辆管理是对企业内部人员包括企业领导用车信息进行详细的记录；费用管理是对企业日常的消费费用进行管理，包括电话费用、报销费用和车辆费用支出管理。通过信息发布和辅助功能为企业员工在日常工作中提供便利，如发布会议通知、航班查询和编码查询等等。通过市场调查，要求本系统具有以下的功能：（1）统一友好的操作界面，能保证系统的易用性。（2）规范、完善的基础信息设置。灵活的报表打印功能。（3）能够完成对企业会议、企业办公、企业车辆和费用信息的有效管理。（4）全国各地的编码及航班查询。（5）提供常用网址和手机归属地信息查询。（6）通过系统日志，详细记录修改记录的操作，提供追查的有力依据。（7）完善的权限管理，增强系统的安全性。（8）强大的数据备份及恢复功能，保证系统数据的安全性。（9）可在不退出系统的同时更换操作员。二、数据库的结构设计（1）数据库概念的结构设计得到上面的数据想和数据结构以后，就可以设计出能满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。我所设计的实体有：工作人员实体，查询人员实体，系统管理人员实体。（2）数据库的逻辑结构设计逻辑结构设计的任务是把概念结构设计阶段设计完毕的基本ER图转化为与选用的具体机器上的DBMS产品所支持的数据模型相符的逻辑结构（包括数据库模式和外模式）。这些模式在功能性、完整性和一致性约束及数据库的可扩充性等方面应满足用户的各种要求。ER图型关系模型的转化要解决的问题是如何将实体和实体间的关系转化为关系模式，如何确定这些关系模式的属性和代码。概念结构是独立于实际数据模型的信息结构，必须将其转化为逻辑结构后才能进行数据库应用的设计。也就是要将概念上的结构转化为SQL SERVER数据库系统所支持的实际数据模型。第一种转化是将实体转化为关系表。这种转化比较简单，只需要将实体的属性定义为表的属性即可。第二种转化是联系的转化。即将各个实体之间的联系转化为表格之间的关系，如外部键的定义。在上面工作的基础上归纳出人员管理数据库表格的组成、列的属性、表格之间的联系等等。该数据库系统要求具有以下方面的特点：（1）结构合理，对一个人员建立多条记录。（2）所建立的数据冗余度小，独立性强。（3）建档、修改、查询、统计快而准确。（4）保密性、可靠性好导出一般关系模型在这个行政管理系统中，关系模式如下：会议管理（编号、会议主题、会议时间、会议地点、会议记录、会议主持人、会议记录人、）办公管理（工作日志、记事本、工作计划、一周工作安排）车辆管理（用车管理、车辆登记、驾驶员登记、用车信息查询、车辆投保管理）费用管理（会议室管理、会议通知、会议记录、会议室查询、会议记录查询）辅助信息（常用网址、航班查询、编码大全、国际电话代码、手机会属地查询）退出系统（退出系统、重新登录）根据以上调整后的关系，重新对前面分析的ER图进行改进，基于前面的关系不变，只是在原有的基础上，增加属性和调整主属性。三、数据字典（DD）学生基本信息表=学号+姓名+性别+出生日期+班号+入校时间系统用户表=名称+密+描述班级信息表格=班号+年级+班主任+教室四、程序流程图图3.1程序流程图五、功能结构图图3.2 行政管理功能结构图第四章 数据库设计一、概念设计：系统ER图系统用户用户名口令级别 图4.1 系统ER图图4.2 系统全局ER图二、逻辑设计逻辑结构设计的任务是把概念结构设计阶段设计完毕的基本ER图转化为与选用的具体机器上的DBMS产品所支持的数据模型相符的逻辑结构（包括数据库模式和外模式）。这些模式在功能性、完整性和一致性约束及数据库的可扩充性等方面应满足用户的各种要求。ER图型关系模型的转化要解决的问题是如何将实体和实体间的关系转化为关系模式，如何确定这些关系模式的属性和代码。概念结构是独立于实际数据模型的信息结构，必须将其转化为逻辑结构后才能进行数据库应用的设计。第一种转化是将实体转化为关系表。这种转化比较简单，只需要将实体的属性定义为表的属性即可。第二种转化是联系的转化。即将各个实体之间的联系转化为表格之间的关系，如外部键的定义。在上面工作的基础上归纳出人员管理数据库表格的组成、列的属性、表格之间的联系等等。该数据库系统要求具有以下方面的特点：（1）结构合理，对一个人员建立多条记录。（2）所建立的数据冗余度小，独立性强。（3）建档、修改、查询、统计快而准确。（4）保密性、可靠性好1.导出一般关系模型在这个行政管理系统中，关系模式如下：会议管理（编号、会议主题、会议时间、会议地点、会议记录、会议主持人、会议记录人、）办公管理（工作日志、记事本、工作计划、一周工作安排）车辆管理（用车管理、车辆登记、驾驶员登记、用车信息查询、车辆投保管理）费用管理（会议室管理、会议通知、会议记录、会议室查询、会议记录查询）辅助信息（常用网址、航班查询、编码大全、国际电话代码、手机会属地查询）退出系统（退出系统、重新登录）根据以上调整后的关系，重新对前面分析的ER图进行改进，基于前面的关系不变，只是在原有的基础上，增加属性和调整主属性。三、物理设计1.索引是数据库中重要的数据结构，它的根本目的就是提高查询效率。2.下面是数据文件，数据事务日志文件存储方法和存储位置。数据文件是软件的核心数据库，有软件主窗体的所涉及的数据库。它由会议管理、办公管理、车辆管理、费用管理等表组成。它的位置是C:Program FilesMicrosoft SQL ServerMSSQLData。它的位置是C:Program FilesMicrosoft SQL ServerMSSQLData。数据事务日志文件的事务中每个数据更改语句都被记录在日志文件中，日志文件将被记录一个提交事务的标记。每个事务都会以这种方式记录在事务日志中并被立即写到硬盘上。存放位置放在C:Program FilesMicrosoft SQL ServerMSSQLData。第五章 界面设计一、登陆窗口如下所示：二、会议记录模块如下所示：会议记录主要是记录公司举行重大会议的内容、时间等信息。在会议记录窗体中可以通过工具栏中的【添加】、【删除】、【修改】和【保存】按钮维护会议记录信息，还可以通过单击数据网格中的数据记录，在窗体上浏览已经记录过的会议记录信息，如果会议记录被修改过，则在浏览数据记录信息时，在窗体的下面还将显示记录修改的日期和修改人姓名。三、会议记录窗体如下图所示当窗体启动时，如果数据库中存在记录信息，则在窗体的文本框中显示数据库中的第一条记录，同时锁定文本框，禁止输入数据信息。通过Ado控件的ConnectionString属性连接到数据库，然后再调用DBGCon函数，重新给DataGrid控件的列标题赋值。窗体启动时的事件代码如下：Private Sub Form_Load() DT1.Value = Date 使日期控件中显示当前系统的日期时间 Call LoadFile 调用过程，在窗体文本框中显示数据 For i = 1 To 7 Text1(i).Locked = True Next i Adodc2.ConnectionString = PublicStr 连接数据库 Adodc2.RecordSource = select * from 会议记录 order by 编号 Adodc2.Refresh Call DBGCon Call Tbr_cortrol(Tbr_xxcz, True)End Sub在窗体的文本框中按下键盘上的Enter键或、方向箭头键时，光标将按照文本框的次序依次移动。在文本框控件的键盘按下事件（KeyDown）中通过限制索引Index值和键盘代码值能够控制光标移动的顺序，实现的代码如下：Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) On Error Resume Next 执行错误处理 If KeyCode = 13 Then If Index = 1 Then 如果在索引值为1的文本框中按下回车键，光标将落在日期控件 DT1.SetFocus Exit Sub 退出当前过程 ElseIf Index = 2 Then Call Cmd_Select_Click Exit Sub End If End If If Index = 0 And KeyCode = 40 Then Text1(Index + 1).SetFocus If Index = 0 And KeyCode = 13 Then Text1(Index + 1).SetFocus If Index = 7 And KeyCode = 13 Then Call Saves 调用保存按钮事件 End IfEnd Sub单击选中数据网格中的记录，可以使所选中的记录显示在窗体的文本框当中。设计思路为：将Ado数据集结果反绑定到文本框，名称为Dgr_Sjll的DataGrid控件代码如下：Private Sub Dgr_Sjll_Click() On Error Resume Next 执行错误处理 If Adodc2.Recordset.RecordCount 0 Then 判断该记录是否存在 Text1(0).Text = Adodc2.Recordset.Fields(0) Text1(1).Text = Adodc2.Recordset.Fields(1) Text1(2).Text = Adodc2.Recordset.Fields(3) Text1(3).Text = Adodc2.Recordset.Fields(4) DT1.Value = Adodc2.Recordset.Fields(2) Text1(4).Text = Adodc2.Recordset.Fields(5) Text1(5).Text = Adodc2.Recordset.Fields(6) Text1(6).Text = Adodc2.Recordset.Fields(7) Text1(7).Text = Adodc2.Recordset.Fields(8) Txt_Date.Text = Adodc2.Recordset.Fields(9) Txt_lxr.Text = Adodc2.Recordset.Fields(10) End If For i = 0 To 7 重新锁定文本框，禁止输入数据信息 Text1(i).Locked = False Next iEnd Sub第六章 代码与注释Private Sub Form_Load() DT1.Value = Date 使日期控件中显示当前系统的日期时间 Call LoadFile 调用过程，在窗体文本框中显示数据 For i = 1 To 7 Text1(i).Locked = True Next i Adodc2.ConnectionString = PublicStr 连接数据库 Adodc2.RecordSource = select * from 会议记录 order by 编号 Adodc2.Refresh Call DBGCon Call Tbr_cortrol(Tbr_xxcz, True)End Sub在窗体的文本框中按下键盘上的Enter键或、方向箭头键时，光标将按照文本框的次序依次移动。在文本框控件的键盘按下事件（KeyDown）中通过限制索引Index值和键盘代码值能够控制光标移动的顺序，实现的代码如下：Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) On Error Resume Next 执行错误处理 If KeyCode = 13 Then If Index = 1 Then 如果在索引值为1的文本框中按下回车键，光标将落在日期控件 DT1.SetFocus Exit Sub 退出当前过程 ElseIf Index = 2 Then Call Cmd_Select_Click Exit Sub End If End If If Index = 0 And KeyCode = 40 Then Text1(Index + 1).SetFocus If Index = 0 And KeyCode = 13 Then Text1(Index + 1).SetFocus If Index = 7 And KeyCode = 13 Then Call Saves 调用保存按钮事件 End IfEnd Sub单击选中数据网格中的记录，可以使所选中的记录显示在窗体的文本框当中。设计思路为：将Ado数据集结果反绑定到文本框，名称为Dgr_Sjll的DataGrid控件代码如下：Private Sub Dgr_Sjll_Click() On Error Resume Next 执行错误处理 If Adodc2.Recordset.RecordCount 0 Then 判断该记录是否存在 Text1(0).Text = Adodc2.Recordset.Fields(0) Text1(1).Text = Adodc2.Recordset.Fields(1) Text1(2).Text = Adodc2.Recordset.Fields(3) Text1(3).Text = Adodc2.Recordset.Fields(4) DT1.Value = Adodc2.Recordset.Fields(2) Text1(4).Text = Adodc2.Recordset.Fields(5) Text1(5).Text = Adodc2.Recordset.Fields(6) Text1(6).Text = Adodc2.Recordset.Fields(7) Text1(7).Text = Adodc2.Recordset.Fields(8) Txt_Date.Text = Adodc2.Recordset.Fields(9) Txt_lxr.Text = Adodc2.Recordset.Fields(10) End If For i = 0 To 7 重新锁定文本框，禁止输入数据信息 Text1(i).Locked = False Next iEnd Sub设计总结本次SQL SERVER数据库技术课程设计我们小组设计了行政管理系统。两周的实训结束了，这次的实训让我对SQLSERVER有了更深的了解，对此次实训，颇有体会。从选题到定稿，从理论到实践，在整整两星期的日子里，可以说得是苦多于甜，但是可以学到很多很多的的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是