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

　　

【正文】 大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 22 名，文檔名，文檔類型作為查詢條。用戶可根據(jù)自己所需填入限定條件，然后點(diǎn)擊查詢按鈕。 本模塊能 方便用戶快速定位 找到自己所需的文檔。 圖 文獻(xiàn)查詢界面設(shè)計(jì)圖 查詢模塊。連接數(shù)據(jù)庫，設(shè)置輸入查詢條件入庫日期，作者名，文檔名，及類型選取一個(gè)或幾個(gè)進(jìn)行查詢。選取所屬類別查詢時(shí)，先判斷是所有類別還是單一類別名；如在數(shù)據(jù)庫中有記錄，則執(zhí)行查詢，并移動記錄指針；否則，提示沒有符合條件的信息；關(guān)閉數(shù)據(jù)庫，退出。 Private Sub Cmd_cx_Click() 39。查詢按鈕 Dim Str_SubItems As ListItem 39。定義一個(gè) 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。 湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 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。關(guān)閉數(shù)據(jù)庫 End Sub 6） 用戶管理模塊 用戶管理界面如 圖 所示 。基本操作是 點(diǎn)擊增加按鈕 ， 再分別輸入用戶名 ， 角色 ，用戶密碼 ， 確認(rèn)密碼。點(diǎn)擊注冊按鈕，如用戶名沒有已經(jīng)存在，且用戶密碼與確認(rèn)密碼一致，則注冊成功；反之，則提示用戶名已存 在，或兩次密碼輸入不一致，請重新輸入；注冊完成后，點(diǎn)擊關(guān)閉按鈕，完成用戶設(shè)置 。 用戶注冊信息模塊。接收用戶輸入數(shù)據(jù)，接收完后；判斷用戶信息是否輸入完整；如不完整，提示用戶輸入信息不完全，請重新輸入；反之，打開數(shù)據(jù)表，查看用戶信息表中的記錄，如已存在，則提示該用戶名已存在，請更換用戶名；反之則繼續(xù)判斷兩次輸入密碼是否一致；如不一致，則提示用戶密碼輸入不一致；反之，如果記錄大于零則執(zhí)行，并移動數(shù)據(jù)指針，保存注冊信息，提示注冊信息成功；關(guān)閉數(shù)據(jù)表，退出。 湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 24 圖 用戶信息設(shè)置界面設(shè)計(jì)圖 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 湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 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 兩次輸入 的密碼不一致 ,請您確認(rèn)后重新輸入 , 48, 用戶注冊信息提示 = = End If End If 39。關(guān)閉數(shù)據(jù)表 End If Call ListLoad 39。調(diào)用過程 End Sub 7）用戶權(quán)限管理模塊 用戶權(quán)限界面如 圖 所示。界面包括分配權(quán)限和查看權(quán)限，保存和退出按鈕。管理員點(diǎn)擊分配權(quán)限按鈕，根據(jù)用戶角色對 用戶進(jìn)行分配權(quán)限設(shè)置；以防止數(shù)據(jù)外泄，保證數(shù)據(jù)的安全和保密性。用戶可以點(diǎn)擊查看權(quán)限，可對本人的權(quán)限進(jìn)行查看。 權(quán)限設(shè)置模塊 的主要流程是： 定義一個(gè)臨時(shí)一維數(shù)組，打開數(shù)據(jù)表；如果有記錄存在，設(shè)置操作員的權(quán)限；如果選擇查看權(quán)限，執(zhí)行查看權(quán)限；設(shè)置一個(gè)變量，取值范圍為 0 到 10，每個(gè)值對應(yīng)一個(gè)操作；通過選擇這些操作對用戶權(quán)限進(jìn)行設(shè)置，同時(shí)更改記錄指針，點(diǎn)擊保存按鈕。 湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 26 圖 用戶權(quán)限設(shè)置界面設(shè)計(jì)圖 Private Sub ListView1_ItemClick(ByVal Item As ) Dim a(11) 39。定義一個(gè)臨時(shí)一維數(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í)行 = 設(shè)置操作員 amp。 amp。 的權(quán)限 If = True Then 39。如果選擇查看權(quán)限則執(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 文檔類別管理 湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 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 權(quán)限設(shè)置 If a(8) = 1 Then 日志管理 If a(9) = 1 Then 文檔數(shù)據(jù)備份 If a(10) = 1 Then 文 檔數(shù)據(jù)恢復(fù) Else = True End If End If End Sub 8）文獻(xiàn)信息打印模塊 圖 文獻(xiàn)信息打印界面設(shè)計(jì)圖 文獻(xiàn)打印界面如 圖 所示。界面包括選擇文檔類別，文檔名，顯示記錄。通過選擇文檔類別名或標(biāo)題。點(diǎn)擊查詢按鈕來查找所需的要打印的文件。再點(diǎn)擊打印按鈕，連接 數(shù)據(jù)庫，打印文件。如沒有符合條件的文檔，則提示沒有相關(guān)的打印文檔。 湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 28 打印模塊如 錯(cuò)誤 !未找到引用源。 所示。先對所需文獻(xiàn)類別進(jìn)行查詢，如數(shù)據(jù)庫中有記錄；則繼續(xù)對文獻(xiàn)名進(jìn)行查詢，如數(shù)據(jù)庫中由此文件數(shù)據(jù)；則打印文件。反之，則提示沒有相關(guān)的要打印的文件信息。 9）日志管理模塊 日志管理界面如 錯(cuò)誤 !未找到引用源。 所示。 日志管理模塊 用來清除和管理當(dāng)天的數(shù)據(jù)。點(diǎn)擊清除按鈕，彈出對話框 ，提示你確認(rèn)要清除當(dāng)前日志嗎？選擇 OK 按鈕后，輸出數(shù)據(jù)表，并刷新記錄。 圖 日志管理界面設(shè)計(jì)圖 日志管理模塊。清除日志時(shí)，確認(rèn)是否清除當(dāng)前日志；如確認(rèn)后，刪除數(shù)據(jù)表，日志清理成功；并刷新記錄包含操作員姓名，執(zhí)行的操作，及操作時(shí)間。 Private Sub Cmd_ql_Click() 39。清理按鈕 c = MsgBox(您確認(rèn)要清除當(dāng)前的日志信息嗎 ?, 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 = 操作時(shí)間 (1).Width = 2300 湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 29 (2).Width = 4000 End If End Sub 開 始結(jié) 束數(shù) 據(jù)庫類 別 查詢打 印是 否 有 數(shù)據(jù)是 否 有記 錄是否否 圖 打印模塊流程圖 10）數(shù)據(jù)備份模塊 圖 數(shù)據(jù)恢復(fù)備份界設(shè)計(jì)面 數(shù)據(jù)備份界面設(shè)計(jì)如 圖 所示。數(shù)據(jù)備份包括文件路徑的選取，開始備份按鈕，退出按鈕。選擇文件備份路徑，點(diǎn)擊開始備份按鈕。備份完成后，再按退出按鈕。 數(shù)據(jù)備份模塊。設(shè)置選取數(shù)據(jù)備份的路徑，設(shè)置到最大進(jìn)度條，打開數(shù)據(jù)庫；然后湖南科技大學(xué)本科生畢業(yè)設(shè)計(jì)（論文） 30 備份整個(gè)數(shù)據(jù)到指定路徑，執(zhí)行 sql 語句，關(guān)閉數(shù)據(jù)庫；顯示進(jìn)度最小值，備份成功，退出。 Private Sub Cmd_BackUp_Click() 39。開始備份按鈕 = False 39。開始備份按鈕不可用 = 11 39。顯示鼠標(biāo)指針類型為沙漏 If = Then MsgBox 請您選擇數(shù)據(jù)庫備份的路徑 !, 64, 提示信息 Else Dim connter As Integer Dim sql, workarea(6) As String = True 39。進(jìn)度條可見 = UBound(workarea) 39。設(shè)置進(jìn)度條最大值 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。備份整個(gè)數(shù)據(jù)庫到指定位置 (sql) 39。執(zhí)行 SQL 語句 39。關(guān)閉數(shù)據(jù)庫 Next connter = 39。顯示進(jìn)度條最小值 MsgBox 數(shù)據(jù)庫備份成功 !!, 64, 提示信息 = True 39。開始備份按鈕可用 = 0 39?；謴?fù)鼠標(biāo)指針 End If 系統(tǒng)主要函