【正文】
f =useid and =key and sta1=管理員 thenopen(w_main)close(w_denglu)elseMessageBox(wrong,密碼錯誤)=end ifend ifcase 工作人員 select ,into :useid,:key ,:sta1from managerwhere =:。if = and = and sta1=工作人員 thenMessageBox(wrong,用戶名跟密碼不能為空)elseif =useid and =key thenm_no=useidopen(w_main)close(w_denglu)elseMessageBox(wrong,密碼錯誤)=end ifend ifcase 讀者open(w_mian_1)close(w_denglu)case else Messagebox(提示,你還沒有選擇任何登陸類型!)。end choose圖書信息查詢窗口與代碼的設計:string aif = and = and =thenmessagebox(wrong,請輸入查找信息)else if () = true thenselect into :afrom bookwhere bookid=:。if =a then()(bookid=39。+trim()+39。)(sqlca)()=yeselsemessagebox(sorry,你要查找該編號的書不存在)end ifelseif ()=true then select into :afrom bookwhere bookname=:。if =a then()(bookname=39。+trim()+39。)(sqlca)()=yeselsemessagebox(sorry,你要查找該名字的書不存在)end ifelseif ()=true then string bookname,jstj=bookname=righttrim()if len(bookname)0 thenif len(jstj)0 thenjstj=jstj+ and pos(bookname,39。+bookname+39。)0elsejstj=pos(bookname,39。+bookname+39。)0end ifend if(jstj) (sqlca)() else MessageBox(wrong,請選擇查找方式)end if end if end ifend