【正文】 click event 代碼： if ==1 locate for allt(Isbn)=allt() if found() hh=reo() go top sele * from books where allt(Isbn)==allt() into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) endif endif if ==1 locate for ALLT(書名 )=allt() if found() hh=reo() go top sele * from books where ALLT(書名 )==allt() into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) endif endif if ==1 locate for allt(作者 )=allt() if found() hh=reo() go top sele * from books where allt(作者 )==allt() into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) endif endif if ==1 locate for allt(出版社 )=allt() if found() hh=reo() go top sele * from books where allt(出版社 )==allt() into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) 42 endif endif if ==1 locate for 單價(jià) == if found() hh=reo() go top sele * from books where 單價(jià) == into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) endif endif if ==1 locate for allt(類別 )==allt() if found() hh=reo() go top sele * from books where allt(類別 )==allt() into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) endif endif if ==1 locate for 購買日期 = if found() hh=reo() go top sele * from books where 購買日期 == into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) endif endif if ==1 locate for 借閱狀態(tài) = if found() hh=reo() go top sele * from books where 借閱狀態(tài) == into cursor temp else messagebox(沒有此信息 !,0+48,提示 ) endif endif 43 入庫 對(duì)象名 屬性與屬性值 說明 Form1 圖書入庫界面 Text1 ISBN Edit1 書名 Text4 購買日期 Text2 作者 Edit2 類別 Edit3 出版社 Text3 單價(jià) Edit4 簡(jiǎn)介 Grid1 入庫書籍表 Command1 確定 Command2 退出 Form1 的 init event 代碼： 44 with .columncount=9 .=Isbn .=書名 .=作者 .=出版社 .=單價(jià) .=類別 .=購買日期 .=簡(jiǎn)介 .=借閱狀態(tài) .=50 .=50 .=80 .=100 .=50 .=50 .=100 .refresh 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。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 books 不存在，請(qǐng)檢查后再試！ ,0+16,警告 ) else locate for allt()==allt(isbn) if found() messagebox(操作失敗，此用戶名已經(jīng)存在 !,0+64,錯(cuò)誤 ) else messagebox(操作成功！ ,0+64,注冊(cè)提示 ) insert into books(isbn,書名 ,作者 ,類別 ,購買日期 ,出版社 ,單價(jià) ,簡(jiǎn)介 ,借閱狀態(tài) ) value( t1,t2,t3,t4,t5,t6,t7,t8,tt) endif endif Command2 的 click event 代碼： 45 1讀者查詢 對(duì)象名 屬性與屬性值 說明 Form1 讀者信息查詢界面 Combo1 讀者編號(hào) Command1 確定按鈕 Text1 班級(jí) Text2 姓名 Text3 學(xué)號(hào) 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。檢查數(shù)據(jù)表是否打開 messagebox(數(shù)據(jù)表 readpeople 不存在，請(qǐng)檢查后再試！ ,0+16,警告 ) else selec jieboos go top q2= do while .() if allt(read 編號(hào) )==allt() q2=q2+書名 endif skip enddo go top select readpeople amp。選取 account 表 locate for allt()==allt(編號(hào) ) if found() =班級(jí) 47 =姓名 =學(xué)號(hào) =姓別 =權(quán)限 =q2 endif endif amp。( ) skip if eof() =.F. =.T. else skip 2 if bof() =.F. =.T. else =.T. =.T. endif endif Text1/2/3/4/5/6 的 rightclick event 代碼： do 快捷菜單 .MPR Command2 的 click event 代碼： go top =班級(jí) =姓名 =學(xué)號(hào) =姓別 =權(quán)限 =編號(hào) selec jieboos q2= do while .() if allt(read 編號(hào) )==allt() q2=q2+書名 endif skip enddo =q2 go top sele readpeople =.F. =.T. Command3 的 click event 代碼： if !bof() skip 1 =班級(jí) =姓名 48 =學(xué)號(hào) =姓別 =權(quán)限 =編號(hào) t=reo() selec jieboos go top q2= do while .() if allt(read 編號(hào) )==allt() q2=q2+書名 endif skip enddo =q2 sele readpeople go t if bof() =.F. endif endif if eof() =.F. else =.T. endif Command4 的 click event 代碼： if !eof() skip =班級(jí) =姓名 =學(xué)號(hào) =姓別 =權(quán)限 =編號(hào) t=reo() selec jieboos go top q2= do while .() if allt(read 編號(hào) )==allt() q2=q2+書名 endif skip enddo =q2 49 sele readpeople go t else =.F. endif if bof() =.F. else =.T. endif Command5 的 click event 代碼： sele readpeople go bottom =班級(jí) =姓名 =學(xué)號(hào) =姓別 =權(quán)限 =編號(hào) selec jieboos go top q2= do while .() if allt(read 編號(hào) )==allt() q2=q2+書名 endif skip enddo =q2 go bottom selec readpeople =.F. =.T. Command6 的 click event 代碼： t1=allt() t2=allt() t3=allt() t4=allt() t5= t9=allt() if != and != and 。amp。amp。amp。amp