數(shù)據(jù)庫課程實踐

1、Visual Foxpro 課程設(shè)計報告 設(shè)計名稱：Visual Foxpro程序設(shè)計 -圖書館管理系統(tǒng) 系 （院）： 專業(yè)班級： 學(xué) 號： 姓 名： 指導(dǎo)老師： 時 間：130624-13075目 錄1、課程設(shè)計任務(wù)書2、圖書館管理系統(tǒng)設(shè)計的目的及內(nèi)容3、VFP課程設(shè)計說明書3.1系統(tǒng)概述 3.2系統(tǒng)總體設(shè)計 3.3數(shù)據(jù)庫設(shè)計 3.4系統(tǒng)設(shè)計順序圖3.5系統(tǒng)的具體設(shè)計過程3.6調(diào)試運(yùn)行退出4、實習(xí)心得數(shù)據(jù)庫系統(tǒng)課程設(shè)計任務(wù)書設(shè)計題目：圖書管理系統(tǒng)背景資料：1) 圖書室有各種圖書一萬多冊。2) 每種圖書都有書名、書號（ISBN）、一名或多名作者、出版社、定價和內(nèi)容簡介。3) 借書證記錄有借閱者

2、的姓名、所在單位、職業(yè)等。4) 憑借書證借書，每次最多能借8本書。借書期限最長為30天。設(shè)計要求：1) 進(jìn)行需求分析，編寫數(shù)據(jù)字典。2) 設(shè)計E-R圖。3) 實現(xiàn)新進(jìn)圖書的數(shù)據(jù)錄入。4) 實現(xiàn)對所有購進(jìn)圖書的分類查詢和分類統(tǒng)計。5) 能夠按書名、作者等分類查詢現(xiàn)有圖書的數(shù)量。6) 記錄借閱者的個人資料和所借圖書的書名、書號數(shù)據(jù)等。任務(wù)安排：1、每個學(xué)生選擇一個題目，獨立完成設(shè)計任務(wù)。2、提交完整的設(shè)計報告和源程序清單（以附錄形式）。3、設(shè)計報告要求，設(shè)計報告按照以下提綱書寫：1) 摘要。2) 需求分析。3) 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計。4) 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計。5) 數(shù)據(jù)流圖及程序結(jié)構(gòu)框圖。6) 程序

3、原代碼及其說明。7) 總結(jié)。圖書館管理系統(tǒng)設(shè)計的目的及內(nèi)容 在現(xiàn)代化的圖書館工作中，信息量與日俱增，讀者流量迅速增大，傳統(tǒng)的手工管理方式已經(jīng)不能適應(yīng)現(xiàn)代圖書館工作的需要，因此，圖書館信息管理系統(tǒng)是現(xiàn)代圖書館服務(wù)工作中多急切需要和應(yīng)用的一個管理系統(tǒng)。隨著信息化管理系統(tǒng)的引入，圖書館工作的效率和服務(wù)質(zhì)量將極大地提升，是傳統(tǒng)手工管理工作所無法比擬的，而且可以極大地節(jié)約人力和物力，實現(xiàn)現(xiàn)代圖書館管理工作的規(guī)范化和制度化。圖書館管理人員功能的信息量大，數(shù)據(jù)安全性和保密性要求最高。本功能實現(xiàn)對圖書信息、借閱者信息、總體借閱情況信息的管理和統(tǒng)計、工作人員和管理人員信息查看及維護(hù)。圖書館管理員可以瀏覽、查詢、

4、添加、刪除、修改、統(tǒng)計圖書的基本信息；瀏覽、查詢、統(tǒng)計、添加、刪除和修改圖書借閱者的基本信息，瀏覽、查詢、統(tǒng)計圖書館的借閱信息。 建立目標(biāo)系統(tǒng)的邏輯模型。分析目標(biāo)系統(tǒng)與當(dāng)前系統(tǒng)邏輯上的差別，明確目標(biāo)系統(tǒng)到底要“做什么”，從而從當(dāng)前系統(tǒng)的邏輯模型導(dǎo)出目標(biāo)系統(tǒng)的邏輯模型。在對上述流程進(jìn)行分析后，我們對新的圖書處理流程進(jìn)行整理，圖書館操作過程如下： （1）書籍信息管理書籍信息的輸入，包括書籍編號、書籍名稱、書籍類別、書籍作者、書籍價格、出版社等。 書籍信息的刪除，包括書籍編號、書籍名稱、書籍類別、書籍作者、出版社。 （2）讀者信息管理讀者基本信息的輸入、修改、查詢，包括讀者編號、讀者姓名、讀者種類、

