【導(dǎo)讀】1．CPUPIII1000HZ,內(nèi)存64MBRAM，1G硬盤(pán)空間計(jì)算機(jī)；利用數(shù)據(jù)庫(kù)畫(huà)板等對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。1．使用SQLSERVER創(chuàng)建和管理Mydb數(shù)據(jù)庫(kù);專(zhuān)業(yè)表和院系表：存在隱式關(guān)系，3位專(zhuān)業(yè)編號(hào)的前兩位由院系編號(hào)決定。課程表和專(zhuān)業(yè)表：存在顯式關(guān)系，由專(zhuān)業(yè)編號(hào)關(guān)聯(lián)，指明課程所示的專(zhuān)業(yè)。生那門(mén)課程的成績(jī)。至于設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)怎樣確定表與表之間的相互關(guān)系是一個(gè)比較復(fù)雜的問(wèn)題，但對(duì)于關(guān)系數(shù)據(jù)庫(kù)的初學(xué)者來(lái)說(shuō)，我們建議設(shè)計(jì)表時(shí)盡可能采取外鍵關(guān)聯(lián)。ODBC數(shù)據(jù)源的創(chuàng)建與刪除是通過(guò)Windows操作系統(tǒng)中的“ODBC數(shù)據(jù)源管理器”完成的。介紹創(chuàng)建ODBC數(shù)據(jù)源的具體方法。打開(kāi)（雙擊）“ODBC數(shù)據(jù)源管理器”，其界面如圖所示。卡中列出了當(dāng)前系統(tǒng)中所有的ODBC數(shù)據(jù)源。于設(shè)置連接信息。據(jù)源”列表框中。單擊“OK”按鈕：返回“DatabaseProfiles”對(duì)話(huà)框，新的連接配置出現(xiàn)在“ODBODBC”。單擊“Connect”按鈕：系統(tǒng)將連接相應(yīng)的數(shù)據(jù)庫(kù)。連接成功后會(huì)在Windows操作系統(tǒng)的狀

　　

