【文章內(nèi)容簡介】 料 .depno = ″06″ char = char +″工管 ″ CASE 學(xué)生基本資料 .depno = ″07″ char = char + ″國貿(mào) ″ CASE 學(xué)生基本資料 .depno = ″08″ char = char +″建筑 ″ CASE 學(xué)生基本資料 .depno = ″09″ char = char +″企管 ″ ENDCASE DO CA SE CASE 學(xué)生基本資料 .grade = 1 char = char +″一 ″ CASE 學(xué)生基本資料 .grade = 2 char = char +″二 ″ CASE 學(xué)生基本資料 .grade = 3 char = char +″三 ″ CASE 學(xué)生基本資料 .grade = 4 char = char +″四 ″ CASE 學(xué)生基本資料 .grade = 5 char = char +″五 ″ CASE 學(xué)生基本資料 .grade = 6 char = char +″六 ″ ENDCASE DO CASE CASE 學(xué)生基本資料 .class = 1 15 char = char +″甲 ″ CASE 學(xué)生基本資料 .class = 2 char = char +″乙 ″ CASE 學(xué)生基本資料 .class = 3 char = char +″丙 ″ CASE 學(xué)生基本資料 .class = 4 char = char +″丁 ″ ENDCASE RETURN char 2 . 編輯存儲(chǔ)過程 trans_ code, 用于完成根據(jù)書號(hào)計(jì)算其 ―類別 ‖信息。 在存儲(chǔ)過程的代碼編輯窗口中 , 編輯代碼如下 : ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ F U NC T ION t rans_cod e ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ ＊ LOCAL char char = ″″ DO CA SE CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″DJ″ char =″國人心理 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″DK″ char =″大眾心理 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″DA″ char =″生活心理 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″DB″ char =″自我了解 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″PC″ char =″人際關(guān)系 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″PD″ char =″感情叢書 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″PG″ char =″生涯規(guī)劃 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″PF″ char =″健康叢書 ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″FA″ char =″古典文學(xué) ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″FC″ char =″小說文學(xué) ″ CASE SUBSTR ( 書籍資料 .code , 1 , 2) =″FD″ char =″散文集錦 ″ ENDCASE RETURN char 16 1 .3 .3 建立主窗體的雛形 設(shè)計(jì)狀態(tài)界面參見圖 , 運(yùn)行狀態(tài)的界面參見圖 。 圖 主窗體雛形的設(shè)計(jì)界面 1 . 創(chuàng)建新表單 :在 Library 項(xiàng)目管理器中 , 選擇 ―文檔 ‖→― 表單 ‖, 然后單擊 ―新建表 單 ‖按鈕 , 打開表單設(shè)計(jì)器 , 并設(shè)置表單的屬性如表 。 表 主窗體的屬性設(shè)置與說明 屬 性 名 Name main 屬性設(shè)置值 功 能 說 明 Bord erStyle Cap tion Closable Heigh t Icon MaxBu tt on MinBu tton 2 – 固定對(duì)話框 圖書借閱管理 .F . 418 e : \ vfp 練習(xí) \ library \ bm p \ .F . .F . 將主窗體左上角的圖標(biāo)改為一書柜 Pict ur e e : \ vfp 練習(xí) \ library \ bm p \ canvas_green .bm p 窗體的背景圖片 ShowTips Widt h .T . 619 允許窗體內(nèi)的對(duì)象顯示提示信息 2 . 新建屬性 :選擇 “ 表單 ”→“ 新建屬性 ” 菜單項(xiàng) , 在打開的 “ 新建屬性 ” 對(duì)話框中 , 在“ 名稱 ” 編輯框中輸入 toolbar[11， 2]， 在 “ 說明 ” 編輯框中輸入 “ 儲(chǔ)存各工具列的名稱及狀 態(tài) ”, 然后單擊 “ 添加 ” 按鈕 ， 最后單擊 “ 關(guān)閉 ” 按鈕 ， 關(guān)閉該對(duì)話框。 17 3 . 在表單上添加標(biāo)簽 , 并設(shè)置 其屬性如下 : Aut oSize .T . BackSt yle 0 － 透明 Cap tion Fon tSize Left 圖書借閱管理系統(tǒng) 28 153 FontBold ForeColor T op .T . 0 , 0 , 255 20 4 . 在表單上添加兩個(gè)圖像 , 并設(shè)置其屬性如下 : BackStyle 0 － 透明 Lef t 95 / 465 T op Wid th 15 50 Heigh t Str etc h 45 1 – 等比填充 Picture e : \ vfp 練習(xí) \ library \ bm p \ cd .bm p 5 . 在表單上添加標(biāo)簽 , 并設(shè)置其屬性如下 : Align me nt 2 － 中央 BackSt yle 0 － 透明 BorderStyle Fon tSize Left H eigh t 1 － 固定單線 14 15 22 Ca ption ForeColor T op Wid th 已借出 255 , 0 , 0 27 72 Visible .F . amp。 amp。 設(shè)置該標(biāo)簽在系統(tǒng)運(yùn)行時(shí)不可見 6 . 在表單上添加標(biāo)簽 , 并設(shè)置其屬性如下 : Align me nt 2 － 中央 BackSt yle 0 － 透明 BorderStyle Fon tSize Left H eigh t 1 － 固定單線 14 516 22 Ca ption ForeColor T op Wid th 已刪除 255 , 0 , 0 27 72 Visible .F . amp。 amp。 設(shè)置該標(biāo)簽在系統(tǒng)運(yùn)行時(shí)不可見 7 . 在表單上添加標(biāo)簽 , 并設(shè)置其屬性如下 : Align me nt 2 － 中央 BackSt yle 0 － 透明 BorderStyle Fon tSize Left H eigh t 1 － 固定單線 14 538 22 Ca ption ForeColor Top Wid th 修改中 0 , 0 , 255 27 72 Visible .F . amp。 amp。 設(shè)置該標(biāo)簽在系統(tǒng)運(yùn)行時(shí)不可見 8 . 在表單上添加一個(gè)命令按鈕 , 并設(shè)置其屬性如下 : Name Fon tBold Fon tSize Left H eigh t T oolT ipT ext cmd End .T . 14 490 36 結(jié)束系統(tǒng) Ca ption FontName ForeColor T op Wid th \ E 結(jié)束 宋體 255 , 0 , 0 330 72 18 雙擊該命令按鈕 , 在打開的代碼編輯窗口中 , 編寫 Click 事件的代碼如下 : yn = MESSA GEBOX(″是否確定離開 ?″, 4 + 32 ,″信息窗口 ″) IF yn = 6 amp。 amp。 表示按了 是 按鈕 CLEAR MEMORY amp。 amp。 清除所有內(nèi)存變量 T his Form .Release ( ) amp。 amp。 關(guān)閉本表單 CLEAR EVEN TS amp。 amp。 結(jié)束事件的讀取 ENDIF 1 .3 .4 設(shè)置主窗體的數(shù)據(jù)環(huán)境和事件過程 1 . 打開表單的數(shù)據(jù)環(huán)境窗口 , 并依次將學(xué)生基本資料、借閱記錄、書籍資料和科別名 稱添加到數(shù)據(jù)環(huán)境窗口中 , 此時(shí)可見表間關(guān)聯(lián) 已建立 ， 設(shè)置數(shù)據(jù)環(huán)境的屬性如下 : InitialSelectedAlias 學(xué)生基本資料 Name DataEnvironment 編輯 Data Environmen t 的 BeforeOpen Tables 事件的代碼如下 : CLOSEALL amp。 amp。 在數(shù)據(jù)表打開前 ， 將其他不相干的文件全部關(guān)閉 2 . 設(shè)置 Cursor1 ( 其 A lias 屬性值為 ―學(xué)生基本資料 ‖) 的屬性如下 : BufferMod eOverride 3 － 開放模式的記錄緩沖處理 Exclusive .T . Order st uid amp。 amp。 設(shè)置表的主控索引 3 . 設(shè)置 Cursor2 ( 其 A lias 屬性值為 ―借閱記錄 ‖) 的屬性如下 : Exclusive .T . Order stuid amp。 amp。 設(shè)置表的主控索引 4 . 設(shè)置 Cursor3 ( 其 A lias 屬性值為 ―書籍資料 ‖) 的屬性如下 : BufferMod eOverride 3 － 開放模式的記錄緩沖處理 Exclusive .T . Order code amp。 amp。 設(shè)置表的主控索引 5 . 編寫表單的 Init 事件代碼如下 : SET SYS MENU OFF amp。 amp。 可關(guān)掉 V F P 系統(tǒng)菜單之區(qū)域 ( Ba nd) SET SYS MENU TO SET TALK OFF SET DELETE OFF SET EXACT OFF SET CONFIRM OFF amp。 amp。 關(guān)閉系統(tǒng)菜單 amp。 amp。 使用戶在 ―文本框 ‖中輸入完最后一個(gè)字符時(shí) , 自動(dòng)跳到下一字段 SET SAFETY OFF SET STATUS BAR OFF amp。 amp。 覆蓋時(shí)不要確認(rèn) amp。 amp。 將狀態(tài)欄關(guān)閉 SET MULT ILOCK ON amp。 amp。 允許 VF P 同時(shí)鎖定多筆記錄 , 當(dāng) Buffer ModeOverride amp。 amp。 設(shè)置為 3 時(shí) ,