pb做的圖書管理系統(tǒng)-文庫吧資料
2024-08-20 03:50本頁面
【正文】 borrow set borrowdate=:ls_borrowdates, returndate=NULL, fine=0, delflag=1 WHERE bookid=:ls_bookid。//得到該生所借圖書數(shù)量SELECT COUNT(*)INTO :ls_countFROM borrow WHERE stud_id=:ls_stuid and delflag=1。if un uname thenmessagebox(系統(tǒng)警告：,此用戶不存在，請(qǐng)重新輸入!)=returnend ifdelete from user where user.user_name=:uname。if un = uname thenmessagebox(系統(tǒng)警告：,此用戶已經(jīng)存在，請(qǐng)重新輸入!)=returnend if if pword = agpword then insert into user(user_name,password,quanxian) values(:uname,:pword,:qx)。if pword= then messagebox(提示,請(qǐng)輸入新密碼) returnend ifif agnewpword= then messagebox(提示,請(qǐng)?jiān)俅屋斎胄旅艽a) returnend ifif newpwordagnewpword then messagebox(提示,兩次密碼不一致) returnend ifif pass_word = pword and newpword = agnewpword then update user set user.password=:newpword where user.user_name=:uname。string username,pass_word,pw,qxusername=trim()pass_word=trim()if username= then messagebox(提示,請(qǐng)輸入用戶名) returnend ifif pass_word= then messagebox(提示,請(qǐng)輸入密碼) returnend if select user.password,user.quanxian into :pw , :qxfrom user where user.user_name=:username。if pass_word=pw then if qx=圖書管理員 then open(w_main) close(parent) end if if qx=普通學(xué)生then open(w_xuesheng) close(parent) end if else messagebox(提示,輸入密碼錯(cuò)誤) = = returnend if string uname, pword, newpword, agnewpword, pass_worduname = pword = newpword = agnewpword = if uname= then messagebox(提示,請(qǐng)輸入用戶名) returne
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1