【導讀】在信息時代的今天，由計算機科學的推進使得機器自動化、一體化成為普遍。發(fā)展，人們更應該多了解或學習一些有關的知識來淵博自己。推動各單位管理體系走向科學化、規(guī)范化的必要條件。隨著社會的發(fā)展及知識經。濟時代的到來，管理信息系統(tǒng)在各行各業(yè)發(fā)揮著越來越重要的作用。航班售票管理系統(tǒng)除了克服儲存乘客信息數據少、查詢。客以及售票人員帶來了極大方便。統(tǒng)的設計開發(fā)的全過程。包括系統(tǒng)整體設計、邏輯框架與數據流程、各個功能模。塊劃分，系統(tǒng)功能模塊的設計與具體實現等部分。因此，本課程設計便利用開發(fā)工具VisualFoxpro開發(fā)一個民航售票管。析，并由此設計出數據庫結構和應用程序。使得該系統(tǒng)既能便民（使得廣大客戶。足不出戶通過網絡輕松訂退票），又能為航空公司帶來一定的經濟收益。是一款簡便易用、功能多樣的軟件，可通過Inter等方式連接計算機，實現遠程相關同步數據的查詢與及時更新。進行輸入，對航班信息進行快速查詢和統(tǒng)計等一系列規(guī)范化管理。

　　

