【導(dǎo)讀】維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫，而對(duì)于后者則要求應(yīng)用程序功能完備、易使用等特點(diǎn)。正和改進(jìn)，直到形成用戶滿意的可行性系統(tǒng)。在visual環(huán)境下采用“自上。了一個(gè)整體自動(dòng)化管理模式，從軟件工程的角度進(jìn)行了科學(xué)而嚴(yán)謹(jǐn)?shù)年U述。2VisualFoxpro編程環(huán)境簡(jiǎn)介----------------------------------------------------6. 3圖書管理系統(tǒng)總體規(guī)劃-----------------------------------------------------------------10. 數(shù)據(jù)表的結(jié)構(gòu)、表單、報(bào)表---------------------------------------------------------10. 4圖書管理系統(tǒng)具體實(shí)現(xiàn)-----------------------------------------------------------------15. 系統(tǒng)分析與設(shè)計(jì)-----------------------------------------------------------------------15

　　

【正文】 35 頁 共 49 頁 在項(xiàng)目管理器中選“代碼”選項(xiàng)卡，打開“程序”下拉菜單，右擊“ ”，在彈出的快捷菜單中選“設(shè)置主文件”，設(shè)置“ ”為系統(tǒng)的主文件。也可以在主窗口菜單欄“項(xiàng)目”下拉菜單中選擇“設(shè)置主文件”命令。此時(shí)“設(shè)置主文件”前會(huì)現(xiàn)一“√”號(hào)，項(xiàng)列表中的“ main”會(huì)以粗體顯示，如圖所示。 （見圖 ） 圖 設(shè)置主文件圖 云豐小學(xué)圖書管理系統(tǒng) 第 36 頁 第 36 頁 共 49 頁 5 致謝 經(jīng)過設(shè)計(jì)其功能基本符合需求，能夠完成書籍的采編，會(huì)員的管理，借閱和歸還圖書，以及查詢和操作人員的權(quán)限分配等功能，可以正確地打印出相關(guān)的報(bào)表，并提供了系統(tǒng)維護(hù)的功能，使用戶方便進(jìn)行數(shù)據(jù)的備份和恢復(fù)、數(shù)據(jù)刪除并且加入計(jì)算器、記事本和一個(gè)漂亮的時(shí)鐘等。同時(shí)也考慮到了用圖書編碼和會(huì)員編碼以減少數(shù)據(jù)臃腫的問題，對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決，并在多項(xiàng)聯(lián)合查詢開動(dòng)腦筋，找到了一些小竅門和用“宏替換”來解決問題。 由于編者理論水平的局限 ,開發(fā)經(jīng) 驗(yàn)的缺乏以及時(shí)間因素 ,本軟件還尚未完全完善 ,但整體的創(chuàng)作思路及數(shù)據(jù)流程已經(jīng)基本完善 .本系統(tǒng)中各個(gè)管理模塊基本已經(jīng)實(shí)現(xiàn) ,未完成的模塊我將在老師的指導(dǎo)下繼續(xù)努力使其功能日趨完善。謝謝！ 云豐小學(xué)圖書管理系統(tǒng) 第 37 頁 第 37 頁 共 49 頁 6 參考文獻(xiàn) [1] 吳迪、曲蒙編著 . 《中文 Visual Foxpro 程序設(shè)計(jì)指南》（第十二章） .清華出版社 .1999 年 2月（第一版） . [2] 王國(guó)輝、董韶華、韓旭編著 . 《 Visual Foxpro 精彩編程 200 例》（第 46 例） . 機(jī)械工業(yè)出版社 .2020 年 9月（第一版） . [3]郝鋒、何曙光編著 .《 Visual Foxpro 》（函數(shù)部分） . 電子工業(yè)出版社 .2020 年 3 月（第一版） . [4] 王國(guó)輝、董韶華、韓旭編著 . 《 Visual Foxpro 精彩編程 200 例》（第 57 例） . 機(jī)械工業(yè)出版社 .2020 年 9月（第一版） . [5] 王國(guó)輝、董韶華、韓旭編著 . 《 Visual Foxpro 精彩編程 200 例》（第 41 例） . 機(jī)械工業(yè)出版社 .2020 年 9月（第一版） . [6] 王國(guó)輝、董韶華、韓旭編著 . 《 Visual Foxpro 精彩編程 200 例》（第 94 例） . 機(jī)械工業(yè)出版社 .2020 年 9月（第一版） . [7]李紅．?dāng)?shù)據(jù)庫原理和應(yīng)用．北京：高等教育出版社， [8] 鄭人杰、殷人昆、陶永雷《實(shí)用軟件工程》第二版 .清華大學(xué)出版社 [9] Soren Requirements Styles and Techniques[M]. BeiJing: Publishing House of Electronics Industry,2590. [10] Roger Engineering A Practitioner’s Approach, 5th ed[M].北京：清華大學(xué)出版社， . [11] 杜民等 編著《 Visual Basic 程序設(shè)計(jì)與開發(fā)指南》 .高等教育出版社 [12] 張龍祥等《面向?qū)ο蟪绦蛟O(shè)計(jì)》 人民郵電出版社 [13] 吳昌平主編 《 Visual Basic 程序設(shè)計(jì)》 人民郵電出版社 [14] [美 ]馬丁 著 敏捷軟件開發(fā)：原則、模式與實(shí)踐 清華大學(xué)出版社 [15] 薩師煊，王 珊 .數(shù)據(jù)庫系統(tǒng)概論 [M].北京： 高等教育出版社 .. [16] Paul Testing A Craftsman’s Approach(second Edition)[M].China Machine Press,2020,170175. 云豐小學(xué)圖書管理系統(tǒng) 第 38 頁 第 38 頁 共 49 頁 附錄（ 1） 響應(yīng)“ Init”的事件 set dele on 響應(yīng)“掛失” Command1 的單擊事件 set dele on select b_book set filter to 狀態(tài) =allt() sele b_book set order to 圖書編號(hào) count to csum for 狀態(tài) =allt() if csum==0 nanswer=messagebox(39。確實(shí)要?jiǎng)h除此用戶嗎？！ 39。,4+32,系統(tǒng)提示 ) do case case nanswer=6 sele v_vip dele case nanswer=7 return endcase else messagebox(39。此用戶所借圖書沒有全部歸還，請(qǐng)全部歸還圖書后掛失！ 39。,系統(tǒng)提示 ) return endif 云豐小學(xué)圖書管理系統(tǒng) 第 39 頁 第 39 頁 共 49 頁 sele v_vip =39。39。 響應(yīng)“退出” Command2 的單擊事件 響應(yīng)“打印” Command3 的單擊事件 select v_vip if empty() messagebox(請(qǐng)先選擇會(huì)員 !!!,48,權(quán)限管理 ) return endif report form b_book to print preview for 狀態(tài) = =39。39。 響應(yīng)“ Destroy”的事件 select v_vip 響應(yīng)“ Unload”的事件 use v_vip exclusive pack 附錄（ 2） 新建帳戶 代碼： 響應(yīng)“確定” Command1的單擊事件 tname=alltrim() amp。amp。用戶名 tpass1=alltrim()amp。amp。第一次密碼 tpass2=alltrim()amp。amp。第二次密碼 set order to u_name amp。amp。指定控制索引文件 云豐小學(xué)圖書管理系統(tǒng) 第 40 頁 第 40 頁 共 49 頁 if empty(tname) or empty(tpass1) or empty(tpass2) amp。amp。判斷操作員字段是否為空 messagebox(請(qǐng)輸入用戶名和密碼！ ,48,系統(tǒng)提示 ) else seek tname amp。amp。查找輸入的操作員姓名 set exact on amp。amp。設(shè)置字符精確比較 if found() messagebox(用戶名重復(fù) ,請(qǐng)重新輸入！ ,16,添加用戶 ) =39。39。 =39。39。 =39。39。 else if tpass1tpass2 messagebox(密碼必須一致 ) =39。39。 =39。39。 return endif if tpass1==tpass2 appe blank tid=39。user39。+allt(str(reccount())) repl u_name with tname, u_pass with tpass1,u_id with tid messagebox(用戶已創(chuàng)建成功，請(qǐng)到用戶管理中修改用戶權(quán)限！?。? =39。39。 云豐小學(xué)圖書管理系統(tǒng) 第 41 頁 第 41 頁 共 49 頁 =39。39。 =39。39。 endif endif endif set exact off amp。amp。設(shè)置字符非精確比較 響應(yīng)“退出” Command2的單擊事件 編輯權(quán)限 代碼： 響應(yīng)“ form1” Init 的事 件 = amp。amp。賦值給 glywh 等 = = = = = = = = = = = = = = = 云豐小學(xué)圖書管理系統(tǒng) 第 42 頁 第 42 頁 共 49 頁 = = = = = = = = = = = = = = 響應(yīng)“ form1” Activate 的事件 public l l=.f. amp。amp。執(zhí)行表單的 ifenable 事件 store .f. to ,alue,.value,。 ,.value,。 ,.value,。 ,云豐小學(xué)圖書管理系統(tǒng) 第 43 頁 第 43 頁 共 49 頁 ,e, store .f. to , 響應(yīng)“ form1” Ifenable 的事件 store l to ,thisform.,bled,。 ,thisfor,abled,。 ,thisfor, amp。amp。設(shè)置控件是否有效 store .f. to ,thisform.,d, 響應(yīng)“確定 ” mand1 的單擊事件 czyname=alltrim() nAnswer=messagebox(39。確定要保存嗎？ 39。,4+32,39。權(quán)限管理 39。) if nAnswer=6 locate for u_name=czyname amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 repl xtgl with .t. 云豐小學(xué)圖書管理系統(tǒng) 第 44 頁 第 44 頁 共 49 頁 repl xtcsh with repl xtgl with repl xtcsh with repl cjyh with repl bjyh with repl scyh with repl sjbf with repl sjhf with repl czgj with repl tsgl with .t. repl lrtsxx with repl tjdy with repl hygl with .t. repl zchy with repl hygs with repl mddy with repl jhgl with .t. repl