frm_main.frm

这是个物业管理系统用的是VB+ACCESS数据库

      Begin VB.Menu mnuz4 
         Caption         =   "采暖费查询"
         Index           =   4
      End
      Begin VB.Menu mnuz4 
         Caption         =   "其他费用查询"
         Index           =   5
      End
   End
   Begin VB.Menu mnu1 
      Caption         =   "保安部"
      Index           =   6
      Begin VB.Menu mnuz5 
         Caption         =   "保安排班管理"
         Index           =   0
      End
      Begin VB.Menu mnuz5 
         Caption         =   "保安排班查询"
         Index           =   1
      End
   End
   Begin VB.Menu mnu1 
      Caption         =   "经理室"
      Index           =   7
      Begin VB.Menu mnuz6 
         Caption         =   "小区资源统计"
         Index           =   0
      End
      Begin VB.Menu mnuz6 
         Caption         =   "业主信息查询"
         Index           =   1
      End
      Begin VB.Menu mnuz6 
         Caption         =   "人口信息查询"
         Index           =   2
      End
      Begin VB.Menu mnuz6 
         Caption         =   "小区投诉查询"
         Index           =   3
      End
      Begin VB.Menu mnuz6 
         Caption         =   "小区员工查询"
         Index           =   4
      End
      Begin VB.Menu mnuz6 
         Caption         =   "装修信息查询"
         Index           =   5
      End
      Begin VB.Menu mnuz6 
         Caption         =   "维修信息查询"
         Index           =   6
      End
      Begin VB.Menu mnuz6 
         Caption         =   "保安排班查询"
         Index           =   7
      End
   End
   Begin VB.Menu mnu1 
      Caption         =   "系统管理"
      Index           =   8
      Begin VB.Menu mnuz7 
         Caption         =   "操作员管理"
         Index           =   0
      End
      Begin VB.Menu mnuz7 
         Caption         =   "权限管理"
         Index           =   1
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i, a As Integer
Private Sub Form_Load()
  datapath = App.Path & "\db_wygl.mdb"
  Picmnu.Picture = LoadPicture(App.Path & "\image\经营部.jpg")
  For i = 0 To 6
      Label1(i).Visible = True
  Next i
End Sub
Private Sub Label1_Click(Index As Integer)
  mnuz1_Click (Index)
End Sub
Private Sub Label2_Click(Index As Integer)
   mnuz2_Click (Index)
End Sub
Private Sub Label3_Click(Index As Integer)
   mnuz3_Click (Index)
End Sub
Private Sub Label4_Click(Index As Integer)
   mnuz4_Click (Index)
End Sub
Private Sub Label5_Click(Index As Integer)
   mnuz5_Click (Index)
End Sub
Private Sub Label6_Click(Index As Integer)
   mnuz6_Click (Index)
End Sub
Private Sub Label7_Click(Index As Integer)
   mnuz7_Click (Index)
End Sub
Private Sub mnuz1_Click(Index As Integer)
  Select Case Index
    Case 0
      Load frm_xqinfosc
      frm_xqinfosc.Show
    Case 1
      Load Frm_dlinfosc
      Frm_dlinfosc.Show
    Case 2
      Load Frm_fwinfosc
      Frm_fwinfosc.Show
    Case 3
    
      Load Frm_xqinfo
      Frm_xqinfo.Show
    Case 4
      Load Frm_xqinfodj
      Frm_xqinfodj.Show
    Case 5
      Load frm_fwinfo
      frm_fwinfo.Show
    Case 6
      Load Frm_jysysdmd
      Frm_jysysdmd.Show
   End Select
End Sub
Private Sub mnuz2_Click(Index As Integer)
  Select Case Index
    Case 0
      Load Frm_yzinfodj
      Frm_yzinfodj.Show
    Case 1
      Load Frm_rkinfocx
      Frm_rkinfocx.Show
    Case 2
      Load Frm_xqtsinfo
      Frm_xqtsinfo.Show
    Case 3
      Load Frm_xqtscx
      Frm_xqtscx.Show
    Case 4
      Load Frm_xqyggl
      Frm_xqyggl.Show
    Case 5
      Load Frm_jysysdmd
      Frm_jysysdmd.Show
   End Select
