【正文】 llt()==allt(密碼 ) messagebox(登陸成功！歡迎進(jìn)入熊瑋的圖書管理系統(tǒng) ,0+64,恭喜 ) do 主界面 .mpr else messagebox(密碼錯(cuò)誤！請檢查后重新輸入！ ,0+64,錯(cuò)誤 ) = endif else messagebox(該用戶不存在，請檢查您的用戶名！ ,0+64,錯(cuò)誤 ) endif mand2 的 click event 代碼： do form 注冊界面 .scx mand3 的 click event 代碼： quit 15 注冊界面 對象名 屬性與屬性值 說明 Form1 注冊界面 Command1 確定按鈕 Command2 繼續(xù)注冊按鈕 Command3 退出按鈕 Text1 輸入注冊用戶名 Text2 輸入密碼 16 Text3 確認(rèn)密碼 Form1 的 init event 代碼： mand1 的 click event 代碼： sele 1 use user1 locate for allt()==allt(用戶名 ) if found() messagebox(操作失敗，此用戶名已經(jīng)存在 !,0+64,錯(cuò)誤 ) else if allt()!=allt() messagebox(兩次密碼不一致！請檢查后重新輸入！ ,0+64,錯(cuò)誤 ) = else messagebox(操作成功！ ,0+64,注冊提示 ) insert into user1( 用戶名 , 密碼 ) value( allt(),allt() ) endif endif use mand2 的 click event 代碼： = = = mand3 的 click event 代碼： do form 登陸界面 .scx 17 主界面 —— wele 對象名 屬性與屬性值 說明 Form1 圖書管理系統(tǒng)主界面 Label1 滾動(dòng)字幕 Timer1 Label2 本機(jī)時(shí)間 18 Timer2 Command1 按 ISBN 查詢按鈕 Command2 讀者信息查詢按鈕 Command3 借還書查詢按鈕 Command4 關(guān)于我按鈕 Timer1 的 timer event 代碼： if 192 =480 else = endif Timer2 的 timer event 代碼： if !=time() =time() endif mand1 的 click event 代碼： do form 查詢 按 isbn mand2 的 click event 代碼： do form 讀者查詢 mand3 的 click event 代碼： do form 借還書 mand3 的 click event 代碼： do form 關(guān)于我 19 查詢 — 按 ISBN 對象名 屬性與屬性值 說明 Form1 查詢 — 按 ISBN 界面 Combo1 ISBN 編號 Command1 查詢按鈕 Text1 書名 Text2 出版社 Text3 類別 Text4 簡介 Text5 作者 Text6 單價(jià) Text7 購買日期 Text8 借閱狀態(tài) 20 Command6 退出按鈕 Command1 的 click event 代碼： if select(books)=0 amp。選取 account 表 locate for allt()==allt(isbn) amp。sele books locate for allt()=allt(isbn) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where allt()==allt(isbn) into cursor temp else messagebox(對不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==書名 if == messagebox(你沒有選擇要查找的內(nèi)容 ,0+16,提示 ) else amp。sele books locate for allt()=allt(作者 ) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where allt()==allt(作者 ) into cursor temp 26 else messagebox(對不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==出版社 if == messagebox(你沒有選擇要查找的內(nèi)容 ,0+16,提示 ) else amp。=0 amp。amp。amp。amp。這樣有可能找不到 with .recordsource=books .refresh Endwith Text1 的 rightclick event 代碼： do 快捷菜單 .MPR 28 修改 — 按 ISBN 對象名 屬性與屬性值 說明 Form1 修改 按 ISBN Combo1 選擇 ISBN Command1 確定按鈕 Text1 書名 Text2 出版社 Text3 類別 Text4 簡介 Text5 作者 Text6 單價(jià) Text7 購買日期 Text8 借閱狀態(tài) 29 Command2 首記錄 Command3 前一條記錄 Command4 后一條記錄 Command5 尾記錄 Command6 修改 Command7 退出 Command8 放棄 Form1 的 init event 代碼： =.F. =.F. =.F. Command1 的 click event 代碼： if select(books)=0 amp。選取 account 表 locate for allt()==allt(isbn) if found() =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 30 =借閱狀態(tài) endif endif amp。 != messagebox(修改成功 ,0+48,修改提示 ) replace 書名 with t1,出版社 with t2,類別 with t3,簡介 with t4,作者 with t5 for t9=allt(isbn) else 32 messagebox(不能有空 ,0+48,修改提示 ) endif Command7 的 click event 代碼： Command8 的 click event 代碼： =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) =isbn 33 刪除 — 按 ISBN 對象名 屬性 與屬性值 說明 Form1 刪除 — 按 ISBN 界面 Combo1 ISBN Command1 確定按鈕 Text1 書名 Text2 出版社 Text3 類別 Text4 簡介 Text5 作者 Text6 單價(jià) Text7 購買日期 Text8 借閱狀態(tài) Command2 首記錄 34 Command3 上一條記錄 Command4 下一條記錄 Command5 尾記錄 Command6 刪除 Command7 退出 Form1 的 load event 代碼： public mm Command1 的 click event 代碼： if select(books)=0 amp。選取 account 表 locate for allt()==allt(isbn) if found() mm=reo() =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) endif endif amp。if allt()== amp。else .recordsource=temp amp。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 books 不存在，請檢查后再試！ ,0+16,警告 ) else locate for allt()==allt(isbn) if found() messagebox(操作失敗，此用戶名已經(jīng)存在 !,0+64,錯(cuò)誤 ) else messagebox(操作成功！ ,0+64,注冊提示 ) insert into books(isbn,書名 ,作者 ,類別 ,購買日期 ,出版社 ,單價(jià) ,簡介 ,借閱狀態(tài) ) value( t1,t2,t3,t4,t5,t6,t7,t8,tt) endif endif Command2 的 click event 代碼： 45 1讀者查詢 對象名 屬性與屬性值 說明 Form1 讀者信息查詢界面 Combo1 讀者編號 Command1 確定按鈕 Text1 班級 Text2 姓名 Text3 學(xué)號 Text4 性別 Text5 權(quán)限 Text6 借閱情況 46 Command2 首記錄 Command3 上一條記錄 Command4 下一條記錄 Command5 尾記錄 Command6 修改 Command7 退出 Oleboundcontrol1 頭像 Form1 的 init event 代碼： =.F. Command1 的 click event 代碼： if select(readpeople)=0 amp。選取 account 表 locate for allt()==allt(編號 ) if found() =班級 47 =姓名 =學(xué)號 =姓別 =權(quán)限 =q2 endif endif amp。amp。amp