VFP圖書管理系統(tǒng)程序設(shè)計(jì)思路

1、圖書管理系統(tǒng)設(shè)計(jì)思路系統(tǒng)簡(jiǎn)介1、本圖書管理系統(tǒng)，包含了對(duì)圖書、讀者等基本信息的管理，也包含了借書信息，還書信息等的查詢和管理。本系統(tǒng)具有如下功能：能夠修改、輸入、查詢、與圖書有關(guān)的信息，如圖書信息、讀者信息。能打印圖書信息，讀者信息等。本系統(tǒng)的初始登錄用戶名為：萬鵬 密碼為12342、本系統(tǒng)的總體設(shè)計(jì)樹狀圖系統(tǒng)登錄圖書管理信息錄入讀者服務(wù)信息維護(hù)信息查詢報(bào)表打印圖書登記讀者登記借書登記還書登記讀者讀者借閱圖書讀者清單圖書圖書具體操作步驟1、創(chuàng)建項(xiàng)目，名為圖書管理系統(tǒng)2、數(shù)據(jù)庫(kù)設(shè)計(jì)（1）在項(xiàng)目中新建三個(gè)自由表，各自由表的字段值如下：表名字段一字段二字段三字段四字段五字段六圖書圖書編號(hào)作者圖書名稱

2、價(jià)格現(xiàn)存數(shù)量出版社讀者讀者編號(hào)讀者姓名性別籍貫聯(lián)系電話專業(yè)用戶讀者編號(hào)用戶名密碼 3、界面設(shè)計(jì)（1）系統(tǒng)啟動(dòng)表單在項(xiàng)目中創(chuàng)建一個(gè)表單。如下圖添加相應(yīng)控件并在登錄按鈕的Click事件下寫入如下代碼：use 用戶.dbflogcount=logcount+1locate for alltrim(用戶.用戶名)=alltrim(thisform.text2.value)if found() and alltrim (用戶.密碼)=alltrim(thisform.text3.value)messagebox("登陸成功！歡迎進(jìn)入圖書管理系統(tǒng)",0+64,"恭喜"

3、;) do form 等待啟動(dòng).scx release thisformelse if logcount<4 then =messagebox("密碼錯(cuò)誤，請(qǐng)重新輸入！",48,"提示") else =messagebox("對(duì)不起，您無權(quán)訪問，系統(tǒng)將自動(dòng)退出！",48,"警告") release thisform endif endif 雙擊退出按鈕，并在它的Click事件寫下如下代碼： Clear event設(shè)置Form1對(duì)象的init 事件代碼為：thisform.label9.caption=ALLT

4、RIM(STR(YEAR(DATE()+"年"+ALLTRIM(STR(MONTH(DATE()+"月"+ALLTRIM(STR(DAY(DATE()+"日"+time() public logcount as integerlogcount=0（3）創(chuàng)建主表單創(chuàng)建一個(gè)表單保存為“主表單”并且設(shè)置它的ShowWindows屬性為“2作為頂層表單”如圖設(shè)置它的其他控件屬性。設(shè)置主界面對(duì)象的init 事件代碼為：DO 菜單1.mpr with this,.T.（4）創(chuàng)建主菜單如下圖創(chuàng)建主菜單表單，并且選擇“顯示”“常規(guī)選項(xiàng)”“頂層表單”分

5、別設(shè)置各個(gè)子菜單如下：信息錄入讀者服務(wù)信息維護(hù)信息查詢報(bào)表打印然后分別在各自的過程中寫入相應(yīng)的調(diào)用表單的命令。例如在讀者登記菜單的過程中寫入：Do form 讀者信息(5)創(chuàng)建主程序文件創(chuàng)建主程序文件，將其保存為“程序1”在代碼編輯窗口中，輸入以下代碼：clear all set talk offset default to e:計(jì)算機(jī)學(xué)習(xí)vfpvfp教學(xué)vf60中文幫助版.insvfp98圖書管理系統(tǒng)_screen.visible=.f.do form 登錄.scxmodify windows screen title "圖書管理系統(tǒng)"read eventquit4、表單

6、設(shè)計(jì)（1）圖書登記表單如下圖，創(chuàng)建一個(gè)名為讀者錄入的表單，在他的數(shù)據(jù)環(huán)境中添加表。然后拖動(dòng)相應(yīng)的字段到表單中，按如圖所示的位置放好。（2）借書登記表單如圖新建一個(gè)表單，把相應(yīng)的字段拖入表單中。按如圖所示的位置放好如圖添加一個(gè)命令按鈕并在他的 click事件中寫入如下代碼：USE 圖書借閱locat all for 圖書名稱=alltrim(thisform.text4.value) if found() m=alltrim(thisform.text1.value) n=alltrim(thisform.text2.value) update 圖書借閱 set 讀者姓名=m,讀者編號(hào)=n wh

7、ere 圖書名稱=alltrim(thisform.Text4.value) =messagebox("恭喜,借書成功！",64,"提示") endif（3）讀者信息維護(hù)表單創(chuàng)建一個(gè)表單，在其數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加讀者表，在表單上添加一個(gè)表格對(duì)象，一個(gè)命令按鈕組對(duì)象，如圖：設(shè)置按鈕的Click事件代碼為：dzbh=allt(bo1.value)zy=allt(thisform.text2.value) lxdh=allt(thisform.text4.value)xm=allt(thisform.Text1.value)xb=allt(bo2.value)

8、jg=allt(thisform.Text3.value)locate for 讀者編號(hào) = dzbhif found()messagebox("讀者編號(hào)不能為空",16,"錯(cuò)誤")elseif empty(xm)messagebox("姓名不能為空",16,"錯(cuò)誤")elseif empty(xb)messagebox("性別不能為空",16,"錯(cuò)誤")elseif empty(jg)messagebox("籍貫不能為空",16,"錯(cuò)誤&quo

9、t;)elseif empty(zy)messagebox("專業(yè)不能為空",16,"錯(cuò)誤")elseif empty(lxdh)messagebox("聯(lián)系電話不能為空",16,"錯(cuò)誤")elseAPPE BLANREPL 專業(yè) WITH (THISFORM.TEXT2.VALUE)REPL 聯(lián)系電話 WITH VAL(THISFORM.TEXT4.VALUE)messagebox("添加成功",64,"提示")bo1.value=""thisform.Text2.value=""thisform.Text4.value=""thisform.Text1.value=""bo2.value=""thisform.Text3.value=""endif