pb做的图书管理系统.doc

string username,pass_word,pw,qx username=trim(sle_1.text) pass_word=trim(sle_2.text) if username= then messagebox(提示,请输入用户名) return end if if pass_word= then messagebox(提示,请输入密码) return end if select user.password,user.quanxian into :pw , :qx from user where user.user_name=:username; if pass_word=pw then if qx=图书管理员 then open(w_main) close(parent) end if if qx=普通学生then open(w_xuesheng) close(parent) end if else messagebox(提示,输入密码错误) sle_1.text= sle_2.text= return end if string uname, pword, newpword, agnewpword, pass_word uname = sle_1.text pword = sle_2.text newpword = sle_3.text agnewpword = sle_4.text if uname= then messagebox(提示,请输入用户名) return end if if pword= then messagebox(提示,请输入密码) return end if select user.password into :pass_word from user where user.user_name=:uname; if pword= then messagebox(提示,请输入新密码) return end if if agnewpword= then messagebox(提示,请再次输入新密码) return end if if newpwordagnewpword then messagebox(提示,两次密码不一致) return end if if pass_word = pword and newpword = agnewpword then update user set user.password=:newpword where user.user_name=:uname; messagebox(提示,修改成功) end if string uname, pword, agpword,qx,un uname = sle_1.text pword = sle_2.text agpword = sle_3.text qx= sle_4.text if uname= then messagebox(提示,请输入用户名) return end if if pword= then messagebox(提示,请输入密码) return end if if agpword= then messagebox(提示,请再次输入新密码) return end if if qx= then messagebox(提示,请输入用户权限) return end if if pwordagpword then messagebox(提示,两次密码不一致) return end if select user.user_name into :un from user ; if un = uname then messagebox(系统警告：,此用户已经存在，请重新输入!) sle_1.text= return end if if pword = agpword then insert into user(user_name,password,quanxian) values(:uname,:pword,:qx); messagebox(提示,添加成功) end if string uname,un uname=sle_1.text select user.user_name into :un from user where user.user_name=:uname ; if un uname then messagebox(系统警告：,此用户不存在，请重新输入!) sle_1.text= return end if delete from use