世界航班信息查詢系統—計算機畢業設計(編輯修改稿)

　

【文章內容簡介】 個按鈕，用戶可以通過選擇這些按鈕方便而迅速地完成操作，而不必通過菜單選項。 ③不編程而建立應用程序界面 Visual 提供的窗體設計器是一種功能強大的工具，用戶能夠不編程或使用很少的代碼來實現友好的交互式應用程序界面以及對界面的控制。例如；用戶可以用柵格控制很容易地建立一對多的窗體；用戶只需把一個數據表拖到一個窗體上就可以了。也可以利用頁格式控件來建立有標簽的對話框話或用戶自己的生成器界面。 ④用項目管理器統一界面 Visual 提供的另一高效易用的工具是項目管理器。通過項目管理器，用戶可以集中地管理數據，文檔，類庫，源代碼等各種資源。例如用戶可以建立和更新數據庫，設計或改變窗體和報表，定義或改變類庫，生成或重新生成自己的應用程序。另外，用戶也可以在項目管理器中使用 Visual 提供的簡單而有效的其他工具，如向導，生成器，工具欄等。所有這些，使用戶能夠對工作進行集中管理而又簡單有效。 為什么要使用面向對象的編程 通過使用面向對象技術 ,開發者能建立反應真實世界中的事 物的應用程序 .以汽車為例 ,用戶買了一輛汽車 ,學習了車的性能 (屬性 )、轉動方向盤（事件）以及將拐向所希望的方向（方法）。用戶可以理解車的這些特點，但并不知道車的內部構造以及為什么車會有這樣的功能。 同樣的例子，來看一下代碼的重復使用性。制造商制造了一輛基本的模型車。如果希望汽車有額外的功能，如空調、動力自動駕駛、遮陽裝置等等，則可以增加這些功能。通過增加這些額外的功能，就創建了這個基本模型車的一個子類。基本模型車是售車商用來給顧客作演示的。從演示中，顧客可以決定他們是否喜歡這輛車的性能。通過這個簡單的動作，開 發商即可以銷售這種基本模型車，也可以對車的現有外觀進行了小的改動，修改車的特性，而不用對整輛車重新設計。 第三章 世界航班信息查詢系統的 設計和開發 總體的設計思想 世界航班信息查詢系統是針對航空公司的大量業務處理工作而開發的管理軟件，用計算機進行全面現代化管理。根據實際情況，我們使用原型法（ Rapid Prototyping）即以少量代價快速地構造一個可執行的軟件系統模型。使醫院管理者和開發人員可以較快地確定需求，然后采用循環進化的開發方式，對系統模型作連續精化，將系統需求所具備 的性質逐漸增加上去，直到所有的性質全部滿足。 設計流程 根據實際情況，使用戶和開發人員可以較快地確定需求，然后采用循環進化的開發方式，對系統模型作連續的精化，將系統需具備的性質逐漸增加上去，直到所有的性質全部滿足。此時模塊也發展成為最終產品了。 通過對用戶需求的分析，我們可以分析出該醫院管理系統大致可以分為三個模塊：數據的瀏覽、數據的修改以及數據的查詢。 該系統四大功能模塊及各子模塊設計圖如下所示： 世界航班信息查詢系統 航班數 據瀏覽 航班數 據修改 航班數 據查詢 菜單 菜 單 編 輯 幫 助 增加航班 修改航班 刪除航班 航班查詢 離 開 配置 Visual 為了設計程序的方便，在打開 Visual 后，首先對它進行了配置。點擊“工具”菜單，選擇“選項”命令，則打開“選項”對話框，“選項”對話框中具有一系列不同類別的環境選項選項卡。在“文件位置” 選項卡中設置默認目錄為 C:\系統等，并把設置作永久保存，保存為默認設置。 建立項目管理器 項目管理器是 Visual 中處理數據和對象的主要組織工具，是 Visual Foxpro 的“控制中心”。項目是文件、數據、文檔及 對象的集合。因此，以后建立 數據庫、表、查詢、表單、報表及應用程序時，都要用“項目管理器”來組織和管理文件。我們按“新建”按鈕，新建一個名為“ ”的項目，并保存到“ C:\系統”目錄下。這樣在以后啟動 后，按“打開”按鈕，就會直接到 系統目錄下打開“ ”項目管理器。 數據庫的設計 由于 的數據庫管理比較完善，在設計數據庫時，不同主題的信息應存儲在不同的表中，并遵循下列規則：同一信息只保存一次：防止刪除有用信息。 只有在同一信息只保存一次的前提下，才能減少數據冗余 性和出錯的可能性，而為了防止刪除有用信息，最好的解決方法是把不同主題的信息放在不同的表中。根據以上分析，為了在數據庫中包含對所有現實情況的全面反映，經過全面的考慮，結合具體情況在世界航班信息查詢系統數據庫中僅僅創建了一個非常龐大的數據庫： 字段名 類型 寬度 小數位 起始城市 字符型 20 終點城市 字符型 20 起飛時間 日期時間型 8 到達時間 日期時間型 8 班期 字符型 10 航班號 字符型 15 飛機型號 字符型 10 飛機票價 數值型 8 2 航空公司 字符 型 50 新增 模塊 新增錄入界面主要功能是用來錄入基本信息，在設計該界面時，可直接通過文本框錄入，然后確定保存到連接的數據表中即可 在表單 tslr 屬性中 autocenter 為 .t.,borderstyle 為2,titlebar為 0,backcolor 為 添加 booksinto 表， lable1lable8，其中 caption 屬性為圖。 添加 shape1 和 shape2,其 height屬性值為 2， specialeffect屬性為 0. 確定按鈕 mand1,其 click event 功能實現的代碼為 use booksinfo if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else append blank repl 編 號 with allt() repl 編號 with allt() repl 編 名 with allt() repl 作者 with allt() repl 出版社 with allt() repl 定價 with allt() repl 冊數 with allt() repl 備注 with allt() repl 入庫日期 with date() endif endif endif endif endif endif endif use 重寫按鈕 mand2,其 click event 功能實現的代碼如下； = = = = = = = = 退出按鈕 mand3,其 click event 功能實現的代碼如下； 修改 模塊 表單 tsxg 屬性 autocenter 為 .t.,borderstyle 為 2,titlebar為 0,backcolor為 . label1label10,其 caption 屬性值如圖 ,backstyle 為 0,label1用于統計圖 編 記錄的總數， label8 用于顯示當前是第幾條記錄 .label1 的 init event 實現代碼為； count all to num =allt(str(num)) go top 文本框 text1text7和編輯框 edit1，其中 text1text6和 edit1用于顯示圖 編 信息 text7 用于輸入要查詢的圖 編 名乏，屬性maxlength 為 20 初始化文本框 text1text6 和編輯框 edit1，表單 form1 的 init event 實現代碼為 public nhere,num =.t. =.t. =.t. =.t. =.t. =.t. =.t. =allt(編 號 ) =allt(編 名 ) =allt(編號 ) =allt(作者 ) =allt(出版社 ) =allt(定價 ) =allt(備注 ) =allt(str(reo())) 修改按鈕 mand1 其功能是 text1text6 和 edit1 處于編輯狀態，它的 click event 功能實現代碼； =.f. =.f. =.f. =.f. =.f. =.f. =.f. 刪除按鈕 mand2,功能是刪除當前記錄，其 click event 功能實現代碼為； use booksinfo exclusive go nhere mb=messagebox(確定要刪除嗎？ ,1+64,提示 ) if mb==1 delete pack if nherenum go bottom else go nhere endif endif 第一條按鈕 mand3,其 click event 功能實現代碼； go top nhere=reo() =allt(str(reo())) =.t. =.t. 最后一條按鈕 mand4,其 click event 功能實現代碼； go bottom nhere=reo() =allt(str(reo())) =.t. =.t. 上一條按鈕 mand5,其 click event 功能實現代 碼； skip 1 if bof() =.f. =.f. messagebox(已經到第一條記錄了！ ,48,提示 ) go top nhere=reo() else nhere=reo() endif =.t. =.t. 下一條按鈕 mand6,其 click event 功能實現代碼； skip 1 if eof() =.f. =.f. messagebox(已經到最后一條記錄了！ ,48,提示 ) go bottom nhere=reo() else nhere=reo() endif =.t. =.t. 快速定位按鈕 mand7,其 click event 功能實現代碼； sele booksinfo go top if allt()== messagebox(請輸入要查詢的內容！ ,64,提示 ) else locate for allt(編 名 )=allt() if eof() go bottom messagebox(此 編 不存在，請重新輸入！ ,64,提示 ) else endif nhere=reo() endif 退出按鈕 mand8,其 click event 功能實現代碼； 查詢模塊 表單 xscx 屬性 autocenter 為 .t.,borderstyle 為 2,titlebar為 o.,并添加 saleinfo 表。 Label1label12,其 caption 屬性如圖。 Combo1和 bo2,其中 bo1的初始化 init event實現代碼為； =dtoc(date()) Click event 功能實現代碼為； if ct