VB航空公司管理信息系统 第15页
Trim(Combo1(2)) & "的机票还有" & intCount & "张!", vbOKOnly + vbExclamation, "机票信息"
Else
MsgBox "对不起," & Trim(txtItem(0)) & "从" & Trim(Combo1(0)) & "到" & Trim(Combo1(1)) & Trim(Combo1(2)) & "的航班已经满员，请预定其他航班！", vbOKOnly + vbExclamation, "机票信息"
End If
Else
txtSQL = "select * from ticketInfo where ticketDate = '" & Trim(txtItem(0)) & "' and departCity = '" & Trim(Combo1(0)) & "' and arrivalCity = '" & Trim(Combo1(1)) & "' and serviceType = '经济舱'"
‘执行查询语句
Set mrc = ExecuteSQL(txtSQL, MsgText)
i = mrc.RecordCount
‘关闭数据集对象
mrc.Close
txtSQL = "select * from ticketInfo where ticketDate = '" & Trim(txtItem(0)) & "' and departCity = '" & Trim(Combo1(0)) & "' and arrivalCity = '" & Trim(Combo1(1)) & "' and serviceType = '公务舱'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
‘关闭数据集对象
mrc.Close
‘查询头等舱座位数量
txtSQL = "select * from ticketInfo where ticketDate = '" & Trim(txtItem(0)) & "' and departCity = '" & Trim(Combo1(0)) & "' and arrivalCity = '" & Trim(Combo1(1)) & "' and serviceType = '头等舱'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
k = mrc.RecordCount
mrc.Close
MsgBox Trim(txtItem(0)) & "从" & Trim(Combo1(0)) & "到" & Trim(Combo1(1)) & "经济舱的机票还有" & (ticketCsum - i) & "张,公务舱的机票还有" & (ticketMsum - j) & "张，头等舱的机票还有" & (ticketFsum - k) & "张！", vbOKOnly + vbExclamation, "机票信息"
End If
Unload Me
End Sub
12 系统的实现
现在已经完成了程序各个功能模块的创建，现在来运行整个系统。运行程序，出现如图9-28所示的登录窗口。
图9-28 用户登录窗口
输入用户名和密码后，进入系统。选择“航线信息管理|舱位信息”菜单，出现如图9-29所示的窗体。
图9-29 显示舱位信息窗体
选择“航线信息管理|客机信息”菜单，将显示所有客机信息，如图9-30所示。
图9-30 显示客机信息的窗体
在客机信息列表中单击“添加”按钮，出现如图9-31所示的窗体，在其中输入客机信息。
图9-31 添加客机信息
选择“航线信息管理|航线信息”菜单，出现如图9-32所示的航线信息列表。
图9-32 航线信息列表
在航线信息列表中单击“添加”按钮，并输入航线内容，如图9-33所示。
图9-33 添加航线信息
在航线信息列表中单击“查询”按钮，并设置查询内容，如图9-34所示。
图9-34 查询航线信息窗体
航线查询结果如图9-35所示。
图9-35 航线信息查询结果
选择“客户信息管理|客户信息”菜单，并输入客户信息，如图9-36所示。
图9-36 添加客户信息
选择“订票信息管理|订票信息”菜单，出现如图9-37所示的机票信息列表。
图9-37 机票信息列表
在机票信息列表中单击“添加”按钮，出现如图9-38所示的窗体，输入订票信息。
<< 上一页 [11] [12] [13] [14] [15] [16] 下一页