主界面.frm

小区物业管理

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000B&
   Caption         =   "小区物业管理系统"
   ClientHeight    =   7515
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10890
   Icon            =   "主界面.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "主界面.frx":08CA
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   7215
      Width           =   10890
      _ExtentX        =   19209
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   7056
            MinWidth        =   7056
            Text            =   "   小区物业管理系统"
            TextSave        =   "   小区物业管理系统"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Text            =   "周君"
            TextSave        =   "周君"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   8819
            MinWidth        =   8819
            Text            =   "淮安市广播电视大学"
            TextSave        =   "淮安市广播电视大学"
         EndProperty
      EndProperty
   End
   Begin VB.Menu xqwyzlgl 
      Caption         =   "小区物业资料管理"
      Begin VB.Menu kfszl 
         Caption         =   "开发商资料"
      End
      Begin VB.Menu jzszl 
         Caption         =   "建筑商资料"
      End
      Begin VB.Menu jlszl 
         Caption         =   "监理商资料"
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu fwjzhzl 
         Caption         =   "房屋及住户资料"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu tc 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu xqwyjbgl 
      Caption         =   "小区物业基本管理"
      Begin VB.Menu zhtsgl 
         Caption         =   "住户投诉管理"
      End
      Begin VB.Menu zhbxgl 
         Caption         =   "住户报修管理"
      End
      Begin VB.Menu sbwxgl 
         Caption         =   "设备维修管理"
      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu zhcwgl 
         Caption         =   "住户停车车位管理"
      End
      Begin VB.Menu line5 
         Caption         =   "-"
      End
      Begin VB.Menu wyshxmgl 
         Caption         =   "物业收费项目管理"
      End
      Begin VB.Menu qfgl 
         Caption         =   "住户欠费及预付费管理"
      End
      Begin VB.Menu sfgl 
         Caption         =   "物业收费管理"
      End
   End
   Begin VB.Menu tjbb 
      Caption         =   "统计报表"
      Begin VB.Menu tsbb 
         Caption         =   "住户投诉统计报表"
      End
      Begin VB.Menu bxbb 
         Caption         =   "住户报修统计报表"
      End
      Begin VB.Menu wxtjbb 
         Caption         =   "物业设备维修统计报表"
      End
      Begin VB.Menu line12 
         Caption         =   "-"
      End
      Begin VB.Menu bjhytjbb 
         Caption         =   "物料配件耗用统计报表"
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu sfybb 
         Caption         =   "物业收费月统计报表"
      End
      Begin VB.Menu sfnbb 
         Caption         =   "物业收费年统计报表"
      End
      Begin VB.Menu jfbb 
         Caption         =   "住户物业缴费数据报表"
      End
   End
   Begin VB.Menu xtgl 
      Caption         =   "系统管理"
      Begin VB.Menu yhgl 
         Caption         =   "用户管理"
      End
      Begin VB.Menu klxg 
         Caption         =   "用户口令修改"
      End
      Begin VB.Menu line7 
         Caption         =   "-"
      End
      Begin VB.Menu sjbfhf 
         Caption         =   "数据备份"
      End
      Begin VB.Menu line 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu help1 
         Caption         =   "帮助"
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
gy.Show
End Sub

Private Sub bxbb_Click()
Form14.Show
End Sub

Private Sub exit_Click() '退出系统
End
End Sub

Private Sub fwjzhzl_Click()
form2.Show
End Sub

Private Sub help1_Click()
Form18.Show
End Sub

Private Sub jfbb_Click()
Form22.Show
End Sub

Private Sub jlszl_Click()
Form17.Show
End Sub

Private Sub jzszl_Click()
Form16.Show
End Sub

Private Sub kfszl_Click()
Form15.Show
End Sub

Private Sub klxg_Click()
Form19.Show
End Sub

Private Sub MDIForm_Load()
Form3.Show
End Sub

Private Sub qfgl_Click()
Form9.Show
End Sub

Private Sub sbwxgl_Click()
Form6.Show
End Sub

Private Sub sfgl_Click()
Form12.Show
End Sub

Private Sub tc_Click() '退出系统
End
End Sub


Private Sub tsbb_Click()
Form13.Show
End Sub

Private Sub wxtjbb_Click()
Form21.Show
End Sub

Private Sub wyshxmgl_Click()
Form8.Show
End Sub

Private Sub yhgl_Click()
Form20.Show
End Sub

Private Sub zhbxgl_Click()
Form5.Show
End Sub

Private Sub zhcwgl_Click()
Form7.Show
End Sub

Private Sub zhtsgl_Click()
Form4.Show
End Sub