計算機學院圖書管理系統—畢業設計論文(編輯修改稿)

　

【文章內容簡介】 系統的功能結構畫出主要的 ER圖。 圖 書用 戶短 消 息借 閱N1發 送1N 圖 41 ER圖 數據庫表設計 （ 1） 系統管理員表 表 41 admin 字段名稱 數據類型 說明 id 自動編號 主鍵 name 文本 管理用戶名 passwd 文本 系統管理密碼、 （ 2） 圖書分類表 表 42 BookClass 字段 名稱 數據類型 說明 id 自動編號 主鍵 classname 文本 圖書分類名稱 （ 3）圖書表 表 43 Books 字段名稱 數據類型 說明 bookno 自動編號 主鍵 sortno 數字 圖書分類號 title 文本 圖書名字 author 文本 圖書作者 price 貨幣 圖書價格 number 數字 圖書數量 （ 4）用戶表 表 44 Borrowers 字段名稱 數據類型 說明 cardno 自動編號 主鍵 name 文本 用戶名字 passwd 文本 用戶密碼 sex 文本 用戶性別 dept 文本 所屬院系 loannum 數字 已借書數量 lock 是 /否 是否鎖定 （ 5）系統配置表 表 45 config 字段名稱 數據類型 說明 id 自動編號 主鍵 maxLoanNumber 數字 最大借閱數量 maxLoanKeepDays 數字 最長借閱時間 systemname 文本 系統名稱 copyright 文本 版權信息 （ 6） 圖書借出表 表 46 Loans 字段名稱 數據類型 說明 id 自動編號 主鍵 cardno 數字 借書卡號 bookno 數字 書號 title 文本 圖書名字 date 日期 /時間 借書日期 （ 7）系統日志表 表 47 log 字段名稱 數據類型 說明 id 自動編號 主鍵 userright 文本 用戶類型 username 文本 用戶名字 action 文本 事件 date 文本 時間 ip 文本 ip 地址 （ 8）短信息表 表 48 message 字段名稱 數據類型 說明 id 自動編號 主鍵 fromuserid 數字 發信人的卡號 fromusername 文本 發信人的名字 touserid 數字 收信人的卡號 tousername 文本 收信人名字 createtime 日期 /時間 發送時間 isread 數字 是否已閱讀 isreply 數字 是否已回復 content 文本 信息內容 5 系統 的實現 為了保證 本系統 運行的效率和可靠性，服務器應具有較高的軟硬件配置，客戶端的要求不是很高。此應用程序可廣泛運行于國際互聯網即 Inter，也可適用于內部的局域網。 其運行要求如下： 軟件環境： 客戶端： Windows98/2021/XP， Inter Explorer(IE)等 。 服務器端： Windows NT/Windows2021， Inter Information Server (IIS) 及其以上版本， IE 等；或者 Windows98， Personal Web Server(PWS)，IE等。 數據庫：采用 Access2021，運行于服務器端。 數據庫的連接 在整個計算機學院圖書管理系統中，數據庫的連接是非常重要的，如果連接不對將無法運行系統，下面是本系統的連接打開數據庫的代碼文件 ： % Dim MM_conn_STRING Dim isDebug isDebug = false if isDebug = true then MM_conn_STRING = dsn=library。 else MM_conn_STRING=DBQ=+(data/)+。DefaultDir=。DRIVER={Microsoft Access Driver (*.mdb)}。 end if % 系統的登錄頁面 本系 統分為二種登錄模式如圖 51： （ 1） 管理員登錄。 （ 2） 用戶登錄。 圖 51 系統的安全性 系統是用 ASP 網頁編程 +ACCESS 數據庫 +SQL 查詢語句 ， 系統中擁有的用戶名和密碼才能正常進入系統， 以下給出部分代碼提供參考： If (CStr(Request(MM_login)) ) Then If Request(userright)=user AND isNumeric(Request(cardno))=false Then freshTo 用戶名不存在或密碼不正確！請 重新登陸系統！, End If If Request(userright)=user Then sql = SELECT cardno,name,lock FROM Borrowers WHERE sql = sql amp。 cardno= amp。 Replace((cardno), 39。, 39。39。) sql = sql amp。 AND passwd=39。 amp。 md5((passwd), 16) amp。 39。 Else sql = SELECT * FROM admin WHERE sql = sql amp。 name=39。 amp。 Replace((cardno), 39。, 39。39。) amp。 39。 sql = sql amp。 AND passwd=39。 amp。 md5((passwd), 16) amp。 39。 End If Set rs=executeQuery(sql) If Not Or Not Then If Request(userright)=user Then If rs(lock)=true Then addLog user,rs(name)amp。(amp。rs(cardno)amp。),登陸系統失敗，因為帳號被鎖定。 freshTo 用戶名已被管理員鎖定！請速與管理員聯系！, End If Session(userright)=user Session(cardno)=CINT(rs(cardno)) Session(username)=rs(name) addLog ,用戶登陸系統 () Else Session(userright)=admin Session(userid)=rs(id) Session(username)=rs(name) addLog ,用戶登陸系統 () End If 以上代碼判斷輸入的卡號和密碼是否正確，正確就跳轉到 頁面，錯誤則返回登錄。如果用戶被鎖定也無法進入系統，需要管理員解鎖才能進入。 判斷用戶是否是從登錄頁面進 入系統的 代碼如下： If Session(userright)userright AND Session(userright)admin Then showMsg(對不起，您還沒有登錄，或沒有足夠的權限，無法進行此操作。 ) End If 管理員功能簡介 （ 1）我的信箱可以查看是否有短信息，并可以閱讀和回復。 （ 2）發送短消息可以和用戶交流，提醒他們注意還書時間等。 （ 3）修改密碼可以修改自己的登錄密碼。 （ 4）查看藏館圖書對整個系統圖書的瀏覽并可以對圖書進行修改、刪 除。 （ 5）添加圖書分類對新的圖書種類進行添加。 （ 6）圖書分類查看對系統所有圖書的種類瀏覽。 （ 7）新書入庫對新的圖書的添加。 （ 8）會員還書對用戶歸還的圖書進行處理。 （ 9）圖書借出列表可以查看圖書借出情況。 （ 10）書庫圖書查詢可以對圖書進行模糊和精確查找。 （ 11）系統配置可以對系統進行一些簡單的配置。 （ 12）系統事件可以查看系統日志并進行刪除。 （ 13）添加會員可以對新的會員進行添加。 （ 14）查看會員可以查看會員借書的情況，還可以鎖定、刪除會員以及給會員發短消息。 用戶功能簡介 （ 1）我的基本資料可以查看自己的基本信息以及借書情況。 （ 2）我的借書情況可以查看具體的借書信息。 （ 3）我的信箱可以查看是否有短信息，并可以閱讀和回復。 （ 4）發送短消息可以和其他用戶進行交流。 （ 5）修改密碼可以修改自己的登錄密碼。 （ 6）查看藏館圖書對整個系統圖書的瀏覽并可以對圖書進行借閱。 （ 7）圖書分類查看對系統所有圖書的種類瀏覽。 （ 8）圖書借出列表可以查看圖書借出情況。 （ 9）書庫圖書查詢可以對圖書進行模糊和精確查找。 （ 10）給管理員留言可以給管理員發送短消息跟管理員交流。 系統 關鍵代 碼 （ 1） 以下代碼是實現圖書借閱： % Dim Recordset1__MMColParam Recordset1__MMColParam = Session(bookno) If ((bookno) ) Then Recordset1__MMColParam = (bookno) End If % % Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = () = MM_conn_STRING = SELECT bookno,title,[number] FROM Books WHERE bookno = + Replace(Recordset1__MMColParam, 39。, 39。39。) + = 0 = 2 = 1 () Recordset1_numRows = 0 If (number).Value0 then Dim rs,keepDays Set rs=executeQuery(SELECT * FROM Loans WHERE cardno = amp。 Session(cardno) amp。 ORDER BY date DESC) if And then keepDays=0 else keepDays = maxLoanKeepDays DateDiff(d,rs(date).Value,now()) end if If keepDays0 Then addLog, 借書amp。(title).Valueamp。失敗，因為有圖書逾期未還 Else Set rs=executeQuery(select loannum from Borrowers where cardno=amp。Session(cardno)) if rs(loannum)maxLoanNumber then executeUpdate(UPDATE Books SET [number]=[number]1 WHERE bookno = + Replace(Recordset1__MMColParam, 39。, 39。39。) + ) executeUpdate(UPDATE Borrowers SET loannum=loannum+1 WHERE cardno=amp。Session(cardno)) executeUpdate(INSERT INTO Loans (cardno,bookno,title,[date]) Values (amp。Session(cardno)amp。,amp。(bookno).Valueamp。,39。amp。(title).Valueamp。39。,39。amp。now()amp。39。)) addLog, 借書amp。(title).Valueamp。成功 freshTo 成 功 借 到 書 名 為amp。(title).Valueamp。 的 圖 書 ！, else addLog , 借書amp。(title).Valueamp。失敗，因為借書量超額 freshTo 錯誤！你的借書總量已經達到最大數量（ amp。 maxLoanNumber amp。本）！ , end if End If else addLog , 借書amp。(title).Valueamp。失敗，因為書庫已空 freshTo 錯誤！書名為amp。(title).Valueamp。的圖書的庫存量為 0 ，無法外借！ , end if () Set Recordset1 = Nothing