【正文】 yVal e As ) myFrm = New frm_ReturnBook = Me () End Sub Private Sub MenuItem6_Click(ByVal sender As , ByVal e As ) myFrm = New frm_FindBook = Me () End Sub Private Sub MenuItem19_Click(ByVal sender As , ByVal e As ) Handles End End Sub Public Function disAdminLogin() = False End Function Public Function EnableAdminLogin() = True End Function 22 Public Function disLibLogin() = False End Function Public Function enableLibLogin() = True End Function Public Function disReaderLogin() 39。 19 39。MenuItem19 39。 = 1 = 關(guān)于 圖書管理系統(tǒng) 39。 39。MenuItem36 39。 = 4 (New () {, }) = 幫助 39。 39。MenuItem39 39。 = 2 = 垂直平鋪 39。 39。MenuItem34 39。 = 0 = 窗體層疊 39。 39。MenuItem20 39。 = 2 = 刪除讀者信 息 39。 39。MenuItem24 39。 = 0 = 添加讀者信息 39。 39。MenuItem2 39。 = 6 = 歸還書籍 39。 39。MenuItem26 39。 = 4 = 今日借閱查詢 39。 39。MenuItem29 17 39。 = 2 = 編輯書籍信息 39。 39。MenuItem21 39。 = 0 = 添加書籍信息 39。 39。MenuItem7 39。 = 3 = 修改密碼 39。 39。MenuItem15 39。 = 2 = 刪除用戶信息 39。 39。MenuItem6 39。 = 0 16 = 添加用戶信息 39。 39。MenuItem17 39。 = 2 = 添加費用信息 39。 39。MenuItem12 39。 = 0 = 添加書籍類型 39。 39。MenuItem10 39。 = 0 (New () {, , , }) = 系統(tǒng)管理員 39。 39。MainMenu1 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。NOTE: The following procedure is required by the Windows Form Designer 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。This call is required by the Windows Form Designer. InitializeComponent() 39。, MyConnection) MyReader = () While AdminStatus = MyReader(AdminRights) LibStatus = MyReader(LibRights) ReaderStatus = MyReader(ReaderRights) End While () () () End Function 該界面為用戶登陸界面，用戶輸入自己的用戶名和密碼就能成功登陸本系統(tǒng)， 主界面設(shè)計 用戶登陸成功將進入如下系統(tǒng)主界面： 在主界面中將顯示本系統(tǒng)的所有功能菜單，單擊任一菜單將進入相應(yīng)的功能窗口 。 amp。 登陸界面設(shè)計 單擊啟動界面確定將出現(xiàn)如下對話框： 11 代碼如下： Private Sub BtnLogin_Click(ByVal sender As , ByVal e As ) Handles Dim main_frm = New frm_MainInterface 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(請輸入正確的密碼 !) Else If passTry = 3 Then