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

　　

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