pb做的圖書管理系統(tǒng)-展示頁
2024-08-22 03:50本頁面
【正文】 nd ifif pword= then messagebox(提示,請輸入密碼) returnend ifselect user.password into :pass_word from user where user.user_name=:uname。 messagebox(提示,修改成功)end ifstring uname, pword, agpword,qx,ununame = pword = agpword = qx= if uname= then messagebox(提示,請輸入用戶名) returnend ifif pword= then messagebox(提示,請輸入密碼) returnend ifif agpword= then messagebox(提示,請再次輸入新密碼) returnend if if qx= then messagebox(提示,請輸入用戶權限) returnend ifif pwordagpword then messagebox(提示,兩次密碼不一致) returnend ifselect user.user_name into :un from user 。 messagebox(提示,添加成功)end ifstring uname,ununame=select user.user_name into :un from user where user.user_name=:uname 。 messagebox(提示,刪除成功)long ls_stuid,ls_bookid,ls_countdate ls_borrowdatesinteger ls_flag//0表示圖書已歸還（可再借），1表示圖書已借出（不可再借）ls_stuid=long()ls_bookid=long()ls_borrowdates=today()//得到delflag標記值SELECT delflag INTO :ls_flagFROM borrow WHERE bookid=:ls_bookid。//判斷該書是否借出if ls_flag=1 then messagebox(系統(tǒng)提示,本書已經(jīng)外借！) () returnelse if ls_count5 then INSERT INTO borrow (bookid,stud_id) VALUES (:ls_bookid,:ls_stuid)。 messagebox(提示,圖書編號為+string(ls_bookid)+的圖書借出成功！) else messagebox(提示,該生所借圖書數(shù)量已達最大(5本)！借閱失??！) end ifend if =()=false=falselong ls_bookid,ls_bookid2,daysdate ls_borrowdates,ls_returndatesdec ls_fine//驗證圖書編號是否為空if =OR isNULL() then messagebox(缺少數(shù)據(jù)！,請輸入圖書編號！) () returnend ifls_bookid=long() //判斷圖書是否借出select b
環(huán)評公示相關推薦
鄂ICP備17016276號-1