【文章內容簡介】 MsgBox(信息解密失敗！ amp。 , , 提示錯誤) Return Nothing End Try End FunctionEnd Class◆數(shù)據(jù)庫連接配置窗體設計如圖：在項目里點擊“添加Windows窗體“ 添加一個名為”“的form窗體。在窗體中添加四個label控件，四個textbox 控件以及兩個button按鈕各控件屬性如下：控件名屬性名屬性值Label1text服務器名：Label2text數(shù)據(jù)庫名：Label3text登錄名：Label4text密碼：Button1text確定配置Button2text取消Textbox1textNothing Textbox2textNothingTextbox3textNothingTextbox4textNothingTextbox4password*密碼框對應的textbox4 的password 屬性改為”*”右擊窗體，點擊“查看代碼“ 進入代碼編寫窗口代碼編寫如下：因為需要對數(shù)據(jù)庫連接字符串正確性進行測試所以要用到連接對象，需要引用命名空間 Imports Public Class DBConfig Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim CS As String If = Or = Or = Or = Then MsgBox(信息填寫不夠完整！, , 提示) Else CS = Data Source= amp。 amp。 。Initial Catalog= amp。 amp。 。Persist Security Info=True。User Id= amp。 amp。 。Password= amp。 Try39。調用TEST 方法對連接字符串進行測試 If test(CS, ) = True Then39。實例化加密類 Dim crypt As New CryptInfo()39。使用系統(tǒng)內置函數(shù) WriteALLText 將加密后的字符串寫入文件中 (, (CS), False) If MsgBox(數(shù)據(jù)庫配置成功！已將連接信息寫入 amp。 amp。 中, , 消息) = Then () End If End If Catch ex As Exception MsgBox(無法配置！原因： amp。 , , 錯誤) End Try End IfEnd Sub 39。創(chuàng)建測試數(shù)據(jù)庫連接字符串正確性的方法test Public Function test(ByVal cs As String, ByVal cp As String) As Boolean Dim chk As Boolean Dim mp As DbProviderFactory = (cp) 39。使用工廠創(chuàng)建數(shù)據(jù)庫連接對象的mc Dim mc As DbConnection = 39。 屬性 連接指定的數(shù)據(jù)庫 = cs Try 39。打開數(shù)據(jù)庫，如果成功則返回true,否則…… () chk = True Catch ex As Exception MsgBox(服務器參數(shù)配置有誤,請重新配置！原因： amp。 , , 錯誤提示：) chk = False Finally () End Try Return chk End Function Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Clas 用戶登錄模塊設計◆ 用戶登錄窗體設計用同上的方法為項目添加一個名為““ 的form窗體。向Login 窗體中添加四個label 控件、兩個textbox控件、一個button按鈕以及一個linklabel 控件。各控件的屬性如下：控件名屬性名屬性值Label1text用戶名：Label2text密碼：Label3text配置Linkbabel1text關于我們Button1text登錄Textbox1textnothingTextbox2textnothingTextbox2possword* 用戶登錄窗體設計后如下圖：圖 ◆用戶登錄模塊詳細代碼設計右擊Login 窗體 點擊“查看代碼“進入代碼編寫窗口，寫入如下代碼：Public Class login 39。實例化加密類 Dim crypt As New CryptInfo() 39。變量i 記錄登錄錯誤次數(shù) Dim i As Integer = 0 Private Sub Label4_Click(ByVal sender As , ByVal e As ) Handles 39。打開數(shù)據(jù)庫連接配置窗體 () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Try Dim cs As String 39。利用系統(tǒng)內置函數(shù)ReadALLText 讀取指定文件中的信息，獲取數(shù)據(jù)庫連接字符串 cs = () 39。將獲取的字符串進行解密 = (cs) 39。調用 數(shù)據(jù)庫連接配置模塊中的test方法對解密后的數(shù)據(jù)庫連接字符串測試正確性 If (, ) = False Then () Else 39。實例化公共模塊文件里的SQL方法,以初始化數(shù)據(jù)庫更新對象MyFa、MyConn、MyDa (, ) Dim sql As String = select * from 用戶信息表 where 用戶名=39。 amp。 amp。 39。 and 密碼=39。 amp。 () amp。 39。39。使用Share中初始化的對象 = = sql () If () Is Nothing Then MsgBox(用戶名或密碼錯誤！, , 錯誤) = i = i + 1 Else = i = 0 () () 39。FrmMain 是主界面窗體 () End If If i = 3 Then MsgBox(登錄失敗超過3次，系統(tǒng)自動關閉!, , 錯誤) () End If End If Catch ex As Exception MsgBox(無法連接數(shù)據(jù)庫！請重新進行數(shù)據(jù)庫連接配置 amp。 ) End Try End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As , ByVal e As ) Handles Try Dim YH As String YH = ( amp。 \, ) MsgBox(YH, , 一橫工作室簡介) Catch ex As Exception MsgBox() End Try End SubEnd Class 用戶管理模塊設計◆ 用戶管理窗體詳細設計用同上的方法添加一個名為””的Form窗體。向窗體上添加一個TabControl 控件，其需要設置的屬性有，Appearance 屬性設置為FlatButtons、TabPages 屬性中添加至3個TabPage,分別是TabPage1 Text屬性為 用戶信息、TabPage2 Text屬性為添加用戶、TabPage3 Text屬性為修改密碼。三個TabPage 的 BorderStlye 屬性都設置為Fix3D,選定TabPage1，向其添加一個DataGridView選定TabPage2，向其添加三個Label控件，三個TexBox控件兩個RadionButton控件一個GroupBox以及兩個Button按鈕。各控件的屬性如下控件名屬性名屬性值Label1Text為新用戶起名：Label2Text為新用戶設置密碼：Lable3Text確認密碼：GroupBox1Text為新用戶選擇權限級別