5、讀者性別、地址、讀者狀況等。 讀者借書信息的輸出，包括讀者編號、讀者姓名、讀者種類、讀者性別、地址、讀者狀況等。 讀者還書信息的輸入，包括讀者編號、讀者姓名、書籍編號、書籍名稱、借書日期、還書日期等。（4）借書過程讀者從架上選到所需圖書后，將圖書和借書卡交管理人員，管理人員用碼閱讀器將圖書信息讀入處理系統(tǒng)。系統(tǒng)根據(jù)讀者ID從讀者文件和借閱文件中找到相應(yīng)記錄；根據(jù)圖書上的編號從圖書文件中找到相應(yīng)記錄。系統(tǒng)在借閱文件表中增加一條記錄，記入讀者碼、圖書條碼、借閱日期等內(nèi)容。 （5）還書過程 還書時讀者只要將書交給管理人員，管理員將書上的圖書ID錄入系統(tǒng)，系統(tǒng)從借閱文件上找到相應(yīng)記錄，填上還書日期后寫

6、入借閱歷史文件，并從借閱文件上刪去相應(yīng)記錄，同時系統(tǒng)對借還書日期進(jìn)行計算并判斷是否超期，若不超期則結(jié)束過程，若超期則計算出超期天數(shù)、罰款數(shù)。為了對圖書管理系統(tǒng)做完整的描述，還需要對上面得到的邏輯模型做一些補(bǔ)充首先采用圖形的方式描述圖書管理系統(tǒng)的用戶界面，這樣做的目的是保證整個系統(tǒng)的用戶界面的一致性，同時也有助于后續(xù)的開發(fā)人員更好地理解系統(tǒng)需要實現(xiàn)的功能其次，說明圖書管理系統(tǒng)的一些特珠性能要求。如借書、還書服務(wù)花費(fèi)的時間一次不得大于分鐘等。課程設(shè)計說明書圖書館管理系統(tǒng)1. 系統(tǒng)概述隨著我國高等教育的迅速發(fā)展,學(xué)校規(guī)模不斷擴(kuò)大,圖書館在正常運(yùn)營中總是面對大量的讀者信息，書籍信息，圖書管理員信息以及

7、這三者相互作用產(chǎn)生的借書信息，還書信息，工作人員信息。因此需要對讀者資源，書籍資源，員工資源進(jìn)行管理，利用計算機(jī)實現(xiàn)自動化控制，將會大大減輕圖書管理工作。本系統(tǒng)就是面向管理員和普通讀者多用戶系統(tǒng)。它能夠?qū)崿F(xiàn)圖書信館管理的基本功能，包括用戶登陸、讀者信息，圖書信息，管理員信息的查詢、圖書借閱排行榜、查看逾期圖書以及各種信息的打印等操作。圖書管理員必須合法注冊及輸入有效密碼才能成功進(jìn)入此系統(tǒng)，可以進(jìn)行數(shù)據(jù)查詢，數(shù)據(jù)修改、添加、刪除，打印報表等操作。對于非法操作，系統(tǒng)有識別和防護(hù)措施。1.1 系統(tǒng)組成 本系統(tǒng)由1個數(shù)據(jù)庫、1個主個程序、8個菜單、 9個表單和4個表組成。 數(shù)據(jù)庫組成：數(shù)據(jù)庫表4個：“

