【正文】 表單提交后， 查詢當(dāng)前的讀者證號 if 0 then 顯示讀者個人信息 查詢該讀者的借書信息 if 0 then 顯示所有借書記錄 size=當(dāng)前借書記錄數(shù) else 顯示沒有借書記錄 end if else 顯示 沒有相應(yīng)的讀者 顯示 沒有相應(yīng)的借書記錄 end if sub setlost(n) //此段程序是掛失的單擊事件 flag =set //當(dāng)前處于掛失狀態(tài) if n=0 then msgbox 沒有要掛失的書籍 ! exit sub end if 湖南師 范大學(xué)本科畢業(yè)論文 29 for i=1 to n loststr1=所有要掛失的記錄的書籍編號 end if next if loststr1= then msgbox 請選擇要掛失的記錄 exit sub end if if 您確實要掛失這些記錄 then //提示遺失書籍要罰款，如果現(xiàn)在不交費 if msgbox(遺失書籍要以兩倍單價罰款 ,交費否？ ,1)1 then //僅更改當(dāng)前遺失書籍的狀態(tài)為“遺失”，并不為借書者還掉此書， 以便能下次還書提醒交費 varb=update book_input set book_state=2,book_memo=39。被遺失 39。 where book_no in(amp。loststr1amp。) else //如果現(xiàn)在就交費 //還掉該書，并將書籍加上遺失標(biāo)志，借書者的借書信息中不再有此書 : varb=update book_input set book_state=2,loaner=39。amp。39。,isloan=0, loandate=39。amp。39。 where book_no in (amp。loststr1amp。) end if 提交表單 end sub 表單提交 后： % readerno=獲得當(dāng)前的讀者證號 if flag=set then //如果現(xiàn)在是掛失操作 varb=request(varb) 修改庫記錄 end if 第 3 章 圖書借閱管理系統(tǒng)的具體實現(xiàn) 30 讀者證掛失處理的具體實現(xiàn) 因為有讀者證的辦理 ,所以讀者遺失讀者證也就必須有掛失處理，在本系統(tǒng)中讀者證的掛失也是異常處理的一個項目。當(dāng)讀者發(fā)現(xiàn)讀者證丟失后，要及時進行掛失，但是如果該讀者有書未還，那么應(yīng)該先把書還掉才可以掛失。讀者可以通過像遺失書籍處理中一樣，點選需要掛失或需要 取消掛失的讀者信息，來完成操作。整個功能也由三個程序構(gòu)成： ， ，首先執(zhí)行的是 ，如果要辦理掛失，則點擊頁面的“掛失辦理”，調(diào)用 ，進入掛失的界面，此時 ,會顯示所有未辦理掛失的讀者信息，為了避免誤操作，必須定位需要掛失的讀者方可進行掛失，工作人員可以通過界面的“查找”按扭，此時會調(diào)用，在所有未辦理 掛失的讀者證信息中定們需要記錄，然后選中它，“掛失”即可。如果要取消掛失，則只要在首頁面查找要進行取消的讀者信息，此時也會調(diào)用 ，進入查找界面，查找完畢后，在主界面顯示出查找結(jié)果，然后點選要辦理取消的讀者，取消掛失。 具體的程序流程圖如下 : 湖南師 范大學(xué)本科畢業(yè)論文 31 圖 讀者掛失處理流程圖 第 3 章 圖書借閱管理系統(tǒng)的具體實現(xiàn) 32 算法描述如下 : 變量說明 : //value 存放查詢中查找記錄的 SQL 語名 //reconum 當(dāng)前顯示的記錄數(shù) //sqlstr 當(dāng)前運行的 SQL 語句 在讀者證掛出失這個部分，關(guān)于辦理掛失 ,特別是取消掛失的處理過程和書籍遺失的處理過程相似，只是在讀者證掛失這個部分加入了對讀者是否有書未還的判斷，因此在顯示讀者信息后 ,在點擊掛失 ,取得當(dāng)前的讀者證號，判斷在book_input 這個庫中有沒有該讀者的借書記錄，如果有，則要求先還書再掛失。在查詢過程中，為了方便在轉(zhuǎn)頁時仍顯示的是當(dāng)前查詢的結(jié)果 ,而不是開始顯示的記錄頁面，在程序員中用到了 value 這個變量來存儲當(dāng)前查詢的 SQL 語句。而同時 sqlstr 這個變量又表示當(dāng)前運行的 SQL 語句。當(dāng)執(zhí)行查詢以后 ,判斷 value值是否為空，如果不為空，則把它的值放入 sqlstr,在翻頁的過程中傳遞的sqlstr 值便能始終會是最近查詢的值，這一點在 中也用到了。其它關(guān)于取消掛失和正常辦理掛失的過程與前面的書籍遺失處理大同小異，這里不再繁述 .。 系統(tǒng)維護模塊的具體實現(xiàn) 在圖書管理這樣的系統(tǒng)中，基本上是對圖書資料的管理 ,因此圖書資料和讀者資料的正確性也就尤為重要，更不能丟失，所以我們在系統(tǒng)中加入了數(shù)據(jù)據(jù)備份與恢復(fù)的功能。管理員要定期的對圖書和讀者的資料進行 備份，在備份后，即始有信息丟失或損壞，也可以把損失降到最低。在本系統(tǒng)中，數(shù)據(jù)的備份與恢復(fù)只能是最高權(quán)限的管理員才能進行的操作，備份的路徑由管理員指定，但是文件名由系統(tǒng)定義，備份是全數(shù)據(jù)庫的備份，文件名是數(shù)據(jù)庫名加“ .bak”的后綴，而且備份的文件是存儲在數(shù)據(jù)庫所在的機子上，而不是用戶隨機操作的機子上?；謴?fù)則針對備份的文件進行。如果沒有備份文件是不能進行恢復(fù)的，恢復(fù)時一定要在數(shù)據(jù)庫沒有被使用時才能運行。 湖南師 范大學(xué)本科畢業(yè)論文 33 具體算法流程如下： 圖 數(shù)據(jù)庫備與恢復(fù)程序流程圖 算法描述如下： 變量描述： // sqlserver 指定數(shù)據(jù)庫鏈接的 SERVER // sqlname 指定數(shù)據(jù)庫鏈接的 UID // sqlpassword 指定數(shù)據(jù)庫鏈接的 PWD // sqlLoginTimeout 指定 SQL 登錄超時限定 // databasename 當(dāng)前要備份的數(shù)據(jù)庫的名稱 // bak_file 指定數(shù)據(jù)庫備份文件的路徑 第 3 章 圖書借閱管理系統(tǒng)的具體實現(xiàn) 34 // act 指定當(dāng)前操作是備份還是恢復(fù) SQLDMO //SQL 分布式管理對象， 它是 SQL 分布式管理架中的一部份，這里有必要說明一下 SQLDMO 中各個屬性和它們的層次： SQLDMO Object Model 圖 SQLDMO 對象模型 //定義變量 dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act //描述數(shù)據(jù)庫鏈接 sqlserver = it083 //sql 服務(wù)器 湖南師 范大學(xué)本科畢業(yè)論文 35 sqlname = sa //用戶名 sqlpassword = foundfairfft //密碼 sqlLoginTimeout = 15 //登陸超時 databasename =取當(dāng)前輸入要備份的數(shù)據(jù)庫名稱 bak_file =取要備份的目標(biāo)路徑 if bak_file then 定義一個文件操作對象 if 如果當(dāng)前指定的備份路徑不存在 then 提醒用戶“輸入正確的路徑，且不帶文件名” else //如果路徑存在 bak_file =bak_fileamp。$ //在當(dāng)前路徑中加入系統(tǒng)自定義的備份文名 , 即路徑 +數(shù)據(jù)庫名（此時為“ $1”） +“ .bak” end if end if bak_file = replace(bak_file,$1,databasename) //將“ $1”替換成當(dāng)前備份的數(shù)據(jù)庫 act = 當(dāng)前的操作類型（備份或恢復(fù)） if databasename = then //提示用戶“首先，請輸入要備份或恢 復(fù)的數(shù)據(jù)庫名稱” else if act = backup then //如果當(dāng)前操作是備份 定義一個 SQLDMO 對象 定義這個對象的鏈接和超時設(shè)定 定義 SQLDMO 中 Backup 屬性的對象 bak 利用 bak這個對象 ,進一步定義其數(shù)據(jù)庫 Database, Devices, Files 執(zhí)行 bak的 SQLBackup 事件 if 0 then //如果在執(zhí)行中發(fā)生錯誤 第 3 章 圖書借閱管理系統(tǒng)的具體實現(xiàn) 36 顯示系統(tǒng) 錯誤信息 end if 如果未發(fā)生錯誤 ,則顯示“備份成功 !” elseif act = restore then //如果當(dāng)前操作是恢復(fù) //恢復(fù)時要在沒有使用數(shù)據(jù)庫時進行！ 定義一個 SQLDMO 對象 定義這個對象的鏈接和超時設(shè)定 定義 SQLDMO 中 restore 屬性的對象 rest 針對 rest 對象，設(shè)置它的恢復(fù)屬性（ database， device， files），另外設(shè)置它的 action 為 0，即全數(shù)據(jù)庫恢復(fù) =True //強調(diào)覆蓋已存在的數(shù)據(jù)庫 srv //執(zhí)行 rest 的恢復(fù)事件 if 0 then //如果發(fā)生錯誤 顯示系統(tǒng)錯誤信息 end if 如果沒有發(fā)生錯誤，則顯示恢復(fù)成功 ! else //如果既不是備份，也不恢復(fù) 提示用戶“沒有選擇操作” end if end if 管理員口令維護的具體實現(xiàn) 由于圖書管理 系統(tǒng)中的借書、還書還有備份、恢復(fù)等功能 ,都是只能由管理員來操作的 ,一般的用戶，只能瀏覽網(wǎng)頁的前臺部分和進行一些查詢，所以系統(tǒng)中必須要有管理員權(quán)限方面的維護，所以在這個管理員口令維護模塊中，如果是普通管理員，可以修改自己的密碼，如果是最高權(quán)限的管理員，則可以修改所有的管理員密碼，當(dāng)然也可以為注冊新的管理員和刪除管理員。因此，這個模塊分為 三 大 部 分 ， 一 個 是 管 理 員 的 注 冊 (? 湖南師 范大學(xué)本科畢業(yè)論文 37 ? ? )，一個是 管理員口令修改 (?? ), 還有一個是管理員權(quán)限的更改 ()。程序流程圖如下： 第 3 章 圖書借閱管理系統(tǒng)的具體實現(xiàn) 38 圖 管理員口令維護程序流程圖 (a) 圖 管理員口令維護程序流程圖 (b) 算法描述如下： 湖南師 范大學(xué)本科畢業(yè)論文 39 變量說明： spwd //舊密碼 respwd //新密碼 renewspwd //確認新密碼 username //用戶名 userpassword //數(shù)據(jù)表中的用戶密碼 這個模塊的所有操作本身只針對管理員開放，而且不同身份的管理員限制不同程度的操作。所以識別管理員身份是第一部，前面我們講到可以用 session 這個對象來實現(xiàn) .在這個模塊中 ,不但要判斷是否是管理員 ,而且要判斷是哪種權(quán)限的管理員 ,如果是普通管理員 ,則只可以修改自己的密碼 ,如果是最限的管理員 ,則可以對所有管理員進行操作 (修改、刪除、注冊 )。 if len(session(user_name)=0 then //如果是非管理員 導(dǎo)向管理員登陸界面 end if 在進入口令維護的主界面后，進一步判斷是哪種權(quán)限的管理員，如果是普通管理員，則在顯示修改的用戶名稱中只顯示當(dāng)前登錄的管理員的用戶名，且只讀狀態(tài)，以此提醒用戶，只能本人的密碼；如果管理員權(quán)限為最高，則顯示修改的用戶名稱是可以選擇所有的管理員名稱的： if session(“userclass”)=2 then //如果是最權(quán)限的管理員 以下拉框的形式顯示所有管理員名稱 else 僅顯示當(dāng)前登錄的管理員名稱 end if 在 界 面 中 的“ 刪 除管 理 員” 和 “ 注冊 管 理員 ” 的 按扭 也 只能 是session(“userclass”)=2 時才可用，否則設(shè)置它們的屬性為“ disabled” button name=”b1” if session(“userclass”)2 then%disabled %end if