【正文】 檔案）數(shù)據(jù)庫表結構如下： 字段 字段名 類型 寬度 1 借書證號 字符型 8 2 姓名 字符型 10 3 性別 字符型 2 4 專業(yè) 字符型 10 5 班級 字符型 10 （借書記錄） 數(shù)據(jù)庫表借物如下： 字段 字段名 類型 寬度 1 借書證號 字符型 8 2 圖書編號 字符型、 6 3 借書日期 日期型 8 4 還書日期 日期型 8 下面將本系統(tǒng)的邏輯模型圖列出如下： 物理設計 以邏輯設計的結果作為輸入，結合具體 DBMS 的特點與存儲設備特性進行設計，選定數(shù)據(jù)庫在物理設備上的存儲結構和存取方法。 存儲結構和存取 本系統(tǒng)的數(shù)據(jù)直接存 放在電腦的硬盤上，進行直接存取方法。 DO _0y40w84bg 。MPR|FXP。 DO _0y40w84br 。MPR|FXP。 DO _0y40w84bv 。MPR|FXP。 FROM tsgl!dj INNER JOIN tsgl!js。 ON = 。 WHERE 。 with messagebox(借書成功 ,0+64) = = endif endif ENDIF endif Commnand2(取消 ).Click 還書表單 () 程序： =date() Command1(確定 ).Click select dj locate for 借書證號 = if found()=.f. messagebox(沒有這個讀者記錄，請查證后重新輸入 !,0+64) = ELSE select ts set delete on locate for 圖書編號 = if found()=.f. messagebox(沒有這本書或這本書已歸還了，請重新輸入！ ,0+64) = ELSE SELECT js locate for 借書證號 = and 圖書編號 = if found()=.f. messagebox(此輸入有誤，請重新輸入！ ,0+16) = = else replace 還書日期 with delete messagebox(還書成功 ,0+64) = = ENDIF ENDIF ENDIF Command2(返回 ).Click 系統(tǒng)查詢模塊： 1）、按編 號查詢圖書（ ） 程序： Command1(確定 ).Click use ts locate for 圖書編號 = if found()=.t. = = = = = else messagebox(沒有這個書名，請重新輸入 ,0+64) = endif Command2(取消 ).Click 2）、按書名查詢圖書（ ） Command1(確定 ).Click close all use ts locate for 書名 =trim(sm) if not found() messagebox(經(jīng)查詢沒有這個書名，請查證后再輸入 ,0+32) else use ts sele all 圖書編號 , 書名 , 作者 , 出版社 , 單價 from ts where 書名 =trim(sm) endif Command2(返回 ).Click 3)、按作者查詢圖書表單（ ） 程序： Command1(確定 ).Click close all use ts locate for 作者 =trim(au) if not found() messagebox(經(jīng)查詢沒有這個作者的書，請查證后再輸入 ,0+32) else use ts sele all 圖書編號 , 書名 , 作者 , 出版社 , 單價 from ts where 作者 =trim(au) endif Command2.(返回 ).Click 4)、按出版社查詢（ ） 程序： Command1(確定 ).Click close all use ts locate for 出版社 =trim(pu) if not found() messagebox(經(jīng)查詢沒有這個出版社的書，請查證后再輸入 ,0+32) else use ts sele all 圖書編號 , 書名 , 作者 , 出版社 , 單價 from ts where 出版社 =trim(pu) endif Command2(返回 ).Click 5）、按借書證號查詢讀者（ ） 程序： Command1(確定 ).Click use dj locate for 借書證號 = if found()=.f. messagebox(沒有這個記錄 ,請查證后重新輸入 ,0+64) = else =借書證號 =姓名 =性別 =專業(yè) =班級 endif Command2(取消 ).Click 6)、按姓名查詢讀者（ ） 程序： Command1(確定 ).Click close all use dj locate for 姓名 =trim(xm) if not found() messagebox(經(jīng)查詢沒有這個姓名，請查證后再輸入 ,0+32) else use dj sele all 借書證號 , 姓名 , 性別 , 專業(yè) , 班級 from dj where 姓名 =trim(xm) endif Command2(取消 ).Click 7)、按專業(yè)查詢讀者（ ）表單 程序： Command1(確定 ).Click close all use dj locate for 專業(yè) =trim(jy) if not found() messagebox(經(jīng)查詢沒有這個專業(yè)的學生，請查 證后再輸入 ,0+32) = else use dj sele all 借書證號 , 姓名 , 性別 , 專業(yè) , 班級 from dj where 專業(yè) =trim(jy) endif Command2(返回 ).Click 8）、按班級查詢讀者表單（ ） 程序： Command1(確定 ).Click close all use dj locate for 班級 =trim(bj) if not found() messagebox(經(jīng)查詢沒有這個班級的學生，請查證后再輸入 ,0+32) = else use dj sele all 借書證號 , 姓名 , 性別 , 專業(yè) , 班級 from dj where 班級 =trim(bj) endif Command2(返回 ).Click 系統(tǒng)維護模塊 1）、添加圖書檔案表單（ ） 程序： Command1(添加 ).Click close all use ts if =添加 go bottom append blank =保存 =放棄 else locate for 圖書編號 = if found()=.t. messagebox(書號已存在 ,請重新輸入 !,0+64,信息 ) = else go bottom replace 圖書編號 with , 書名 with 。 單價 with = = = = = =添加 =關閉 endif endif Command2(關閉 ).Click if =關閉 else if =保存 delete pack = = = = = =添加 =關閉