c=ExecuteSQL(txtSQL,MsgText)
UnloadfrmPlane
'重新载入所有记录,并显示出来
frmPlane.txtSQL="select*fromplaneInfo"
frmPlane.Show
EndIf
EndIf
EndSub
7.5查询客机信息
在客机信息列表中单击"查询"按钮,将出现如图9-16所示的窗体。
图9-16查询客机信息的窗体
载入窗体时,将自动加入所有客机编号和客机型号的信息,代码如下:
PrivateSubForm_Load()
DimiAsInteger
DimsSqlAsString
DimtxtSQLAsString
DimMsgTextAsString
DimmrcAsADODB.Recordset
'清楚各个列表框中的内容
Fori=0To1
Combo1(i).Clear
Nexti
'选择数据库中所有客机编号的内容
txtSQL="selectDISTINCTplaneNOfromplaneInfo"
Setmrc=ExecuteSQL(txtSQL,MsgText)
'判断数据库是否为空
IfNotmrc.EOFThen
DoWhileNotmrc.EOF
Combo1(0).AddItemTrim(mrc.Fields(0))
mrc.MoveNext
Loop
Else
MsgBox"请先进行客机信息设置!",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
mrc.Close
'选择所有数据库中有关飞机型号的内容
txtSQL="selectDISTINCTplaneTypefromplaneInfo"
Setmrc=ExecuteSQL(txtSQL,MsgText)
'判断数据集对象是否为空
IfNotmrc.EOFThen
DoWhileNotmrc.EOF
Combo1(1).AddItemTrim(mrc.Fields(0))
mrc.MoveNext
Loop
Else
MsgBox"请先进行客机信息设置!",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
'关闭数据集对象
mrc.Close
EndSub
设置完查询内容和方式后,单击cmdOK按钮将进行查询。所有满足条件的记录将显示在如图9-14所示的窗体中,代码如下:
PrivateSubcmdOK_Click()
DimsQSqlAsString
'判断是否按照客机编号查询
IfchkItem(0).Value=vbCheckedThen
sQSql="planeNO='"&Trim(Combo1(0)&"")&"'"
EndIf
'判断是否按照客机型号查询
IfchkItem(1).Value=vbCheckedThen
IfTrim(sQSql&"")=""Then
sQSql="planeType='"&Trim(Combo1(1)&"")&"'"
Else
sQSql=sQSql&"andplaneType='"&Trim(Combo1(1)&"")&"'"
EndIf
EndIf
'判断查询内容是否为空
IfTrim(sQSql)=""Then
MsgBox"请设置查询条件!",vbOKOnly+vbExclamation,"警告"
Me.Hide
ExitSub
Else
'显示所有满足查询条件的内容
frmPlane.txtSQL="select*fromplaneInfowhere"&sQSql
Me.Hide
UnloadfrmPlane
frmPlane.Show
EndIf
EndSub
8航线信息管理模块的创建
航线信息管理模块主要实现如下功能:
*添加航线信息。
*修改航线信息。
*删除航线信息。
*查询航线信息。
8.1显示航线信息窗体的创建
选择"航线信息管理|航线信息"菜单,将出现如图9-17所示的窗体。所有航线信息都将显示出来。窗体的Load事件调用ShowTitle、ShowData函数,将所有记录显示出来。
图9-17显示客机信息窗体
8.2添加航线信息窗体的创建
选择"航线信息管理|航线信息"菜单,将出现如图9-18所示的窗体,用来添加航线信息。
图9-18添加航线窗体
输入完航线信息后,单击"保存"按钮:程序首先检查输入内容是否符合要求,然后检查是否有重复记录,最后添加到数据库中。
8.3修改航线信息
在航线信息列表中选择记录,然后单击"修改"按钮。当前记录将显示在如图9-18所示的窗体中,可以进行修改。代码如下:
PrivateSubcmdModify_Click()
DimintCountAsInteger
'判断列表内容是否为空
IffrmAirline.msgList.Rows>1Then
gintAmode=2
'记载选择记录的位置
intCount=msgList.Row
IfintCount>0Then
frmAirline1.txtSQL="select*fromairlineInfowhereairlineNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"
frmAirline1.Show1
Else
MsgBox"警告",vbOKOnly+vbExclamation,"请首先选择需要修改的记录!"
EndIf
EndIf
EndSub
8.4删除航线信息
在航线信息列表中选择记录,然后单击"删除"按钮,当前记录将被删除。代码如下:
PrivateSubcmdDelete_Click()
DimtxtSQLAsString
DimintCountAsInteger
DimmrcAsADODB.Recordset
DimMsgTextAsString
'判断列表内容是否为空
IfmsgList.Rows>1Then
IfMsgBox("真的要删除"&Trim(msgList.TextMatrix(msgList.Row,4))&"从"&Trim(msgList.TextMatrix(msgList.Row,2))&"出发到"&Trim(msgList.TextMatrix(msgList.Row,3))&"的航线记录吗?",vbOKCancel+vbExclamation,"警告")=vbOKThen
'记载选择记录位置
intCount=msgList.Row
txtSQL="deletefromairlineInfowhereairlineNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"
Setmrc=ExecuteSQL(txtSQL,MsgText)
'重新载入记录并显示
UnloadfrmAirline
frmAirline.txtSQL="select*fromairlineInfo"
frmAirline.Show
EndIf
EndIf
EndSub
8.5查询航线信息
在航线信息列表中单击"查询"按钮,将出现如图9-19所示的窗体。
图9-19航线信息查询窗体
载入窗体时自动加入出发城市和到达城市的内容,代码如下:
PrivateSubForm_Load()
DimiAsInteger
DimsSqlAsString
DimtxtSQLAsString
DimMsgTextAsString
DimmrcAsADODB.Recordset
'清除列表框中的内容
Fori=0To1
Combo1(i).Clear
Nexti
'选择数据库中与出发城市有关的内容
txtSQL="selectDISTINCTdepartCityfromairlineInfo"
Setmrc=ExecuteSQL(txtSQL,MsgText)
'判断数据集是否为空
IfNotmrc.EOFThen
DoWhileNotmrc.EOF
Combo1(0).AddItemTrim(mrc.Fields(0))
mrc.MoveNext
Loop
Else
MsgBox"请先进行航线信息设置!",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
mrc.Close
txtSQL="selectDISTINCTarrivalCityfromairlineInfo"
Setmrc=ExecuteSQL(txtSQL,MsgText)
IfNotmrc.EOFThen
DoWhileNotmrc.EOF
Combo1(1).AddItemTrim(mrc.Fields(0))
mrc.MoveNext
Loop
Else
MsgBox"请先进行航线信息设置!",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
mrc.Close
EndSub
设置查询内容后,单击"确定"按钮,所有满足查询条件的内容显示在航线信息列表中。
9客户类型信息管理模块的创建
客户类型信息管理模块主要实现如下功能:
*添加客户类型信息。
*修改客户类型信息。
*删除客户类型信息。
9.1显示客户类型信息窗体的创建
选择"客户信息管理|客户类型"菜单,将出现如图9-20所示的窗体。所有客户类型信息都将显示出来。窗体的Load事件调用ShowTitle、ShowData函数,将所有记录显示出来。
图9-20显示客户类型信息窗体
9.2添加客户类型信息窗体的创建
在客户类型信息列表中单击"添加"按钮,将出现如图9-21所示的窗体,用来添加客户类型信息。
图9-21添加客户类型信息窗体
输入内容完毕,单击"保存"按钮,程序将首先检查内容是否符合要求,然后检查是否有重复记录,最后添加到数据库中。
9.3修改客户类型信息
在客户类型信息列表中选择需要修改的记录,然后单击"修改"按钮,当前记录将出现在如图9-14所示的窗体中。修改完毕,单击"保存"按钮,修改后的记录保存到数据库中。代码如下:
PrivateSubcmdModify_Click()
DimintCountAsInteger
'判断列表内容是否为空
IffrmcType.msgList.Rows>1Then
gintTmode=2
'记载选择记录的位置
intCount=msgList.Row
'判断是否选择记录
IfintCount>0Then
'显示需要修改的记录
frmcType1.txtSQL="select*fromcustomerTypewherectypeNO='"&Trim(msgList.TextMatrix(intCount,1))&"'"
frmcTyp
上一篇:
VB航空公司管理信息系统(毕业论文+程序)(论文和程序)
下一篇:
高校毕业生档案管理系统的研究和运用