管理信息课设车队管理系统.doc

辽 宁 工 业 大 学 管理信息系统设计专题 报告题目： 车队管理系统 院（系）: 软件学院 专业班级： 电子商务001 学 号： 0000000009 学生姓名： 匿名 指导教师： 匿名 教师职称： 助 教 起止时间： 2010.05.30-2010.06.11 设计任务及评语院（系）：软件学院 教研室：软件教研室学 号0000000学生姓名匿名专业班级电子商务001设计题目 车队管理系统 设 计 任 务要求根据管理信息系统及数据库设计原理，按照系统设计的步骤和规范，完成各阶段的设计内容。需求分析具体实际，数据流图、数据字典、关系模型要规范。在sql server2000 上实现数据库的模型建立（数据库、表的建立、完整性约束的实现、关系图、必要的存储过程及触发器的编程），并用VB实现简单的应用程序。设计过程中，要严格遵守设计的时间安排，听从指导教师的指导。正确地完成上述内容，规范完整地撰写出设计报告。指导教师评语及成绩成绩： 指导教师签字： 2010年6月 13日目 录第1章 课程设计目的与要求11.1设计目的11.2设计环境11.3主要参考资料11.4设计内容及要求1第2章 课程设计内容22.1数据库设计22.1.1需求分析22.1.2概念设计22.1.3逻辑设计42.1.4物理设计42.1.5数据库实现52.2程序设计72.2.1概要设计72.2.2程序实现7第3章 课程设计总结13参考文献14 第1章 课程设计目的与要求1.1设计目的 (1)、掌握运用管理系统及数据库原理知识进行系统分析和设计的方法；（2）掌握关系数据库的设计方法；（3）掌握SQL Server 2000技术应用；（4）掌握简单的数据库应用程序编写方法；（5）理解C/S模式结构。1.2设计环境硬件环境：1 一台Pentium 4 cpu 以上的微机及兼容 2VGA 彩显一台软件环境：1windows 98 以上的操作系统 2Microsoft Visual Studio 20053Microsoft SQL Server 2000应用软件1.3主要参考资料1.管理信息系统 黄梯云 高等教育出版社2.数据库系统概论 萨师煊 高等教育出版社 3.SQL Server 2000 数据库应用系统开发技术朱如龙编，机械工业出版社。4.SQL Server 2000 数据库应用系统开发技术实验指导朱如龙编，机械工业出版社1.4设计内容及要求 一、内容1.要求根据管理信息系统及数据库设计原理，按照数据库系统设计的步骤和规范，完成各阶段的设计内容。2.需求分析具体实际，数据流图、数据字典、关系模型要正确规范3.在sql server2000 上实现设计的数据库模型。4.对应用程序进行概要设计。5.用VB实现简单的应用程序编写。二、要求设计过程中，要严格遵守课程设计的时间安排，听从指导教师的指导。正确地完成上述内容，规范完整地撰写出课程设计报告。第2章 课程设计内容2.1数据库设计2.1.1需求分析 1.数据库基本信息包括：系统管理，业务管理，查询打印，密码管理，托运单，调运运输，完成登记，报销申请2.系统的功能：设计实现的管理系统能够为普通员工和高级员工提供不同功能，完成车队管理的日常工作。另外，该系统是典型的管理信息系统（MIS），其设计开发过程具有通用性，对类似工作的开展具有借鉴意义。（1）完成登录，主要是对完成运输的司机信息进行登记，包括收货人，收货日期，系统会自动添加完成时间等信息。（2）查看司机信息，其中包括司机编号，性别，出生日期，民族，身份证号，电话号等一系列详细信息。管理员还可以在司机信息界面随时更改信息内容，同时可以添加，修改，删除本界面信息。方便可行。（3）车辆信息，包括车辆编号，车牌号，发动机编号，出厂厂家，载重，座位数，出厂日期，备注等信息。管理员可以简单，方便，快捷的查看司机的详细信息，发现错误也能随时改正2.1.2概念设计 1.系统E-R图：将费用报销单，司机信息表，车辆信息表，维修费用表，回程单等表之间的联系描绘出关系模型。联系是指车队系统中各个实体的联系，拥有一对一、一对多、多对多的联系。如图2.1所示：M1NN1MM1M费用报销单维修费用单回程表车辆信息表司机信息表报销维修出车回程费用图2.1 系统E-R图(1)完成登记的相关信息：完成登录表运输单编号详细信息收到签字收货日期完成日期备注图2.2完成登记E-R图（2）司机信息表的相关信息：司机信息表司机编号司机姓名性别民族身份证号出领证日期办公电话手机家庭电话备注图2.3司机信息E-R图（3）车辆信息表：车辆信息表车辆编号车牌号发动机编号生产厂家载重备注出厂日期座位数图2.4车辆信息E-R图2.1.3逻辑设计 车队管理系统包含用户信息表、车辆信息表、报销信息表、运输信息表、维修信息表、托运信息表、司机信息表、民族、职务、员工信息表组成。利用各个表的主键把各个表连接到一起。利用关系图表现出来。如图2.5所示：图2.5车队管理系统关系图2.1.4物理设计 （1）司机表删除代码：CREATE PROCEDURE sjx_deletesjx varchar(20),flag int outputAsIf sxists(select*from司机表 where 司机编号=clh and 备注=0)BeginDelete from 司机表 where 司机编号 =clh and 备注=0Set flag=0EndElse set flag=1Go(2)司机表添加代码：CREATE PROCEDURE clx_insertsjbh char(20),sjxm(20),xb char(10),mz char(20),sfzh char(20),bgdh char(20),sj char(20),jtdh char(50),bz char(100)AsInsert into 司机表（司机编号，司机姓名，性别，民族，身份证号，办公电话，手机，家庭电话，备注）Values(sjbh,sjxm,xb,mz,sfzh,bgdh,sj,jtdh,bz)Go(3)司机表修改代码CREATE PROCEDURE sjx_updatesjbh char(20),sjxm(20),xb char(10),mz char(20),sfzh char(20),bgdh char(20),sj char(20),jtdh char(50),bz char(100)AsDelete xs where司机编号=clbhInsert into司机表（司机编号，司机姓名，性别，民族，身份证号，办公电话，手机，家庭电话，备注）Values(sjbh,sjxm,xb,mz,sfzh,bgdh,sj,jtdh,bz)Go2.1.5数据库实现 1.完成登记表：维修编号，维修车辆编号，维修人，维修内容，维修总费用，维修日期，维修地点，发票号，备注。 表2.6完成登记表列名数据类型大小允许空维修编号Char(20)维修车辆编号Char(20)是维修人Char(20)是维修内容Char(100)是维修总费用float(8)是维修日期Char(10)是维修地点Char(50)是发票号Char(20)是备注Char(100)是2.司机信息表：司机编号，司机姓名，性别，民族，身份证号，初领证日期，办公电话，手机，家庭电话。表2.7司机信息表列名数据类型大小允许空司机编号Char(20)司机姓名Char(20)是性别Char(10)是民族Char(20)是 身份证号Char(20)是初领证日期Char(10)是办公电话Char(20)是手机Char(20)是家庭电话Char(50)是备注Char(100)是3.表4-1 车辆信息表：表2.8车辆信息表列名数据类型大小允许空车辆编号Char(20)车牌号Char(20) 是发动机编号Char(20)是生产厂家Char(50)是载重Char(20)是座位数Char(20)是出厂日期Char(10)是备注Char(100)是2.2程序设计2.2.1概要设计 按照结构化的系统设计方法，将整个车队管理系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来实现整个软件系统的功能，从而得到车队管理系统的功能模块结构图。本系统的功能模块结构如图2.8所示：车队管理系统业务信息管理基本信息管理查询信息管理系统帮助系统管理用户管理系统关于员工管理职务和民族司机和车辆备份和恢复密码管理系统帮助托运管理员工司机车辆查询托运查询报销查询维修查询调度运输完成登记维修管理报销申请报销审核图2.9系统的功能模块结构图1.完成登记界面：图2.10 完成登记界面2.司机信息界面：图2.11司机信息界面3.车辆信息界面：图2.12 车辆信息界面2.2.2程序实现 Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()完成Dim i As IntegerFor i = 0 To 2If Trim(Text2(i).Text) = Then Exit SubNext iDim rst As New ADODB.Recordsetrst.Open select * from 运输信息表 where 运输单编号= & Trim(Text2(0).Text) & , CN, adOpenStatic, adLockOptimisticIf Not rst.EOF Then For i = 5 To 8 If Trim(Text2(i - 4).Text) Then rst.Fields(i).Value = Trim(Text2(i - 4).Text) End If Next i rst.Update CN.Execute update 托运信息表 set 托运状态 =托运完成 where 托运单编号= & Trim(Text2(0).Text) & MsgBox 运输任务完成!, , 提示 For i = 0 To 4 Text2(i).Text = Next i Text3.Text = End IfEnd SubPrivate Sub Command3_Click()Dim i As IntegerFor i = 0 To 4 Text2(i).Text = Next iText3.Text = Text2(3).Text = DateChange(Date)If Text1.Text = Then Exit Sub Dim rst As New ADODB.Recordset rst.Open select * from 运输信息表 where 运输单编号= & Trim(Text1.Text) & , CN, adOpenStatic, adLockOptimistic If Not rst.EOF Then For i = 0 To 4 If Not IsNull(rst.Fields(i) Then Text3.Text = Text3.Text & vbCrLf & rst.Fields(i).Name & : & Trim(rst.Fields(i) End If Next i Text2(0).Text = Text1.Text For i = 5 To 8 If Not IsNull(rst.Fields(i) Then Text2(i - 4).Text = Trim(rst.Fields(i) Next i Else MsgBox 没有此编号!, , 提示 End IfEnd SubPrivate Sub Form_Load()Text2(3).Text = DateChange(Date)End Sub 第3章 课程设计总结经过将近半个月的设计和研究，我们小组集体设计的车队管理系统已经设计完毕。其功能基本符合用户需求，能够完成车队的基本功能。并提供部分系统维护功能,对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。总的来说，在这次课设中我们遇到了很多问题，经过我们集体的努力大部分问题都得到解决，只有少部分遗留的问题。从中我们也吸取了很多经验教训，对所学的专业知识也得到了充分利用，在今后的发展中这都会成为我们的一种宝贵财富。首先是开始基础没有打好，匆忙之中就定了个题目，刚开始接触设计程序特别盲目，也不知从何处入手，对于车队信息管理系统，我们也没机会亲身去考察，我们只能在网上找些客观资料来了解它。其次就是软件的问题，只能在机房操作课设系统，在VB为前台，SQL为后台的要求上，让我们非常困惑，自己的电脑都没安装SQL，此软件非常难安，我们就只能在寝室做下前台VB的设计，再去机房做下SQL的后台设计，以及各种程序中所需要解释，说明的截图等。最后就是调程序的问题，实在是给我们出了个大难题，面对偌大的一个程序，从中排错选优，对我们这些初学者的确是一件难事。刚开始我们小心翼翼的调试，有时调了一上午程序的运行界面还是跑不出来，偶尔也会产生抱怨和不耐烦的情绪。总之在我们集体努力的情况下，我们克服了一切困难，才完成这次课设。课设结束了，我们从中学到了很多平时学不到的知识。首先要感谢我们的指导老师，没有她悉心的关怀，和孜孜不倦的教导，我们是做不出如此成功的程序的。再次就要感谢我的伙伴们，我们能在这么炎热的夏天，禁住闷热的天气，集体完成这项课设，你们的精神就是我们完成课设的动力。参考文献1 黄剀涛 .Visual Basic 6.0中文版高级应