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] ... 下一页 >>