VB532 航空公司管理信息系统VB+SQL

系统开发的总体任务是实现各种信息的系统化、规范化和自动化。
系统功能分析是在系统开发的总体任务的基础上完成。本例子中的航空公司管理信息系统需要完成功能主要有：
 舱位信息的输入和修改，包括舱位等级编号、舱位等级名称、提供的各种服务类别，以及备注信息等。
 客机信息的输入、修改和查询，包括客机编号、客机型号、购买时间、服役时间、经济舱座位数量、公务舱座位数量、头等舱座位数量以及备注信息等。
 航线信息的输入、修改和查询，包括航线编号、出发城市、到达城市、航班日期、出发时间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格和备注信息等。
 客户等级信息的输入、修改，包括客户等级编号、客户等级名称、折扣比例和备注信息等。
 客户信息的输入、修改和查询，包括客户编号、客户姓名、客户性别、身份证号码、联系电话、客户类型和备注信息等。
 订票信息的输入、查询和修改，包括订票编号、客户编号、客户姓名、客户类型、折扣比例、航线编号、出发城市、到达城市、出发时间、舱位类型、票价、结算金额和备注信息等。
1.2 系统功能模块设计 think58好，好think58

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

对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图9-1所示的系统功能模块图。

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

[资料来源：www.THINK58.com]

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

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

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

Dim MsgText As String
    Dim i As Integer
    Dim mrcc As ADODB.Recordset
    ‘判断所处状态，添加或者修改
    If gintKmode = 1 Then
        Me.Caption = Me.Caption & "添加"
        ‘产生随机的订票编号
        txtticket = GetRkno()
    ElseIf gintKmode = 2 Then
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        ‘判断数据集对象是否为空
        If mrc.EOF = False Then
            With mrc
                txtticket = .Fields(0)
                txtItem(0) = .Fields(7)
                txtItem(1) = .Fields(12)

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

            End With
        End If
        Me.Caption = Me.Caption & "修改"
    End If
    ‘清楚列表框中内容
        For i = 0 To 6
            Combo1(i).Clear
        Next i
        ‘选择数据库中所有与出发城市有关的信息
        txtSQL = "select distinct departCity from airlineInfo "
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        ‘判断数据集对象是否为空
        If Not mrcc.EOF Then
            Do While Not mrcc.EOF
                Combo1(0).AddItem mrcc.Fields(0)

本文来自think58

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

                mrcc.MoveNext
            Loop
        End If
        ‘关闭数据集对象
        mrcc.Close
        ‘选择数据库中所有与到达城市有关的信息
        txtSQL = "select distinct arrivalCity from airlineInfo"

本文来自think58 [资料来源：http://THINK58.com]

        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        ‘判断数据集对象是否为空
        If Not mrcc.EOF Then
            Do While Not mrcc.EOF
                Combo1(1).AddItem mrcc.Fields(0)
                mrcc.MoveNext
            Loop
        End If
        ‘关闭数据集对象
        mrcc.Close
        ‘选择数据库中所有与舱位等级有关的信息
        txtSQL = "select distinct serviceName from serviceInfo"
        Set mrcc = ExecuteSQL(txtSQL, MsgText) think58.com

        ‘判断数据集对象是否为空
        If Not mrcc.EOF Then
            Do While Not mrcc.EOF
                Combo1(2).AddItem mrcc.Fields(0)
                mrcc.MoveNext
            Loop
        End If
        ‘关闭数据集对象
        mrcc.Close
        ‘选择数据库中所有与客户姓名有关的信息
        txtSQL = "select distinct customerName from customerInfo"
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        ‘判断数据集对象是否为空 [来源：http://think58.com]
        If Not mrcc.EOF Then
            Do While Not mrcc.EOF
                Combo1(4).AddItem mrcc.Fields(0)
                mrcc.MoveNext
            Loop
        End If
        ‘关闭数据集对象
        mrcc.Close
    mblChange = False
End Sub
选择出发城市和到达城市，然后选择舱位类型，将自动显示票价，并用不可见文本框（txtairline、txtairline等）记载航线编号、客户编号等信息。实现代码加在列表框的Click事件中，如下： 本文来自think58

Private Sub Combo1_Click(Index As Integer)
    Dim mrcc As ADODB.Recordset
    Dim mrcd As ADODB.Recordset
    Dim MsgText As String
    ‘判断列表框编号
    If Index = 2 Then
        ‘判断出发城市和到达城市是否选择
        If Not (Trim(Combo1(0)) = "" Or Trim(Combo1(1)) = "") Then
            txtSQL = "select *  from airlineInfo where departCity = '" & Trim(Combo1(0)) & "' and arrivalCity = '" & Trim(Combo1(1)) & "'"
            Set mrcc = ExecuteSQL(txtSQL, MsgText)
            ‘判断数据集对象是否为空
            If Not mrcc.EOF Then
                txtairline = mrcc.Fields(0) copyright think58

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

                ticketCsum = mrcc!planeNO
                If Trim(Combo1(2)) = "经济舱" Then
                    Combo1(3).Clear
                    Combo1(3).AddItem mrcc.Fields(7)
                    Combo1(3).ListIndex = 0
                ElseIf Trim(Combo1(2)) = "公务舱" Then
                    Combo1(3).Clear
                    Combo1(3).AddItem mrcc.Fields(8)

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

                    Combo1(3).ListIndex = 0
                Else
                    Combo1(3).Clear
                    Combo1(3).AddItem mrcc.Fields(9)
think58.com

[资料来源：THINK58.com]