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