【文章內(nèi)容簡(jiǎn)介】 ,沒(méi)有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==出版社 if == messagebox(你沒(méi)有選擇要查找的內(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ì)不起 ,沒(méi)有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==單價(jià) if ==0 messagebox(你沒(méi)有選擇要查找的內(nèi)容 ,0+16,提示 ) else amp。amp。=0 amp。amp。獎(jiǎng)框框變?yōu)閿?shù)值型的 。 amp。amp。sele books locate for =單價(jià) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==單價(jià) into cursor temp else messagebox(對(duì)不起 ,沒(méi)有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==類別 if == messagebox(你沒(méi)有選擇要查找的內(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 27 temp else messagebox(對(duì)不起 ,沒(méi)有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif endif if ==購(gòu)買日期 amp。amp。sele books amp。amp。={} locate for =購(gòu)買日期 if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==購(gòu)買日期 into cursor temp else messagebox(查找失敗 ,沒(méi)有相關(guān)信息 ,0+48,提示 ) endif endif if ==借閱狀態(tài) amp。amp。sele books locate for =借閱狀態(tài) if found() messagebox(查找成功 ,0+48,提示 ) go top sele * from books where ==借閱狀態(tài) into cursor temp else messagebox(對(duì)不起 ,沒(méi)有相關(guān)內(nèi)容 ,0+48,提示 ) endif endif Command2 的 click event 代碼： Text1 的 click event 代碼： sele * from books into cursor temp amp。amp。占擊時(shí)使表中的數(shù)據(jù)轉(zhuǎn)入另一表中 ,因?yàn)槿绮晦D(zhuǎn)入第一次查詢后 ,再查的話 ,相當(dāng)于第二次是在第一次的基礎(chǔ)上再查的 。這樣有可能找不到 with .recordsource=books .refresh Endwith Text1 的 rightclick event 代碼： do 快捷菜單 .MPR 28 修改 — 按 ISBN 對(duì)象名 屬性與屬性值 說(shuō)明 Form1 修改 按 ISBN Combo1 選擇 ISBN Command1 確定按鈕 Text1 書名 Text2 出版社 Text3 類別 Text4 簡(jiǎn)介 Text5 作者 Text6 單價(jià) Text7 購(gòu)買日期 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。amp。檢查數(shù)據(jù)表是否打開(kāi) messagebox(數(shù)據(jù)表 books 不存在，請(qǐng)檢查后再試！ ,0+16,警告 ) else select books amp。amp。選取 account 表 locate for allt()==allt(isbn) if found() =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 30 =借閱狀態(tài) endif endif amp。amp。( ) skip if eof() =.F. =.T. else skip 2 if bof() =.F. =.T. else =.T. =.T. endif endif Text1/2/3/4/5/6/7/8 的 rightclick event 代碼： do 快捷菜單 .MPR Command2 的 click event 代碼： go top =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) =isbn =.F. =.T. Command3 的 click event 代碼： if !bof() skip 1 =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) =isbn else =.F. endif if eof() =.F. else 31 =.T. endif Command4 的 click event 代碼： if !eof() skip =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) =isbn else =.F. endif if bof() =.F. else =.T. endif Command5 的 click event 代碼： go bottom =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) =isbn =.F. =.T. Command6 的 click event 代碼： t1=allt() t2=allt() t3=allt() t4=allt() t5=allt() t9=allt() if != and != and 。 != and != and。 != messagebox(修改成功 ,0+48,修改提示 ) replace 書名 with t1,出版社 with t2,類別 with t3,簡(jiǎn)介 with t4,作者 with t5 for t9=allt(isbn) else 32 messagebox(不能有空 ,0+48,修改提示 ) endif Command7 的 click event 代碼： Command8 的 click event 代碼： =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) =isbn 33 刪除 — 按 ISBN 對(duì)象名 屬性 與屬性值 說(shuō)明 Form1 刪除 — 按 ISBN 界面 Combo1 ISBN Command1 確定按鈕 Text1 書名 Text2 出版社 Text3 類別 Text4 簡(jiǎn)介 Text5 作者 Text6 單價(jià) Text7 購(gòu)買日期 Text8 借閱狀態(tài) Command2 首記錄 34 Command3 上一條記錄 Command4 下一條記錄 Command5 尾記錄 Command6 刪除 Command7 退出 Form1 的 load event 代碼： public mm Command1 的 click event 代碼： if select(books)=0 amp。amp。檢查數(shù)據(jù)表是否打開(kāi) messagebox(數(shù)據(jù)表 books 不存在，請(qǐng)檢查后再試！ ,0+16,警告 ) else select books amp。amp。選取 account 表 locate for allt()==allt(isbn) if found() mm=reo() =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) endif endif amp。amp。( ) skip if eof() =.F. =.T. else skip 2 if bof() 35 =.F. =.T. else =.T. =.T. endif endif Text1/2/3/4/5/6/7/8 的 rightclick event 代碼： do 快捷菜單 .MPR Comandante2 的 click event 代碼： go top =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) =isbn mm=reo() =.F. =.T. Comandante3 的 click event 代碼： if !bof() skip 1 =書名 =出版社 =類別 =簡(jiǎn)介 =作者 =單價(jià) =購(gòu)買日期 =借閱狀態(tài) =isbn mm=reo() else =.F.