pb做的圖書(shū)管理系統(tǒng)(參考版)
2024-08-18 03:50本頁(yè)面
【正文】 //判斷是否添加成功select into :ls_studid3from studentwhere =:ls_studid。messagebox(提示,刪除信息成功！)=()=falsecb_2.string ls_name,ls_sex,ls_depart,ls_speciality,ls_remarklong ls_studid,ls_studid2,ls_studid3//學(xué)生編號(hào)，姓名if =OR isNULL() then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入學(xué)生編號(hào)！) () return elseif =OR isNULL() then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入姓名！) () returnend if//性別，系別if =OR isNULL() then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入性別) () return elseif =OR isNULL()then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入系別) () returnend if//專(zhuān)業(yè)if =OR isNULL()then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入專(zhuān)業(yè)) () returnend if//ls_studid=long()ls_name=trim()ls_sex=trim()ls_depart=trim()ls_speciality=trim()ls_remark=trim()//判斷是否重號(hào)select into :ls_studid2from studentwhere =:ls_studid。if ls_bookid30 then messagebox(提示,圖書(shū)信息添加成功！) () = = = = = = = ()else messagebox(提示,添加失??！)end iflong ls_bookid,ls_bookid2ls_bookid=long()if not = then select into :ls_bookid2 from bookinfo where =:ls_bookid。if ls_bookid20 then messagebox(出錯(cuò)信息,圖書(shū)編號(hào)第+string(ls_bookid2)+號(hào)重號(hào)！請(qǐng)改正！) () returnend if//添加圖書(shū)信息insert into bookinfo(bookid,title,publishdate,author,abstract,price,keywords)values(:ls_bookid,:ls_title,:ls_publishdate,:ls_author,:ls_abstract,:ls_price,:ls_keywords)。年月日39。年月日39。if ls_bookid2=0 then messagebox(系統(tǒng)提示,此圖書(shū)未借出！請(qǐng)驗(yàn)證后重新輸入圖書(shū)編號(hào)！) () returnend ifselect borrowdateinto :ls_borrowdatesfrom borrowwhere bookid=:ls_bookid。 UPDATE
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1