【導讀】文獻的基本信息對文基本信息獻進行查詢；文獻類別信息的添加與刪除；用戶基本信息的設置；用戶權限的設置；答辯演示稿一份；個人文獻管理系統(tǒng)是一個典型的文獻信息管理系統(tǒng)。其開發(fā)的基本過程主要。包括后臺數(shù)據(jù)庫的建立以及維護和前端應用程序的開發(fā)兩個方面。其中前者要求建立一。功能完備性好和易使用等特點。利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其。打印，對用戶進行用戶權限設置和對日志進行清除以及數(shù)據(jù)的備份恢復。戶對日常所需的文獻進行快速查找和打印，對文獻信息綜合管理。

　　

【正文】 大學本科生畢業(yè)設計（論文） 22 名，文檔名，文檔類型作為查詢條。用戶可根據(jù)自己所需填入限定條件，然后點擊查詢按鈕。 本模塊能 方便用戶快速定位 找到自己所需的文檔。 圖 文獻查詢界面設計圖 查詢模塊。連接數(shù)據(jù)庫，設置輸入查詢條件入庫日期，作者名，文檔名，及類型選取一個或幾個進行查詢。選取所屬類別查詢時，先判斷是所有類別還是單一類別名；如在數(shù)據(jù)庫中有記錄，則執(zhí)行查詢，并移動記錄指針；否則，提示沒有符合條件的信息；關閉數(shù)據(jù)庫，退出。 Private Sub Cmd_cx_Click() 39。查詢按鈕 Dim Str_SubItems As ListItem 39。定義一個 ListItem 集合 Dim sql As String sql = select * from tb_TempDoc where 1=1 連接數(shù)據(jù)庫 If And Then time1 = + 11 time2 = + 1231 sql = sql + and RLSJ 39。 amp。 time2 amp。 39。 and RLSJ 39。 amp。 time1 amp。 39。 End If If = Or = 所有類別 Then 39。按所有類別查詢 sql = sql + and WDBT Like 39。% amp。 amp。 %39。 and ZZNAME Like 39。% amp。 湖南科技大學本科生畢業(yè)設計（論文） 23 amp。 %39。 Else 39。按所選類別查詢 sql = sql + and WDBT Like 39。% amp。 amp。 %39。 and ZZNAME Like 39。% amp。 amp。 %39。 and SSLB=39。 amp。 amp。 39。 End If sql, Cnn, adOpenKeyset If 0 Then 39。如果記錄集大于零則執(zhí)行 39。刪除集合中的全部對象 39。移動記錄指針 For i = 1 To Set Str_SubItems = () 39。添加 ListItem 對象到 ListItems 集合中 With Str_SubItems Text = AdoRs!SSLB SubItems(1) = AdoRs!WDBT SubItems(2) = AdoRs!ZZNAME SubItems(3) = AdoRs!RLSJ 39。移動記錄指針 End With Next i Else MsgBox 沒有符合條件的信息 , 64, 提示信息 End If 39。關閉數(shù)據(jù)庫 End Sub 6） 用戶管理模塊 用戶管理界面如 圖 所示 ?；静僮魇?點擊增加按鈕 ， 再分別輸入用戶名 ， 角色 ，用戶密碼 ， 確認密碼。點擊注冊按鈕，如用戶名沒有已經(jīng)存在，且用戶密碼與確認密碼一致，則注冊成功；反之，則提示用戶名已存 在，或兩次密碼輸入不一致，請重新輸入；注冊完成后，點擊關閉按鈕，完成用戶設置 。 用戶注冊信息模塊。接收用戶輸入數(shù)據(jù)，接收完后；判斷用戶信息是否輸入完整；如不完整，提示用戶輸入信息不完全，請重新輸入；反之，打開數(shù)據(jù)表，查看用戶信息表中的記錄，如已存在，則提示該用戶名已存在，請更換用戶名；反之則繼續(xù)判斷兩次輸入密碼是否一致；如不一致，則提示用戶密碼輸入不一致；反之，如果記錄大于零則執(zhí)行，并移動數(shù)據(jù)指針，保存注冊信息，提示注冊信息成功；關閉數(shù)據(jù)表，退出。 湖南科技大學本科生畢業(yè)設計（論文） 24 圖 用戶信息設置界面設計圖 Private Sub Cmd_Add_Click() 39。注冊按鈕 If = Or = Or = Then MsgBox 輸入的用戶注冊信息不完全 !!, , 提示信息 Else On Error Resume Next select * from tb_User where xm=39。 amp。 amp。 39。, Cnn, adOpenKeyset 39。打開數(shù)據(jù)表 If 0 Then 39。如果記錄集大于零則執(zhí)行 MsgBox 該用戶名已經(jīng)存在 ,請您更換其他用戶名 !, 48, 提示信息 39。如果該用戶名存在則重新輸入 = = = = Else If = Then 39。判斷兩次輸入的密碼是否一致 select * from tb_user where xm=39。 + + 39。, Cnn, adOpenKeyset If 0 Then 39。如果記錄集大于零則執(zhí)行 39。移動數(shù)據(jù)指針 Dim StrId StrId = Val((bh)) + 1 湖南科技大學本科生畢業(yè)設計（論文） 25 Else StrId = 1 End If 39。保存注冊信息 Set AdoRs2 = (insert into tb_user(xm,qx,mm) values(39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。)) MsgBox 注冊成功 !!, 48, 用戶注冊信息提示 = = = = Else MsgBox 兩次輸入 的密碼不一致 ,請您確認后重新輸入 , 48, 用戶注冊信息提示 = = End If End If 39。關閉數(shù)據(jù)表 End If Call ListLoad 39。調(diào)用過程 End Sub 7）用戶權限管理模塊 用戶權限界面如 圖 所示。界面包括分配權限和查看權限，保存和退出按鈕。管理員點擊分配權限按鈕，根據(jù)用戶角色對 用戶進行分配權限設置；以防止數(shù)據(jù)外泄，保證數(shù)據(jù)的安全和保密性。用戶可以點擊查看權限，可對本人的權限進行查看。 權限設置模塊 的主要流程是： 定義一個臨時一維數(shù)組，打開數(shù)據(jù)表；如果有記錄存在，設置操作員的權限；如果選擇查看權限，執(zhí)行查看權限；設置一個變量，取值范圍為 0 到 10，每個值對應一個操作；通過選擇這些操作對用戶權限進行設置，同時更改記錄指針，點擊保存按鈕。 湖南科技大學本科生畢業(yè)設計（論文） 26 圖 用戶權限設置界面設計圖 Private Sub ListView1_ItemClick(ByVal Item As ) Dim a(11) 39。定義一個臨時一維數(shù)組 Dim i As Integer Dim j As Integer 39。打開數(shù)據(jù)表 select * from tb_User where xm=39。 amp。 amp。 39。, Cnn, adOpenKeyset If 0 Then 39。如果記錄集大于零則執(zhí)行 = 設置操作員 amp。 amp。 的權限 If = True Then 39。如果選擇查看權限則執(zhí)行 = False 39。保存按鈕不可用 39。移動記錄指針 39。清空 ListBox 控件 j = 4 For i = 0 To 10 a(i) = (j) j = j + 1 Next i If a(0) = 1 Then 文檔類別管理 湖南科技大學本科生畢業(yè)設計（論文） 27 If a(1) = 1 Then 文檔信息添加 If a(2) = 1 Then 文檔信息刪除 If a(3) = 1 Then 文檔信息查詢 If a(4) = 1 Then 文檔信息打印 If a(5) = 1 Then 用戶管理 If a(6) = 1 Then 口令修改 If a(7) = 1 Then 權限設置 If a(8) = 1 Then 日志管理 If a(9) = 1 Then 文檔數(shù)據(jù)備份 If a(10) = 1 Then 文 檔數(shù)據(jù)恢復 Else = True End If End If End Sub 8）文獻信息打印模塊 圖 文獻信息打印界面設計圖 文獻打印界面如 圖 所示。界面包括選擇文檔類別，文檔名，顯示記錄。通過選擇文檔類別名或標題。點擊查詢按鈕來查找所需的要打印的文件。再點擊打印按鈕，連接 數(shù)據(jù)庫，打印文件。如沒有符合條件的文檔，則提示沒有相關的打印文檔。 湖南科技大學本科生畢業(yè)設計（論文） 28 打印模塊如 錯誤 !未找到引用源。 所示。先對所需文獻類別進行查詢，如數(shù)據(jù)庫中有記錄；則繼續(xù)對文獻名進行查詢，如數(shù)據(jù)庫中由此文件數(shù)據(jù)；則打印文件。反之，則提示沒有相關的要打印的文件信息。 9）日志管理模塊 日志管理界面如 錯誤 !未找到引用源。 所示。 日志管理模塊 用來清除和管理當天的數(shù)據(jù)。點擊清除按鈕，彈出對話框 ，提示你確認要清除當前日志嗎？選擇 OK 按鈕后，輸出數(shù)據(jù)表，并刷新記錄。 圖 日志管理界面設計圖 日志管理模塊。清除日志時，確認是否清除當前日志；如確認后，刪除數(shù)據(jù)表，日志清理成功；并刷新記錄包含操作員姓名，執(zhí)行的操作，及操作時間。 Private Sub Cmd_ql_Click() 39。清理按鈕 c = MsgBox(您確認要清除當前的日志信息嗎 ?, 17, 提示信息 ) If c = vbOK Then Set AdoRs = (delete tb_Rz from tb_Rz) 39。刪除數(shù)據(jù)表 MsgBox 日志清理成功完成 , 64, 提示信息 = select * from tb_Rz order by Bh 39。刷新記錄 (0).Visible = False (1).Caption = 操作員姓名 (2).Caption = 執(zhí)行操作 (3).Caption = 操作時間 (1).Width = 2300 湖南科技大學本科生畢業(yè)設計（論文） 29 (2).Width = 4000 End If End Sub 開 始結(jié) 束數(shù) 據(jù)庫類 別 查詢打 印是 否 有 數(shù)據(jù)是 否 有記 錄是否否 圖 打印模塊流程圖 10）數(shù)據(jù)備份模塊 圖 數(shù)據(jù)恢復備份界設計面 數(shù)據(jù)備份界面設計如 圖 所示。數(shù)據(jù)備份包括文件路徑的選取，開始備份按鈕，退出按鈕。選擇文件備份路徑，點擊開始備份按鈕。備份完成后，再按退出按鈕。 數(shù)據(jù)備份模塊。設置選取數(shù)據(jù)備份的路徑，設置到最大進度條，打開數(shù)據(jù)庫；然后湖南科技大學本科生畢業(yè)設計（論文） 30 備份整個數(shù)據(jù)到指定路徑，執(zhí)行 sql 語句，關閉數(shù)據(jù)庫；顯示進度最小值，備份成功，退出。 Private Sub Cmd_BackUp_Click() 39。開始備份按鈕 = False 39。開始備份按鈕不可用 = 11 39。顯示鼠標指針類型為沙漏 If = Then MsgBox 請您選擇數(shù)據(jù)庫備份的路徑 !, 64, 提示信息 Else Dim connter As Integer Dim sql, workarea(6) As String = True 39。進度條可見 = UBound(workarea) 39。設置進度條最大值 For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value amp。 connter = connter Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=db_Document 39。打開數(shù)據(jù)庫 sql = BACKUP DATABASE db_Document TO disk=39。 amp。 amp。 39。 39。備份整個數(shù)據(jù)庫到指定位置 (sql) 39。執(zhí)行 SQL 語句 39。關閉數(shù)據(jù)庫 Next connter = 39。顯示進度條最小值 MsgBox 數(shù)據(jù)庫備份成功 !!, 64, 提示信息 = True 39。開始備份按鈕可用 = 0 39?；謴褪髽酥羔? End If 系統(tǒng)主要函