【正文】 Try oDBConnection = New OleDbConnection(strDBConn) Dim oAdapter As OleDbDataAdapter = New OleDbDataAdapter() = New OleDbCommand(strSP, oDBConnection)’執(zhí)行存儲過程 Dim oCommand As OleDbCommandBuilder = New OleDbCommandBuilder(oAdapter) () (dsRetVal) ’得到數(shù)據(jù)集 Catch Ex As Exception Throw Ex Finally () 39。 3. 系統(tǒng)中很多時候都要查詢數(shù)據(jù)庫，且都使用了存儲過程查詢數(shù)據(jù)庫。用戶定義的類型有：字符數(shù)據(jù)、文本、日期、下拉列表。系統(tǒng)就根據(jù)這些標(biāo)記查詢數(shù)據(jù)庫中相應(yīng)的字段，然后根據(jù)用戶設(shè)置的該顯示字段的類型通過該函數(shù)替換相應(yīng)的 html代碼。 , strCboHtml amp。 For k = 0 To (0). 1 strCboHtml = strCboHtml + OPTION Dim strcbovalue As String = (0).Rows(k)(FiledVales) If strcbovalue = strFiledValue Then strCboHtml = strCboHtml + selected End If 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 11 strCboHtml = strCboHtml + value= + strcbovalue + + strcbovalue + /OPTION Next strCboHtml = strCboHtml + /SELECT trHTML = (! amp。 strTableNameEN amp。39。= 39。 amp。替換列表類型，顯示一個下拉列表 strDictionaryName = (i)(DictionaryName) strSP = Exec sp_getDataValeByField strSP amp。 strIsFillHtml) Case 下拉列表 39。 strFieldName amp。),this)。 strFiledID amp。 amp。 strFiledValue amp。 strFiledID amp。替換日期類型，顯示日期選擇器 Dim strReplace As String strReplace = INPUT type=text name= amp。 strIsFillHtml) Case 日期 39。 strFiledValue amp。 strFiledID amp。 , TEXTAREA style=WIDTH: 100% Rows = 6 name= amp。替換文本類型，顯示一個備注框 strHTML = (! amp。 strIsFillHtml) Case 文本 39。 strFiledValue amp。 strFiledID amp。 , INPUT type=text name= amp。替換字符和數(shù)據(jù)類型，顯示一個文本框 strHTML = (! amp。根據(jù)字段類型不同生成不同的網(wǎng)頁 Select Case strType Case 字符 , 數(shù)據(jù) 39。如果是 下拉列表 Dim dscboRetVal As New DataSet() 39。加密數(shù)據(jù) strFiledValue = DecryptDes(strFiledValue) 39。39。= 39。 amp。= 39。 amp。獲得到第一個字段的值 Dim strFiledValue As String = Dim dsRetVal As New DataSet() Dim strSP As String = Exec sp_getFieldFieldValue strSP amp。 strTableID) If 0 Then Dim i As Integer For i = 0 To 1 Dim strFieldName As String Dim strFiledID As String Dim strType As String Dim strTableNameEN As String Dim strDictionaryName As String Dim strIsFill As String Dim strIsFillHtml As String = strFieldName = (i)(ColName) strFiledID = (i)(ID) 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 10 strType = (i)(Type) strTableNameEN = (i)(TableNameEn) strIsFill = (i)(IsFill) If CType(strIsFill, Boolean) Then strIsFillHtml = FONT color=ff0000*/FONT End If 39。39。 (4) Public Function DecryptDes(ByVal SourceStr As String) As String Try Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider() = (strKey) = (strKey) Dim buffer As Byte() = (SourceStr) Dim ms As MemoryStream = New MemoryStream(buffer) Dim cs As CryptoStream = New CryptoStream(ms, (), ) Dim sr As StreamReader = New StreamReader(cs) Return () Catch Ex As Exception Return End Try End Function 在查詢?nèi)藛T資料的時候，由于數(shù)據(jù)庫中的數(shù)據(jù)經(jīng)過 EncryptDes 函數(shù)加密故要使用相應(yīng)的解密函數(shù)解密，函數(shù) DecryptDes使用標(biāo)準(zhǔn) DES對稱解密算法。 (3) Public Function EncryptDes(ByVal SourceStr As String) As String Try Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider() Dim inputByteArray As Byte() inputByteArray = (SourceStr) = (strKey) = (strKey) 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 9 Dim ms As MemoryStream = New MemoryStream() Dim cs As CryptoStream = New CryptoStream(ms, (), ) Dim sw As StreamWriter = New StreamWriter(cs) (SourceStr) () () () Return ((), 0, ) Catch Ex As Exception Return End Try End Function 由于員工檔案的機(jī)密性，故保存的各項(xiàng)檔案信息都要進(jìn)行加密，所以使用 EncryptDes 函數(shù)加密。提供一個通用的提示函數(shù)。//顯示提示信息 strScript amp。 Replace(Replace(strInfo, \, \\), vbCrLf, \r\n) amp。 strScript amp。= Script Language=39。在使用 時只用指定關(guān)鍵字 Full 和DBConnection 就能訪問數(shù)據(jù)庫。PWD=123。Server=speed。 password=123。 代碼如下： configuration appSettings add key=DBConnection value=server=speed。 (二 )本系統(tǒng)完整的菜單設(shè)計如下表： No 一級菜單 二級菜單 調(diào)用頁面 1 我的工作 業(yè)務(wù)處理 Archives/ 綜合查詢 Search/ 2 用戶管理 用戶管理 SysMgt/ 人員管理 SysMgt/ 3 系統(tǒng)管理 登記表管理 SysMgt/ 角色管理 SysMgt/ 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 8 組織機(jī)構(gòu)管理 SysMgt/ 數(shù)據(jù)字典維護(hù) SysMgt/ 4 在線幫助 在線幫助 Help/ (三 )系統(tǒng)中使用的通用模塊 配置文件是 一個內(nèi)容采用 XML 架構(gòu)的純文本文件， 它會內(nèi)含標(biāo)準(zhǔn)的 XML 文件，包括形式合法的標(biāo)記、注釋、文本等。 Object 用于存儲的是 javaScript 函數(shù)文件。 Image 文件夾下存儲的是系統(tǒng)所有使用的圖片。 Bin 目錄下是系統(tǒng)引用的動態(tài)連接庫文件，一些功能已經(jīng)集成為一個 dll 文件，通過引用dll 可以大大增強(qiáng)代碼的重用性。 (二 )業(yè)務(wù)流程 分公司操作員是指擁有服務(wù)器登陸賬號的員工且已授權(quán)之后，對本系統(tǒng)的有錄入或查看所授權(quán)單位的人員信息操作權(quán)限。同時也可以指定用戶訪問具體那個部門或分公司的員工檔案。同時為顯示表配置顯示模板。 1. 用戶管理 添加、編輯和刪除用戶和人員信息。 (一 )系統(tǒng)功能描述 檔案管理的系統(tǒng)分為兩部分：普通用戶操作和管理員系統(tǒng)維護(hù)兩部分。 [14] 二 檔案管 理系統(tǒng)分析與設(shè)計 檔案管理系統(tǒng)分為兩個大的模塊，管理員和一般的用戶，對于一個公司來說，分公司就是一般用戶的權(quán)限，而總公司是管理員的權(quán)限?？偟膩碚f，存儲過程具有以下一些優(yōu)點(diǎn)： 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 3 ? 存儲過 程允許標(biāo)準(zhǔn)組件式編程 ? 存儲過程能夠?qū)崿F(xiàn)較快的執(zhí)行速度 ? 存儲過程能夠減少網(wǎng)絡(luò)流量 ? 存儲過程可被作為一種安全機(jī)制來充分利用 在 Microsoft SQL Server2020 中使用存儲過程 可以有效的提高程序的性能；并且將商業(yè)邏輯封裝在數(shù)據(jù)庫系統(tǒng)中 ，這樣可以大大增強(qiáng) 軟件系統(tǒng)的可維護(hù)性，當(dāng)你的商業(yè)邏輯發(fā)生了改變的時候，不再需要修改并編譯客戶端應(yīng)眾多的用戶手中，你只需要修改位于服務(wù)器端的實(shí)現(xiàn)相應(yīng)商業(yè)邏輯的存儲過程即可 。用戶通過指定存儲過程的名字并給出參數(shù)（如果該存儲過程帶有參數(shù)）來執(zhí)行它。 Microsoft SQL Server 2020在數(shù)據(jù)庫服務(wù)器自動調(diào)整和自動管理方面在數(shù)據(jù)庫領(lǐng)域中處于領(lǐng)先地位，使客戶可以集中精力處理商業(yè)戰(zhàn)略上的問題，而不是去細(xì)微調(diào)整數(shù)據(jù)庫服務(wù)器的各項(xiàng)參數(shù)。此外， Microsoft SQL Server 2020 提供了重要的安全性方面的增強(qiáng)，保護(hù)防火墻內(nèi)和防火墻外得數(shù)據(jù)。 (二 )數(shù)據(jù)庫介紹 Microsoft SQL Server 2020 在 Microsoft SQL Server 的基礎(chǔ)上新增了許多新功能 ,使用戶能更方便、快捷地管理數(shù)據(jù)庫、開發(fā)應(yīng)用程序。它能夠生成與管理應(yīng)用程序文件，并將文件部署至本機(jī)或遠(yuǎn)程得服務(wù)器。 （ 3） 集成的編譯與調(diào)試能力。使用 Visual Studio .NET 的好處是它提供了下列能夠使應(yīng)用程序開發(fā)得更快速、簡易、且可靠的工具： （ 1） 可視化的網(wǎng)頁設(shè)計器，它能夠以拖放方式生成控件，并提供具備語法檢查功能得 HTML（代碼）視圖畫面。 （ 3） 安全性： .NET Framework 與 提供所有 Web 應(yīng)用程序默認(rèn)的驗(yàn)證與審核邏輯，可以根據(jù)應(yīng)用程序的需求方便地移除、加入與替換這些驗(yàn)證與審核邏輯。 （ 2） 更快的運(yùn)行效率： .NET Framework與運(yùn)行時在效率上的諸多強(qiáng)化，它本身亦經(jīng)重新設(shè)計，使其運(yùn)行效率大幅超越 ASP與其他 Web開發(fā)平臺。 提供許多比過去的 Web 開發(fā)模型更加優(yōu)異的功能： [3] 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 2 （ 1） 多語言支持： .NET開發(fā)環(huán)境，這意味著不僅可以使用任何 .NE