【正文】 個(gè)信息表創(chuàng)建相應(yīng)的數(shù)據(jù)窗口對(duì)象，且每個(gè)數(shù)據(jù)窗口對(duì)象的設(shè)置基本相同（成績(jī)信息表略有變化）。具體設(shè)置如下： (1) 六個(gè)數(shù)據(jù)窗口對(duì)象的名稱(chēng)分別為： 《 管理信息系統(tǒng)程序設(shè)計(jì) 》實(shí)驗(yàn)指導(dǎo)書(shū) 27 ? 用戶(hù)信息數(shù)據(jù)窗口對(duì)象： dw_myuser ? 院系信息數(shù)據(jù)窗口對(duì)象： dw_college ? 專(zhuān)業(yè)信息數(shù)據(jù)窗口對(duì)象： dw_specialty ? 課程信息數(shù)據(jù)窗口對(duì)象： dw_course ? 學(xué)生信息數(shù)據(jù)窗口對(duì)象： dw_student ? 成績(jī)信息數(shù)據(jù)窗口對(duì)象： dw_sreport (2) 數(shù)據(jù)窗口對(duì) 象的顯示風(fēng)格為：“ Grid”表格風(fēng)格。 (3) 數(shù)據(jù)窗口對(duì)象的數(shù)據(jù)源為：“ Quick Select”快速選擇，每個(gè)表中的列都全部作為輸出列，排序列都為各表的編號(hào)列，且按“升序”排序。注意，這里所說(shuō)的是數(shù)據(jù)源中的排序列，而不是數(shù)據(jù)窗口對(duì)象的排序列。 (4) 數(shù)據(jù)窗口對(duì)象的標(biāo)題靜態(tài)文本框：其“ Border”（邊框）風(fēng)格都設(shè)為“ Raised!”（三維凸出）樣式，“ Background Color”（背景色）都設(shè)為“ Button Face”（淺灰色），完成后如圖 所示。 圖 數(shù)據(jù)窗口對(duì)象的樣式 (5) 成績(jī)信息數(shù)據(jù)窗口對(duì) 象：先將“ Courseid”設(shè)為分組列，并將分組屬性中的“ New Page on Group Break”設(shè)為“ True”；然后將“ Courseid”再設(shè)為重復(fù)壓縮列。完成后，其預(yù)覽圖如圖 所示。 3． 為系統(tǒng)創(chuàng)建管理窗口 管理窗口主要用于對(duì)各信息表中的數(shù)據(jù)進(jìn)行管理。這里需要為每個(gè)數(shù)據(jù)窗口對(duì)象創(chuàng)建一個(gè)對(duì)應(yīng)的管理窗口，而創(chuàng)建管理窗口的方式我們將采取繼承的方式。下面我們將首先為管理窗口創(chuàng)建一個(gè)祖先窗口“ w_base”，該祖先窗口的設(shè)計(jì)過(guò)程和使用方法是本章的一個(gè)重點(diǎn)學(xué)習(xí)內(nèi)容。 1） 創(chuàng)建祖先窗口 祖先 窗口“ w_base”的界面很簡(jiǎn)單，其中只需放置一個(gè)數(shù)據(jù)窗口控件，用于顯示數(shù)據(jù)窗口對(duì)象。另外，當(dāng)管理窗口在多文檔界面中打開(kāi)后，其大小是允許用戶(hù)隨意調(diào)整的，為了美觀，我們需要讓數(shù)據(jù)窗口控件的大小隨窗口的大小同步調(diào)整。 祖先窗口的創(chuàng)建步驟如下： (1) 在窗口畫(huà)筆中新建一個(gè)窗口： ? 適當(dāng)調(diào)整窗口的大?。捍翱诓挥锰?。 ? 窗口的其它屬性暫時(shí)保持默認(rèn)設(shè)置。 (2) 在窗口中放置一個(gè)數(shù)據(jù)窗口控件。 ? 適當(dāng)調(diào)整數(shù)據(jù)窗口控件的大小：不用太大。 ? 將其“ HScrollBar”和“ VScrollBar”屬性設(shè)為“ True”。 ? 將其“ X”和“ Y”屬性 都設(shè)為“ 0”。 ? 為窗口選擇一個(gè)圖標(biāo)。完成后，如圖 所示。 《 管理信息系統(tǒng)程序設(shè)計(jì) 》實(shí)驗(yàn)指導(dǎo)書(shū) 28 圖 祖先窗口的設(shè)計(jì)界面 (3) 為窗口的“ Resize”事件編寫(xiě)代碼：實(shí)現(xiàn)數(shù)據(jù)窗口控件的大小隨窗口的大小同步變化的功能。具體代碼如下： // 窗口 w_base 的 Resize 事件代碼 // 讓數(shù)據(jù)窗口控件與窗口同步調(diào)整大小 = – 38 // 38 為調(diào)整系數(shù) = – 108 // 108 為調(diào)整系數(shù) (4) 用“ w_base”為窗口名保存當(dāng)前窗口，并進(jìn)行相關(guān)測(cè)試。 提示 ： 在為應(yīng)用程序?qū)ο蟮摹?Open”事件編程之前，所有窗口的運(yùn)行測(cè)試都需要通過(guò)在“ Workspace”視圖中選擇窗口對(duì)象的右鍵菜單中的“ Run/PreView”命令進(jìn)行。 2） 在祖先窗口中添加功能函數(shù) 我們所謂的信息管理主要是指對(duì)數(shù)據(jù)的瀏覽、重載、編輯、添加、刪除、更新、查找、排序、以及過(guò)濾等操作。為了實(shí)現(xiàn)這些功能，我們需要在祖先窗口中添加相應(yīng)的事件或者函數(shù)（等同在窗口中添加按鈕控件來(lái)實(shí)現(xiàn)這些功能），并為其編寫(xiě)代碼，這樣用繼承方式創(chuàng)建的 窗口就能自動(dòng)繼承了這些功能，從而大大降低我們的編程強(qiáng)度。 在祖先窗口中我們采用函數(shù)的方式來(lái)實(shí)現(xiàn)管理窗口對(duì)數(shù)據(jù)的操作功能。具體需要添加的窗口函數(shù)定義如表 所示。 說(shuō)明：函數(shù)的類(lèi)型定義為“ Public”（公共函數(shù)）是為了在菜單中調(diào)用這些函數(shù)；這些函數(shù)都沒(méi)有設(shè)置返回值，主要是因?yàn)檫@些函數(shù)都只是執(zhí)行一些操作過(guò)程，如果操作中有錯(cuò)函數(shù)會(huì)調(diào)用 MessageBox()函數(shù)顯示相關(guān)信息，沒(méi)有必要通過(guò)返回值傳遞信息。 表 祖先窗口中的功能函數(shù) 函數(shù)類(lèi)型 返回值 函數(shù)名 參數(shù) 功能 public none do_edit () readonly string mode 處理添加、刪除和更新操作 public none do_reload () （無(wú)） 為數(shù)據(jù)窗口重新讀取數(shù)據(jù) public none do_filter () （無(wú)） 處理數(shù)據(jù)過(guò)濾操作 public none do_find () （無(wú)） 處理數(shù)據(jù)查找操作 public none do_sort () （無(wú)） 處理數(shù)據(jù)排序操作 public none do_showrow () readonly string mode 處理記錄行的顯示 public none do_editmode () readonly window actwin 設(shè)置管理窗口的操作方式 數(shù)據(jù)窗口控件 dw_1 《 管理信息系統(tǒng)程序設(shè)計(jì) 》實(shí)驗(yàn)指導(dǎo)書(shū) 29 readonly boolean mode public none do_print () （無(wú)） 處理數(shù)據(jù)的打印操作 為祖先窗口添加功能函數(shù) 在窗口中定義函數(shù)的步驟如下： (1) 在窗口畫(huà)筆中選擇“ Script”（代碼編輯）視圖。 (2) 在“ Script”視圖上方最左邊的下拉列表框中選擇“ (Functions)”，在中間的下拉列表框中選擇“ (New Function)”，進(jìn)入函數(shù)定義界面，如圖 所示。 圖 函數(shù)定義界面 (3) 在函數(shù)定義界面中輸入函數(shù)的相關(guān)信息。如果需要增加函數(shù)的參數(shù)，可以在該界面中單擊右鍵，從快捷菜單中選擇“ Add Parameter”或者“ Insert Parameter”命令，刪除參數(shù)選擇“ Delete Parameter”命令。 (4) 函數(shù)的代碼可以在下面的編輯框中輸入。 提示 ： 在定義函數(shù)后，如果需要對(duì)其類(lèi)型、返回值、參數(shù)進(jìn)行調(diào)整，可在“ Script”視圖中先選擇該函數(shù)，并單擊 按鈕（如圖 所示），顯示該函數(shù)的定義界面，然后進(jìn)行修改。如果再次單擊 按鈕， 將隱藏函數(shù)的定義界面。 按照上述步驟依次在祖先窗口“ w_base”中添加將表 所列出的所有函數(shù)。 編寫(xiě)功能函數(shù)的代碼 各功能函數(shù)的具體代碼如下： ? do_reload ( ) () // 載入數(shù)據(jù) if () 0 and amp。 = yes then (1, true) // 高亮顯示第一條記錄 end if ? do_showrow ( ) 顯示或隱藏函數(shù)定義界面 《 管理信息系統(tǒng)程序設(shè)計(jì) 》實(shí)驗(yàn)指導(dǎo)書(shū) 30 // 設(shè)置 數(shù)據(jù)窗口的當(dāng)前顯示行 choose case mode case first // 顯示第一條記錄 (1) case uppage // 顯示上一頁(yè)記錄 () case nextpage // 顯示下一頁(yè)記錄 () case last // 顯示最后一條記錄 (()) end choose ? do_editmode ( ) long row = not mode // 設(shè)置數(shù)據(jù)窗口的操作方式 if mode then // 進(jìn)入編輯方式 row = (0) if row 0 then (row, false) // 取消當(dāng)前記錄原有的高亮顯示 = + — 編輯狀態(tài) // 在窗口標(biāo)題上顯示操作方式 else // 進(jìn)入瀏覽方式 row = () if row 0 then (row, true) // 高亮顯示當(dāng)前記錄 = + — 瀏覽狀態(tài) // 在窗口標(biāo)題上顯示操作方式 end if ? do_edit ( ) int rc long row string t1 = 操作提示 string t2 = 數(shù)據(jù)庫(kù)錯(cuò)誤 string m1 = 請(qǐng)先選擇要?jiǎng)h除的記錄行！然 后重試 ... // 續(xù) string m2 = 當(dāng)前操作將刪除選中的記錄行！請(qǐng)確定 ... choose case mode // 根據(jù)調(diào)用者傳遞的 mode 參數(shù)執(zhí)行相應(yīng)的操作 case add // 添加操作 row = (0) (row) () case del // 刪除操作 row = () // 獲得要?jiǎng)h除行的行號(hào) 《 管理信息系統(tǒng)程序設(shè)計(jì) 》實(shí)驗(yàn)指導(dǎo)書(shū) 31 if row = 0 then // 如果沒(méi)有選定刪除行顯示提示信息 messagebox(t1, m1, Exclamation!, OK!) else // 選定了刪除行則顯示確認(rèn)刪除信息 (row, true) // 加亮刪除行 if messagebox(t1, m2, Question!, OKCancel!, 2) = 1 then (row) // 刪除選中行 else (row, false) // 否則取消行的選中狀態(tài) end if end if case update // 更新操作 rc = () // 獲得更新操作的結(jié)果 if rc 0 then // 更新成功 COMMIT USING SQLCA。 // 向數(shù)據(jù)庫(kù)提交修改 if 0 then // 提交失敗 messagebox(t2, 錯(cuò)誤號(hào) = + string() + amp。 原因?yàn)椋?+, StopSign!) // 顯示錯(cuò)誤信息 Halt Close // 終止應(yīng)用程序 end if else // 更新失敗 ROLLBACK USING SQLCA。 // 撤消所有修改 if 0 then // 回滾失敗 messagebox(t2, 錯(cuò)誤號(hào) = + string() + amp。 原因?yàn)椋?+, StopSign!) // 顯示錯(cuò)誤信息 Halt Close // 終止應(yīng)用程序 end if end if end choose ? do_find ( )、 do_sort ( )、 do_filter ( )、 do_print ( ) messagebox(系統(tǒng)提示 , 該項(xiàng)功能正在開(kāi)發(fā)中 ...) 提示 ： 查找、排序、過(guò)濾、打印等功能請(qǐng)讀者自行編寫(xiě)。編寫(xiě)時(shí)可參看“ 數(shù)據(jù)窗口綜合設(shè)計(jì)實(shí)例”一節(jié)的相關(guān)內(nèi)容。 在祖先窗口中依次輸入這些功能函數(shù)的代碼。 3） 編寫(xiě)祖先窗口的其它 代碼 在創(chuàng)建功能函數(shù)后我們可以在祖先窗口以及數(shù)據(jù)窗口控件的相關(guān)事件中調(diào)用這些函數(shù)來(lái)實(shí)現(xiàn)對(duì)應(yīng)功能。下面我們?yōu)榇翱诤蛿?shù)據(jù)窗口控件編寫(xiě)事件代碼。 （ 1）窗口事件代碼 ? open 《 管理信息系統(tǒng)程序設(shè)計(jì) 》實(shí)驗(yàn)指導(dǎo)書(shū) 32 // 初始化數(shù)據(jù)窗口 (SQLCA) // 分配事務(wù)對(duì)象 () // 載入數(shù)據(jù) = // 在 tag 屬性中保存窗口標(biāo)題 (this, false) // 數(shù)據(jù)窗口設(shè)為只讀 ? closequery // 防 止窗口的誤關(guān)閉操作 int rc string t1 = 操作提示 string m1 = 窗口中存在未更新的數(shù)據(jù)！退出前是否更新數(shù)據(jù)庫(kù)？ // 檢查是否存在未更新的數(shù)據(jù) if () 0 or amp。 () 0 then // 有變動(dòng)或刪除的記錄行 rc = messagebox(t1, m1, Question!, YesNoCancel!) choose case rc case 1 // 先更新數(shù)據(jù)庫(kù)， 然后再退出 (update) return 0 case 2 // 不更新數(shù)據(jù)庫(kù)退出 return 0 case 3 // 不關(guān)閉窗口，返回操作界面 return 1 end choose end if （ 2）數(shù)據(jù)窗口控件的事件代碼 ? dberror // 定義錯(cuò)誤信息 string t1 = 數(shù)據(jù)庫(kù)錯(cuò)誤 string m1 = 錯(cuò)誤號(hào) = + string(sqldbcode)+原因?yàn)椋?