pb做的圖書管sss理系統(tǒng)

stringusername,pass_word,pw,qxusername=trim(sle_1.text)pass_word=trim(sle_2.text)ifusername=""thenmessagebox("提示","請輸入用戶名")returnendififpass_word=""thenmessagebox("提示","請輸入密碼")returnendifselect"user"."password","user"."quanxian"into:pw,:qxfrom"user"where"user"."user_name"=:username;ifpass_word=pwthenifqx="圖書管理員"thenopen(w_main)close(parent)endififqx="普通學(xué)生"thenopen(w_xuesheng)close(parent)endifelsemessagebox("提示","輸入密碼錯誤")sle_1.text=""sle_2.text=""returnendifstringuname,pword,newpword,agnewpword,pass_worduname=sle_1.textpword=sle_2.textnewpword=sle_3.textagnewpword=sle_4.textifuname=""thenmessagebox("提示","請輸入用戶名")returnendififpword=""thenmessagebox("提示","請輸入密碼")returnendifselect"user"."password"into:pass_wordfrom"user"where"user"."user_name"=:uname;ifpword=""thenmessagebox("提示","請輸入新密碼")returnendififagnewpword=""thenmessagebox("提示","請再次輸入新密碼")returnendififnewpword<>agnewpwordthenmessagebox("提示","兩次密碼不一致")returnendififpass_word=pwordandnewpword=agnewpwordthenupdate"user"set"user"."password"=:newpwordwhere"user"."user_name"=:uname;messagebox("提示","修改成功")endifstringuname,pword,agpword,qx,ununame=sle_1.textpword=sle_2.textagpword=sle_3.textqx=sle_4.textifuname=""thenmessagebox("提示","請輸入用戶名")returnendififpword=""thenmessagebox("提示","請輸入密碼")returnendififagpword=""thenmessagebox("提示","請再次輸入新密碼")returnendififqx=""thenmessagebox("提示","請輸入用戶權(quán)限")returnendififpword<>agpwordthenmessagebox("提示","兩次密碼不一致")returnendifselect"user"."user_name"into:unfrom"user";ifun=unamethenmessagebox("系統(tǒng)警告：","此用戶已經(jīng)存在，請重新輸入!")sle_1.text=""returnendififpword=agpwordtheninsertinto"user"("user_name","password","quanxian")values(:uname,:pword,:qx);messagebox("提示","添加成功")endifstringuname,ununame=sle_1.textselect"user"."user_name"into:unfrom"user"where"user"."user_name"=:uname;ifun<>unamethenmessagebox("系統(tǒng)警告：","此用戶不存在，請重新輸入!")sle_1.text=""returnendifdeletefrom"user"where"user"."user_name"=:uname;messagebox("提示","刪除成功")longls_stuid,ls_bookid,ls_countdatels_borrowdatesintegerls_flag//0表示圖書已歸還（可再借），1表示圖書已借出（不可再借）ls_stuid=long(sle_1.text)ls_bookid=long(sle_2.text)ls_borrowdates=today()//得到delflag標(biāo)記值SELECTdelflagINTO:ls_flagFROMborrowWHEREbookid=:ls_bookid;//得到該生所借圖書數(shù)量SELECTCOUNT(*)INTO:ls_countFROMborrowWHEREstud_id=:ls_stuidanddelflag=1;//判斷該書是否借出ifls_flag=1thenmessagebox("系統(tǒng)提示","本書已經(jīng)外借！")sle_2.setfocus()returnelseifls_count<5thenINSERTINTOborrow(bookid,stud_id)VALUES(:ls_bookid,:ls_stuid);UPDATEborrowsetborrowdate=:ls_borrowdates,returndate=NULL,fine=0,delflag=1WHEREbookid=:ls_bookid;messagebox("提示","圖書編號為"+string(ls_bookid)+"的圖書借出成功！")elsemessagebox("提示","該生所借圖書數(shù)量已達最大(5本)！借閱失??！")endifendifsle_2.text=""sle_2.setfocus()dw_1.visible=falsecb_2.enabled=false

longls_bookid,ls_bookid2,daysdatels_borrowdates,ls_returndatesdecls_fine//驗證圖書編號是否為空ifsle_1.text=""ORisNULL(sle_1.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入圖書編號！")sle_1.setfocus()returnendifls_bookid=long(sle_1.text)//判斷圖書是否借出selectbookidinto:ls_bookid2fromborrowwherebookid=:ls_bookidanddelflag=1;ifls_bookid2=0thenmessagebox("系統(tǒng)提示","此圖書未借出！請驗證后重新輸入圖書編號！")sle_1.setfocus()returnendifselectborrowdateinto:ls_borrowdatesfromborrowwherebookid=:ls_bookid;ls_returndates=today()days=daysafter(ls_borrowdates,ls_returndates)sle_2.text=string(ls_borrowdates)sle_3.text=string(ls_returndates)ifdays>30thenls_fine=dec(days-30)*0.1sle_4.text=string(days-30)sle_5.text=string(ls_fine)elsesle_4.text="0"sle_5.text="0"endifcb_2.enabled=tru

