【正文】 。 if lend_able=1 then begin with ADOStoredProc3 do begin close。 end。39。39。39。39。select istate from book where sbookId= 39。 。 Showmessage(s1)。 //bookId adoqry:=(self)。).Value 。 can_borrow:= (39。).Value:=0。 (39。userId39。 。 end。)。begin if then begin ShowMessage(39。 adoqry:TADOQuery。 s1:string。procedure (Sender: TObject)。 end。 end。 end。 end。 :=p。 getmem(p,255)。sclassId39。).AsString)。 for s:=0 to do begin classnode:=(matenode,(39。 open。39。).AsString+39。+(39。39。 :=39。 with qryclass do begin close。 StrCopy(p,pchar(s1))。).AsString。 s1:=(39。sbookclass39。 end。39。39。sclassid39。39。select * from bookClass where len(sclassId)=3 and left(sclassid,2)=39。 。 :=p。 getmem(p,255)。sclassId39。).AsString)。 for j:=0 to do begin personnode:=(sub,(39。 。39。).AsString+39。+(39。39。 :=39。 。 StrCopy(p,pchar(s1))。).AsString。 s1:=(39。sbookclass39。 。)。 (39。 qrysub:=(self)。 :=。 。圖書分類39。 qryclass:=(self)。 qrymaster:=(self)。 。 s1:string。 qrysub,qrymaster,qrymate,qryclass:tadoquery。var root,sub,personnode,matenode,classnode:TtreeNode。end。)。 //如果已登錄，則可進(jìn)入‘我的圖書館’，否則提示先登錄 end else begin Showmessage(39。procedure (Sender: TObject)。begin 。end。begin :=false。 //登陸界面end。procedure (Sender: TObject)。begin 。18) 更新員工：ALTER PROCEDURE [dbo].[Proc_UpdateReader]讀者自行修改的信息ReaderId varchar(50),Name varchar(20)=null,sex varchar(10)=null,Email varchar(30)=null,Phone varchar(20)=null,Birthday date=nullASBEGIN update [dbo].Reader set Name=Name,Sex=sex,Email=Email,Phone=Phone, Birthday=Birthday where sReaderId=ReaderIdEND if error0 or rowcount = 0 rollback transaction。.39。.39。16) 搜索借閱次數(shù)排名在m到n之間的書ALTER PROCEDURE [dbo].[Proc_selectbylendtimes2]num1 int ,num2 intASBEGIN select* from(select top (num2num1+1)* from(select top(num2) *,COUNT(*)lendtimes from (select sBookName,sAuthor,sIndex,sISBN,sPress,sClassId from Book ,Borrowed where =)view1 group by sIndex,sBookName,sAuthor,sISBN,sPress,sClassId order by lendtimes desc )a order by lendtimes )b order by lendtimes descENDif error0 or rowcount = 0 rollback transaction。 exec(sql)ENDif error0 or rowcount = 0 rollback transaction。 if able=1 set sql=sql+ 39。39。+tepstr+39。39。39。+tepstr+39。39。39。+tepstr+39。39。39。+tepstr+39。39。 set pre = las end end set tepstr = substring(string,pre,len(string)+1pre) set sql = sql + 39。39。+tepstr+39。39。39。+tepstr+39。39。39。+tepstr+39。39。39。+tepstr+39。39。) set sql = sql + 39。,string,pre) if (las 0) begin set tepstr = LTRIM(substring(string,pre,laspre)) if (tepstr 39。 set pre = 0 set las = 1 while (las 0) begin set pre = pre+1 set las = CharIndex(39。39。+str+39。39。14) 搜索書籍：ALTER PROCEDURE [dbo].[Proc_Select]string varchar(200),str varchar(20),able int=0ASBEGIN declare pre int declare las int declare tepstr varchar(20) declare sql varchar(500) set sql =39。12) 超期：ALTER PROCEDURE [dbo].[Proc_readerborrow]sReaderId varchar(30)ASBEGIN select *from Borrowed,Book where sReaderId=sReaderId and = and Return_Date is nullENDif error0 or rowcount = 0 rollback transaction。10) 修改密碼：ALTER PROCEDURE [dbo].[Proc_Password_change]old_pas varchar(20),new_pas varchar(20),userId varchar(30),user_kind int,state int outputASBEGIN IF user_kind=1 manager begin if Exists (select * from Manager where sManagerId=userId and sPassword=old_pas) begin update Manager set sPassword=new_pas where sManagerId=userId set state=1 end else set state=0 end ELSE if user_kind=2 reader begin if Exist