【正文】 SELECT name= amp。 strFiledID amp。 strFieldName amp。 strIsFillHtml) End Select Next End If Return strHTML Catch Ex As Exception Return 請檢查配置頁面及登記表信息！ End Try End Function 由于本系統(tǒng)的檔案查詢界面是由用戶上傳的 HTML 模板生成的，上傳的模板中主要界面是表格，將要顯示的內容設置在每個格中，故要在每個格中加個標識記號，標識記號的格式為：“ !字段名 ”。并顯示出相應的字段值。字符和數(shù)據(jù)的標識在程序中用文本框替換，文本則用備注框的代碼替換，日期型的字段是在文本框后面添加一個按扭，點擊該按鈕后彈出一個日期選擇器，選擇日期后選擇的日期就會顯示在文本框中，下拉列表型的字段則用下拉列表代碼替換，生成一個下拉列表，下拉列表中的選擇數(shù)據(jù)由用戶在定義該字段時選擇。所以定義一個通用的函數(shù)，在執(zhí)行查詢過程后返回一個查詢的數(shù) 據(jù)集。關閉連接 End Try Return dsRetVal 39。系統(tǒng)可以在 Web Server上對網(wǎng)頁的訪問權限進行設置，只有合法的域用戶才能訪問指定的網(wǎng)頁。對于沒有正確身份認證的用戶，系統(tǒng)將拒絕訪問。39。39。 + strUser strSP += 39。如果登陸成功，將用戶信息保存在 session變量 中 If (0). 0 Then If (0).Rows(0)(LevelID) = 1 Then Session(UserID) = (0).Rows(0)(ID) Session(User) = (0).Rows(0)(Code) Session(Name) = (0).Rows(0)(Name) Session(DeptName) = (0).Rows(0)(DeptName) Session(UserGroup) = admin //管理員權限 Else Session(UserID) = (0).Rows(0)(ID) Session(User) = (0).Rows(0)(Code) Session(Name) = (0).Rows(0)(Name) Session(DeptName) = (0).Rows(0)(DeptName) Session(UserGroup) = user //普通用戶權限 End If Else 39。如 果數(shù)據(jù)庫中沒有該用戶，則顯示沒有權限的頁面，不顯示功能菜單。菜單顯示的代碼如下： Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles //讀取 Session變量，如果為空則是非法登陸，顯示沒有沒有權限頁面 If Session(UserGroup) Is Nothing Then () Return End If //在菜單上面顯示登陸用戶的信息 = Session(DeptName) amp。 Session(Name) If Session(UserGroup) = user Then //若是普通用戶則不不顯示系統(tǒng)管理菜單 (2).Remove() (1).Remove() End If End Sub (五 )業(yè)務處理界面 (Archives/) 在此頁面用戶可以添加、修改、刪除某一人員的檔案信息，在“單位”下拉列表中選擇當前用戶權限所能維護的公司部門人員信息。在后面的下拉框中顯示所有信息表，每個表中是檔案中的一個項目。用戶可以添加某一新版本和刪除該版本的所有信息，刪除后該版本的檔案信息不可恢復。39。 Session(UserID)) () If 0 Then Dim i As Integer For i = 0 To 1 Dim Items As ListItem Items = New ListItem = (i)(TableName) = (i)(ID) (Items) Next = (0)(ID) End If Catch Ex As Exception MsgBox(Me, ()) End Try End Sub 根據(jù)在下拉列表中選擇的人員來查詢檔案信息。39。 amp。 amp。,39。 strSP += 39。 amp。,39。 () strSP += 39。 amp。 Try CallSP((Full), strSP) 39。獲得最新版本 getVersionData(, ) Catch ex As Exception MsgBox(Me, ()) End Try End If End Sub 這個函數(shù)響應“新增版本”的事件，根據(jù)日期新增版本信息，然后將該版本檔案信息寫入數(shù)據(jù)庫中。獲得版本數(shù)據(jù) Dim strTempURL As String Dim strTableID As String Dim strLeaderID As String Dim strEdition As String 39。版本信息 Dim strHTML As String strLeaderID = 1 strTableID = 1 strLeaderID = () strTableID = () 39。獲得權限 控制按鈕 getRight(strLeaderID, strTableID, strVersionID) strTempURL = (../Template/) Dim strTableName As String = 39。獲得模版文件 Dim strSP As String = Exec sp_getTableInfo strSP += 39。 strTableID strSP += 39。39。然后讀取用戶上傳的模板，將數(shù)據(jù)顯示在模板中。在簡單查詢界面，用戶可以根據(jù)員工姓名和所在的部門查詢該人員的信息，支持模糊查詢。高級查詢界面的入下圖 所示： 中 南 民 族 大 學 計 算 機 科 學 學 院 2020 級 畢 業(yè) 論 文 16 圖 高級查詢界面 用戶選擇不同的字段，系統(tǒng)根據(jù)字段的類型的不同顯示出不同的條件，用戶自定義的字段類型共有五種：字符、數(shù)據(jù)、文本、時間和下拉列表，系統(tǒng)就根據(jù)用戶所選擇字段的類型顯示查詢條件。39。39。39。39。39。= 39。 strFileDrop strSP amp。 39。獲取下拉列表的數(shù)據(jù) dsRetVal = CallSP((Full), strSP) Dim k As Integer For k = 0 To (0). 1 Dim strcbovalue As String = (0).Rows(k)(FiledVales) Dim litDopItem As ListItem = New ListItem = strcbovalue = strcbovalue (litDopItem) Next Case 日期 //日期類型也是比較類型的條件 Dim litItem1 As ListItem = New ListItem = 大于等于 = = Dim litItem2 As ListItem = New ListItem = 小于等于 = = Dim litItem3 As ListItem = New ListItem = 等于 = = Dim litItem4 As ListItem = New ListItem = 大于 = Dim litItem5 As ListItem = New ListItem = 小于 = (litItem1) (litItem2) (litItem3) (litItem4) (litItem5) End Select End Sub (七 )用戶管理 (SysMgt/) 中 南 民 族 大 學 計 算 機 科 學 學 院 2020 級 畢 業(yè) 論 文 18 用戶管理是對使用這一軟件的用戶，包括用戶的屬性、角色、能錄入哪些單位的人員信息的權限定義，管理員可以添加新的用戶，同時也可以維護已有用戶的信息和權限。用戶管理界面如下圖 所示： 圖 用戶維護界面 (八 )人員管理 (SysMgt/) 人員管理是對公司所有員工的基本信息錄入，包括姓名、所屬機構、及郵箱的定義。新增數(shù)據(jù)表時要填寫表名、表名簡稱（規(guī)定使用英文簡稱），是否基礎表（是指基本情況表，如果是基本情況表，則選中，在系統(tǒng)中只有一個 基礎表），是否加鎖（如果加鎖之后，用戶是不能修改字段信息，只有解鎖之后，才可以修改，字段信息）。登記表管理的界面如下圖 所示： 中 南 民 族 大 學 計 算 機 科 學 學 院 2020 級 畢 業(yè) 論 文 19 圖 登記表維護界面 新增表的代碼如下： Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles 39。新增表信息 Dim strIsBase As String = 0 //判斷是否基礎表 If Then strIsBase = 1 End If Dim strIsLock As String = 0 If Then strIsLock = 1 End If Dim strSP As String = Dim dsRet As DataSet //調用存儲過程將新表的信息寫入數(shù)據(jù)庫 Try strSP = Exec sp_putTableInfo strSP += 39。 () strSP += 39。 amp。,39。 () strSP += 39。 amp。, amp。 strIsLock strSP += ,39。 () strSP += 39。如下圖 所示： 中 南 民 族 大 學 計 算 機 科 學 學 院 2020 級 畢 業(yè) 論 文 20 圖 登記表字段維護界面 錄入基本字段信息包括： 字段名 字 段類別：指這一字段是文本、日期及下拉列類別，如果是下拉列表類別的，從字典名稱中選擇，這一字段將來要顯示的下拉列表的內容，字典名稱的內容在“數(shù)據(jù)字典維護”界面中維護。 是否從基礎表繼承：如果這一字段要從基礎表中繼承，則需要選擇中。39。39。39。 amp。,39。 () strSP += 39。 amp。,39。 strSP += 39。 amp。, amp。 strIsInherit strSP += , amp。 amp。,39。 strDictionaryName strSP += 39。 amp。, amp。 amp。 Try //調用存儲過程將新的字段信息寫入數(shù)據(jù)庫 CallSP((Full), strSP) Catch ex As Exception End Try End Sub (十 )角色管理 (SysMgt/) 角色管理，就是用戶組管理，在兩個基本級別：管理員、普通操作員，兩個角色基礎之上建立用戶