stringls_title,ls_author,ls_keywords,ls_abstractlongls_bookid,ls_bookid2,ls_bookid3,ls_pricedatels_publishdate//圖書編號，書名ifsle_1.text=""ORisNULL(sle_1.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入圖書編號！")sle_1.setfocus()returnelseifsle_2.text=""ORisNULL(sle_2.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入書名！")sle_2.setfocus()returnendif//作者，出版日期ifsle_3.text=""ORisNULL(sle_3.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入作者")sle_3.setfocus()returnelseifsle_4.text=""ORisNULL(sle_4.text)thenmessagebox("數(shù)據(jù)錯誤！","請輸入'年-月-日'格式的出版日期！")sle_4.setfocus()returnendif//日期格式的驗證ifsle_4.text<>""andnotisnull(sle_4.text)thenifisDate(sle_4.text)thenls_publishdate=date(sle_4.text)elsemessagebox("數(shù)據(jù)錯誤！","請輸入'年-月-日'格式的出版日期！")sle_4.setfocus()returnendifendif//定價，關(guān)鍵字的驗證ifsle_5.text=""ORisNULL(sle_5.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入定價！")sle_5.setfocus()returnelseifsle_6.text=""ORisNULL(sle_6.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入關(guān)鍵字！")sle_6.setfocus()returnendif//ls_bookid=long(sle_1.text)ls_title=trim(sle_2.text)ls_publishdate=date(sle_4.text)ls_author=trim(sle_3.text)ls_price=long(sle_5.text)ls_keywords=trim(sle_6.text)ls_abstract=trim(sle_7.text)//判斷是否重號selectbookinfo.bookidinto:ls_bookid2frombookinfowherebookinfo.bookid=:ls_bookid;ifls_bookid2<>0thenmessagebox("出錯信息","圖書編號第"+string(ls_bookid2)+"號重號！請改正！")sle_1.setfocus()returnendif//添加圖書信息insertinto"bookinfo"("bookid",

"title","publishdate","author","abstract","price","keywords")values(:ls_bookid,:ls_title,:ls_publishdate,:ls_author,:ls_abstract,:ls_price,:ls_keywords);//判斷是否添加成功selectbookinfo.bookidinto:ls_bookid3frombookinfowherebookinfo.bookid=:ls_bookid;ifls_bookid3<>0thenmessagebox("提示sle_1.setfocus()sle_1.text=""","圖書信息添加成功！")sle_2.text=""sle_3.text=""sle_4.text=""sle_5.text=""sle_6.text=""sle_7.text=""sle_1.setfocus()elsemessagebox("提示","添加失?。?)endif

longls_bookid,ls_bookid2ls_bookid=long(sle_1.text)ifnotsle_1.text=""thenselectbookinfo.bookidinto:ls_bookid2frombookinfowherebookinfo.bookid=:ls_bookid;ifls_bookid2=0thenmessagebox("系統(tǒng)提示sle_1.setfocus()return","沒有此圖書信息！請驗證后重新輸入圖書編號！")endifdw_1.visible=truecb_2.enabled=truedw_1.retrieve(ls_bookid)elsemessageBox("數(shù)據(jù)不全","請輸入圖書編號")endifstringls_namels_name=trim(sle_1.text)ifnotls_name=""thenls_name="%"+ls_name+"%"dw_1.retrieve(ls_name)//檢索數(shù)據(jù)放入dw_1中elseMessageBox("查詢出錯","請輸入要查詢的書本名稱")endifsle_1.SetFocus()stringls_qauthorls_qauthor=trim(sle_1.text)ifnotsle_1.text=""thenls_qauthor="%"+ls_qauthor+"%"http://模糊查詢dw_1.retrieve(ls_qauthor)elsemessageBox("數(shù)據(jù)不全","請輸入作者姓名！")endifstringls_bookidls_bookid=trim(sle_1.text)ifnotls_bookid=""thenls_bookid="%"+ls_bookid+"%"dw_1.retrieve(ls_bookid)//檢索數(shù)據(jù)放入dw_1中elseMessageBox("查詢出錯","請輸入要查詢的書本名稱")endifsle_1.SetFocus()longls_studidls_studid=long(sle_1.text)deletefromstudentwherestudent.stud_id=:ls_studid;messagebox("提示","刪除信息成功！")sle_1.text=""sle_1.setfocus()dw_1.visible=falsecb_2.stringls_name,ls_sex,ls_depart,ls_speciality,ls_remarklongls_studid,ls_studid2,ls_studid3//學(xué)生編號，姓名ifsle_1.text=""ORisNULL(sle_1.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入學(xué)生編號！")sle_1.setfocus()returnelseifsle_2.text=""ORisNULL(sle_2.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入姓名！")sle_2.setfocus()returnendif//性別，系別ifsle_3.text=""ORisNULL(sle_3.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入性別")sle_3.setfocus()returnelseifsle_4.text=""ORisNULL(sle_4.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入系別")sle_4.setfocus()returnendif//專業(yè)ifsle_5.text=""ORisNULL(sle_5.text)thenmessagebox("缺少數(shù)據(jù)！","請輸入專業(yè)")sle_5.setfocus()returnendif//ls_studid=long(sle_1.text)ls_name=trim(sle_2.text)ls_sex=trim(sle_3.text)ls_depart=trim(sle_4.text)ls_speciality=trim(sle_5.text)ls_remark=trim(sle_6.text)//判斷是否重號selectstudent.stud_idinto:ls_studid2fromstudentwherestudent.stud_id=:ls_studid;ifls_studid2<>0thenmessagebox("出錯信息","學(xué)生編號第"+string(ls_studid2)+"號重號！請改正！")sle_1.setfocus()returnendif//添加學(xué)生信息insertinto"student"("stud_id","name","sex","depart","speciality","remark")values(:ls_studid,:ls_name,:ls_sex,:ls_depart,:ls_speciality,:ls_remark);//判斷是否添加成功selectstudent.stud_idinto:ls_studid3