【正文】 thisform else messagebox(注冊成功 ,0+48,注冊提示 ) insert into readpeople( 編號 , 姓名 , 班級 , 學號 , 姓別 , 權限 ) values( m1,m3,m2,m4,m5,6) append general from getpict() endif endif 53 1讀者借還書 對象名 屬性與屬性值 說明 Form1 讀者借還書界面 Pageframe1 讀者借還書頁框 Page1 借書頁 Text3 所借書名 Command1 確定按鈕 Command2 退出按鈕 54 Combo2 所借圖書編號 Combo1 借書讀者編號 Page2 還書頁 Text3 所還書名 Command1 確定按鈕 Command2 退出按鈕 Combo1 還書人編號 Combo2 所還圖書編號 Form1 的 init event 代碼： =0 sele books go top do while .not. eof() if 借閱狀態(tài) ==.F. t4=allt(isbn) (t4) endif skip enddo =0 55 sele books go top do while .not. eof() if 借閱狀態(tài) ==.T. t3=allt(isbn) (t3) endif skip enddo Command1 的 click event 代碼： t1=allt() t2=allt() s1=.T. sele books locate for t2=allt(isbn) if found() s2=allt(書名 ) endif sele readpeople locate for t1=allt(編號 ) if found() t3=權限 endif sele jieboos locate for allt(書名 )=s2 if found() aa=1 else aa=2 endif if t30 and aa=2 messagebox(借閱成功 ,0+48,提示 ) t3=t31 sele readpeople replace 權限 with t3 for t1=allt(編號 ) sele books replace 借閱狀態(tài) with s1 for t2=allt(isbn) sele jieboos insert into jieboos(read 編號 ,書名 ) value(t1,s2) else messagebox(您已經超過權限 ,或此書已借出 ,0+48,提示 ) endif Command2 的 click event 代碼： Combo2 的 Lostfocus event 代碼： sele books 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(編號 ) if found() t3=權限 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 編號 )=x1 and allt(書名 )=t4 if found(。檢查是否在庫找到該用戶 if found() messagebox(此用戶名已經存在 ,0,注冊提示 ) amp。選取 account 表 locate for allt()==allt(編號 ) amp。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 readpeople 不存在，請檢查后再試！ ,0+16,警告 ) else select readpeople amp。 != and != messagebox(修改成功 ,0+48,修改提示 ) replace 班級 with t1,姓名 with t2,學號 with t3,姓別 with t4,權限 with t5 for t9=allt( ) else 50 messagebox(不能有空 ,0+48,修改提示 ) endif Command7 的 click event 代碼： 51 1讀者注冊 對象名 屬性與屬性值 說明 Form1 讀者注冊界面 Text1 編號 Text2 班級 Text3 姓名 Text4 學號 Command1 退出 Command2 錄入 下一位 Command3 上傳頭像并保存 52 Combo1 性別 Oleboundcontrol1 頭像 Text1/2/3/4 的 rightclick event 代碼： do 快捷菜單 .MPR mand1 的 click event 代碼： mand2 的 click event 代碼： = = = = mand3 的 click event 代碼： m1=allt() m2=allt() m3=allt() m4=allt() if =男 m5=男 else m5=女 endif if select(readpeople)=0 amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 != and != and。amp。amp。amp。占擊時使表中的數(shù)據(jù)轉入另一表中 ,因為如不轉入第一次查詢后 ,再查的話 ,相當于第二次是在第一次的基礎上再查的 。sele books locate for =借閱狀態(tài) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==借閱狀態(tài) into cursor temp else messagebox(對不起 ,沒有相關內容 ,0+48,提示 ) endif endif Command2 的 click event 代碼： Text1 的 click event 代碼： sele * from books into cursor temp amp。={} locate for =購買日期 if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==購買日期 into cursor temp else messagebox(查找失敗 ,沒有相關信息 ,0+48,提示 ) endif endif if ==借閱狀態(tài) amp。sele books amp。sele books locate for allt()=allt(類別 ) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where allt()==allt(類別 ) into cursor 27 temp else messagebox(對不起 ,沒有相關內容 ,0+48,提示 ) endif endif endif if ==購買日期 amp。sele books locate for =單價 if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==單價 into cursor temp else messagebox(對不起 ,沒有相關內容 ,0+48,提示 ) endif endif endif if ==類別 if == messagebox(你沒有選擇要查找的內容 ,0+16,提示 ) else amp。 amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 KEY CTRL+Z, Ctrl+Z 。 KEY CTRL+X, Ctrl+X 。 KEY CTRL+C, Ctrl+C 。 KEY CTRL+V, Ctrl+V 。 KEY CTRL+L, CTRL+L ON SELECTION BAR 1 OF 讀者管理 b do form 讀者查詢 .scx ON SELECTION BAR 2 OF 讀者管理 b do form 讀者注冊 .scx 12 DEFINE POPUP 關于熊瑋 e MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 關于熊瑋 e PROMPT 熊瑋信息 (\M) 。 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 刪除圖書 PR