數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告---圖書館管理系統(tǒng)(編輯修改稿)
2025-02-17 17:22 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 agebox(提示信息,輸入錯(cuò)誤，請(qǐng)重新輸入) returnend ifselect yjss,lxhinto :i,:lxhfrom DZxXwhere BH=:bh。select zdjssinto :sfrom DZlXwhere lxh=:lxh。d=s+(1)if a=1 and id then update DZXX set yjss=yjss+1 where BH=:bh。 messagebox(提示信息,借書成功) select max(id) into :m from jhjl。 insert into jhjl(id,DZBH,TSBH,JSRQ) values(:m+1,:,:,:shijian)。elseif a=1 and i=d then update DZXX set yjss=yjss+1, yxx=39。無(wú)效39。 where BH=:bh。 messagebox(提示信息,借書成功) select max(id) into :m from jhjl。 insert into jhjl(id,DZBH,TSBH,JSRQ) values(:m+1,:,:,:shijian)。elseif a=1 and i=s then messagebox(提示信息,已借最大書數(shù)目，不可繼續(xù)借書??！) update DZXX set yxx=39。無(wú)效39。 where BH=:bh。elseif a=2 then select jsrq into :jieshuri from jhjl where DZBH=: and TSBH=:。 select zdjsq,cqcf into :t,:q from DZlX where lxh=:lxh。 o=DaysAfter(date(shijian),date(jieshuri)) MessageBox(39。提示信息39。,39。請(qǐng)交罰款:39。+string(o)+39。元39。) MessageBox(39。提示信息39。,39。請(qǐng)交罰款:39。+string(q)+39。元39。) if ot then if MessageBox(39。提示信息39。,39。請(qǐng)交罰款:39。+string(o* q)+39。元39。,Question! ,OKCancel! , 1 ) = 1 then//選擇確定 f=1 else//選擇取消 f=2 end if if f=1 then update DZXX set yjss=yjss1, yxx=39。有效39。 where BH=:bh。 messagebox(提示信息,還書成功) update jhjl set HSRQ=:shijian, CQTS=:o, CFJE=:o*:q where DZBH=: and TSBH=:。 else return end if else update DZXX set yjss=yjss1, yxx=39。有效39。 where BH=:bh。 messagebox(提示信息,還書成功) update jhjl set HSRQ=:shijian, CQTS=0, CFJE=0 where DZBH=: and TSBH=:。 end ifend if（1）添加 （w_tj）前一條的代碼：integer row_current row_current=()
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1