DoWhileNotmrc.EOF
Combo1(1).AddItemmrc.Fields(0)
mrc.MoveNext
Loop
EndIf
mrc.Close
'选择所有与舱位类型有关的信息
txtSQL="selectdistinctserviceNamefromserviceInfo"
Setmrc=ExecuteSQL(txtSQL,MsgText)
'判断数据集对象是否为空
IfNotmrc.EOFThen
DoWhileNotmrc.EOF
Combo1(2).AddItemmrc.Fields(0)
mrc.MoveNext
Loop
EndIf
mrc.Close
EndSub
输入查询内容完毕,单击"确定"按钮将自动组合产生查询语句。满足查询条件的记录显示在如图9-25所示的机票信息列表中,代码如下:
PrivateSubcmdOK_Click()
DimtxtSQLAsString
DimMsgTextAsString
DimmrcAsADODB.Recordset
DimintCountAsInteger
DimsMegAsString
Dimi,j,k
'判断是否选择相应信息
ForintCount=0To1
IfTrim(Combo1(intCount)&"")=""Then
SelectCaseintCount
Case0
sMeg="出发城市"
Case1
sMeg="到达城市"
EndSelect
sMeg=sMeg&"不能为空!"
MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"
Combo1(intCount).SetFocus
ExitSub
EndIf
NextintCount
'判断是否输入查询日期
IfTrim(txtItem(0))=""Then
sMeg="出发日期不能为空!"
MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"
txtItem(0).SetFocus
ExitSub
EndIf
'判断输入查询日期是否为日期型数据
IfIsDate(txtItem(0))Then
txtItem(0)=Format(txtItem(0),"yyyy-mm-dd")
Else
MsgBox"时间应输入日期(yyyy-mm-dd)!",vbOKOnly+vbExclamation,"警告"
txtItem(0).SetFocus
ExitSub
EndIf
'判断是否输入舱位类型
IfNot(Trim(Combo1(2))="")Then
txtSQL="select*fromticketInfowhereticketDate='"&Trim(txtItem(0))&"'anddepartCity='"&Trim(Combo1(0))&"'andarrivalCity='"&Trim(Combo1(1))&"'andserviceType='"&Trim(Combo1(2))&"'"
'执行查询语句
Setmrc=ExecuteSQL(txtSQL,MsgText)
'计算经济舱剩余机票数量
IfTrim(Combo1(2))="经济舱"Then
intCount=ticketCsum-mrc.RecordCount
'计算公务舱剩余机票数量
ElseIfTrim(Combo1(2))="公务舱"Then
intCount=ticketMsum-mrc.RecordCount
Else
intCount=ticketFsum-mrc.RecordCount
EndIf
'判断机票剩余数量
IfintCount>0Then
MsgBoxTrim(txtItem(0))&"从"&Trim(Combo1(0))&"到"&Trim(Combo1(1))&Trim(Combo1(2))&"的机票还有"&intCount&"张!",vbOKOnly+vbExclamation,"机票信息"
Else
MsgBox"对不起,"&Trim(txtItem(0))&"从"&Trim(Combo1(0))&"到"&Trim(Combo1(1))&Trim(Combo1(2))&"的航班已经满员,请预定其他航班!",vbOKOnly+vbExclamation,"机票信息"
EndIf
Else
txtSQL="select*fromticketInfowhereticketDate='"&Trim(txtItem(0))&"'anddepartCity='"&Trim(Combo1(0))&"'andarrivalCity='"&Trim(Combo1(1))&"'andserviceType='经济舱'"
'执行查询语句
Setmrc=ExecuteSQL(txtSQL,MsgText)
i=mrc.RecordCount
'关闭数据集对象
mrc.Close
txtSQL="select*fromticketInfowhereticketDate='"&Trim(txtItem(0))&"'anddepartCity='"&Trim(Combo1(0))&"'andarrivalCity='"&Trim(Combo1(1))&"'andserviceType='公务舱'"
Setmrc=ExecuteSQL(txtSQL,MsgText)
'关闭数据集对象
mrc.Close
'查询头等舱座位数量
txtSQL="select*fromticketInfowhereticketDate='"&Trim(txtItem(0))&"'anddepartCity='"&Trim(Combo1(0))&"'andarrivalCity='"&Trim(Combo1(1))&"'andserviceType='头等舱'"
Setmrc=ExecuteSQL(txtSQL,MsgText)
k=mrc.RecordCount
mrc.Close
MsgBoxTrim(txtItem(0))&"从"&Trim(Combo1(0))&"到"&Trim(Combo1(1))&"经济舱的机票还有"&(ticketCsum-i)&"张,公务舱的机票还有"&(ticketMsum-j)&"张,头等舱的机票还有"&(ticketFsum-k)&"张!",vbOKOnly+vbExclamation,"机票信息"
EndIf
UnloadMe
EndSub
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所示的窗体,输入订票信息。
图9-38添加订票信息
单击"保存"按钮,出现如图9-39所示的对话框提示订票成功。
图9-39订票提示信息
在机票信息列表中,单击"查询"按钮,出现如图9-40所示的窗体,输入查询内容,可以得到剩余机票信息。
图9-40机票信息查询窗体
查询结果如图9-41所示。
图9-41机票信息查询结果
13系统的编译和发行
完成了航空公司管理信息系统的编程和调试工作,最后一步就是该系统的编译和发行。这涉及到工程项目属性的设置、可执行应用程序的生成。
在系统的编译和发行以前,需要设置工程项目的属性。选择"Project|MIS_TICKETProperties"菜单,进行属性设置,如图9-42所示。
最后选择"File|MakeMIS_TICKET.exe"菜单,编译开始。编译完毕后,即生成了相应的可执行文件。编译通过后,生成可执行文件Mis_TICKET.exe。我们需要在发行前对生成的可执行文件进行测试。通过测试的可执行文件,就可以进行发布了。
图9-42进行项目的属性设置
14小结
一个完整的航空公司管理信息系统就创建完毕了。在本设计中我们详细地讲述了该航空公司管理信息系统的系统设计部分,包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架,各个功能模块实现各个细节部分。
??
??
??
??
18电子邮箱:
vb航空公司管理系统(论文和程序)为[网学网-网友上传,谢谢支持]。手机:
-476-
上一篇:
VB航空公司管理信息系统(毕业论文+程序)(论文和程序)
下一篇:
法律专业开题报告范文