【導讀】應用系統(tǒng)的設計與實現(xiàn)的步驟、方法和常用技巧。計并實現(xiàn)一個“圖書借閱管理”系統(tǒng),實現(xiàn)以下功能。前兩碼為英文字母，其余則為流水號。編號”的前兩碼“類別”數據項已經有了,故此兩個數據項并不搜集。購買日期、是否借出、類別、冊數、借閱人、借閱日期、歸還日期、科別代號、科別名稱、借閱次數。刪除)，故需要對其進行規(guī)范化處理。

　　

【正文】 按鈕組 , 并設置其屬性如下 : BackColor 192 , 192 , 192 Bu tt onCoun t 5 Name RecBut tons Value 1 雙擊命令按鈕組 , 在打開的代碼編輯窗口中 , 編輯 RecBu tt ons 的 Ref resh 事件代碼 : IF T hisForm .istop =.T . amp。 amp。 判斷是否在數據表的第一條記錄 ( st ude nt ) This .cmdTop .Enabled =.F . This . =.F . ELSE This .cmdTop .Enabled =.T . This .cmdPrevious .Enabled =.T . ENDIF IF ThisFor m .isbot tom =.T . This .cmdBo tto m .Enabled = .F . This .cmdNex t .Enabled =.F . ELSE =.T . t .Enabled =.T . ENDIF amp。 amp。 將第一條按鈕 Disabled amp。 amp。 將上一條按鈕 Disabled amp。 amp。 將第一條按鈕 Enabled amp。 amp。 將上一條按鈕 Enabled amp。 amp。 判斷是否在數據表之最末條記錄 ( student ) amp。 amp。 將最末條按鈕 Disabled amp。 amp。 將 下一筆條按鈕 Disabled amp。 amp。 將最末筆條按鈕 Enabled amp。 amp。 將下一筆條按鈕 Enabled ③ 修改命令按鈕組中的命令按鈕屬性 , 設置要求參見表 。 表 命令按鈕屬性設置值 按鈕順序 第一個 屬 性 名 Name Aut oSize cmd T op .T . 屬性設置值 Pict ure T oolT ipT ext e : \ vfp 練習 \ library \ bm p \ top .b mp 第一條記錄 24 按鈕順序 第二個 屬 性 名 Name Aut oSize cmdP revious .T . 屬性設置值 續(xù)表 第三個 第四個 第五個 Pict ure T oolT ipT ext Name Aut oSize Pict ure T oolT ipT ext Name Aut oSize Pict ure T oolT ipT ext Name Aut oSize Pict ure T oolT ipT ext e : \ vfp 練習 \ library \ bm p \ previous .b mp 上一條記錄 cmdNex t .T . e : \ vfp 練習 \ library \ bm p \ next .b mp 下一條記錄 cmdBo tt om .T . e : \ vfp 練習 \ library \ bm p \ bo ttom .bm p 最后一條記錄 cmdFind .T . e : \ vfp 練習 \ library \ bm p \ find .bm p 查找記錄 ④ 選擇 ―表單 ‖→― 新建方法 ‖菜單項 , 新建方法 ck_ position， 并編輯 Main對象的 ck_position方法 , 代碼如下 : ＊ 重新判斷是否在數據表之第一條或最后一條 SK IP 1 IF BOF ( ) T his Form .istop = .T . amp。 amp。 表記錄指針在第一筆 GO TO P ELSE T his Form .istop = .F . SKIP ENDIF SK IP IF EOF( ) This Form .isbottom = .T . GO BOTTOM ELSE This Form .isbottom = .F . SKIP 1 25 ENDIF ⑤ 編輯各命令按鈕的事件過程 , 相應的事件及其代碼參見表 。 表 命令按鈕屬性事件代碼 按鈕名 事件名稱 GO TOP 事 件 代 碼 Clic k This Form .istop =.T . amp。 amp。 表記錄指針在第一筆 This Form .isbott om =.F . amp。 amp。 表記錄指針不在最末筆 cmd Top This Form .Refresh( ) amp。 amp。 重新顯示表 單上各對象之資料 cmdPr evious MouseMove Clic k LPARAMETERS nBut ton , nShif t , nXCoord , nYCoord Th is .MousePoin ter = 99 Th is .MouseIcon = ″e : \ vfp 練習 \ libr ary \ bmp \ h_point .cur″ SKIP 1 IF BOF( ) = MESS AGEBOX (″已至第 一筆 !″, 48 ,″信息窗口 ″) ThisForm .istop = .T . amp。 amp。 表記錄指針在第一筆 GO TOP ENDIF ThisForm .isbottom =.F . ThisForm .Refresh( ) amp。 amp。 表記錄指針不在最末筆 cmdNext MouseMove Clic k MouseMove Clic k 代碼同 cmdTop 的 MouseMove 事件代碼 SKIP IF EOF ( ) = MESSAGEBOX (″已至最末筆 !″, 48 ,″信息窗口 ″) ThisForm .isbott om =.T . amp。 amp。 表記錄指針在最末筆 GO BOTTOM ENDIF This Form .istop =.F . amp。 amp。 表記錄指針不在第一筆 ThisForm .Refresh( ) amp。 amp。 重新顯示表單上各對象之資料 代碼同 cm dT op 的 MouseMove 事件代碼 GO BOTTOM ThisForm .istop =.F . amp。 amp。 表記錄指針不在第一筆 cmdBot tom =.T . ( ) amp。 amp。 表記錄指針在最末筆 amp。 amp。 重新顯示表單上各對象之資料 cmdFind MouseMove Clic k MouseMove 代碼同 cmdTop 的 MouseMove 事件代碼 DO FORM finds amp。 amp。 調用查詢窗 ThisForm .ck_position( ) amp。 amp。 重新判斷是否在數據表之第一筆或最末筆 ThisForm .Refr esh( ) amp。 amp。 重新顯示表單上各對象之資料 代碼同 cmdTop 的 MouseMove 事件代碼 26 說明 : 查詢窗口 Finds .scx 將在 1 .3 .10 節(jié)中設計與創(chuàng)建 。 3 . 添加 ―新增 ‖、 ―儲存 ‖、 ―取消 ‖、 ―名冊 ‖和 ―借書證 ‖按鈕。 ① 為主窗體添加兩個新屬性 ， 其 Name及屬性值如下 : isAdd .F . oldR ecord 0 ② 添加線框控件 shape1( 用作按鈕的背景 ) , 并設置其屬性如下 : BackColor 64 , 128 , 128 BorderStyle 1 － 不透明 ( 默認值 ) Left Height 386 156 Top Wid th 121 180 SpecialEffect 0 － 3 維 ③ 添加命令按鈕 , 并設置其屬性如下 : Name cmdAdd DisabledForeColor 64 , 128 , 128 Ca ption Font Bold \ A 新增 .T . Fon tName 宋體 FontSize 14 For eColor 0 , 128 , 128 T oolTip Te xt 新增數據 ④ 添加命令按鈕 , 并設置其屬性如下 : Name cmdSave DisabledForeColor 64 , 128 , 128 Ca ption Enabled \ S 保存 .F . FontBold FontSize .T . 14 FontName ForeColor 宋體 0 , 128 , 128 ToolTipText 儲存數據 ⑤ 添加命令按鈕 , 并設置其屬性如下 : Name cm dCancel Cancel .T . Caption \ C 取消 DisabledForeColor 64 , 128 , 128 Enabled FontName .F . 宋體 Font Bold FontSize .T . 14 ForeColor 0 , 128 , 128 ToolTip Te xt 取消數據 ⑥ 添加命令按鈕 , 并設置其屬性如下 : Name cm dList Cancel .T . Caption \ R 名冊 DisabledForeColor 64 , 128 , 128 Enabled FontName .F . 宋體 Font Bold FontSize .T . 14 ForeColor 0 , 128 , 128 T oolTip Te xt 打印班級名冊 ⑦ 添加命令按鈕 , 并設置其屬性如下 : Name cmd Loan Caption \ L 借書 證 27 DisabledForeColor 64 , 128 , 128 FontBold .T . Fon tName 宋體 FontSize 12 ForeColor 0 , 128 , 128 ToolTip Te xt 打印借書證 ⑧ 為主窗體新建方法 cmdStatus( 設置各命令按鈕的使用狀態(tài) ——啟用或停用 ) , 并編輯 Main 對象的 cmd