【文章內(nèi)容簡(jiǎn)介】 cmd = New SqlCommand(sqlcmd, conn) 39。執(zhí)行查詢(xún) Dim i As Integer i = () 39。操作完成關(guān)閉連接 () Return i Catch ex As Exception MsgBox() End Try End Function （ 3）添加引用。 為了能在基本界面的應(yīng)用程序中 使用 db 類(lèi)庫(kù)，就必須將其添加到基本界面程序的引用中。 16 基本界面應(yīng)用程序 設(shè)計(jì)。 （ 1）主窗體 Form1 設(shè)計(jì)。 將 Form1 屬性 IsMdiContainer 設(shè)置為 Ture，即可為父窗體。 Ⅰ、工具 欄設(shè)置。 為了方便用戶(hù)在多個(gè)功能之間切換，系統(tǒng)在主窗體中設(shè)計(jì)了工具欄。 將各種功能以按鈕形式放置在工具欄上。 工具欄各個(gè)按鈕的圖標(biāo)，用的是 ImageList 控件來(lái)存儲(chǔ)，將其命名為 Imltoolbar，再將要使用的圖片添加到“ Images”中。 從 工具欄中拖放一個(gè) ToolBar 控件至 Form1 中，將其命名為 tlbmain。再在其屬性窗口將其 ImageList 屬性設(shè)置為 Imltoolbar。然后設(shè)置其 Buttons 屬性 如下： 其中 tbbsep 的 style 屬性為 separator。 添加成功！ 在應(yīng)用程序解決資源管理器中右鍵單擊選擇【添加引用】 17 Ⅱ、 界面預(yù)覽 。 Ⅲ、 代碼設(shè)計(jì)。 ⒈添加變量。 39。記錄登陸用戶(hù)權(quán)限名稱(chēng) ,據(jù)此確定工具欄顯示項(xiàng) Public Shared strlogrole As String ⒉ main 過(guò)程 —— 啟動(dòng)系統(tǒng)并驗(yàn)證用戶(hù)身份。 39。main過(guò)程 Public Shared Sub main() 18 39。首先顯示登陸窗體以驗(yàn)證用戶(hù)身份 Dim myfrm As New Frmlogin () () 39。將窗體顯示為沒(méi)有所有者窗口的模式對(duì)話框 = True 39。窗體顯示為應(yīng)用程序的最頂層窗體 39。如果登陸成功則記錄下用戶(hù)權(quán)限并運(yùn)行主窗體 If = True Then strlogrole = Dim myform1 As New Form1 (myform1) 39。用 application的 run方法運(yùn)行主窗體對(duì)象 End If End Sub ⒊ howshowfrm 函數(shù) —— 判斷窗體是否已打開(kāi) Public Function howshowfrm(ByVal strfrmname As String) As Boolean 39。strfrmname表示需要檢查的窗體名稱(chēng) 39。返回 ture說(shuō)明已有實(shí)例在運(yùn)行 39。返回 false說(shuō)明沒(méi)有此窗體的實(shí)例運(yùn)行 Dim i As Integer 39。檢查主窗體所有的子窗體 For i = 0 To 1 39。如果子窗體中有窗體名稱(chēng)和需要打開(kāi)的窗體同名的 39。說(shuō)明已經(jīng)有此窗體的實(shí)例在運(yùn)行 ,此時(shí)顯示這個(gè)實(shí)例即可 If (i).Name = strfrmname Then (i).Focus() Return True Exit Function End If Next 39。沒(méi)有找到同名的窗體 ,則說(shuō)明沒(méi)有此實(shí)例在運(yùn)行 Return False End Function ⒋ Form1_Load Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles Dim m, n As Integer 39。用 m,n記錄窗體的最大寬度和高度 = m = n = 39。將窗體正常顯示時(shí)的高度和寬度設(shè)為最大值 19 39。如此可保證窗體大小始終為最大 = = n = m = 0 = 0 39。根據(jù)用戶(hù)的類(lèi)型設(shè)置使用權(quán)限 39。一般用戶(hù)不能使用資料管理和用戶(hù)管理功能 If strlogrole = guest Then (2).Enabled = False (4).Enabled = False ElseIf strlogrole = zladmin Then 39。資料管理用戶(hù)不能使用用戶(hù)管理功能 (4).Enabled = False End If 39。主窗體中默認(rèn)打開(kāi)最常用的橋梁查詢(xún)功能 Dim myfrm As New Frmsearch = Me () End Sub ⒌ tlbmain_ButtonClick—— 單擊工具欄按鈕事件響應(yīng)程序 Private Sub tlbmain_ButtonClick(ByVal sender As , ByVal e As ) Handles 39。根據(jù)工具欄不同按鈕的序號(hào)打開(kāi) 不同的窗體 Select Case () Case 0 39。打開(kāi)橋梁查詢(xún)窗體 If howshowfrm(Frmsearch) = True Then Exit Sub End If Dim myfrm As New Frmsearch = Me () Dim myfrm2 As New Frmsearch2 = Me Case 2 39。打開(kāi)資料管理窗體 If howshowfrm(Frmmanager) = True Then Exit Sub End If Dim myfrm As New Frmmanager = Me () 20 Case 4 39。打開(kāi)用戶(hù)管理窗體 If howshowfrm(Frmuser) = True Then Exit Sub End If Dim myfrm As New Frmuser = Me () Case 6 39。退出系統(tǒng) () Case 8 39。關(guān)于 If howshowfrm(Frmabout) = True Then Exit Sub End If Dim myfrm As New Frmabout = Me () End Select End Sub ⒍ Form1_Closing—— 關(guān)閉主窗體時(shí)請(qǐng)求用戶(hù)確認(rèn) Private Sub Form1_Closing(ByVal sender As Object, ByVal e As ) Handles If MsgBox(確定要退出系統(tǒng)嗎 ?, + ) = Then 39。如果用戶(hù)選擇了否 則取消退出操作 = True 39。將系統(tǒng)參數(shù) e的 cancel屬性設(shè)置為 true，就取消了關(guān)閉操作 End If End Sub （ 2）系統(tǒng)登陸窗體設(shè)計(jì)。 Ⅰ、 界面預(yù)覽 。 21 Ⅱ、代碼設(shè)計(jì)。 ⒈ 添加引用。 Imports ⒉ 添加全局變量。 39。定義一字符串變量 保存數(shù)據(jù)庫(kù)連接信息 Dim strcon As String = 39。記錄登陸用戶(hù)的權(quán)限 Public strloginrole As String 39。記錄用戶(hù)是否成功登陸 Public blnloginsucc As Boolean Dim try_times As Integer = 0 ⒊ Frmlogin_Load Private Sub Frmlogin_Load(ByVal sender As Object, ByVal e As ) Handles 39。定義 4個(gè)變量用于檢索用戶(hù)表的用戶(hù)名字段 Dim strsql As String = select 用戶(hù)名 from 用戶(hù) Dim mycon As New SqlConnection(strcon) Dim my As New SqlCommand(strsql, mycon) Dim myreader As SqlDataReader Try 39。打開(kāi) 數(shù)據(jù)庫(kù)連接 () 39。逐條讀取用戶(hù)表記錄的用戶(hù)名字段 myreader = 39。字段非空時(shí)將檢索值加到 cmbid組合框中 While () (myreader(0)) End While 39。操作完成關(guān) 閉數(shù)據(jù)庫(kù)連接 () () Catch ex As Exception MsgBox(, ) () () End Try 39。有帳戶(hù)信息時(shí)設(shè)置 guest為默認(rèn)用戶(hù)名 If 0 Then = guest End If 22 39。將焦點(diǎn)設(shè)置到密碼輸入框 () End Sub ⒋ btnok_Click—— 單擊【確定】響應(yīng)程序 Private Sub btnok_Click(ByVal sender As Object, ByVal e As ) Handles 39。定義 4個(gè)變量用于 檢索用戶(hù)表的權(quán)限字段 39。檢索條件是賬號(hào)和密碼都符合用戶(hù)輸入 Dim strsql As String = select 權(quán)限 from 用戶(hù) where 用戶(hù)名 = 39。 amp。 amp。 39。and 密碼 = 39。 amp。 amp。 39。 Dim mycon As New SqlConnection(strcon) Dim my As New SqlCommand(