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

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

2、價格現(xiàn)存數(shù)量出版社讀者讀者編號讀者姓名性別籍貫聯(lián)系電話專業(yè)用戶讀者編號用戶名密碼 3、界面設(shè)計（1）系統(tǒng)啟動表單在項目中創(chuàng)建一個表單。如下圖添加相應(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 等待啟動.scx release thisformelse if logcount<4 then =messagebox("密碼錯誤，請重新輸入！",48,"提示") else =messagebox("對不起，您無權(quán)訪問，系統(tǒng)將自動退出！",48,"警告") release thisform endif endif 雙擊退出按鈕，并在它的Click事件寫下如下代碼： Clear event設(shè)置Form1對象的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)建一個表單保存為“主表單”并且設(shè)置它的ShowWindows屬性為“2作為頂層表單”如圖設(shè)置它的其他控件屬性。設(shè)置主界面對象的init 事件代碼為：DO 菜單1.mpr with this,.T.（4）創(chuàng)建主菜單如下圖創(chuàng)建主菜單表單，并且選擇“顯示”“常規(guī)選項”“頂層表單”分

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

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

7、ere 圖書名稱=alltrim(thisform.Text4.value) =messagebox("恭喜,借書成功！",64,"提示") endif（3）讀者信息維護(hù)表單創(chuàng)建一個表單，在其數(shù)據(jù)環(huán)境設(shè)計器中添加讀者表，在表單上添加一個表格對象，一個命令按鈕組對象，如圖：設(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 讀者編號 = dzbhif found()messagebox("讀者編號不能為空",16,"錯誤")elseif empty(xm)messagebox("姓名不能為空",16,"錯誤")elseif empty(xb)messagebox("性別不能為空",16,"錯誤")elseif empty(jg)messagebox("籍貫不能為空",16,"錯誤&quo

9、t;)elseif empty(zy)messagebox("專業(yè)不能為空",16,"錯誤")elseif empty(lxdh)messagebox("聯(lián)系電話不能為空",16,"錯誤")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