管理信息系统课程设计报告车辆租赁管理系统.doc

管理信息系统课程设计报告题目： 车辆租赁管理系统姓名：学号： 系别：指导教师： 二一一年十二月目 录第一章 绪 论 11.1 管理信息系统概述1第二章 需求分析 3 2.1 功能需求3 2.2 界面显示需求3第三章 相关技术介绍 5 3.1 前台开发工具语言5 3.2 数据库简介5 3.3 中间层采用的技术6第四章 系统模型构建 7 4.1 系统结构设计7 4.2 数据库设计7第五章 系统实现 9 5.1 主要模块功能说明9 5.2 问题分析20总结与心得 23附 录源代码 24参考资料 32摘 要管理信息系统（Management Information System，简称MIS）是一个以人为主导，利用计算机硬件、软件、网络通信设备以及其他办公设备，进行信息的收集、传输、加工、储存、更新和维护，以企业战略竞优、提高效益和效率为目的，支持企业的高层决策、中层控制、基层运作的集成化的人机系统。一个完整的MIS应包括：辅助决策系统（DSS）、工业控制系统（CCS）、办公自动化系统（OAS）以及数据库、模型库、方法库、知识库和与上级机关及外界交换信息的接口。随着汽车工业的发展和汽车的普及，汽车租赁成为近年来兴起的一个新兴行业。使用汽车租赁管理系统可以规范企业的管理和经营行为，减少企业的经营成本，提高工作效率。本系统采用目前比较流行的ADO数据访问技术，并将每个数据库表的字段和操作封装到类中，从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中。这也是本系统的特色和优势。后台数据库使用SQL Server，前台开发工具使用Visual B。关键词：管理信息系统；汽车租赁管理；Visual B；SQL Sever第一章 绪 论1.1 管理信息系统概述管理信息系统（Management Information System，简称MIS）是一个以人为主导，利用计算机硬件、软件、网络通信设备以及其他办公设备，进行信息的收集、传输、加工、储存、更新和维护，以企业战略竞优、提高效益和效率为目的，支持企业的高层决策、中层控制、基层运作的集成化的人机系统。管理信息系统是在数据处理系统上发展起来的，其特征是面向管理的一个集成系统，它覆盖了整个管理系统，对管理信息进行收集、传递、存储和处理，是多用户共享的系统，直接为基层和各管理部分服务。它的主要特点如下：1. 面向管理支持决策 该系统是管理学的思想方法、管理与决策的行为理论之后的一个重要发展，通过量化方法、预测、计划优化支持管理、调节和控制。为管理决策服务，必须能根据管理的需要，及时提供需要的信息，帮助决策者作出决策。2. 数据的高度集中将组织中的数据和信息集中起来，进行快速处理。一个中心数据库和一个计算机网络系统已经成为管理信息系统的重要标志，MIS的处理方式是在数据库和网络基础上的分布式处理。3. 有预测能力和控制能力其使用数学模型，如运筹学模型和数理统计模型，来分析数据和信息，以便预测未来，提供决策支持。4. 人机系统机关机器占的大部分，但人始终是管理系统建设的主体，它涉及到多方面的人员群体。所以管理信息系统也是一个人机结合的系统。各级管理人员既是系统的使用者，又是系统的组成部分，因此，在其开发过程中，要根据这一特点，正确界定人和计算机在系统中的地位和作用，充分发挥人和计算机各自的长处，使系统的整体性能达到最优。第二章 需求分析 汽车租赁服务是由汽车租赁公司向那些长期或短期需要用车，但又没有必要自备车的单位和个人有偿提供车辆使用权，并限制收回的一种服务方式。汽车租赁作为一种全新的消费方式，不仅可以有效地缓解汽车生产与销售之间的“瓶颈”，而且对于消费市场的拓展也有不可低估的功效。国外汽车租赁业的发展就早已证明了这一点。汽车租赁公司的规模化经营趋势日益加剧通过多次并购和特许经营等模式创新，世界主要汽车租赁公司已从最初的小规模经营发展成为现在遍布全球主要国家，平均租赁站点个数千个，运营车辆数十万辆，雇员数万人等大型跨国公司。而日趋突出的规模化经营带来的效益规模化是全球发展的潮流。随着信息网络与电子商务等新技术的日益普及汽车租赁公司通过引入电子商务和互联网络，将更加快捷高效地进行业务拓展，有效地降低管理成本，实现经营业务的持续稳定增长，从而使其自身的经营管理水平和竞争力水平不断提高。本程序根据国内外汽车租赁行业发展的需要，针对国内汽车租赁业信息化的发展而建设的。2.1 功能需求1. 车辆基本信息的查询。2. 会员客户信息的查询。3. 汽车类型信息的添加、修改、删除和查询。2.2 界面显示需求1. 首先使用登录窗体，对用户的身份进行认证。2. 进入主界面，用户根据需要选择要进行的操作。3. 基本信息管理模块可以显示系统车辆的基本信息。4. 会员客户信息模块可以显示系统会员客户的相关信息。5. 在汽车类型设置模块中，可以对汽车类型相关信息进行添加、修改、删除和显示操作。6. 选择退出，可以退出整个系统。第三章 相关技术介绍3.1 前台开发工具语言前台开发工具选择Visual B。 Visual Basic是在Basic语言的基础上发展而来的，是在Windows环境中广泛使用的应用程序开发工具。Visual Basic功能强、效率高、易学习，无论是专业人员还是非专业人员，都可以很容易的掌握Visual Basic。 Visual Basic最大的两个有点是“可视化”和“事件驱动”。“可视化”即“可视化程序设计”，是指开发图形用户界面的一种方法，用这种方法，程序员不用编写大量代码去描述界面元素的外观和位置，只要把预先建立的界面元素用鼠标拖放到屏幕上的适当位置即可。“事件驱动”是指Windows应用程序的运行是通过事件来驱动的，用户和系统触发了某一事件，就执行程序员在此事件中编写的一段代码。“可视化”和“事件驱动”这两个特征是Visual Basic进行Windows程序开发的精髓。3.2 数据库简介后台数据库选择SQL Server。本系统的后台数据库使用了SQL Server。SQL(Struct Query Language）即结构化查询语言，它是使用关系模型的数据库应用语言，由IBM在70年代开发出来。现在SQL结构化查询语言已经成为一个工业标准，几乎所有的数据库都支持它的查询，SQL Server更是如此。SQL Server服务器中，用SELECT语句实现数据库的查询操作。同时，它可以使用各种子句对查询结果进行分组统计、合计、排序等操作。SELECT语句还可将查询结果生成另一个表（临时表或永久表）。SQL语言包含查询、定义、操控和控制4个部分，是一种功能齐全的数据库语言。它的主要功能就是同各种数据库建立联系，进行沟通。 SQL语言是一种优化过的语言，包括交互式语言和嵌入式语言，其中后者是嵌入其他语言之中使用的SQL语言。SQL语言的特点主要包括3点，即非过程化、统一性、公共性。3.3 中间层采用的技术 中间层采用ADO数据访问技术，将对数据库的操作以类的形式封装 ActiveX Data Objects 的缩写，提供对各种数据库访问的标准接口。包括的主要对象有： 连接对象Connection。连接时必须指定要连接到的数据源以及连接所使用的用户名和口令等信息。 命令对象Command。可以通过已建立的连接发出命令，对数据源进行指定的操作。 记录集对象Recordset。查询命令可以将查询结果存储在本地，这些数据以“行”（记录）为单位，返回数据的集合被称为记录集。 字段对象Field。一个记录集行包含一个或多个字段。如果将记录集看作二维网格，字段将排列起来构成列。每一字段（列）都分别包含有名称、数据类型和值的属性。 第四章 系统模型构建4.1 系统结构设计车辆租赁管理系统基本信息管理会员客户信息汽车类型设置退出添加信息修改信息删除信息显示信息图4-1 车辆租赁系统结构图4.2 数据库设计 根据车辆租赁行业的业务量，本系统采用了SQL Sever数据库。 数据库包含3个表，即基本信息管理表Table1、会员客户信息表Table2、和汽车类型设置表Table8。 4.2.1基本信息管理表Table1 基本信息管理表Table1用来保存汽车分类。基本信息包括:类型编号（Id）、类型名称（Typename）、类型描述（Decription）。表4-1 基本信息类型表字段名称数据类型字段大小Idint4Typenamevarchar50Decriptionvarchar100 4.2.2会员客户信息表Table2 会员客户信息表Table2用来保存会员的类型信息。 会员客户信息包括:类型编号（Id）、类型名称（Typename）、享受的折扣（Rate）。表4-2 会员类型表字段名称数据类型字段大小Idint4Typenamevarchar50Ratefloat84.2.3汽车类型设置表Table8 汽车类型设置表Table8用来保存汽车的基本信息。 汽车信息表包括：汽车名称（CarName）、汽车类型（TypeId）、汽车价格（Price）。表4-3 车辆信息表字段名称数据类型字段大小CarNovarchar2020TypeIdint4CarNameVarchar5050第五章 系统实现5.1 主要模块功能说明 5.1.1 登录模块及系统主界面设计 1. 设计登录窗体登录窗体的界面布局如下图图5-1 登录窗体界面布局登录窗体中的控件及属性。表5-1登录窗体控件属性控件属性属性值Label1Caption用户名Label2Caption密码Txtusertext空Txtpwdtext空passwordchar*Cmd_cancelcaption取消Cmd_okcaption确定2. 设计主界面主界面的布局如下，单击下拉菜单中的子菜单进入相应界面，单击“退出”弹出询问对话框，单击“是”退出整个系统。图5-2 主界面布局图5-3 退出整个系统在每个下拉菜单中输入相应代码，实现系统功能Public Class Form2 Private Sub 基本信息管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 基本信息管理ToolStripMenuItem.Click Dim f As New Form4 Me.Hide() f.Show() End Sub Private Sub 客户管理会员ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 客户管理会员ToolStripMenuItem.Click Dim f As New Form6 Me.Hide() f.Show() End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Dim a As Integer a = MsgBox("真的要退出吗？", 4 + 32 + 0, "询问") If a = 6 Then End End If End Sub Private Sub 显示信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示信息ToolStripMenuItem.Click Dim m1 As New Form8 m1.Show() End Sub Private Sub 修改信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改信息ToolStripMenuItem.Click Dim m1 As New Form7 m1.Show() End Sub Private Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripMenuItem.Click Dim m1 As New Form3 m1.Show() End Sub Private Sub 删除信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除信息ToolStripMenuItem.Click Dim m1 As New Form5 m1.Show() End SubEnd Class5.1.2 基本信息管理模块设计下图为基本信息管理模块布局，双击“显示”按钮，输入相应代码建立与数据库的连接，运行时在DataGridView控件中显示数据库中表的信息，单击“返回”按钮返回到主界面。运行结果如下图图 5-4 基本信息管理界面运行结果程序运行代码如下Imports System.DataImports System.Data.SqlClientPublic Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconn As String = "data source=ZVDPFX4AFDLGOF2; initial catalog=lwn;" & "integrated security=true;" Dim conn As New SqlConnection(strconn) Dim strsel As String = "select * from TABLE1" Dim comm As New SqlCommand(strsel, conn) conn.Open() Dim da As SqlDataAdapter = New SqlDataAdapter da.SelectCommand = comm Dim ds As DataSet = New DataSet da.Fill(ds, "stu") DataGridView1.DataSource = ds.Tables("stu") conn.Close() End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form2.Show() Me.Hide() End SubEnd Class5.1.3 会员客户信息模块设计下图为会员客户信息模块布局，双击“显示”按钮，输入相应代码建立与数据库的连接，运行时在DataGridView控件中显示数据库中表的信息，单击“返回”按钮返回到主界面。运行结果如下图图 5-5 会员客户信息界面运行结果程序运行代码如下Imports System.DataImports System.Data.SqlClientPublic Class Form6 Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconn As String = "data source=ZVDPFX4AFDLGOF2; initial catalog=lwn;" & "integrated security=true;" Dim conn As New SqlConnection(strconn) Dim strsel As String = "select * from TABLE" Dim comm As New SqlCommand(strsel, conn) conn.Open() Dim da As SqlDataAdapter = New SqlDataAdapter da.SelectCommand = comm Dim ds As DataSet = New DataSet da.Fill(ds, "stu") DataGridView1.DataSource = ds.Tables("stu") conn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form2.Show() Me.Hide() End SubEnd Class5.1.4 汽车类型设置模块设计 1.设计添加信息模块下图为添加信息模块布局，在textbox控件中输入要添加的汽车名称、汽车型号、汽车价格，双击“添加”按钮输入代码，运行时点击“添加”按钮，弹出添加成功对话框，即在相应数据库中成功添加信息。运行结果如下图图5-6添加信息界面运行结果程序运行代码如下Imports System.DataImports System.Data.SqlClientPublic Class Form3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconn As String = "data source =ZVDPFX4AFDLGOF2; initial catalog = lwn;" & " integrated security =true;" Dim conn As New SqlConnection(strconn) Dim strtianjia As String = " insert into table8(carname,typeid,price)VALUES('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')" Dim comm As New SqlCommand(strtianjia, conn) conn.Open() comm.ExecuteScalar() conn.Close() MsgBox("添加成功！") End SubEnd Class2.设计修改信息模块下图为修改信息模块布局，在textbox控件中输入要修改的汽车型号、汽车名称、汽车价格，双击“修改”按钮输入代码，运行时点击“修改”按钮，弹出对话框，即在相应数据库中成功修改信息。运行结果如下图图5-7修改信息界面运行结果程序运行代码如下Imports System.DataImports System.Data.SqlClientPublic Class Form7 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconn As String = "data source =ZVDPFX4AFDLGOF2; initial catalog = lwn;" & " integrated security =true;" Dim conn As New SqlConnection(strconn) Dim strXIUGAI As String = "UPDATE table8 SET carname='" + TextBox2.Text + "'" + ",price='" + TextBox3.Text + "' where id='" + TextBox1.Text + "'" Dim comm As New SqlCommand(strXIUGAI, conn) conn.Open() If (comm.ExecuteNonQuery() Then MsgBox("信息已修改，请继续操作！") Else MsgBox("不存在该记录！") End If conn.Close() End SubEnd Class3. 设计删除信息模块下图为删除信息模块布局，在textbox控件中输入要删除的汽车型号、双击“删除”按钮输入代码，运行时点击“删除”按钮，弹出对话框，即在相应数据库中成功删除信息。运行结果如下图图5-8 删除信息界面运行结果程序运行代码如下Imports System.DataImports System.Data.SqlClientPublic Class Form5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconn As String = "data source=ZVDPFX4AFDLGOF2; initial catalog=lwn;" & "integrated security=true" Dim conn As New SqlConnection(strconn) Dim strdel As String = "delete from table8 where typeid='" & Trim(TextBox1.Text) & "'" Dim comm As New SqlCommand(strdel, conn) conn.Open() If (comm.ExecuteNonQuery() Then MsgBox("记录已删除！") Else MsgBox("不存在该记录！") End If End SubEnd Class4. 设计显示信息模块 下图为显示信息模块布局，双击“显示”按钮，输入相应代码建立与数据库的连接，运行时在DataGridView控件中显示数据库中表的信息。运行结果如下图图5-9 显示信息界面运行结果5.2 问题分析在设计过程中较难实现的就是Visual Basic6.0与SQL数据库的连接，下面就此问题进行详细分析。1. 常用的SQL语句 SELECT语句：实现数据查询。 INSERT语句：插入数据。 UPDATE：更新数据。 DELETE：删除数据。 SELECT各子句的主要功能。 2. ADO数据访问技术 ActiveX Data Objects 的缩写，提供对各种数据库访问的标准接口。包括的主要对象有： 连接对象Connection。连接时必须指定要连接到的数据源以及连接所使用的用户名和口令等信息。Connection对象代表与数据源的连接。如果是客户端/服务器数据库系统，该对象可以等价于到服务器的实际网络连接。 命令对象Command。可以通过已建立的连接发出命令，对数据源进行指定的操作。Command对象定义了将对数据源执行的命令。 记录集对象Recordset。查询命令可以将查询结果存储在本地，这些数据以“行”（记录）为单位，返回数据的集合被称为记录集。Recordset对象表示来自基本表或命令执行结果的记录全集。使用ADO时，通过Recordset对象可对几乎所有数据进行操作。字段对象Field。一个记录集行包含一个或多个字段。如果将记录集看作二维网格，字段将排列起来构成列。每一字段（列）都分别包含有名称、数据类型和值的属性。Field对象代表使用普通数据类型的数据的列。 3. 数据库连接字符串 Public Const conn As String = "Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=Cars;Data Source=localhost;"Provider 数据提供者。User ID 用户名。Password 用户密码。Initial Catalog 数据库名称。Data Source 指定数据源所在的计算机地址。 4. 数据库应用系统工程规划 本程序中使用到的模块及其内容描述如下： Const 用来管理工程中的全局常量。 DbFunc 用来管理与数据库操作相关的函数，例如连接数据库、断开与数据库的连接等。 GeneralFunc 用来管理通用的用户自定义函数。 Variable 用来管理工程中的全局变量，包括全局数组和全局对象。总结与心得 通过这次的课程设计，我了解了管理信息系统的开发与建设过程，从总体设计，详细设计到编码实现以及运行维护，每一个过程都需要开发人员对这项管理信息系统有一个详细且深入的了解。在我的这个课程设计中，汽车租赁管理系统主要通过对汽车、人、资金的管理。对于人主要是顾客以及系统用户。对于资金是指汽车租赁过程中产生的资金流。本系统技术方面使用SQLServer 2000数据库，并在Visual B中使用数据环境下通过ADO.NET命令来访问。 本课程设计的一个难点是项目之间的连接，即数据库的后台支持。在实现时巧妙地将信息更改与浏览功能统一实现，在保存数据时，利用浏览得到汽车租赁信息。 通过这次的课程设计，我不仅更加深刻地理解了管理信息系统的理论，也能基本做到理论联系实际。而且再一次稳固了VB和数据库的系统知识，进一步加深了这两个软件的功能应用。 可以说这次课程设计使我更加肯定了自己的动手能力，也理解了时间才是学习的根本。理论的学习会让人对学科产生反感心理，主要原因是许多理论难以理解且不切实际。在实践的过程中才真真切切的体会到课本中理论的含义。也谢谢学校能够给我们安排这次课程设计。 最后，我要感谢老师对我们的教导，老师总是非常耐心的回答我们的问题。而且，对于报告的规范格式我们总是很不了解，老师不厌其烦地把每一段要写的内容都规范出来。为的只是让我们的设计更加完美，以后的实践过程更加得心应手。我相信，只要我们共同努力，以后的学习生活会更加愉快与轻松。附 录源代码Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim f As New Form2 If TextBox1.Text = "李文娜" And TextBox2.Text = "123" Then Me.Hide() f.Show() Else MsgBox("请输入正确的用户名") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a = MsgBox("确定退出吗？", 36) If a = 6 Then End End If End SubEnd ClassPublic Class Form2 Private Sub 基本信息管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 基本信息管理ToolStripMenuItem.Click Dim f As New Form4 Me.Hide() f.Show() End Sub Private Sub 客户管理会员ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 客户管理会员ToolStripMenuItem.Click Dim f As New Form6 Me.Hide() f.Show() End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Dim a As Integer a = MsgBox("真的要退出吗？", 4 + 32 + 0, "询问") If a = 6 Then