【正文】 說明 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,錯誤 ) else if allt()!=allt() messagebox(兩次密碼不一致！請檢查后重新輸入！ ,0+64,錯誤 ) = 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 滾動字幕 Timer1 Label2 本機(jī)時間 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 單價 Text7 購買日期 Text8 借閱狀態(tài) 20 Command6 退出按鈕 Command1 的 click event 代碼： if select(books)=0 amp。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 books 不存在，請檢查后再試！ ,0+16,警告 ) else select books amp。選取 account 表 locate for allt()==allt(isbn) amp。按索引查找當(dāng)前所選 user相關(guān)記錄 seek if found() =書名 =出版社 =類別 =簡介 =作者 =單價 =購買日期 =借閱狀態(tài) endif endif text1/2/3/4/5/6/7/8 的 rightclick event 代碼： do 快捷菜單 .mpr mand6 的 click event 代碼： 21 查詢 — 按書名 對象名 屬性與屬性值 說明 Form1 按書名查詢界面 Combo1 書名 Grid1 查詢結(jié)果 Command1 查詢按鈕 Form1 的 init event 代碼： with .columncount=9 .=Isbn .=書名 22 .=作者 .=出版社 .=單價 .=類別 .=購買日期 .=簡介 .=借閱狀態(tài) .=50 .=50 .=80 .=100 .=50 .=50 .=100 if == .recordsource=books else .recordsource=temp endif .recordsourcetype=1 .=Isbn .=書名 .=作者 .=出版社 .=單價 .=類別 .=購買日期 .=簡介 .=借閱狀態(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(對不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif 23 查詢 — 按任意條件 對象名 屬性與屬性值 說明 Form1 按任意條件查詢界面 Combo1 選擇字段 Grid1 查詢結(jié)果 Command1 查詢按鈕 Command2 退出按鈕 24 Text1 字段內(nèi)容 Form1 的 init event 代碼： with .columncount=9 .=Isbn .=書名 .=作者 .=出版社 .=單價 .=類別 .=購買日期 .=簡介 .=借閱狀態(tài) .=50 .=50 .=80 .=100 .=50 .=50 .=100 if == .recordsource=books else .recordsource=temp endif .recordsourcetype=1 .=Isbn .=書名 .=作者 .=出版社 .=單價 .=類別 .=購買日期 .=簡介 .=借 閱狀態(tài) .refresh Endwith Combo1 的 lostfocus event 代碼： if ==單價 =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。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 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。sele books locate for allt()=allt(出版社 ) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where allt()==allt(出版社 ) into cursor temp else messagebox(對不起 ,沒有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==單價 if ==0 messagebox(你沒有選擇要查找的內(nèi)容 ,0+16,提示 ) else amp。=0 amp。獎框框變?yōu)閿?shù)值型的 。amp。amp。amp。amp。amp。amp。這樣有可能找不到 with .recordsource=books .refresh Endwith Text1 的 rightclick event 代碼： do 快捷菜單 .MPR 28 修改 — 按 ISBN 對象名 屬性與屬性值 說明 Form1 修改 按 ISBN Combo1