e1.Show1
Else
MsgBox"警告",vbOKOnly+vbExclamation,"请首先选择需要修改的记录!"
EndIf
EndIf
EndSub
9.4删除客户类型信息
选择客户类型信息列表中需要删除的记录,然后单击"删除"按钮,可以删除所选记录。代码如下:
PrivateSubcmdDelete_Click()
DimtxtSQLAsString
DimintCountAsInteger
DimmrcAsADODB.Recordset
DimMsgTextAsString
'判断列表内容是否为空
IfmsgList.Rows>1Then
'提示信息
IfMsgBox("真的要删除客户种类为"&Trim(msgList.TextMatrix(msgList.Row,2))&"的记录吗?",vbOKCancel+vbExclamation,"警告")=vbOKThen
'记载选择记录的位置
intCount=msgList.Row
'删除记录
txtSQL="deletefromcustomerTypewherectypeNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"
Setmrc=ExecuteSQL(txtSQL,MsgText)
'卸载窗体
UnloadfrmcType
'选择所有记录
frmcType.txtSQL="select*fromcustomerType"
'显示窗体
frmcType.Show
EndIf
EndIf
EndSub
10客户信息管理模块的创建
客户信息管理模块主要实现如下功能:
*添加客户信息。
*修改客户信息。
*删除客户信息。
*查询客户信息。
10.1显示客户信息窗体的创建
选择"客户信息管理|客户信息"菜单,将首先出现如图9-22所示的窗体。所有客户类型信息都将显示出来。窗体的Load事件调用ShowTitle、ShowData函数,将所有记录显示出来。
图9-22显示客户信息窗体
10.2添加客户信息窗体的创建
在客户信息列表中单击"添加"按钮,将出现如图9-23所示的窗体,用来添加客户信息。
图9-23添加客户信息窗体
输入内容完毕,单击"保存"按钮,程序将首先检查内容是否符合要求,然后检查是否有重复记录,最后添加到数据库中。
10.3修改客户信息
在客户信息列表中选择需要修改的记录,然后单击"修改"按钮,当前记录将出现在如图9-23所示的窗体中。修改完毕,单击"保存"按钮,修改后的记录保存到数据库中。代码如下:
PrivateSubcmdModify_Click()
DimintCountAsInteger
'判断列表内容是否为空
IffrmCustomer.msgList.Rows>1Then
gintCmode=2
'记载选择记录的位置
intCount=msgList.Row
'判断是否选择记录
IfintCount>0Then
'选择点击记录
frmCustomer1.txtSQL="select*fromcustomerInfowherecustomerNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"
'显示
frmCustomer1.Show1
Else
'提示信息
MsgBox"警告",vbOKOnly+vbExclamation,"请首先选择需要修改的记录!"
EndIf
EndIf
EndSub
10.4删除客户信息
选择客户信息列表中需要删除的记录,然后单击"删除"按钮,可以删除所选记录。代码如下:
PrivateSubcmdDelete_Click()
DimtxtSQLAsString
DimintCountAsInteger
DimmrcAsADODB.Recordset
DimMsgTextAsString
'判断列表内容是否为空
IfmsgList.Rows>1Then
IfMsgBox("真的要删除客户姓名为"&Trim(msgList.TextMatrix(msgList.Row,2))&"的客户记录吗?",vbOKCancel+vbExclamation,"警告")=vbOKThen
'记载选择记录的位置
intCount=msgList.Row
'删除当前记录
txtSQL="deletefromcustomerInfowherecustomerNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"
'执行查询语句
Setmrc=ExecuteSQL(txtSQL,MsgText)
'卸载客户信息列表
UnloadfrmCustomer
'选择所有记录
frmCustomer.txtSQL="select*fromcustomerInfo"
'显示
frmCustomer.Show
EndIf
EndIf
EndSub
10.5查询客户信息
在如图9-22所示的客户信息列表中,单击"查询"按钮,出现如图9-24所示的对话框。
图9-24客户信息查询窗体
客户信息查询窗体在载入时所有客户信息自动加入到查询内容中。选择合适的查询方式,满足查询条件的记录显示在如图9-22所示的客户信息列表中。
11订票信息管理模块的创建
订票信息管理模块主要实现如下功能:
*添加订票信息。
*修改订票信息。
*删除订票信息。
*查询剩余机票信息。
11.1显示订票信息窗体的创建
选择"票务信息管理|订票信息"菜单,将首先出现如图9-25所示的窗体。所有订票类型信息都将显示出来。窗体的Load事件调用ShowTitle、ShowData函数,将所有记录显示出来。
图9-25显示机票信息的窗体
11.2添加订票信息窗体的创建
在机票信息列表中单击"添加"按钮,将出现如图9-26所示的窗体,用来添加订票信息。
图9-26添加订票信息的窗体
机票信息包括两部分:航线信息和客户信息。选择出发城市和到达城市,将得到相应的航线信息;选择客户姓名得到相应的客户信息。窗体载入时要求在列表框中加入所有有关航线和客户的信息,代码如下:
PrivateSubForm_Load()
DimintCountAsInteger
DimMsgTextAsString
DimiAsInteger
DimmrccAsADODB.Recordset
'判断所处状态,添加或者修改
IfgintKmode=1Then
Me.Caption=Me.Caption&"添加"
'产生随机的订票编号
txtticket=GetRkno()
ElseIfgintKmode=2Then
Setmrc=ExecuteSQL(txtSQL,MsgText)
'判断数据集对象是否为空
Ifmrc.EOF=FalseThen
Withmrc
txtticket=.Fields(0)
txtItem(0)=.Fields(7)
txtItem(1)=.Fields(12)
EndWith
EndIf
Me.Caption=Me.Caption&"修改"
EndIf
'清楚列表框中内容
Fori=0To6
Combo1(i).Clear
Nexti
'选择数据库中所有与出发城市有关的信息
txtSQL="selectdistinctdepartCityfromairlineInfo"
Setmrcc=ExecuteSQL(txtSQL,MsgText)
'判断数据集对象是否为空
IfNotmrcc.EOFThen
DoWhileNotmrcc.EOF
Combo1(0).AddItemmrcc.Fields(0)
mrcc.MoveNext
Loop
EndIf
'关闭数据集对象
mrcc.Close
'选择数据库中所有与到达城市有关的信息
txtSQL="selectdistinctarrivalCityfromairlineInfo"
Setmrcc=ExecuteSQL(txtSQL,MsgText)
'判断数据集对象是否为空
IfNotmrcc.EOFThen
DoWhileNotmrcc.EOF
Combo1(1).AddItemmrcc.Fields(0)
mrcc.MoveNext
Loop
EndIf
'关闭数据集对象
mrcc.Close
'选择数据库中所有与舱位等级有关的信息
txtSQL="selectdistinctserviceNamefromserviceInfo"
Setmrcc=ExecuteSQL(txtSQL,MsgText)
'判断数据集对象是否为空
IfNotmrcc.EOFThen
DoWhileNotmrcc.EOF
Combo1(2).AddItemmrcc.Fields(0)
mrcc.MoveNext
Loop
EndIf
'关闭数据集对象
mrcc.Close
'选择数据库中所有与客户姓名有关的信息
txtSQL="selectdistinctcustomerNamefromcustomerInfo"
Setmrcc=ExecuteSQL(txtSQL,MsgText)
'判断数据集对象是否为空
IfNotmrcc.EOFThen
DoWhileNotmrcc.EOF
Combo1(4).AddItemmrcc.Fields(0)
mrcc.MoveNext
Loop
EndIf
'关闭数据集对象
mrcc.Close
mblChange=False
EndSub
选择出发城市和到达城市,然后选择舱位类型,将自动显示票价,并用不可见文本框(txtairline、txtairline等)记载航线编号、客户编号等信息。实现代码加在列表框的Click事件中,如下:
PrivateSubCombo1_Click(IndexAsInteger)
DimmrccAsADODB.Recordset
DimmrcdAsADODB.Recordset
DimMsgTextAsString
'判断列表框编号
IfIndex=2Then
'判断出发城市和到达城市是否选择
IfNot(Trim(Combo1(0))=""OrTrim(Combo1(1))="")Then
txtSQL="select*fromairlineInfowheredepartCity='"&Trim(Combo1(0))&"'andarrivalCity='"&Trim(Combo1(1))&"'"
Setmrcc=ExecuteSQL(txtSQL,MsgText)
上一篇:
VB航空公司管理信息系统(毕业论文+程序)(论文和程序)
下一篇:
关于XX镇中小企业电子商务应用发展趋势的研究