【正文】 限認證表單 圖 32 權限認證表單 ○1 “確認權限” .click locate all for alltrim(密碼表 .用戶姓名 )==alltrim() if found() if alltrim()==alltrim(密碼表 .用戶密碼 ) 31 do form D:\航班售票管理系統(tǒng) \FORMS\系統(tǒng)主表單 .scx else =+1 if =3 messagebox(口令不正確 !+chr(13)+對不起 ,你無權使用 !,48,登錄信息 ) release thisform else messagebox(口令不正確 !請重新輸入 !,48,登錄信息 ) = endif endif endif 該過程代碼用于對選定用戶的權限進行判斷，在通過權限認證 之后進入系統(tǒng)主表單，如果權限不能通過，則系統(tǒng)自動統(tǒng)計認證的次數，并顯示相關的信息。 ○2 “返回” .click （ 3）系統(tǒng)主表單 圖 33 航班管理系統(tǒng)總控界面 ○1 “乘客訂票購票表單” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 乘客訂票購票表單 .scx 32 ○ 2 “乘客查詢與退票表 單” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 乘客查詢與退票表單 .scx ○3 “飛行時刻查詢表單” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 飛行時刻查詢表單 .scx ○4 “系統(tǒng)維護選擇表單” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 系統(tǒng)維護選擇表單 .scx ○5 “航班售票收入統(tǒng) 計” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 航班售票收入統(tǒng)計表單 .scx ○6 結束操作 .click messagebox(真的要退出嗎 ?,0+4+0,) t=messagebox(真的要退出嗎 ?,0+4+0,) if t=6 quit endif 該過程代碼兩次提示用戶是否真正要退出系統(tǒng)。 （ 4）乘客訂票購票表單 ○ 1 “前一航班” .click sele 航班信息數據表 if reo()1 skip 1 else messagebox(已經為第一個航班號記錄 !) endif 該過程代碼永遠選擇航班號。 ○ 2 “下一航班” .click sele 航班信息數據表 if not eof() skip else messagebox(已經是最后一個航班的記錄 !) endif 該過程代碼用于講當前航班切換到下一航班，從而供售票人員選擇航班。 33 圖 34 航班售票訂票窗口 ○3 “新乘客訂票” .click sele 乘客信息數據表 if =新乘客訂票 =保存新乘客記錄 =str(reo()) .setfocus append blank else =新乘客訂票 =修改訂票記錄 endif sele 航班座位等級分配與座位占用表 locate all for alltrim( 航 班 座 位 等 級 分 配 與 座 位 占 用 表 . 座位號 )==alltrim( .) =* 該過程代碼用于添加新乘客訂票記錄的按鈕。 注意：該命令按鈕用于在 “乘客信息數據表”中增加一條新的乘客訂票記錄，并具有保存記錄的功能；同時，在確認乘客訂票之后，將會給相關的座位作上占用標記“ *”（自動的） ○ 4 “修改訂票記錄” .click if =修改訂票記錄 =取消修改 =保存修改 =str(reo()) else =修改訂票記錄 =新乘客訂票 tablerevert() 34 endif go val() 該過程代碼在執(zhí)行時可以將記錄置于修改的狀態(tài)，并將本命令按鈕置于“取消修改”狀態(tài)。若無保存修改的必要，可以取消修改，恢復原來的記錄，這樣可供用戶進行選擇操作，然后將前一個命令按鈕置于保存狀態(tài)，可以對修改 的記錄進行保存。 ○ 5 “備份數據” .click sele 乘客信息數據表 copy to D:\航班售票管理系統(tǒng) \DATA\temp 該過程代碼在執(zhí)行時將全部已經記錄的乘客數據保存在一個臨時文件中，供后面的統(tǒng)計查詢表單使用。 ○ 6 “返回” .click 該過程代碼用來釋放售票訂票表單并回到系統(tǒng)的主窗口。 （ 5） 乘客查詢與退票表單 ○ 1 確認密碼 .click sele 密碼表 locate all for alltrim(密碼表 .用戶密碼 )==alltrim() if found() .readonly=.f. =.t. else messagebox(對不起 ,你不是合法用戶 ,不能退票 ) endif 35 圖 35 乘客查詢與退票窗口 該過程代碼在“密碼表”中搜索用戶的密碼，如果存在，則取消表單中的表格控件的只讀屬性，即讓表格中的數據可以修改，并使“確認退票”命令按鈕處于可用狀態(tài)，這樣可以執(zhí)行退票操作，否則出現相關的提示。 ○ 2 查找乘客 .click .setfocus locate all for alltrim( 乘 客 信 息 數 據 表 . 身 份 證號 )==alltrim() if found() y=reo() go y messagebox(乘客已經找到 ,提示乘客先辦理完相關手續(xù) ,否則不能退票 !) else messagebox(未找到該乘客 ,請確認 !) endif 該命令按鈕用于查找輸入到文本框中的成礦帶身份證號，如果存在，則提示乘客辦理一切相關的手續(xù)，然后退票，反正出現相關的提示。 ○ 3 確認退票 .click locate all for alltrim( 乘 客 信 息 數 據 表 . 身 份 證號 )==alltrim() if found() if messagebox(當前乘客確實要退票嗎 ?!,32+4+256,開戶確認 )=6 y=reo() go y sele 航班座位等級分配與座位占用表 locate all for alltrim( 航 班 座 位 等 級 分 配 與 座 位 占 用 表 . 座位 號 )==alltrim(,) x=reo() go x = release x sele 乘客信息數據表 = .RecordSource delete next 1 pack .RecordSource= release y else messagebox(該乘客未退 票 ,座位仍被占用 !) endif else messagebox(對不起 ,該乘客未找到 ,請確認身份證號碼 !) endif 該命令按鈕首先搜索乘客的身份證號，在找到該乘客之后，提示乘客是否真正需要退票，如果確實需要退票，則再搜索“航班座位等級分配與座位占用表”中的座位號，并對該座位號取消占用標記，然后刪除該乘客記錄。 36 ○ 4 結束操作 .click 該命令按鈕用于釋放乘客查詢與 退票表單，返回到系統(tǒng)主窗口。 （ 6）飛行時刻查詢表單 圖 36 飛行時刻查詢表單 ○1 執(zhí)行查詢 .click sele 航班信息數據表 do case case =1 set filter to 航班號 =alltrim() case =2 set filter to 發(fā)出城市 =alltrim() case =3 set filter to 到達城市 =alltrim() case =4 set filter to 發(fā)出時間 =alltrim() case =5 set filter to 到達時間 =alltrim() endcase 執(zhí)行查詢是按照數據過濾的方式進行的，用戶要查詢時首先選擇查詢方式，如按航班號查詢、到達城市查詢等，在選擇了查詢方式之后，程序根據輸入的查詢內容對數據表中的數據進行過濾，查詢出全部符合條件的航班信息。 ○ 2 取消查詢 .click sele 航班信息數據表 37 set filter to 該過程將取消數據表的過濾狀態(tài)，回復數據表中的全部數據的顯示。 （ 7）航班售票收入統(tǒng)計表單 圖 37 航班售票收入統(tǒng)計窗口 ○1 執(zhí)行統(tǒng)計 .click sele temp set talk off do case case =1 set filter to 航班號 =alltrim() sum 票價 to x =統(tǒng)計的航班號為 :+alltrim()+該航班的總收入為 =x case =2 set filter to 飛行日期 =alltrim() sum 票價 to x =統(tǒng)計的日期為 :+alltrim()+該天的收入為 =x endcase ○2 取消統(tǒng)計 .click sele temp set talk off set filter to ○3 結束統(tǒng)計操作 .click （ 8）系統(tǒng)維護選擇表單 38 圖 38 系統(tǒng)維護窗口 ○1 “用戶權限維護” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 用戶權限維護表單 .scx ○2 “航班座位等級初始化” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 航班座位與等級配置表單 .scx ○3 “數據清理” .click set path to D:\航班售票管理系統(tǒng) \FORMS do form 系統(tǒng)數據清理表單 .scx （ 9）用戶權限維護表單 圖 39 用戶權限維護窗口 39 ○ 1 添加新用戶 .click locate all for alltrim(密碼表 .用戶密碼 )==alltrim() if not found() messagebox(你不是原合法用戶 ,不能添加新用戶 ,請確認 !,錯誤提示 ) else =str(reo()) append blank =.t. =.f. =.t. = = endif 該過程代碼在表單運行時，對用戶在“操作者密碼”文本框中輸入的用戶密碼進行搜索，如果找到，其他的相關 控件才能取消禁用狀態(tài)，否則出現提示信息：“你不是原合法用戶，不能添加新用戶，請確認！” ○ 2 刪除舊用戶 .click locate all for alltrim(密碼表 .用戶密碼 )==alltrim() if found()=.f. messagebox(你不是原合法用戶 ,不能刪除用戶 !,錯誤提示 ) else =str(reo()) delete =.t. =.f. =.t. endif 該過程代碼在卻操作者是合法用戶的條件下，才能作相關的操作，相關的控件才處于可用狀態(tài) 。 ○ 3 修改舊密碼 .click locate all for alltrim(密碼表 .用戶密碼 )==alltrim() if found()=.f. messagebox(你不是原合法用戶 ,不能修改用戶密碼 !,錯誤提示 ) else =str(reo()) =.t. =.f. =.t. endif 該過程代碼仍是對原操作者（即原用戶）進行權限認證，只有在權限認證通過之后，“新用戶名稱”和“新用戶密碼”文本框才處于可用狀態(tài)，供用戶修改。 ○ 4 確認添加 .click =.f. =.f