【正文】 Endwith Text、 edit 的 rightclick event 代碼： do 快捷菜單 .MPR Grid1 的 rightclick event 代碼： do 快捷菜單 .MPR Command1 的 click event 代碼： tt=.F. t1=allt() t2=allt() t3=allt() t4=allt() t5= t6=allt() t7= t8=allt() if select(books)=0 amp。.recordsource=books 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à) =購買日期 =借閱狀態(tài) =isbn mm=reo() =.F. =.T. Comandante3 的 click event 代碼： if !bof() skip 1 =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) =isbn mm=reo() else =.F. endif if eof() =.F. else =.T. endif Comandante4 的 click event 代碼： if !eof() skip =書名 =出版社 =類別 36 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) =isbn mm=reo() else =.F. endif if bof() =.F. else =.T. endif Comandante5 的 click event 代碼： go bottom =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) =isbn mm=reo() =.F. =.T. Comandante6 的 click event 代碼： sele books go mm mb=messagebox(確定要?jiǎng)h除嗎？ ,1+64,提示 ) if mb==1 messagebox(刪除成功 ,0,提示 ) delete pack endif Comandante7 的 click event 代碼： 37 刪除 — 按任意條件 對象名 屬性與屬性值 說明 Form1 按任意條件刪除界面 Optiongroup1 選項(xiàng)字段按鈕組 Option1 ISBN Option2 書名 Option3 作者 38 Option4 出版社 Option5 單價(jià) Option6 類別 Option7 購買日期 Option8 借閱狀態(tài) Text1 字段內(nèi)容 Grid1 刪除顯示 Command1 刪除 Command2 退出 Command3 確定 Form1 的 init event 代碼： 39 with .columncount=9 .=Isbn .=書名 .=作者 .=出版社 .=單價(jià) .=借閱狀態(tài) .=類別 .=簡介 .=購買日期 .=50 .=50 .=80 .=100 .=50 .=50 .=100 amp。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 books 不存在，請檢查后再試！ ,0+16,警告 ) else select books 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à) =購買日期 =借閱狀態(tài) =isbn =.F. =.T. Command3 的 click event 代碼： if !bof() skip 1 =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) =isbn else =.F. endif if eof() =.F. else 31 =.T. endif Command4 的 click event 代碼： if !eof() skip =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) =isbn else =.F. endif if bof() =.F. else =.T. endif Command5 的 click event 代碼： go bottom =書名 =出版社 =類別 =簡介 =作者 =單價(jià) =購買日期 =借閱狀態(tài) =isbn =.F. =.T. Command6 的 click event 代碼： t1=allt() t2=allt() t3=allt() t4=allt() t5=allt() t9=allt() if != and != and 。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 books 不存在，請檢查后再試！ ,0+16,警告 ) else select books amp。amp。amp。amp。獎(jiǎng)框框變?yōu)閿?shù)值型的 。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 ==單價(jià) if ==0 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。按索引查找當(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 查詢 — 按書名 對象名 屬性與屬性值 說明 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(對不起 ,沒有相關(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 .=書名 .=作者 .=出版社 .=單價(jià) .=類別 .=購買日期 .=簡介 .=借閱狀態(tài) .=50 .=50 .=80 .=100 .=50 .=50 .=100 if == .recordsource=books else .recordsource=temp endif .recordsourcetype=1 .=Isbn .=書名 .=作者 .=出版社 .=單價(jià) .=類別 .=購買日期 .=簡介 .=借 閱狀態(tài)