【正文】 oks locate for allt()=allt(isbn) if found() =書名 else =未找到 56 endif Combo1 的 lostfocus event 代碼： Command1 的 click event 代碼： x1=allt() x2=allt() y1=.F. sele readpeople locate for x1=allt(編號(hào) ) if found() t3=權(quán)限 endif sele books locate for x2=allt(isbn) if found() t4=allt(書名 ) endif if allt()==未找到 Messagebox(未找到此書 ,0,提示 ) else sele jieboos go top locate for allt(read 編號(hào) )=x1 and allt(書名 )=t4 if found(。檢查是否在庫找到該用戶 if found() messagebox(此用戶名已經(jīng)存在 ,0,注冊提示 ) amp。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 readpeople 不存在，請(qǐng)檢查后再試！ ,0+16,警告 ) else select readpeople amp。amp。amp。amp。amp。amp。amp。amp。amp。sele books locate for =借閱狀態(tài) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==借閱狀態(tài) into cursor temp else messagebox(對(duì)不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif Command2 的 click event 代碼： Text1 的 click event 代碼： sele * from books into cursor temp amp。sele books amp。sele books locate for =單價(jià) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==單價(jià) into cursor temp else messagebox(對(duì)不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==類別 if == messagebox(你沒有選擇要查找的內(nèi)容 ,0+16,提示 ) else amp。amp。amp。amp。amp。amp。 KEY CTRL+X, Ctrl+X 。 KEY CTRL+V, Ctrl+V 。 KEY CTRL+G, CTRL+G 11 DEFINE BAR 2 OF 查詢圖書 g PROMPT 按書名 DEFINE BAR 3 OF 查詢圖書 g PROMPT 按任意條件 ON SELECTION BAR 1 OF 查詢圖書 g do form 查詢 按 ON SELECTION BAR 2 OF 查詢圖書 g do form 查詢 按書名 .scx ON SELECTION BAR 3 OF 查詢圖書 g do form 查詢 按任意條件 .scx DEFINE POPUP 修改圖書 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 修改圖書 PROMPT 按 ISBN ON SELECTION BAR 1 OF 修改圖書 do form 修改 按 DEFINE POPUP 刪除圖書 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 刪除圖書 PROMPT 按 ISBN DEFINE BAR 2 OF 刪除圖書 PROMPT 按任意條件 ON SELECTION BAR 1 OF 刪除圖書 do form 刪除 按 ON SELECTION BAR 2 OF 刪除圖書 do form 刪除 按任意條件 .scx DEFINE POPUP 讀者管理 b MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 讀者管理 b PROMPT 讀者信息 (\K) 。 KEY CTRL+D, CTRL+D 10 DEFINE PAD _34v1cqn4a OF _MSYSMENU PROMPT 關(guān)于熊瑋 (\E) COLOR SCHEME 3 。各實(shí)體間的關(guān)系如圖： 7 邏輯結(jié)構(gòu)設(shè)計(jì) 圖書的基本信息表（ ） 列名 數(shù)據(jù)類型 可否為空 說明 Isbn 字符型（ 10） 否 圖書 isbn 號(hào)碼 書名 字符型（ 50） 否 書名 作者 字符型（ 10） 否 圖書的作者 出版社 數(shù)值型（ 50） 否 圖書的出版社 單價(jià) 數(shù)值 型（ ） 否 圖書單價(jià) 類別 字符型（ 20） 否 圖書類別 購買日期 日期 型（ 10） 否 圖書的購買日期 簡介 字符型（ 200） 否 圖書的簡介 借閱狀態(tài) 邏輯 型（ 10） 否 圖書的借閱狀態(tài) 所借圖書的讀者與圖書信息表（ ） 列名 數(shù)據(jù)類型 可否為空 說明 Read 編號(hào) 字符型（ 10） 否 讀者的編號(hào) 書名 字符型（ 50） 否 書名 讀者的基本信息表（ ） 列名 數(shù)據(jù)類型 可否為空 說明 編號(hào) 字符型（ 10） 否 讀者的編號(hào) 班級(jí) 字符型（ 6） 否 讀者所在班級(jí) 姓名 字符型（ 10） 否 讀者姓名 學(xué)號(hào) 字符型（ 6） 否 讀者學(xué)號(hào) 8 姓別 字符型（ 2） 否 讀者性別 權(quán)限 數(shù)值型 （ 1） 否 讀者還能借書的本數(shù) 頭像 通用型 （ 4） 否 讀者的個(gè)人頭像 管理員信息表（ ） 列名 數(shù)據(jù)類型 可否為空 說明 用戶名 字符型（ 10） 否 管理員的用戶名 密碼 字符型（ 10） 否 管理員的密碼 9 主程序清單 主程序 代碼如下：（主程序 ） set talk off modify window screen titl圖書管理系統(tǒng) 熊瑋版 clea do FORM wele do form 登陸界面 do form 改進(jìn)說明 read events 主菜單代碼如下：（主界面 .MNT） SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD _34v1cqn46 OF _MSYSMENU PROMPT 圖書管理 (\A) COLOR SCHEME 3 。 三、 數(shù)據(jù)流圖 6 數(shù)據(jù)庫設(shè)計(jì) 創(chuàng)建數(shù)據(jù)庫是設(shè)計(jì)系統(tǒng)的第一步，其關(guān)鍵問題在于確定所需的表結(jié)構(gòu)并為之建立索引。 圖書管理模塊 該模塊提供圖書查詢、修改、刪除、入庫功能界面。我以 Visual Foxpro 為環(huán)境，開發(fā)了此應(yīng)用 軟件，本系統(tǒng)適用于各類小型圖書館，以及各類大中專院校、中小學(xué)校的圖書館和資料室的現(xiàn)代化綜合管理。 1 visual foxpro 課程設(shè)計(jì)報(bào)告 專 業(yè)： 珠寶學(xué)院珠寶設(shè)計(jì)專業(yè) 班 級(jí)： 142091 學(xué) 號(hào)： 20211000224 姓 名： 熊瑋 題目名稱： 圖書管理系統(tǒng) 熊瑋版 完成日期： 2021 年 1 月 29 日 2 目目 錄錄 一、 前言 ——————————————— 3 二、 系統(tǒng)概況 ————————————— 3 三、 需求分析 ————————————— 2 四、 數(shù)據(jù)庫設(shè)計(jì) ———————————— 4 五、 主程序清單 ———————————— 9 六、 模塊界面 與代碼 —————————— 13 七、 設(shè)計(jì)小結(jié) ————————————— 63 3 前 言 長期以來，圖書管理都是依賴人工進(jìn)行的，面對(duì)如此眾多的圖書信息，其工作量可想而知，不僅僅浪費(fèi)了大量的人力物力，而且由于人工管理存在著大量的不可控因素，造成了圖書管理的某些不規(guī)范。 在電子信息化時(shí)代，設(shè)計(jì)一款計(jì)算機(jī)圖書管理系統(tǒng)尤為必要，它不僅能大大減輕圖書館工作人員的工作量，而且全面提高圖書館的管理效率及服務(wù)質(zhì)量。 二、 系統(tǒng)功能模塊設(shè)計(jì) 本系統(tǒng)分為如下的幾大模塊： 主界面模塊 該模塊提供管理系統(tǒng)的主界面，是主系統(tǒng)的唯一入口和出口，該界面提供用戶選擇并調(diào)。 5 其他模板 提供設(shè)計(jì)作者介紹、程序升級(jí)說明和系統(tǒng)退出的界面。根據(jù)上面的分析所得的實(shí)體有： 圖書的基本信息 實(shí)體 （ books） 、 所借圖書的讀者與圖書信息 實(shí)體 （ jieboos） 、 讀者的基本信息實(shí)體 （ readpeople） 。 KEY CTRL+C, CTRL+C DEFINE PAD _34v1cqn49 OF _MSYSMENU PROMPT 打印顯示 (\D) COLOR SCHEME 3 。 KEY CTRL+H, CTRL+H ON BAR 1 OF 圖書管理 a ACTIVATE POPUP 查詢圖書 g ON BAR 2 OF 圖書管理 a ACTIVATE POPUP 修改圖書 ON BAR 3 OF 圖書管理 a ACTIVATE POPUP 刪除圖書 ON SELECTION BAR 4 OF 圖書管理 a do form 入庫 .scx DEFINE POPUP 查詢圖書 g MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 查詢圖書 g PROMPT 按 ISBN(\G) 。 KEY CTRL+M, CTRL+M DEFINE BAR 2 OF 關(guān)于熊瑋 e PROMPT 改進(jìn)說明 ON SELECTION BAR 1 OF 關(guān)于熊瑋 e do form 關(guān)于我 .scx ON SELECTION BAR 2 OF 關(guān)于熊瑋 e do form 改進(jìn)說明 .scx 快捷菜單代碼如下： DEFINE POPUP 快捷菜單 SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR _med_paste OF 快捷菜單 PROMPT 粘貼 (\P) 。 MESSAGE 將選定內(nèi)容復(fù)制到剪貼板上 DEFINE BAR _med_cut OF 快捷菜單 PROMPT 剪切 (\T) 。 MESSAGE 撤消上一次命令或操作 ACTIVATE POPUP 快捷菜單 13 模塊界面 登陸界面： 對(duì)象名 屬性與屬性值 說明 Form1 登陸界面 Text1 輸入用戶名 Text2 輸入密碼 Command1 確定按鈕 14 Command2 注冊按鈕 Command3 退出按鈕 Form1 的 init event 代碼： mand1 的 click event 代碼： sele user1 locate for allt()==allt(用戶名 ) if found() if a