รบกวนดูให้หน่วย

หน้าแรก formmain ปิดส่วนที่เป็นเมนู แล้วจะให้ Admin login โดยปุ่ม admin อยู่ที่ toolbar บน formmain เข้ามาเปิด ส่วนของเมนูที่อยู่บนหน้า main
code
frmmain
Private Sub MDIForm_Load()
Dim HandleOfForm As Long
Dim IndexOfTopMenu As Long
Dim IndexOfSubMenu As Long

StatusBar1.Panels(2) = "User Name : " & txtUserName

If txtUserName <> "admin" Then
Me.mnuAdmin.Enabled = False
Me.mnuStamp.Enabled = False
Me.mnuMain.Enabled = False
Me.mnuEdit.Enabled = False
Me.mnuAssign.Enabled = False
Me.mnuWork.Enabled = False
Me.mnuPrint.Enabled = False
End If
HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 0)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 0)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(1).Picture, imlBMP.ListImages(1).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 0)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 1)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(3).Picture, imlBMP.ListImages(3).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 0)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 2)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(4).Picture, imlBMP.ListImages(4).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 0)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 3)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(2).Picture, imlBMP.ListImages(2).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 1)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 0)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(5).Picture, imlBMP.ListImages(5).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 1)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 1)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(13).Picture, imlBMP.ListImages(13).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 2)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 0)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(6).Picture, imlBMP.ListImages(6).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 2)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 1)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(7).Picture, imlBMP.ListImages(7).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 3)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 0)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(9).Picture, imlBMP.ListImages(9).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 4)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 0)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(10).Picture, imlBMP.ListImages(10).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 4)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 1)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(10).Picture, imlBMP.ListImages(10).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 4)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 2)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(11).Picture, imlBMP.ListImages(11).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 5)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 0)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(12).Picture, imlBMP.ListImages(12).Picture

HandleOfForm = GetMenu(frmMain.hwnd)
IndexOfTopMenu = GetSubMenu(HandleOfForm, 5)
IndexOfSubMenu = GetMenuItemID(IndexOfTopMenu, 1)
SetMenuItemBitmaps HandleOfForm, IndexOfSubMenu, 0, _
imlBMP.ListImages(1).Picture, imlBMP.ListImages(11).Picture

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If MsgBox("¤Ø³µéͧ¡Ò躡Ò÷ӧҹ ãªèËÃ×ÍäÁè ? ", vbYesNo + vbQuestion, "¤ÓÂ×¹Âѹ") <> vbYes Then
Cancel = 1
Else
Unload frmLogin
Unload frmLoginAdmin
Unload frmLogOut
End If
End Sub

Private Sub mnuAdjustUserName_Click()
frmAdjustUserName.Show
frmAdjustUserName.SetFocus
End Sub

Private Sub mnuBonusRate_Click()
frmBonusRate.Show
frmBonusRate.SetFocus
End Sub

Private Sub mnuCalculateBonus_Click()
frmCalculateBonus.Show
frmCalculateBonus.SetFocus
End Sub

Private Sub mnuDel_Click()
frmDelHumanData.Show
frmDelHumanData.SetFocus
End Sub

Private Sub mnuDepartment_Click()
frmDepartment.Show
frmDepartment.SetFocus
End Sub

Private Sub mnuEditHumanData_Click()
frmEditHumanData.Show
frmEditHumanData.SetFocus
End Sub

Private Sub mnuPosition_Click()
frmPosition.Show
frmPosition.SetFocus
End Sub

Private Sub mnuPrintWorkData_Click()
frmPrintWorkData.Show
frmPrintWorkData.SetFocus
End Sub

Private Sub mnuStamp_Click()
frmStamp.Show
frmStamp.SetFocus
End Sub

Private Sub mnuWorkData_Click()
frmWorkData.Show
frmWorkData.SetFocus
End Sub

Private Sub mnuAddHuman_Click()
frmAddHuman.Show
frmAddHuman.SetFocus
End Sub

Private Sub mnuPrintSlipMoney_Click()
frmWorkData.Show
frmWorkData.SetFocus
End Sub

Private Sub ShowUserName_Click()
frmShowUserName.Show
frmShowUserName.SetFocus
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(3).Text = "Çѹ·Õè " & Format(Date, "d mmm yy")
StatusBar1.Panels(4).Text = "àÇÅÒ " & Format(Time, "hh:mm:ss")

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "login"
frmLogin.Show
frmLogin.SetFocus
Case "Out"
frmLogOut.Show
frmLogOut.SetFocus
Case "Admin"
frmLoginAdmin.Show
frmLoginAdmin.SetFocus
Case "In-Out"
frmShowTime.Show
frmShowTime.SetFocus
End Select
End Sub

แล้ว frmloginadmin
Private Sub cmdLogin_Click()
If txtUserName = "admin" Then
Else
MsgBox "¤Ø³ãÊèUserNameäÁè¶Ù¡µéͧ !!!", vbOKOnly + vbCritical, "¼Å¡ÒõÃǨÊͺ"
End If
If txtPassword = "admin" Then
Load frmMain
frmMain.Show
Me.Hide

txtUserName.Text = ""
txtPassword.Text = ""
Else
MsgBox "¤Ø³ãÊèÃËÑʼèÒ¹äÁè¶Ù¡µéͧ !!!", vbOKOnly + vbCritical, "¼Å¡ÒõÃǨÊͺ"
txtUserName.Text = ""
txtPassword.Text = ""
End If

End Sub

Private Sub cmdCancel_Click()
If MsgBox("¤Ø³µéͧ¡ÒÃÍÍ¡¨Ò¡Ë¹éÒ¨Í ãªèËÃ×ÍäÁè ?", vbYesNo + vbQuestion + vbDefaultButton1, "¤ÓÂ×¹Âѹ") = vbYes Then
Unload Me
End If
End Sub