軟件工程課程設計航空售票系統(編輯修改稿)

　

【文章內容簡介】 , [customerName] [char] (50) COLLATE Chinese_PRC_CI_AS NULL , [customerType] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , [discount] [numeric](18, 0) NULL , [airlineNO] [char] (14) COLLATE Chinese_PRC_CI_AS NULL , [departCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [arrivalCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , 15 [ticketDate] [datetime] NULL , [serviceType] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [ticketPrice] [numeric](18, 2) NULL , [ticketSum] [numeric](18, 2) NULL , [ticketMemo] [text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] 航空公司管理信息系統主窗體的創建 創建公用模塊 函數，用以執行各種 SQL 語句。添加函數 ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。執行 SQL 語句，并返回記錄集對象 ‘聲明一個連接 Dim n As ‘聲明一個數據集對象 Dim rst As Dim sTokens() As String 39。異常處理 On Error GoTo ExecuteSQL_Error 39。用 Split 函數產生一個包含各個子串的數組 sTokens = Split(SQL) ‘創建一個連接 Set n = New 39。打開連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執行查詢語句 16 SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 39。get RecordCount 39。返回記錄集對象 Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤 : amp。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL 函數中使用了 Connect String 函數，這個函數用來連接數據庫，代碼如下： Public Function ConnectString() _ As String 39。返回一個數據庫連接 ConnectString = FileDSN=。UID=sa。PWD= End Function 17 艙位信息管理模塊的創 建 代碼如下： Private Sub menuCarbin_Click() = select * from serviceInfo 0 End Sub 窗體的 Show 方法后面加上 0 或者 1，可以得到不同的窗體顯示方式。參數為 0 時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數為 1時，顯示的窗體為有模式形式，窗體切換時必須進行相關操作。 載入窗體時將自動顯示各條記錄，代碼如下： Private Sub Form_Load() ShowTitle ShowData End Sub 函數 ShowTitle 用來顯示表頭，代碼如下： Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 12 .TextMatrix(0, 1) = 等級編號 .TextMatrix(0, 2) = 機艙等級 .TextMatrix(0, 3) = 是否有禮品 .TextMatrix(0, 4) = 是否有報紙 .TextMatrix(0, 5) = 是否有飲料 .TextMatrix(0, 6) = 是否有午餐 .TextMatrix(0, 7) = 是否提供電影 .TextMatrix(0, 8) = 是否可以改簽 .TextMatrix(0, 9) = 是否可以退票 18 .TextMatrix(0, 10) = 是否可以打折 .TextMatrix(0, 11) = 備注信息 39。固定表頭 .FixedRows = 1 39。設置各列的對齊方式 For i = 0 To 11 .ColAlignment(i) = 0 Next i 39。表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。設置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2020 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .ColWidth(11) = 1000 .Row = 1 End With 19 End Sub 函數 ShowData 把各條記錄加到表格中，并顯示出來，代碼如下： Private Sub ShowData() Dim j As Integer Dim i As Integer Dim MsgText As String ‘獲得數據集 Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = 1 ‘判斷是否為空 Do While Not ‘移動到下一行 .Rows = .Rows + 1 ‘循環 For i = 1 To ‘判斷是否為空 If Not IsNull(Trim((i 1))) Then ‘根據數據類型顯示 Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 End Select End If Next I ‘移動到下一條記錄 20 Loop End With ‘關閉數據集對象 End Sub 在窗體顯示時，可以控制窗體中各個控件按照要求的位置顯示。可以在窗體的Resize 事件中加入代碼，代碼如下： Private Sub Form_Resize() ‘判斷當前窗體所處的狀態，當前窗體不處于最小化狀態并且主窗體不處于最小化狀態時進行后面的操作 If vbMinimized And vbMinimized Then 39。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。控制控件的位置 = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500