【正文】 ne, Birthday=@Birthday where sReaderId=@ReaderIdEND if @@error0 or @@rowcount = 0 rollback transaction。 視圖： 3. 軟件功能設(shè)計(jì)1） 系統(tǒng)的結(jié)構(gòu)圖圖書館管理系統(tǒng)圖書館消息登錄普通用戶管理員我的圖書館瀏覽書目借閱書目查看書目書目檢索分類瀏覽借閱書目普通員工采購(gòu)員管理用戶修改密碼查詢信息罰款新書入庫(kù)借閱信息修改信息修改訂單管理 2） 功能表 讀者：1. 我的圖書館：查看個(gè)人信息，修改密碼2. 瀏覽書目3. 借閱書目管理員：1. 管理用戶：添加，修改，刪除2. 修改密碼普通員工：1. 信息修改2. 信息查詢：查詢用戶和書本的信息3. 罰款：對(duì)書本丟失，損壞，超期的讀者進(jìn)行罰款4. 新書入庫(kù)5. 借閱采購(gòu)員：1. 信息修改2. 訂單管理四、 系統(tǒng)實(shí)施1. 系統(tǒng)的界面設(shè)計(jì)本圖書館管理系統(tǒng)分為16個(gè)界面，介紹如下：界面1：Homepage（主頁(yè)）窗體描述： 窗體名稱：Form_home_page 單元文件名:home_page主要代碼：procedure (Sender: TObject)。begin 。 //版本公告界面end。procedure (Sender: TObject)。begin 。 //登陸界面end。procedure (Sender: TObject)。begin :=false。 :=true。end。procedure (Sender: TObject)。begin 。 //最大借閱量界面end。procedure (Sender: TObject)。begin if not then begin 。 //如果已登錄，則可進(jìn)入‘我的圖書館’，否則提示先登錄 end else begin Showmessage(39。請(qǐng)先登錄!39。)。 end。end。界面2：version_annoucement（版權(quán)公告）窗體描述： 窗體名稱：Form_ version_annoucement 單元文件名: version_annoucement界面3：max_borrow（借閱數(shù)量與期限）窗體描述： 窗體名稱：Form_ max_borrow 單元文件名: max_borrow界面4：special（特色資源）窗體描述： 窗體名稱：Form_ special 單元文件名: special界面5：search（書目檢索）窗體描述： 窗體名稱：Form_ search 單元文件名: search主要代碼：procedure (Sender: TObject)。var root,sub,personnode,matenode,classnode:TtreeNode。 i,j,k,s:integer。 qrysub,qrymaster,qrymate,qryclass:tadoquery。 p:pchar。 s1:string。begin :=false。 。 。 qrymaster:=(self)。 qrymate:=(self)。 qryclass:=(self)。 root:=(nil,39。圖書分類39。)。 。 :=。 :=。 :=。 qrysub:=(self)。 :=。 (39。select * from BookClass where len(sclassId)=139。)。 。 。 for i:=0 to do //search bookclass begin sub:=(root,(39。sbookclass39。).AsString) 。 s1:=(39。sclassid39。).AsString。 GetMem(p,255)。 StrCopy(p,pchar(s1))。 :=p。 。 。 :=39。select * from bookclass where len(sclassId)=2 and left(sclassid,1)=39。39。39。+(39。sclassId39。).AsString+39。39。39。39。 。 。 for j:=0 to do begin personnode:=(sub,(39。sbookclass39。).AsString)。 s1:=(39。sclassId39。).AsString。 getmem(p,255)。 strcopy(p,pchar(s1))。 :=p。 with qrymate do begin close。 。 :=39。select * from bookClass where len(sclassId)=3 and left(sclassid,2)=39。39。39。+(39。sclassid39。).AsString+39。39。39。39。 open。 end。 for k:=0 to do begin matenode:=(personnode,(39。sbookclass39。).AsString)。 s1:=(39。sclassId39。).AsString。 GetMem(p,255)。 StrCopy(p,pchar(s1))。 :=p。 with qryclass do begin close。 。 :=39。select * from bookclass where len(sclassid)=4 and left(sclassId,3)=39。39。39。+(39。sclassid39。).AsString+39。39。39。39。 open。 end。 for s:=0 to do begin classnode:=(matenode,(39。sbookclass39。).AsString)。 s1:=(39。sclassId39。).AsString。 getmem(p,255)。 strcopy(p,pchar(s1))。 :=p。 。 end。 。 end。 。 end。 。 end。end。procedure (Sender: TObject)。var can_borrow: integer。 s1:string。 state:integer。 adoqry:TADOQuery。 lend_able:integer。begin if then begin ShowMessage(39。請(qǐng)先登錄39。)。 exit。 end。 。 。 (39。@userId39。).Value:=Trim()。 (39。@can_borrow39。).Value:=0。 。 can_borrow:= (39。@can_borrow39。).Value 。 if can_borrow=1 then begin s1:=[0].text。 //bookId adoqry:=(self)。 :=。 Showmessage(s1)。 with adoqry do begin close。 。 :=39。select istate from book where sbookId= 39。+39。39。39。39。 +s1+ 39。39。39。39。 open。 end。 lend_able:=strtoint([0].text)。 if lend_able=1 then begin with ADOStoredProc3 do begin close。 。