【正文】 不同的條件，用戶(hù)自定義的字段類(lèi)型共有五種：字符、數(shù)據(jù)、文本、時(shí)間和下拉列表，系統(tǒng)就根據(jù)用戶(hù)所選擇字段的類(lèi)型顯示查詢(xún)條件。具體代碼如下： Private Sub getFieldType(ByVal strFileType As String, ByVal strFileDrop As String) 39。39。獲得條件值 () = True 39。39。字符 = False 39。39。下拉列表 = False () 39。39。時(shí)間不顯示 = False = False Dim strSP As String Dim dsRetVal As DataSet Select Case () Case 字符 , 文本 //字符或文本條件是相似于，可以模糊查詢(xún) Dim litItem As ListItem = New ListItem = 相似于 = like (litItem) = True Case 數(shù)據(jù) //數(shù)據(jù)類(lèi)型則有幾種比較性質(zhì)的查詢(xún)條件 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ì) 算 機(jī) 科 學(xué) 學(xué) 院 2020 級(jí) 畢 業(yè) 論 文 17 = 小于 = (litItem1) (litItem2) (litItem3) (litItem4) (litItem5) = True Case 下拉列表 //下拉列表類(lèi)型只能是等于條件，且后面的查詢(xún)內(nèi)容也是通過(guò)下拉列表選擇 Dim litItem As ListItem = New ListItem = 相等 = = (litItem) = False () = True = False = False 39。39。填充下拉列表中的數(shù)據(jù) strSP = Exec sp_getDataValeByField strSP amp。= 39。 amp。 strFileDrop strSP amp。= 39。 39。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 日期 //日期類(lèi)型也是比較類(lèi)型的條件 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 (七 )用戶(hù)管理 (SysMgt/) 中 南 民 族 大 學(xué) 計(jì) 算 機(jī) 科 學(xué) 學(xué) 院 2020 級(jí) 畢 業(yè) 論 文 18 用戶(hù)管理是對(duì)使用這一軟件的用戶(hù)，包括用戶(hù)的屬性、角色、能錄入哪些單位的人員信息的權(quán)限定義，管理員可以添加新的用戶(hù)，同時(shí)也可以維護(hù)已有用戶(hù)的信息和權(quán)限。用戶(hù)授權(quán)是指定某一用戶(hù)能管理那些部門(mén)的員工檔案，指定的用戶(hù)只能按自己的權(quán)限管理員工檔案。用戶(hù)管理界面如下圖 所示： 圖 用戶(hù)維護(hù)界面 (八 )人員管理 (SysMgt/) 人員管理是對(duì)公司所有員工的基本信息錄入，包括姓名、所屬機(jī)構(gòu)、及郵箱的定義。界面如下圖 所示： 圖 人員維護(hù)界面 (九 )登記表管理 (SysMgt/) 登記表管理，是對(duì)公司人員的登記表結(jié)構(gòu)的定義，具體包括：對(duì)登記表表信息、表字段信息、模版文件信息的維護(hù)。新增數(shù)據(jù)表時(shí)要填寫(xiě)表名、表名簡(jiǎn)稱(chēng)（規(guī)定使用英文簡(jiǎn)稱(chēng)），是否基礎(chǔ)表（是指基本情況表，如果是基本情況表，則選中，在系統(tǒng)中只有一個(gè) 基礎(chǔ)表），是否加鎖（如果加鎖之后，用戶(hù)是不能修改字段信息，只有解鎖之后，才可以修改，字段信息）。管理員同樣也可以修改表的信息，這些信息完全由用戶(hù)自定義，大大增強(qiáng)了軟件的通用性。登記表管理的界面如下圖 所示： 中 南 民 族 大 學(xué) 計(jì) 算 機(jī) 科 學(xué) 學(xué) 院 2020 級(jí) 畢 業(yè) 論 文 19 圖 登記表維護(hù)界面 新增表的代碼如下： Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles 39。39。新增表信息 Dim strIsBase As String = 0 //判斷是否基礎(chǔ)表 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 //調(diào)用存儲(chǔ)過(guò)程將新表的信息寫(xiě)入數(shù)據(jù)庫(kù) Try strSP = Exec sp_putTableInfo strSP += 39。 amp。 () strSP += 39。,39。 amp。 () strSP += 39。,39。 amp。 () strSP += 39。,39。 amp。 模版文件 strSP += 39。, amp。 strIsBase strSP += , amp。 strIsLock strSP += ,39。 amp。 () strSP += 39。 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ù)界面。如下圖 所示： 中 南 民 族 大 學(xué) 計(jì) 算 機(jī) 科 學(xué) 學(xué) 院 2020 級(jí) 畢 業(yè) 論 文 20 圖 登記表字段維護(hù)界面 錄入基本字段信息包括： 字段名 字 段類(lèi)別：指這一字段是文本、日期及下拉列類(lèi)別，如果是下拉列表類(lèi)別的，從字典名稱(chēng)中選擇，這一字段將來(lái)要顯示的下拉列表的內(nèi)容，字典名稱(chēng)的內(nèi)容在“數(shù)據(jù)字典維護(hù)”界面中維護(hù)。 長(zhǎng)度 是否必填項(xiàng) 是否被繼承：如果登記表是基礎(chǔ)表，則需要選擇被繼承的字段，比如，姓名在基礎(chǔ)表中填寫(xiě)了，在其它登記表如果繼承過(guò)之后，就不用填寫(xiě)了，注意，只有基礎(chǔ)表才有被繼承權(quán)限。 是否從基礎(chǔ)表繼承：如果這一字段要從基礎(chǔ)表中繼承，則需要選擇中。 新增字段的代碼如下所示： Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles 39。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ì) 算 機(jī) 科 學(xué) 學(xué) 院 2020 級(jí) 畢 業(yè) 論 文 21 End If 39。39。是否查詢(xún) Dim strIsSearch As String = 0 If Then strIsSearch = 1 End If 39。39。查詢(xún)字段 ID Dim strSearchFieldID As String = If 1 Then strSearchFieldID = End If Dim strSP As String = Exec sp_putFieldInfo strSP += 39。 amp。 () strSP += 39。,39。 amp。 () strSP += 39。,39。 amp。 () strSP += 39。,39。 amp。 strSP += 39。,39。 amp。 () strSP += 39。, amp。 strIsFill strSP += , amp。 strIsInherit strSP += , amp。 strIsPatent strSP += ,39。 amp。 () strSP += 39。,39。 amp。 strDictionaryName strSP += 39。,39。 amp。 strInHeritField strSP += 39。, amp。 strIsSearch strSP += ,39。 amp。 strSearchFieldID strSP += 39。 Try //調(diào)用存儲(chǔ)過(guò)程將新的字段信息寫(xiě)入數(shù)據(jù)庫(kù) CallSP((Full), strSP) Catch ex As Exception End Try End Sub (十 )角色管理 (SysMgt/) 角色管理，就是用戶(hù)組管理，在兩個(gè)基本級(jí)別：管理員、普通操作員，兩個(gè)角色基礎(chǔ)之上建立用戶(hù)組。高級(jí)管理員角色，是具有管理“用戶(hù)管理”與“系統(tǒng)管理”的權(quán)限，也具有