毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VB航空公司管理信息系统 第7页

更新时间:2010-3-7:  来源:毕业论文
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]  ... 下一页  >> 

VB航空公司管理信息系统 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。