圖書管理系統課程設計報告-資料下載頁

　　

【正文】 img src=login_img/ /管理入口/a/li lia img src=login_img/ /信息門戶/a/li lia img src=login_img/ /辦公系統/a/li lia img src=login_img/ /郵箱系統/a/li li style=display:block。float:right。a img src=login_img/ /返回/a/li /ul /div /div div id=tbg/div div id=log div class=headlinebg indexheadlinebg wavesWappersection class=featuresvideo section sectiononbg featureindex canvas id=waves class=waves/canvas div id=loginbox ul li用戶登錄/li /ul div class=loginiteminput type=text id=txtUserName placeholder=用戶名//divimg src=login_img/ alt= style=display:block。marginleft:37px。margintop:35px。/ div class=loginiteminput type=password id=txtpwd placeholder=密碼 style=margintop:50px。/img src=login_img/ alt= style=display:block。marginleft:7px。margintop:35px。//div div class=loginrtn style=display:none。 margintop:40px。marginleft:10px。color:white。 input type=radio id=rst name=rb style=marginleft:25px。/ input type=radio id=rtch name=rb / input type=radio id=rad name=rb /管理員 /div div id=lbtn class=loginitema href=javascript:。 onclick=Login()登錄/a/div /div /section /div /div div id=footer/div form id=form1 runat=server div /div /form script src=login_js//script script src=login_js//script/body/html還書當讀者還書在這進行輸入，并自動對數據庫相關表進行修改。procedure (Sender: TObject)。//完成某讀者對已借閱圖書的歸還，并且對數據庫中的借、還書數據表進行更新，圖書狀態state字段值置為0(表示圖書已被歸還)var i,flag:integer。 Query:TADOQuery。begin flag:=0。 if trim()=39。39。 then begin ShowMessage(39。沒有輸入讀者卡號！39。)。 。 exit。 end。 for i:=0 to do begin if trim([i])39。39。 then flag:=1。 end。 if flag=0 then begin ShowMessage(39。沒有選擇所要歸還的書籍！39。)。 exit。 end。 Query:=(self)。 with Query do begin Connection:=。 try for i:=0 to do begin 。 :=39。update Lend_Book set ReturnDate=:ReturnDate,state=0 39。+ 39。where ReaderCardID=:ReaderCardID and BookID=:BookID39。 (39。ReaderCardID39。).Value:=trim()。 (39。BookID39。).Value:=trim([i])。 (39。ReturnDate39。).Value:=now。 ExecSQL。 。 :=39。update Book_stock set BookOutNumber=BookOutNumber1 where 39。+ 39。BookID=:BookID39。 (39。BookID39。).Value:=trim([i])。 ExecSQL。 。 :=39。update Book_stock set BookLast=1 where BookInNumberBookOutNumber39。 ExecSQL。 end。 if MessageDlg(39。還書成功,是否繼續還書？39。,mtConfirmation,[mbYes,mbNo],0)=mrYes then begin :=39。39。 。 。 。 。 。 end else 。 except ShowMessage(39。還書失敗！39。)。 end。 Close。 Free。end。end。 附 錄2用戶管理給相應用戶分配的權限并賦予其登陸口令讀者查詢在這個模塊里可以根據讀者的信息如卡號、姓名、學歷等進行模糊查詢，這樣以便用戶知道讀者的信息,也可以對讀者借書\還書查詢。procedure (Sender: TObject)。 //根據查詢條件，完成對讀者的精確和模糊查詢var Query:TADOQuery。 temp:string。 sql:string。begin if trim()=39。39。 then Begin ShowMessage(39。沒有輸入查詢條件39。)。 。 exit。 end。 if then temp:=GetEducationID(trim()) else if then temp:=GetReaderTypeID(trim()) else temp:=trim()。 if then sql:=QueryStr+39。 like 39。+quotedStr(39。%39。+temp+39。%39。) else sql:=QueryStr+39。=39。+quotedstr(temp)。 。 Query:=(self)。 with Query do begin Connection:=。 Close。 。 if then :=39。select * from Reader_info where 39。+QueryStr+39。 like 39。+quotedStr(39。%39。+temp+39。%39。) else :=39。select * from Reader_info where 39。+QueryStr+39。=39。+quotedstr(temp)。 Open。 while not eof do begin with do begin Caption:=FieldByName(39。ReaderCardID39。).Value。 (FieldByName(39。Name39。).Value)。 (FieldByName(39。ID39。).Value)。 (FieldByName(39。Sex39。).Value)。 (GetTypeName(FieldByName(39。ReaderTypeID39。).Value))。 (GetEducationName(FieldByName(39。EducationID39。).Value))。 end。 Next。 end。 Close。 Free。 end。 if =0 then begin (39。沒有滿足查詢條件的記錄39。,39。提示39。)。 。 。 end。procedure (Sender: TObject)。//根據輸入的讀者卡號，查詢讀者的借書或者還書情況var Query:TADOQuery。 flag:integer。begin flag:=1。 if trim()=39。39。 then begin ShowMessage(39。沒有輸入卡號！39。)。 。 exit。 end。 Query:=(self)。 :=。 if then flag:=1 else if then flag:=0。 。 with Query do begin Close。 if then begin 。 :=39。select * from Lend_Book where state=:flag and ReaderCardID39。+39。 like 39。+quotedStr(39。%39。+trim()+39。%39。) end else begin 。 :=39。select * from Lend_Book where state=:flag and ReaderCardID39。+39。=39。+quotedStr(trim())。 end。 (39。flag39。).Value:=flag。 Open。 while not eof do begin with do begin Caption:=FieldByName(39。ReaderCardID39。).Value。 (FieldByName(39。BookID39。).Value)。 (GetBookName(FieldByName(39。BookID39。).Value))。 if FieldByName(39。LendDate39。).ValueNull then (FieldByName(39。LendDate39。).Value) else (39。39。)。 if FieldByName(39。ReturnDate39。).ValueNull then (FieldByName(39。ReturnDate39。).Value) else (39。39。)。 if FieldByName(39。state39。).Value=0 then (39。已還39。) else (39。未還39。)。 end。 Next。 end。 end。end。 13