【導(dǎo)讀】第一章引言……………………§VISUALBASIC數(shù)據(jù)庫體系結(jié)構(gòu)………………§業(yè)務(wù),數(shù)據(jù)流程圖………平要求也必須不斷地提高。采用日趨成熟的數(shù)據(jù)庫技術(shù)和管理信息系統(tǒng)理論建立管理信息系。統(tǒng)，對(duì)于企業(yè)就顯得日益迫切和必要。用是對(duì)所有待售機(jī)票和已售機(jī)票進(jìn)行有效的管理。除，打印等工作，使售票人員能夠有效地對(duì)機(jī)票進(jìn)行有效的控制和管理。題及應(yīng)用前景作了闡述。統(tǒng)維護(hù)和系統(tǒng)評(píng)價(jià)，展望介紹了本航空公司管理信息系統(tǒng)的開發(fā)全過程。作為企業(yè)管理的重要一環(huán)，建立現(xiàn)代化的信息系統(tǒng)是時(shí)代和企業(yè)發(fā)展。舊的人工管理已經(jīng)遠(yuǎn)遠(yuǎn)不能滿足人們對(duì)大量信息進(jìn)行復(fù)雜處理的要求，采用日趨成。第二章論述了開發(fā)航空管理。第三章從管理系統(tǒng)開發(fā)的理論出發(fā)，在對(duì)航空公司售票情況調(diào)查的基。礎(chǔ)上提出了新系統(tǒng)的邏輯模型。第四章采用了面向?qū)ο蟮南到y(tǒng)設(shè)計(jì)方法和理論，提出了系統(tǒng)。第五章闡述了系統(tǒng)實(shí)施的基本方案，并給出了部分運(yùn)行結(jié)果。評(píng)指正，提出寶貴意見。

　　

【正文】 = 1 39。設(shè)置各列的對(duì)齊方式 For i = 0 To 13 .ColAlignment(i) = 0 Next i 39。表頭項(xiàng)居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 0 .ColWidth(2) = 0 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 0 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .ColWidth(11) = 1000 .ColWidth(12) = 1000 .ColWidth(13) = 2021 .Row = 1 End With End Sub Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 39。右鍵彈出 If Button = 2 And Shift = 0 Then End If End Sub 機(jī)票查詢信息程序代碼： Option Explicit Private Sub cmdExit_Click() End Sub Private Sub cmdOK_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As Dim intCount As Integer Dim sMeg As String Dim i, j, k For intCount = 0 To 1 If Trim(Combo1(intCount) amp。 ) = Then Select Case intCount Case 0 sMeg = 出發(fā)城市 Case 1 sMeg = 到達(dá)城市 End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Combo1(intCount).SetFocus Exit Sub End If Next intCount If Trim(txtItem(0)) = Then sMeg = 出發(fā)日期不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If If IsDate(txtItem(0)) Then txtItem(0) = Format(txtItem(0), yyyymmdd) Else MsgBox 時(shí)間應(yīng)輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If If Not (Trim(Combo1(2)) = ) Then txtSQL = select * from ticketInfo where 出發(fā)日期 = 39。 amp。 Trim(txtItem(0)) amp。 39。 and 出發(fā)城市 = 39。 amp。 Trim(Combo1(0)) amp。 39。 and 到達(dá)城市 = 39。 amp。 Trim(Combo1(1)) amp。 39。 and 艙位類型 = 39。 amp。 Trim(Combo1(2)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If Trim(Combo1(2)) = 經(jīng)濟(jì)艙 Then intCount = ticketCsum ElseIf Trim(Combo1(2)) = 公務(wù)艙 Then intCount = ticketMsum Else intCount = ticketFsum End If If intCount 0 Then MsgBox Trim(txtItem(0)) amp。 從 amp。 Trim(Combo1(0)) amp。 到 amp。 Trim(Combo1(1)) amp。 Trim(Combo1(2)) amp。 的機(jī)票還有 amp。 intCount amp。 張 !, vbOKOnly + vbExclamation, 機(jī)票信息 Else MsgBox 對(duì)不起 , amp。 Trim(txtItem(0)) amp。 從 amp。 Trim(Combo1(0)) amp。 到 amp。 Trim(Combo1(1)) amp。 Trim(Combo1(2)) amp。 的航班已經(jīng)滿員，請(qǐng)預(yù)定其它航班！ , vbOKOnly + vbExclamation, 機(jī)票信息 End If Else txtSQL = select * from ticketInfo where 出發(fā)日期 = 39。 amp。 Trim(txtItem(0)) amp。 39。 and 出發(fā)城市 = 39。 amp。 Trim(Combo1(0)) amp。 39。 and 到達(dá)城市 = 39。 amp。 Trim(Combo1(1)) amp。 39。 and 艙位類型 = 39。經(jīng)濟(jì)艙 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) i = txtSQL = select * from ticketInfo where 出發(fā)日期 = 39。 amp。 Trim(txtItem(0)) amp。 39。 and 出發(fā)城市 = 39。 amp。 Trim(Combo1(0)) amp。 39。 and 到達(dá)城市 = 39。 amp。 Trim(Combo1(1)) amp。 39。 and 艙位類型 = 39。公務(wù)艙 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) j = txtSQL = select * from ticketInfo where 出發(fā)日期 = 39。 amp。 Trim(txtItem(0)) amp。 39。 and 出發(fā)城市 = 39。 amp。 Trim(Combo1(0)) amp。 39。 and 到達(dá)城市 = 39。 amp。 Trim(Combo1(1)) amp。 39。 and 艙位類型 = 39。頭等艙 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) k = MsgBox Trim(txtItem(0)) amp。 從 amp。 Trim(Combo1(0)) amp。 到 amp。 Trim(Combo1(1)) amp。 經(jīng)濟(jì)艙的機(jī)票還有 amp。 (ticketCsum i) amp。 張 ,公務(wù)艙的機(jī)票還有 amp。 (ticketMsum j) amp。 張，頭等艙的機(jī)票還有 amp。 (ticketFsum k) amp。 張！ , vbOKOnly + vbExclamation, 機(jī)票信息 End If Unload Me End Sub Private Sub Combo1_Click(Index As Integer) Dim mrcc As Dim MsgText As String Dim txtSQL As String If Index = 1 Then If Not (Trim(Combo1(0)) = ) Then txtSQL = select * from airlineInfo where 出發(fā)城市 = 39。 amp。 Trim(Combo1(0)) amp。 39。 and 到達(dá)城市 = 39。 amp。 Trim(Combo1(1)) amp。 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not Then ticketCsum = mrcc!客機(jī)編號(hào) End If txtSQL = select * from planeInfo where 客機(jī)編號(hào) = 39。 amp。 Trim(ticketCsum ) amp。 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not Then ticketCsum = (4) ticketMsum = (5) ticketFsum = (6) End If End If End If End Sub Private Sub Form_Load() Dim i As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As For i = 0 To 2 Combo1(i).Clear Next i txtSQL = select distinct 出發(fā)城市 from airlineInfo Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not Combo1(0).AddItem (0) Loop End If txtSQL = select distinct 到達(dá)城市 from airlineInfo Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not Combo1(1).AddItem (0) Loop End If txtSQL = select distinct 艙位等級(jí)名稱 from serviceInfo Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not Combo1(2).AddItem (0) Loop End If End Sub Private Sub txtItem_