【正文】 e getUserRights() If verifyUser() = True And getStatus() = 正常 And passTry 3 Then If AdminStatus 是 Then () End If If LibStatus 是 Then () End If If ReaderStatus 是 Then () End If clearfields() () () Else If verifyUser() = False And passTry 3 And getStatus() = 正常 Then passTry = passTry + 1 display_MsgBox(請(qǐng)輸入正確的密碼 !) Else If passTry = 3 Then updatestatus() passTry = 0 display_MsgBox(三次嘗試之后，你們的賬號(hào)將被凍結(jié)，請(qǐng)與系統(tǒng)管理員聯(lián)系 ) Else If getStatus() 正常 Then display_MsgBox(你的賬號(hào)已被凍結(jié)，請(qǐng)與系統(tǒng)管理員聯(lián)系 ) End If End If End If End If End Sub Function getUserRights() 12 () MyCommand = New OleDbCommand(SELECT * FROM SystemUsers WHERE UserID = 39。 amp。 amp。 39。, MyConnection) MyReader = () While AdminStatus = MyReader(AdminRights) LibStatus = MyReader(LibRights) ReaderStatus = MyReader(ReaderRights) End While () () () End Function 該界面為用戶登陸界面，用戶輸入自己的用戶名和密碼就能成功登陸本系統(tǒng)， 主界面設(shè)計(jì) 用戶登陸成功將進(jìn)入如下系統(tǒng)主界面： 在主界面中將顯示本系統(tǒng)的所有功能菜單，單擊任一菜單將進(jìn)入相應(yīng)的功能窗口 。 代碼如下： Public Class frm_MainInterface Inherits Dim myFrm Region Windows Form Designer generated code Public Sub New() () 39。This call is required by the Windows Form Designer. InitializeComponent() 39。Add any initialization after the InitializeComponent() call 13 End Sub 39。Form overrides dispose to clean up the ponent list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (ponents Is Nothing) Then () End If End If (disposing) End Sub 39。Required by the Windows Form Designer Private ponents As 39。NOTE: The following procedure is required by the Windows Form Designer 39。It can be modified using the Windows Form Designer. 39。Do not modify it using the code editor. Friend WithEvents MainMenu1 As Friend WithEvents MenuItem1 As Friend WithEvents MenuItem10 As Friend WithEvents MenuItem11 As Friend WithEvents MenuItem12 As Friend WithEvents MenuItem13 As Friend WithEvents MenuItem17 As Friend WithEvents MenuItem35 As Friend WithEvents MenuItem36 As Friend WithEvents MenuItem37 As Friend WithEvents MenuItem20 As Friend WithEvents MenuItem28 As Friend WithEvents MenuItem34 As Friend WithEvents MenuItem38 As Friend WithEvents MenuItem39 As Friend WithEvents MenuItem3 As Friend WithEvents MenuItem6 As Friend WithEvents MenuItem9 As Friend WithEvents MenuItem15 As Friend WithEvents MenuItem16 As Friend WithEvents MenuItem7 As Friend WithEvents MenuItem14 As Friend WithEvents MenuItem21 As Friend WithEvents MenuItem22 As Friend WithEvents MenuItem23 As Friend WithEvents MenuItem26 As 14 Friend WithEvents MenuItem27 As Friend WithEvents MenuItem2 As Friend WithEvents MenuItem8 As Friend WithEvents MenuItem24 As Friend WithEvents MenuItem25 As Friend WithEvents MenuItem29 As Friend WithEvents MenuItem19 As () Private Sub InitializeComponent() = New Dim resources As = New (GetType(frm_MainInterface)) = New () = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New = New () 15 39。 39。MainMenu1 39。 (New () {, , , , , }) 39。 39。MenuItem1 39。 = 0 (New () {, , , }) = 系統(tǒng)管理員 39。 39。MenuItem10 39。 = 0 (New () {, , }) = 添加書籍參數(shù) 39。 39。MenuItem11 39。 = 0 = 添加書籍類型 39。 39。MenuItem12 39。 = 1 = 添加索引號(hào) 39。 39。MenuItem13 39。 = 2 = 添加費(fèi)用信息 39。 39。MenuItem17 39。 = 1 (New () {, , }) = 用戶信息管理 39。 39。MenuItem3 39。 = 0 16 = 添加用戶信息 39。 39。MenuItem6 39。 = 1 = 編輯用戶信息 39。 39。MenuItem9 39。 = 2 = 刪除用戶信息 39。 39。MenuItem15 39。 = 2 = 解凍用戶 39。 39。MenuItem16 39。 = 3 = 修改密碼 39。 39。MenuItem7 39。 = 1 (New () {, , , , , , }) = 書籍信息管理 39。 39。MenuItem14 39。 = 0 = 添加書籍信息 39。 39。MenuItem21 39。 = 1 = 查找書籍信息 39。 39。MenuItem22 39。 = 2