frm_main.frm

小区物业管理系统,(vb6+SQLServer2000+使用说明)

         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
      Begin VB.Menu mnuz7 
         Caption         =   "系统初始化"
         Index           =   2
      End
   End
   Begin VB.Menu mnu1 
      Caption         =   "系统维护"
      Index           =   9
      Begin VB.Menu mnuz8 
         Caption         =   "数据备份"
         Index           =   0
      End
      Begin VB.Menu mnuz8 
         Caption         =   "数据恢复"
         Index           =   1
      End
   End
   Begin VB.Menu mnu1 
      Caption         =   "辅助功能"
      Index           =   10
      Begin VB.Menu mnuz9 
         Caption         =   "计算器"
         Index           =   0
      End
      Begin VB.Menu mnuz9 
         Caption         =   "记事本"
         Index           =   1
      End
      Begin VB.Menu mnuz9 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu mnuz9 
         Caption         =   "重新登录"
         Index           =   3
      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 strtemp As String * 60  '定义字符变量存储路径
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long   '声明API函数
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   '设置经营部的图片信息中的Label控件可用
    Next i
End Sub
Private Sub Label1_Click(Index As Integer)
    mnuz1_Click (Index)   '调用经营部信息
    'Menu 控件显示应用程序的自定义菜单。命令、子菜单和分隔符条都可包括在菜单之中。每一个创建的菜单至多有四级子菜单。
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 Label8_Click(Index As Integer)  '系统维护
   mnuz8_Click (Index)  '调用系统维护信息
End Sub
Private Sub Label9_Click(Index As Integer)   '辅助功能
   mnuz9_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.Caption = "小区员工查询"
        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)   '系统设置
    Select Case Index
    Case 0   '调入操作员管理窗体
        Load Frm_czygl
        Frm_czygl.Show
    Case 1  '调入权限管理窗体
        Load frm_qxgl
        frm_qxgl.Show
    Case 2  '调入系统初始化窗体
        Load main_xtwh_xtcsh
        main_xtwh_xtcsh.Show
    End Select
End Sub
Private Sub mnuz8_Click(Index As Integer) '系统维护
    Select Case Index
    Case 0  '调入数据备份窗体
        Load Frm_bf
        Frm_bf.Show
    Case 1   '调入数据恢复窗体
        Load Frm_hy
        Frm_hy.Show
    End Select

End Sub

Private Sub mnuz9_Click(Index As Integer)  '辅助功能
    Select Case Index
    Case 0  ' 调用计算器
        Dim L, S
        L = GetSystemDirectory(strtemp, Len(strtemp)) 'Len 函数返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。
        Paths = Left(strtemp, L) & "\CALC.EXE"        'Left 函数返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。
        S = Shell(Paths, 1)
        'Len函数、Shell 函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
    Case 1  '调用记事本
        L = GetSystemDirectory(strtemp, Len(strtemp))
        Paths = Left(strtemp, L) & "\NOTEPAD.EXE"
        S = Shell(Paths, 1)
    Case 3  '重新登录
        Load frm_load
        frm_load.Show
    End Select
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
        Label8(a).Visible = False
        Label9(a).Visible = False
    Next a
    For a = 0 To 4
        Label3(a).Visible = False
    Next a
    Label9(3).Visible = False
    Label9(5).Visible = False
    Label9(6).Visible = False
    Label7(2).Visible = False
    'PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF 文件的图形。如果控件不足以显示整幅图象，则裁剪图象以适应控件的大小。
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    For i = 2 To 10
        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
                    Label7(2).Visible = True
                Case 8  '点击系统维护
                    Picmnu.Picture = LoadPicture(App.Path & "\image\系统维护.jpg")
                    Label8(0).Visible = True
                    Label8(1).Visible = True
                Case 9  '点击辅助功能
                    Picmnu.Picture = LoadPicture(App.Path & "\image\辅助功能.jpg")
                    Label9(0).Visible = True
                    Label9(1).Visible = True
                    Label9(3).Visible = True
                    Label9(5).Visible = True
                    Label9(6).Visible = True
                End Select
            End If
        End If
    Next i
    If Button.Index = 10 Then End
End Sub
Private Sub tc_Click()   '退出
    If MsgBox("确定退出该系统？", 4, "系统提示") = vbYes Then
        End
    End If
End Sub