8、bookstab”數(shù)據(jù)表：保存所有的圖書數(shù)據(jù)；“readertab”數(shù)據(jù)表：保存所有的讀者數(shù)據(jù)“borrtab”數(shù)據(jù)表：保存圖書流通的所有數(shù)據(jù)“usertab”數(shù)據(jù)表：保存系統(tǒng)用戶的數(shù)據(jù) 查詢組成：讀者信息查詢、圖書信息查詢 、借書登記查詢表單組成：登錄界面（login）、主界面（main）、加載界面（frmcover）、操作員管理界面（frmuser）、讀者管理界面（frmreaderadd）、綜合查詢界面（frmquery）、圖書管理界面（bookmanage）、圖書借閱界面（frmborrowtab）、圖書歸還界面（frmbookreversion）。菜單組成：操作員管理、讀者管理、綜合

9、查詢、圖書類型管理、圖書管理、圖書借閱、圖書歸還和退出系統(tǒng)程序組成：主程序main1.2系統(tǒng)功能 本系統(tǒng)面向管理員的主要功能分別通過表單中的以下各項來實現(xiàn)： 通過初始化表單實現(xiàn)數(shù)據(jù)表的初始化， 通過讀者管理表單實現(xiàn)讀者各種信息的分類查詢，添加，修改，刪除打印，編輯，返回主表單。 通過圖書管理表單實現(xiàn)圖書各種信息的分類查詢，添加，修改，刪除，打印，編輯，返回主表單 。 通過管理員管理表單實現(xiàn)管理員各種信息的分類查詢，添加，修改，刪除，打印，編輯，返回主表單。 通過借閱管理表單實現(xiàn)學(xué)生的借書，還書，查看逾期圖書，查看圖書借閱排行，打印排行榜，返回主表單。 通過日常生活管理表單實現(xiàn)圖書館開放時間查詢

10、，返回主表單。本系統(tǒng)面向普通讀者的主要功能分別通過菜單中的以下各項來實現(xiàn)： 通過信息查詢實現(xiàn)圖書信息，借閱信息，圖書館管理及其相關(guān)信息的 通過設(shè)備報表打印菜單各種信息的打印輸出 通過借書還書實現(xiàn)書籍管理 通過退出菜單實現(xiàn)系統(tǒng)的退出1.3系統(tǒng)預(yù)覽登錄界面系統(tǒng)主界面.系統(tǒng)總體設(shè)計. 系統(tǒng)設(shè)計思想2.2 系統(tǒng)功能模塊劃分 根據(jù)系統(tǒng)調(diào)查階段的數(shù)據(jù)資料，并依據(jù)用戶的要求，確定該圖書館的基本功能和工作過程。 根據(jù)響應(yīng)的功能要求，我們繪制系統(tǒng)的功能分析圖如圖所示：圖書館管理系統(tǒng)管理員登錄圖書借閱圖書管理圖書歸還退出系統(tǒng)綜合查詢讀者注冊管理注冊3.數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫

11、結(jié)構(gòu)設(shè)計的好壞直接對應(yīng)用系統(tǒng)的效率，以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。設(shè)計數(shù)據(jù)庫時應(yīng)該首先充分了解用戶各個方面的需求，包括現(xiàn)有的及將來可能增加的需求。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟。（1）數(shù)據(jù)庫需要分析（2）數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計（3）數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計3.1數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)，以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。通過上述系統(tǒng)功能分析，針對一般圖書館管理信息系統(tǒng)的需求，總結(jié)出如下需求信息。（1）

12、讀者信息數(shù)據(jù)：包括讀者各方面的信息數(shù)據(jù)（2）圖書信息數(shù)據(jù)：包括圖書類別，出版社，編號等信息數(shù)據(jù)（3）登陸人員信息數(shù)據(jù)：包括圖書館管理員、使用者信息數(shù)據(jù)。（4）借閱信息數(shù)據(jù)：包括借閱過程所涉及的讀者和圖書數(shù)據(jù)。在上面的需求分析、數(shù)據(jù)結(jié)構(gòu)設(shè)計、數(shù)據(jù)項分析的基礎(chǔ) 上，下面可以開始數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計了。3.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。各個實體具體的描述E-R圖如下。3.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫的概念結(jié)構(gòu)設(shè)計完畢后，現(xiàn)在可以將上

