【正文】 高級管理員角色，是具有管理“用戶管理”與“系統(tǒng)管理”的權(quán)限，也具有普通操。 strSearchFieldID strSP += 39。 strIsSearch strSP += ,39。 strInHeritField strSP += 39。,39。 amp。 () strSP += 39。 strIsPatent strSP += ,39。 strIsFill strSP += , amp。 () strSP += 39。,39。 amp。 () strSP += 39。,39。 amp。 () strSP += 39。查詢字段 ID Dim strSearchFieldID As String = If 1 Then strSearchFieldID = End If Dim strSP As String = Exec sp_putFieldInfo strSP += 39。是否查詢 Dim strIsSearch As String = 0 If Then strIsSearch = 1 End If 39。新增表信息 Dim strIsFill As String = 0 If Then strIsFill = 1 End If Dim strIsInherit As String = 0 If Then strIsInherit = 1 End If Dim strIsPatent As String = 0 If Then strIsPatent = 1 End If Dim strDictionaryName As String = If = 下拉列表 Then strDictionaryName = End If Dim strInHeritField As String = If 1 Then strInHeritField = () 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 21 End If 39。 新增字段的代碼如下所示： Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles 39。 長度 是否必填項(xiàng) 是否被繼承：如果登記表是基礎(chǔ)表，則需要選擇被繼承的字段，比如，姓名在基礎(chǔ)表中填寫了，在其它登記表如果繼承過之后，就不用填寫了，注意，只有基礎(chǔ)表才有被繼承權(quán)限。 CallSP((Full), strSP) Catch ex As Exception MsgBox(Me, ()) End Try initCtr() resetCtr() End Sub 數(shù)據(jù)表的維護(hù)中最重要的是字段的維護(hù)，選擇要維護(hù)的登記表，點(diǎn)擊“字段管理”，進(jìn)入字段維護(hù)界面。 amp。 strIsBase strSP += , amp。 模版文件 strSP += 39。,39。 amp。 () strSP += 39。,39。 amp。39。管理員同樣也可以修改表的信息，這些信息完全由用戶自定義，大大增強(qiáng)了軟件的通用性。界面如下圖 所示： 圖 人員維護(hù)界面 (九 )登記表管理 (SysMgt/) 登記表管理，是對公司人員的登記表結(jié)構(gòu)的定義，具體包括：對登記表表信息、表字段信息、模版文件信息的維護(hù)。用戶授權(quán)是指定某一用戶能管理那些部門的員工檔案，指定的用戶只能按自己的權(quán)限管理員工檔案。39。= 39。 amp。填充下拉列表中的數(shù)據(jù) strSP = Exec sp_getDataValeByField strSP amp。時間不顯示 = False = False Dim strSP As String Dim dsRetVal As DataSet Select Case () Case 字符 , 文本 //字符或文本條件是相似于，可以模糊查詢 Dim litItem As ListItem = New ListItem = 相似于 = like (litItem) = True Case 數(shù)據(jù) //數(shù)據(jù)類型則有幾種比較性質(zhì)的查詢條件 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 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 17 = 小于 = (litItem1) (litItem2) (litItem3) (litItem4) (litItem5) = True Case 下拉列表 //下拉列表類型只能是等于條件，且后面的查詢內(nèi)容也是通過下拉列表選擇 Dim litItem As ListItem = New ListItem = 相等 = = (litItem) = False () = True = False = False 39。下拉列表 = False () 39。字符 = False 39。獲得條件值 () = True 39。具體代碼如下： Private Sub getFieldType(ByVal strFileType As String, ByVal strFileDrop As String) 39。高 級查詢界面，用戶選擇要查詢的信息表，點(diǎn)擊要查詢的項(xiàng)目內(nèi)容，出現(xiàn)選擇條件，不同的字段有不同的條件，選擇一個查詢條件，在錄入框中輸入要查詢的內(nèi)容，點(diǎn)擊“＞＞”按鈕，即可添加一條查詢條件。 (六 )綜合查詢界面 (Search/) 在該界面提供三種查詢方式：按部門瀏覽、簡單查詢和高級查詢，在按組織機(jī)構(gòu)界面，用戶可以通過點(diǎn)擊公司所有部門，在右邊的頁面則顯示該部門的所有員工，即可點(diǎn)擊查看。獲得服務(wù)器路徑 strTableName = ../Template/ + () + .htm strTempURL = (strTableName) If (strLeaderID = 1 Or strVersionID = 1) Then strHTML = GetDynamicInfo(strTempURL, strTableID) Else strHTML = GetDynamicInfo(strTempURL, strTableID, strLeaderID, strVersionID) End If = strHTML End Sub 該函數(shù)根據(jù)當(dāng)前用戶選擇的人員和版本信息，以及要顯示的信息表等條件查詢檔案信息。 Dim dsRetSet As DataSet = CallSP((Full), strSP) If 0 Then strTableName = (0).Rows(0)(TableNameEN) End If 39。 amp。39。39。39。 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 15 (3) Private Sub getDate(ByVal strVersionID As String) 39。39。 Session(User) strSP += 39。,39。 amp。 strSP += 39。,39。 amp。 0 strSP += 39。 vMonth If (() ) Then Dim strSP As String = Exec sp_putPerBillInfo strSP += 39。新增版本 If = 1 Then MsgBox(Me, 請選擇人員 ) Return End If Dim vYear As String Dim vMonth As String vMonth = vYear = = vYear amp。 (2)Private Sub btnNewVersion_Click(ByVal sender As , ByVal e As ) Handles 39。通過用戶獲得人員的信息表 (1) Private Sub GetTableInfoByUser() Try Dim oSqlHelper As New Dim dtRetVal As DataTable = (DBConnection, , sp_getTableInfobyUser amp。業(yè)務(wù)處理界面如下圖 ： 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 14 圖 業(yè)務(wù)處理界面 本界面主要代碼如下： 39。由于 不同時期，公司人員的信息可能不同，故可以在此設(shè)置版本情況，不同的版本顯示的數(shù)據(jù)不相同。則在人員中顯示該部門的所有員工。 amp。登陸成功后歡迎界面如下圖 ： 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 13 圖 登陸成功后歡迎界面 界面的左邊顯示的是管理員功能菜單，若是普通用戶登陸則沒有 系統(tǒng)管理菜單。如果數(shù)據(jù)庫中沒有該用戶，則給出沒有權(quán)限的錯誤提示！ () End If End Sub 登陸成功后，根據(jù)登陸用戶的權(quán)限顯示出各自權(quán)限的功能菜單。 Dim dsRetSet As DataSet = CallSP((Full), strSP) 39。獲得樹型結(jié)構(gòu) 判斷用戶權(quán)限 Dim strSP As String = Exec sp_getUserRoleByPTR strSP += 39。得到登陸用戶得名稱 Dim strUser As String = GetLoginName((AUTH_USER)) 39。登陸頁面如下圖 ： 中 南 民 族 大 學(xué) 計 算 機(jī) 科 學(xué) 學(xué) 院 2020 級 畢 業(yè) 論 文 12 圖 用戶登陸界面 系統(tǒng)得到用戶登陸信息得代碼如下： Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。每當(dāng)用戶訪問SubmitReport 目錄下的文件的時候， web服務(wù)器不再為其提供匿名訪問，而是要求用戶輸入用戶名 和密碼，根據(jù)其輸入的用戶名和密碼來確定用戶身份。返回數(shù)據(jù)集 End Function (四 )用戶登陸和歡迎界面 () 本系統(tǒng)是通過 NTFS來對網(wǎng)頁的訪問權(quán)限進(jìn)行設(shè)置。 Public Function CallSP(ByVal strDBConn As String, ByVal strSP As String) As DataSet Dim dsRetVal As New DataSet() Dim oDBConnection As OleDbConnection