數(shù)據(jù)庫大作業(yè)——圖書館管理系統(tǒng)-展示頁
2024-12-27 16:02本頁面
【正文】 select djlocate for借書證號=if found()=.f.messagebox(沒有這個(gè)讀者記錄，請查證后重新輸入!,0+64)=ELSEselect tsset delete onlocate for圖書編號=if found()=.f.messagebox(沒有這本書或這本書已歸還了，請重新輸入！,0+64)=ELSESELECT jslocate for借書證號= and圖書編號= if found()=.f.messagebox(此輸入有誤，請重新輸入！,0+16)= = elsereplace還書日期with deletemessagebox(還書成功,0+64)==ENDIFENDIFENDIF Command2(返回).Click 系統(tǒng)查詢模塊： 1）、按編號查詢圖書（）程序：Command1(確定).Clickuse tslocate for圖書編號=if found()=.t.=====elsemessagebox(沒有這個(gè)書名，請重新輸入,0+64)=endif Command2(取消).Click 2）、按書名查詢圖書（）Command1(確定).Clickclose alluse tslocate for書名=trim(sm)if not found()messagebox(經(jīng)查詢沒有這個(gè)書名，請查證后再輸入,0+32)elseuse tssele all圖書編號,書名,作者,出版社,單價(jià)from ts where書名=trim(sm)endif Command2(返回).Click3)、按作者查詢圖書表單（）程序：Command1(確定).Clickclose alluse tslocate for作者=trim(au)if not found()messagebox(經(jīng)查詢沒有這個(gè)作者的書，請查證后再輸入,0+32)elseuse tssele all圖書編號,書名,作者,出版社,單價(jià)from ts where作者=trim(au)endifCommand2.(返回).Click 4)、按出版社查詢（） 程序：Command1(確定).Click close alluse tslocate for出版社=trim(pu)if not found()messagebox(經(jīng)查詢沒有這個(gè)出版社的書，請查證后再輸入,0+32)elseuse tssele all圖書編號,書名,作者,出版社,單價(jià)from ts where出版社=trim(pu)endifCommand2(返回).Click5）、按借書證號查詢讀者（）程序：Command1(確定).Clickuse djlocate for借書證號=if found()=.f.messagebox(沒有這個(gè)記錄,請查證后重新輸入,0+64)=else=借書證號=姓名=性別=專業(yè)=班級endifCommand2(取消).Click 系統(tǒng)維護(hù)模塊1）、添加圖書檔案表單（）程序：Command1(添加).Clickclose alluse tsif =添加go bottomappend blank=保存=放棄elselocate for圖書編號=if found()=.t.messagebox(書號已存在,請重新輸入!,0+64,信息)= elsego bottomreplace圖書編號with ,書名with 。單價(jià)with ======添加=關(guān)閉endifendif
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1