13、面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為某種數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 圖書館管理系統(tǒng)中使用的各個數(shù)據(jù)表的字段設(shè)置如下所示。圖書資料數(shù)據(jù)表字 段 名 數(shù) 據(jù) 類 型 索引字段大小圖書編號字符型主索引10圖書名稱字符型20作者字符型50圖書類型 字符型16出版社 字符型20簡介 字符型4價格 貨幣型8入館日期日期型8圖書狀態(tài)字符型4目前持書人字符型10借閱表信息數(shù)據(jù)表字 段 名數(shù) 據(jù) 類 型索引字段大小圖書編號字符型 主索引10讀者編號字符型10圖書名稱字符型2借書日期日期型8歸還日期日期型8圖書類型字符型16經(jīng)辦人字符型8讀者信息數(shù)據(jù)表字 段 名數(shù) 據(jù) 類 型索引讀者編號字符型主

14、索引10讀者名稱字符型普通索引10年級字符型普通索引10班級字符型10專業(yè)字符型10性別字符型4類別字符型6注冊日期字符型10可借本數(shù)數(shù)值型2經(jīng)辦人字符型10管理員信息數(shù)據(jù)表字段名數(shù)據(jù)類型索引用戶名字符型主索引20密碼字符型203.4 數(shù)據(jù)庫具體內(nèi)容 本系統(tǒng)由1個數(shù)據(jù)庫、4個數(shù)據(jù)庫表、9個表單、一個主程序以及一個菜單、若干圖片等內(nèi)容組成。 具體內(nèi)容：（1）表單9個：登陸、讀者信息查詢、圖書資料查詢、借書登記查詢、還書、管理表單、身份驗證、信息查詢、新書入庫（3）主程序：mian.prg代碼： *main.prg*系統(tǒng)環(huán)境設(shè)置*CLEARCLEAR ALL Close allset talk o

15、ff &關(guān)閉命令顯示set dele on set safe off Set exact onSet default to *啟動主表單，執(zhí)行登錄表單，進(jìn)入事件循環(huán)do form frmcoverread events（4）菜單組成：系統(tǒng)維護(hù)、借還操作、資料查詢、數(shù)據(jù)管理、報表打印、退出系統(tǒng)子菜單：初始化、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、清空數(shù)據(jù)、密碼設(shè)置4、系統(tǒng)的具體設(shè)計過程：4.1數(shù)據(jù)庫的設(shè)計：建立數(shù)據(jù)庫表：1) 數(shù)據(jù)庫表2) 管理員用戶信息表3) 讀者信息表4) 圖書借閱表5) 圖書信息表4.2 表單設(shè)計以及代碼輸入：a. 登陸組成：標(biāo)簽1圖書館管理系統(tǒng)按鈕登陸按鈕退出按鈕重填代碼如下：程序代碼登陸

