VB航空公司管理信息系统 第7页
  Next intCount
    ‘判断输入内容是否为数字
    If Not IsNumeric(Trim(txtItem(0))) Then
        sMeg = "机舱等级编号"
        sMeg = sMeg & "请输入数字！"
        MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
        txtItem(0).SetFocus
    End If
    '添加判断是否有相同的ID记录
    If gintSmode = 1 Then
        txtSQL = "select * from serviceInfo where serviceNO='" & Trim(txtItem(0)) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF = False Then
            MsgBox "已经存在此编号的记录！", vbOKOnly + vbExclamation, "警告"
            txtItem(0).SetFocus
            Exit Sub
        End If
        mrc.Close
    End If
    '判断是否有相同内容的记录
    txtSQL = "select * from serviceInfo where serviceNO<>'" & Trim(txtItem(0)) & "' and serviceName='" & Trim(txtItem(1)) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = False Then
        MsgBox "已经存在相同机舱等级的记录！", vbOKOnly + vbExclamation, "警告"
        txtItem(1).SetFocus
        Exit Sub
    End If
    '先删除已有记录
    txtSQL = "delete from serviceInfo where serviceNO='" & Trim(txtItem(0)) & "'"

    Set mrc = ExecuteSQL(txtSQL, MsgText)
    '再加入新记录
    txtSQL = "select * from serviceInfo"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.AddNew
    For intCount = 0 To 1
        mrc.Fields(intCount) = Trim(txtItem(intCount))
    Next intCount
    For intCount = 0 To 7
        mrc.Fields(intCount + 2) = Trim(Combo1(intCount))
    Next intCount
    mrc.Fields(10) = Trim(txtItem(2))
    ‘更新数据集内容
    mrc.Update
    ‘关闭数据集内容
    mrc.Close
    If gintSmode = 1 Then
        MsgBox "添加记录成功！", vbOKOnly + vbExclamation, "添加记录"
        For intCount = 0 To 1
            txtItem(intCount) = ""
        Next intCount
        For intCount = 0 To 3
            Combo1(intCount).ListIndex = 0
        Next intCount
        txtItem(2) = ""
        mblChange = False
        Unload frmService
        frmService.txtSQL = "select * from serviceInfo"
        frmService.Show
    ElseIf gintSmode = 2 Then
        Unload Me
        Unload frmService
        frmService.txtSQL = "select * from serviceInfo"
        frmService.Show
    End If
End Sub
6.3 修改舱位等级信息
在舱位等级信息列表中选择需要修改的记录，然后单击“修改”按钮，将出现如图9-13所示的窗体。选择记录的内容将显示在窗体中，可以进行修改，最后保存修改后的记录。代码如下：
Private Sub cmdModify_Click()
    Dim intCount As Integer
    判断列表中是否有记录
    If frmService.msgList.Rows > 1 Then
        ‘改变状态变量
        gintSmode = 2
        ‘记录选择记录位置
        intCount = msgList.Row
        If intCount > 0 Then
           frmService1.txtSQL = "select * from serviceInfo where serviceNO ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
           frmService1.Show 1
        Else
            MsgBox "警告", vbOKOnly + vbExclamation, "请首先选择需要修改的记录！"
        End If
    End If
End Sub
6.4 删除舱位等级信息
在舱位等级信息列表中选择需要删除的记录，然后单击“删除”按钮，将删除当前记录，代码如下：
Private Sub cmdDelete_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    ‘判断信息列表中内容是否为空
    If msgList.Rows > 1 Then
       ‘提示信息
        If MsgBox("真的要删除机舱等级为" & Trim(msgList.TextMatrix(msgList.Row, 2)) & "的记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
            ‘记录选择记录位置
            intCount = msgList.Row
           ‘删除重复记录
            txtSQL = "delete from serviceInfo where serviceNO ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
           ‘卸载窗体
            Unload frmService
            ‘重新载入记录并显示
            frmService.txtSQL = "select * from serviceInfo"
            frmService.Show
        End If
    End If
End Sub
7 客机信息管理模块的创建
客机信息管理模块主要实现如下功能：
 添加客机信息。
 修改客机信息。
 删除客机信息。
 查询客机信息。
7.1 显示客机信息窗体的创建
选择“航线信息管理|客机信息”菜单，将出现如图9-14所示的窗体。所有客机信息都将显示出来。窗体的Load事件调用ShowTitle、ShowData函数，将所有记录显示出来。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>