航空公司管理系统全套((VB+SQL)

航空公司管理信息系统
一个正常营运的航空公司需要管理所拥有的飞机、航线的设置、客户的信息等，更重要的还要提供票务管理。面对各种不同种类的信息，需要合理的数据库结构来保存数据信息以及有效的程序结构支持各种数据操作的执行。
本设计讲述如何建立一个航空公司管理信息系统。一般而言，航空公司的管理信息系统应该包括人事、工资管理模块 。
1 系统设计
1.1 系统功能分析
系统开发的总体任务是实现各种信息的系统化、规范化和自动化。
系统功能分析是在系统开发的总体任务的基础上完成。本例子中的航空公司管理信息系统需要完成功能主要有：
 舱位信息的输入和修改，包括舱位等级编号、舱位等级名称、提供的各种服务类别，以及备注信息等。
 客机信息的输入、修改和查询，包括客机编号、客机型号、购买时间、服役时间、经济舱座位数量、公务舱座位数量、头等舱座位数量以及备注信息等。
 航线信息的输入、修改和查询，包括航线编号、出发城市、到达城市、航班日期、出发时间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格和备注信息等。
 客户等级信息的输入、修改，包括客户等级编号、客户等级名称、折扣比例和备注信息等。 copyright think58

[资料来源：http://www.THINK58.com]

 客户信息的输入、修改和查询，包括客户编号、客户姓名、客户性别、身份证号码、联系电话、客户类型和备注信息等。
 订票信息的输入、查询和修改，包括订票编号、客户编号、客户姓名、客户类型、折扣比例、航线编号、出发城市、到达城市、出发时间、舱位类型、票价、结算金额和备注信息等。
1.2 系统功能模块设计
对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图9-1所示的系统功能模块图。
 
图9-1 系统功能模块图
2 数据库设计
数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。
设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：
 数据库需要分析。
 数据库概念结构设计。
 数据库逻辑结构设计。
2.1 数据库需求分析
用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。 think58

[资料来源：http://think58.com]

仔细分析调查有关航空公司管理信息需求的基础上，将得到如图9-2所示的本系统所处理的数据流程。
 
图9-2 航空公司管理信息系统数据流程图
针对一般航空公司管理信息系统的需求，通过对航空公司管理工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：
 舱位等级信息，包括的数据项有：舱位等级编号、舱位等级名称、是否有礼品、是否有报纸、是否有饮料、是否有午餐、是否有电影、是否可以改签、是否可以退票、是否可以打折、备注信息等。
 客机信息，包括的数据项有：客机编号、客机型号、购买时间、服役时间、经济舱座位数量、公务舱座位数量、头等舱座位数量、备注信息等。
 航线信息，包括的数据项有：航线编号、出发城市、到达城市、航班日期、出发时间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格、备注信息等。
 客户类型信息，包括的数据项有：客户类型编号、客户类型名称、折扣比例、备注信息等。
 客户信息，包括的数据项有：客户编号、客户姓名、客户性别、身份证号码、联系电话、客户类型、备注信息等。
 订票信息，包括的数据项有：订票编号、顾客编号、顾客姓名、顾客类型、折扣比例、航线编号、出发城市、到达城市、舱位类型、机票价格、结算金额、备注信息等。

有了上面的数据结构、数据项和数据流程，我们就能进行下面的数据库设计。
2.2 数据库概念结构设计
得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。
本实例根据上面的设计规划出的实体有：舱位等级信息实体、客机信息实体、航线信息实体、客户类型信息实体、客户信息实体、订票信息实体。各个实体具体的描述E-R图如下。
舱位等级信息实体E-R图如图9-3所示。
 
图9-3 舱位等级信息实体E-R图
客机信息实体E-R图如图9-4所示。
 
图9-4 客机信息实体E-R图
航线信息实体E-R图如图9-5所示。
 
图9-5 航线信息实体E-R图
客户类型信息实体E-R图如图9-6所示。
 
图9-6 客户类型信息实体E-R图
客户信息实体E-R图如图9-7所示。
 
图9-7 客户信息实体E-R图
订票信息实体E-R图如图9-8所示。
 
图9-8 订票信息实体E-R图
实体之间关系的E-R图如图9-9所示。
 
图9-9 实体之间关系的E-R图
2.3 数据库逻辑结构设计
现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。

航空公司管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格表示在数据库中的一个表。表9-1为供应商信息表。
表9-1                        serviceInfo 舱位等级信息表
列  名 数据类型 可否为空 说  明
serviceNO char NOT NULL 舱位等级编号
serviceName nvarchar NULL 舱位等级名称
noPresent char NULL 是否有礼物
noNewsPaper char NULL 是否有报纸
noDrink char NULL 是否有饮料
noFood char NULL 是否有午餐
noMovie char NULL 是否有电影
canChange char NULL 是否可以改签
canCancel char NULL 是否可以退票
canDiscount char NULL 是否可以打折
serviceMemo text NULL 备注信息
表9-2为顾客信息表格。
表9-2                        planeInfo客机信息表格 内容来自think58
列  名 数据类型 可否为空 说  明
planeNO char NOT NULL 客机编号
planeType char NULL 客机型号
buyDate datetime NULL 购买日期
serveDate datetime NULL 服役日期
isCommon nvarchar NULL 经济舱座位数量
isCommercial nvarchar NULL 公务舱座位数量
isFirst nvarchar NULL 头等舱座位数量
planeMemo text NULL 备注信息
表9-3为航线信息表。
表9-3                        airlineInfo航线信息表
列  名 数据类型 可否为空 说  明
airlineNO char NOT NULL 航线编号
departCity nvarchar NULL 出发城市
arrivalCity nvarchar NULL 到达城市
departDate char NULL 航班日期
departTime char NULL 出发时间
arrivalTime char NULL 到达时间 内容来自think58 [来源：http://think58.com]
planeNO char NULL 客机编号
commonPrice numeric NULL 经济舱价格
commercialPrice numeric NULL 公务舱价格
firstPrice numeric NULL 头等舱价格
airlineMemo text NULL 备注信息
表9-4为客户类型信息表格。
表9-4                      customerType 客户类型信息表
列  名 数据类型 可否为空 说  明
ctypeNO char NOT NULL 客户类型编号
ctypeName char NULL 客户类型名称
discount numeric NULL 折扣比例
续表
列  名 数据类型 可否为空 说  明
ctypeMemo text NULL 备注

图9-19 航线信息查询窗体
载入窗体时自动加入出发城市和到达城市的内容，代码如下：
Private Sub Form_Load()
    Dim i As Integer
    Dim sSql As String
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    ‘清除列表框中的内容
    For i = 0 To 1
        Combo1(i).Clear
    Next i
    ‘选择数据库中与出发城市有关的内容
    txtSQL = "select DISTINCT departCity from airlineInfo"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    ‘判断数据集是否为空
    If Not mrc.EOF Then
        Do While Not mrc.EOF
            Combo1(0).AddItem Trim(mrc.Fields(0))
            mrc.MoveNext

think58.com

[来源：http://www.think58.com]

        Loop
    Else
        MsgBox "请先进行航线信息设置！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    mrc.Close
    txtSQL = "select DISTINCT arrivalCity from airlineInfo"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.EOF Then
        Do While Not mrc.EOF
            Combo1(1).AddItem Trim(mrc.Fields(0))
            mrc.MoveNext
        Loop
    Else
        MsgBox "请先进行航线信息设置！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    mrc.Close
End Sub

内容来自think58

[来源：http://think58.com]

[版权所有：http://think58.com]