16、if len(alltrim(thisform.text2.value)=0 or len(alltrim(thisform.text2.value)=0 then messagebox(請輸入完整登錄信息,48,提示信息) returnendif close all use usertablocate for allt(thisform.Text1.value)=allt(用戶名) if found() if allt(thisform.Text2.value)=allt(密碼)messagebox(登陸成功！,0+64,恭喜)delete from usertab where 用戶名=al

17、lt(thisform.text1.value)do form frmcoverthisform.release elsemessagebox(密碼錯誤！請檢查后重新輸入！,0+64,錯誤)thisform.Text2.value=thisform.Text2.setfocus endifelse messagebox(該用戶不存在，請檢查您的用戶名！,0+64,錯誤)endif退出thisform.release重填Thisform.text1.value=Thisform.text.value=b. 主頁面main表單caption代碼按鈕1操作員管理do form frmuser按鈕2讀

18、者管理do form frmreaderadd按鈕3綜合查詢do form frmquery按鈕4圖書管理do form bookmanage按鈕5圖書借閱do form frmborrowtab按鈕6圖書歸還Do form frmquery按鈕7退出系統(tǒng)Thisform.releasec. 圖書借閱表單控件caption屬性事件或方法程序代碼label圖書編號label圖書編號Text1keypressLPARAMETERS nKeyCode, nShiftAltCtrlText2keypressLPARAMETERS nKeyCode, nShiftAltCtrlCommand1借出cli

19、ckif len(alltrim(thisform.txtbookid.text)=0 or len(alltrim(thisform.txtusername.text)=0 then messagebox(輸入信息不完整，請輸入完整！,64,提示信息) returnendif&判斷該讀者是否超出可借本數(shù)dimension books(1)select 可借本數(shù) from readertab where 讀者編號=alltrim(thisform.txtusername.value) into array booksif books 0 then messagebox(該圖書已借出,64,提示

20、信息) returnendifupdate bookstab set 圖書狀態(tài)=已借 where 圖書編號=alltrim(thisform.txtbookid.text)&更新borrtab表數(shù)據(jù)&update borrtab set 圖書名稱=mingzi(1),圖書類型=mingzi(2) where 讀者編號=allt(thisform.txtusername.text) and 圖書編號=allt(thisform.txtbookid.text)dimension chishuren(1)select 讀者名稱 from readertab where 讀者編號=alltrim(th

21、isform.txtusername.text) into array chishurenupdate bookstab set 目前持書人=allt(chishuren(1) where 圖書編號=alltrim(thisform.txtbookid.text)dimension mingzi(2)select 圖書名稱,圖書類型 from bookstab where 圖書狀態(tài)=已借 and 圖書編號=allt(thisform.txtbookid.text) into array mingzidimension ab(1)select 用戶名 from usertab where del

22、eted() into array abinsert into borrtab(圖書編號,圖書名稱,讀者編號,借書日期,圖書類型) values(alltrim(thisform.txtbookid.text),mingzi(1),alltrim(thisform.txtusername.text),date(),mingzi(2)thisform.grdborrtab.refreshmessagebox(借書成功,48,提示信息)update readertab set 可借本數(shù)=可借本數(shù)-1 where 讀者編號=alltrim(thisform.txtusername.text)& 可借

23、本數(shù)調(diào)整 local linshi select * from bookstab where 圖書狀態(tài)=未借 into cursor linshigo topthisform.grdborrtab.recordsourcetype=0thisform.grdborrtab.recordsource=linshi thisform.grdborrtab.refreshCommand2退出clickthisform.released、圖書歸還控件caption屬性事件或方法程序代碼Label 圖書編號Text1keypressLPARAMETERS nKeyCode, nShiftAltCtrlC

24、ommand1還書clickif len(alltrim(thisform.bookidtxt.text)=0 then messagebox(無效的圖書編號！,48,提示信息) returnendifupdate bookstab set 圖書狀態(tài)=未借 where 圖書編號=alltrim(thisform.bookidtxt.value)update bookstab set 目前持書人= where 圖書編號=alltrim(thisform.bookidtxt.value) update borrtab set 歸還日期=date() where empty(歸還日期) and 圖書

25、編號=alltrim(thisform.bookidtxt.value)dimension linshiid(1)select 讀者編號 from borrtab where 圖書編號=alltrim(thisform.bookidtxt.value) into array linshiidupdate readertab set 可借本數(shù)=可借本數(shù)+1 where 讀者編號=allt(linshiid(1)messagebox(歸還成功,64,提示信息)thisform.bookborrgrid.refreshthisform.bookidtxt.value= local linshi se

26、lect * from bookstab where 圖書狀態(tài)=已借 into cursor linshi go topthisform.bookborrgrid.recordsourcetype=0thisform.bookborrgrid.recordsource=linshi thisform.bookborrgrid.refreshthisform.bookidtxt.setfocus Command2退出clickthisform.releasee、綜合查詢控件caption屬性事件或方法程序代碼Label1查詢Combol1Combol2Combol3Command1查詢click

27、local tabtemp,comtmp&select * from bookstab where 圖書狀態(tài)=未借 into cursor tabtempcomtmp=alltrim(bo2.value)do casecase comtmp=未借圖書select * from bookstab where 圖書狀態(tài)=未借 into cursor tabtemp case comtmp=已借圖書 select * from borrtab where empty(歸還日期) into cursor tabtemp otherwiseif len(alltrim(thisform.text1.va

28、lue)=0 then messagebox(請輸入正確的編號,48,提示信息) return endifif comtmp=圖書編號 then select 圖書狀態(tài),圖書編號,圖書名稱,圖書類型,出版社,作者,價格 from bookstab where 圖書編號= alltrim(thisform.text1.value) into cursor tabtempelse select 讀者編號,圖書編號,圖書名稱,借書日期,歸還日期 from borrtab where 讀者編號 =alltrim(thisform.text1.value) into cursor tabtempendi

29、fendcasego topthisform.grid1.recordsourcetype=0thisform.grid1.recordsource=tabtempthisform.grid1.refreshCommand2退出clickthisform.releasee、 圖書管理控件caption屬性事件或方法程序代碼Text1Text2Text3Combol1圖書入庫clicklocal linshiselect * from bookstab into cursor linshigo topthisform.grid1.recordsourcetype=0thisform.grid1.

30、recordsource=linshithisform.grid1.refreshdimension j(9)if this.caption=圖書入庫 then this.caption=確定 mand3.enabled=.f.else j(1)=alltrim(thisform.txtbookid.value) j(2)=alltrim(thisform.txtbookname.value) j(3)=alltrim(booktypename.value) j(4)=alltrim(thisform.txtbookcon.value) j(5)=alltrim(thisform.edtbri

31、ef.value) j(6)=alltrim(thisform.txtauthor.value) j(7)=alltrim(thisform.txtprice.value) j(8)=date() j(9)=未借 if len(j(1)=0 or len(j(2)=0 or len(j(3)=0 or len(j(4)=0 or len(j(5)=0 or len(j(6)=0 or len(dtoc(j(8)=0 then messagebox(輸入信息不完整！,提示信息) return endif close ALL select 1 use bookstab excl locate fo

32、r 圖書編號=j(1) if !eof() thenmessagebox(該圖書編號已經(jīng)存在！,64,提示信息) return elseinsert into bookstab from array jmessagebox(圖書添加成功,0+48,信息提示) this.caption=圖書入庫 mand3.enabled=.t. mand4.enabled=.t. thisform.init endif endif local linshi select * from bookstab into cursor linshi go top thisform.grid1.recordsourcet

33、ype=0 thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand1編輯信息clickclose data all dimension booktmp(7)if this.caption=編輯信息 then if len(alltrim(thisform.txtbookid.value)=0 thenmessagebox(輸入要修改的圖書編號,48,提示信息returnendifthis.caption=確定select * from bookstab where 圖書編號 = alltrim(thisform.txtb

34、ookid.value) into array booktmp thisform.txtbookid.value=booktmp(1) thisform.txtbookname.value=booktmp(2)booktypename.value=booktmp(3) thisform.txtbookcon.value=booktmp(4) thisform.edtbrief.value=booktmp(5) thisform.txtauthor.value=booktmp(6) thisform.txtprice.value=booktmp(7)else this.caption=編輯信息

35、mand2.enabled=.t. mand4.enabled=.t. thisform.txtbookid.enabled=.t.booktmp(1)=allt(thisform.txtbookid.value)booktmp(2)=allt(thisform.txtbookname.value)booktmp(3)=allt(booktypename.value) booktmp(4)=thisform.txtbookcon.value booktmp(5)=thisform.edtbrief.value booktmp(6)=thisform.txtauthor.value booktm

36、p(7)=thisform.txtprice.value use select 2 use bookstab update bookstab set 圖書名稱=booktmp(2), 圖書類型=booktmp(3),出版社=booktmp(4),簡介=booktmp(5),作者=booktmp(6),價格=booktmp(7) where 圖書編號=booktmp(1) use messagebox(圖書信息更新成功,48,提示信息)endifclose data all local linshi select * from bookstab where 圖書編號 = alltrim(this

37、form.txtbookid.value) into cursor linshi go topthisform.grid1.recordsourcetype=0thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand3刪除信息clickclose database allif len(alltrim(thisform.txtbookid.value)=0 then messagebox(請輸入要修改的圖書編號,48,提示信息) thisform.txtbookid.setfocus returnendiflocal tmp

38、select * from bookstab where 圖書編號 = alltrim(thisform.txtbookid.value) into cursor tmp if tmp.圖書狀態(tài)=已借 then messagebox(該圖書已被借出，目前不能對其刪除操作,64,提示信息) thisform.txtbookid.setfocus returnendifclose allselect 3use bookstab excldelete from bookstab where 圖書編號= alltrim(thisform.txtbookid.value)packusemessagebo

39、x(刪除成功！,64,提示信息)thisform.initthisform.txtbookid.setfocus local linshi select * from bookstab into cursor linshi go topthisform.grid1.recordsourcetype=0thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand4查詢clickclose database allif len(alltrim(thisform.txtbookid.value)=0 then messagebox(

40、請輸入要修改的圖書編號,48,提示信息) thisform.txtbookid.setfocus returnendiflocal tmpselect * from bookstab where 圖書編號 = alltrim(thisform.txtbookid.value) into cursor tmp if tmp.圖書狀態(tài)=已借 then messagebox(該圖書已被借出，目前不能對其刪除操作,64,提示信息) thisform.txtbookid.setfocus returnendifclose allselect 3use bookstab excldelete from b

41、ookstab where 圖書編號= alltrim(thisform.txtbookid.value)packusemessagebox(刪除成功！,64,提示信息)thisform.initthisform.txtbookid.setfocus local linshi select * from bookstab into cursor linshi go top thisform.grid1.recordsourcetype=0 thisform.grid1.recordsource=linshi thisform.grid1.refreshCommand5退出clickThisfo

42、rm.realeaseGrid1recordsource1g、操作員管理控件caption屬性事件或方法程序代碼Command1添加clickdimension s(5)if this.caption=添加 then this.caption=確定 mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. public userxm select * from usertab where deleted() into cursor userxm s(5)=userxm.管理員 thisform.txtregadmin.value=s(5)els

43、e s(1)=alltrim(thisform.txtusername.value) s(2)=alltrim(thisform.txtuserpwd.value) s(3)=date() s(4)=alltrim(usertype.value) s(5)=trim(thisform.txtregadmin.value) if len(s(1)=0 or len(s(2)=0 or len(s(4)=0 then messagebox(輸入信息不完整！) return endif insert into usertab from array s messagebox(用戶注冊成功,0+48,信

44、息提示) this.caption=添加 mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. thisform.txtusername.value= thisform.txtuserpwd.value= thisform.txtregadmin.value= thisform.grid1.refreshendifCommand2刪除clickdimension s(5)if this.caption=添加 then this.caption=確定 mand2.enabled=.f. mand3.enabled=.f. mand4.enab

45、led=.f. public userxm select * from usertab where deleted() into cursor userxm s(5)=userxm.管理員 thisform.txtregadmin.value=s(5)else s(1)=alltrim(thisform.txtusername.value) s(2)=alltrim(thisform.txtuserpwd.value) s(3)=date() s(4)=alltrim(usertype.value) s(5)=trim(thisform.txtregadmin.value) if len(s(

46、1)=0 or len(s(2)=0 or len(s(4)=0 then messagebox(輸入信息不完整！) return endif insert into usertab from array s messagebox(用戶注冊成功,0+48,信息提示) this.caption=添加 mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. thisform.txtusername.value= thisform.txtuserpwd.value= thisform.txtregadmin.value= thisform.grid

47、1.refreshendifCommand3修改clickdimension s(5)if this.caption=添加 then this.caption=確定 mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. public userxm select * from usertab where deleted() into cursor userxm s(5)=userxm.管理員 thisform.txtregadmin.value=s(5)else s(1)=alltrim(thisform.txtusername.value)

48、 s(2)=alltrim(thisform.txtuserpwd.value) s(3)=date() s(4)=alltrim(usertype.value) s(5)=trim(thisform.txtregadmin.value) if len(s(1)=0 or len(s(2)=0 or len(s(4)=0 then messagebox(輸入信息不完整！) return endif insert into usertab from array s messagebox(用戶注冊成功,0+48,信息提示) this.caption=添加 mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. thisform.txtuser