【正文】 捷菜單 PROMPT 撤消 (\U) 。 KEY CTRL+Z, Ctrl+Z 。 MESSAGE 撤消上一次命令或操作 ACTIVATE POPUP 快捷菜單 13 模塊界面 登陸界面： 對(duì)象名 屬性與屬性值 說明 Form1 登陸界面 Text1 輸入用戶名 Text2 輸入密碼 Command1 確定按鈕 14 Command2 注冊(cè)按鈕 Command3 退出按鈕 Form1 的 init event 代碼： mand1 的 click event 代碼： sele user1 locate for allt()==allt(用戶名 ) if found() if allt()==allt(密碼 ) messagebox(登陸成功！歡迎進(jìn)入熊瑋的圖書管理系統(tǒng) ,0+64,恭喜 ) do 主界面 .mpr else messagebox(密碼錯(cuò)誤！請(qǐng)檢查后重新輸入！ ,0+64,錯(cuò)誤 ) = endif else messagebox(該用戶不存在，請(qǐng)檢查您的用戶名！ ,0+64,錯(cuò)誤 ) endif mand2 的 click event 代碼： do form 注冊(cè)界面 .scx mand3 的 click event 代碼： quit 15 注冊(cè)界面 對(duì)象名 屬性與屬性值 說明 Form1 注冊(cè)界面 Command1 確定按鈕 Command2 繼續(xù)注冊(cè)按鈕 Command3 退出按鈕 Text1 輸入注冊(cè)用戶名 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(兩次密碼不一致！請(qǐng)檢查后重新輸入！ ,0+64,錯(cuò)誤 ) = else messagebox(操作成功！ ,0+64,注冊(cè)提示 ) insert into user1( 用戶名 , 密碼 ) value( allt(),allt() ) endif endif use mand2 的 click event 代碼： = = = mand3 的 click event 代碼： do form 登陸界面 .scx 17 主界面 —— wele 對(duì)象名 屬性與屬性值 說明 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 對(duì)象名 屬性與屬性值 說明 Form1 查詢 — 按 ISBN 界面 Combo1 ISBN 編號(hào) Command1 查詢按鈕 Text1 書名 Text2 出版社 Text3 類別 Text4 簡介 Text5 作者 Text6 單價(jià) Text7 購買日期 Text8 借閱狀態(tài) 20 Command6 退出按鈕 Command1 的 click event 代碼： if select(books)=0 amp。amp。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 books 不存在，請(qǐng)檢查后再試！ ,0+16,警告 ) else select books amp。amp。選取 account 表 locate for allt()==allt(isbn) amp。amp。按索引查找當(dāng)前所選 user相關(guān)記錄 seek if found() =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) endif endif text1/2/3/4/5/6/7/8 的 rightclick event 代碼： do 快捷菜單 .mpr mand6 的 click event 代碼： 21 查詢 — 按書名 對(duì)象名 屬性與屬性值 說明 Form1 按書名查詢界面 Combo1 書名 Grid1 查詢結(jié)果 Command1 查詢按鈕 Form1 的 init event 代碼： with .columncount=9 .=Isbn .=書名 22 .=作者 .=出版社 .=單價(jià) .=類別 .=購買日期 .=簡介 .=借閱狀態(tài) .=50 .=50 .=80 .=100 .=50 .=50 .=100 if == .recordsource=books else .recordsource=temp endif .recordsourcetype=1 .=Isbn .=書名 .=作者 .=出版社 .=單價(jià) .=類別 .=購買日期 .=簡介 .=借閱狀態(tài) .refresh endwith mand1 的 click event 代碼： sele books locate for allt()=allt(書名 ) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where allt()==allt(書名 ) into cursor temp else messagebox(對(duì)不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif 23 查詢 — 按任意條件 對(duì)象名 屬性與屬性值 說明 Form1 按任意條件查詢界面 Combo1 選擇字段 Grid1 查詢結(jié)果 Command1 查詢按鈕 Command2 退出按鈕 24 Text1 字段內(nèi)容 Form1 的 init event 代碼： with .columncount=9 .=Isbn .=書名 .=作者 .=出版社 .=單價(jià) .=類別 .=購買日期 .=簡介 .=借閱狀態(tài) .=50 .=50 .=80 .=100 .=50 .=50 .=100 if == .recordsource=books else .recordsource=temp endif .recordsourcetype=1 .=Isbn .=書名 .=作者 .=出版社 .=單價(jià) .=類別 .=購買日期 .=簡介 .=借 閱狀態(tài) .refresh Endwith Combo1 的 lostfocus event 代碼： if ==單價(jià) =0 else if ==購買日期 ={} else if ==借閱狀態(tài) =.F. else = 25 endif endif endif Command1 的 click event 代碼： if ==isbn if == messagebox(你沒有選擇要查找的內(nèi)容 ,0+16,提示 ) else amp。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(對(duì)不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==書名 if == messagebox(你沒有選擇要查找的內(nèi)容 ,0+16,提示 ) else amp。amp。sele books locate for allt()=allt(書名 ) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where allt()==allt(書名 ) 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。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(對(duì)不起