End Sub
Private Sub mnuz3_Click(Index As Integer)
  Select Case Index
    Case 0
      Load Frm_zxdinfo
      Frm_zxdinfo.Show
    Case 1
      Load Frm_wxinfo
      Frm_wxinfo.Show
    Case 2
      Load Frm_wxcx
      Frm_wxcx.Show
    Case 3
      Load frm_zxinfo
      frm_zxinfo.Show
    Case 4
      Load Frm_zxcx
      Frm_zxcx.Show
  End Select
End Sub
Private Sub mnuz4_Click(Index As Integer)
  Select Case Index
    Case 0
      '收费登记管理
      Load frm_sfdjgl
      frm_sfdjgl.Show
    Case 1
      '水费查询
      Load Frm_sfcx
      Frm_sfcx.Show
    Case 2
      '电费查询
      Load frm_dfcx
      frm_dfcx.Show
    Case 3
      '煤气费查询
      Load Frm_mqfcx
      Frm_mqfcx.Show
    Case 4
      '采暖费查询
      Load Frm_cnfcx
      Frm_cnfcx.Show
    Case 5
      '其他费用查询
      Load Frm_qtfycx
      Frm_qtfycx.Show
  End Select
End Sub
Private Sub mnuz5_Click(Index As Integer)
  If Index = 0 Then
     Load frm_badj
     frm_badj.Show
  Else
     Load Frm_pbcx
     Frm_pbcx.Show
  End If
End Sub
Private Sub mnuz6_Click(Index As Integer)
  Select Case Index
    Case 0
      Load Frm_xqzytj
      Frm_xqzytj.Show
    Case 1
      Load frm_yzinfocx
      frm_yzinfocx.Show
    Case 2
      Load Frm_rkinfocx
      Frm_rkinfocx.Show
    Case 3
      Load Frm_xqtscx
      Frm_xqtscx.Show
    Case 4
      Load Frm_xqyggl
      Frm_xqyggl.Show
    Case 5
      Load Frm_zxcx
      Frm_zxcx.Show
    Case 6
      Load Frm_wxcx
      Frm_wxcx.Show
    Case 7
      Load Frm_pbcx
      Frm_pbcx.Show
  End Select
End Sub
Private Sub mnuz7_Click(Index As Integer)
  If Index = 0 Then
     Load Frm_czygl
     Frm_czygl.Show
  Else
     Load frm_qxgl
     frm_qxgl.Show
  End If
End Sub
Private Sub Picmnu_Change()
  For a = 1 To 6
      Label1(a).Visible = False
      Label1(0).Visible = False
      Label2(a - 1).Visible = False
      Label4(a - 1).Visible = False
      Label6(a + 1).Visible = False
  Next a
  For a = 0 To 1
       Label5(a).Visible = False
       Label6(a).Visible = False
       Label7(a).Visible = False
  Next a
  For a = 0 To 4
      Label3(a).Visible = False
  Next a
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  For i = 2 To 8
      If Button.Index = i - 1 Then
         If mnu1(i).Enabled = False Then
            MsgBox "您没有该权限！"
         Else
            Select Case Button.Index
               Case 1
                 Picmnu.Picture = LoadPicture(App.Path & "\image\经营部.jpg")
                 For a = 0 To 6
                     Label1(a).Visible = True
                 Next a
              Case 2
                 Picmnu.Picture = LoadPicture(App.Path & "\image\管理部.jpg")
                 For a = 0 To 5
                     Label2(a).Visible = True
                 Next a
               Case 3
                 Picmnu.Picture = LoadPicture(App.Path & "\image\工程部.jpg")
                 For a = 0 To 4
                     Label3(a).Visible = True
                 Next a
               Case 4
                 Picmnu.Picture = LoadPicture(App.Path & "\image\财务部.jpg")
                 For a = 0 To 5
                     Label4(a).Visible = True
                 Next a
               Case 5
                 Picmnu.Picture = LoadPicture(App.Path & "\image\保安部.jpg")
                 Label5(0).Visible = True
                 Label5(1).Visible = True
               Case 6
                 Picmnu.Picture = LoadPicture(App.Path & "\image\经理室.jpg")
                 For a = 0 To 7
                     Label6(a).Visible = True
                 Next a
               Case 7
                 Picmnu.Picture = LoadPicture(App.Path & "\image\系统管理.jpg")
                 Label7(0).Visible = True
                 Label7(1).Visible = True
            End Select
         End If
      End If
  Next i
  If Button.Index = 8 Then End
End Sub
Private Sub tc_Click()
  End
End Sub