frmmain.frm

物业管理

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmmain 
   BackColor       =   &H8000000C&
   Caption         =   "物业管理系统"
   ClientHeight    =   8730
   ClientLeft      =   510
   ClientTop       =   1335
   ClientWidth     =   13035
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   StartUpPosition =   2  '屏幕中心
   WhatsThisHelp   =   -1  'True
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   13035
      _ExtentX        =   22992
      _ExtentY        =   1111
      ButtonWidth     =   609
      ButtonHeight    =   953
      Appearance      =   1
      _Version        =   393216
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   360
      Left            =   0
      TabIndex        =   0
      Top             =   8370
      Width           =   13035
      _ExtentX        =   22992
      _ExtentY        =   635
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   17357
            Text            =   "  状 态"
            TextSave        =   "  状 态"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2003-10-26"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "20:35"
         EndProperty
      EndProperty
   End
   Begin VB.Menu xitong 
      Caption         =   "系统管理"
      NegotiatePosition=   1  'Left
      WindowList      =   -1  'True
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu tjyh 
         Caption         =   "添加用户"
      End
   End
   Begin VB.Menu jingying 
      Caption         =   "经营部"
      Begin VB.Menu fczy 
         Caption         =   "房产资源"
      End
      Begin VB.Menu cbgl 
         Caption         =   "抄表管理"
      End
      Begin VB.Menu fyhz 
         Caption         =   "费用汇总"
      End
      Begin VB.Menu skgl 
         Caption         =   "收款管理"
      End
   End
   Begin VB.Menu guanli 
      Caption         =   "管理部"
      Begin VB.Menu xqrkgl 
         Caption         =   "小区人口管理"
      End
      Begin VB.Menu dhhmgl 
         Caption         =   "电话号码管理"
      End
      Begin VB.Menu tsgl 
         Caption         =   "投诉管理"
      End
   End
   Begin VB.Menu gongcheng 
      Caption         =   "工程部"
      Begin VB.Menu gcssgl 
         Caption         =   "工程设施管理"
      End
      Begin VB.Menu xbwx 
         Caption         =   "设备维修"
      End
      Begin VB.Menu fwwx 
         Caption         =   "房屋维修"
      End
   End
   Begin VB.Menu baoan 
      Caption         =   "保安部"
      Begin VB.Menu bazbgl 
         Caption         =   "保安值班管理"
      End
      Begin VB.Menu jjbgl 
         Caption         =   "交接班记录"
      End
      Begin VB.Menu tccgl 
         Caption         =   "停车场管理"
      End
      Begin VB.Menu xgbggl 
         Caption         =   "巡更报告管理"
      End
   End
   Begin VB.Menu huanwei 
      Caption         =   "环卫部"
      Begin VB.Menu wjpbgl 
         Caption         =   "物洁排班管理"
      End
      Begin VB.Menu yllhgl 
         Caption         =   "园林绿化管理"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "帮助"
      Begin VB.Menu gy 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub bazbgl_Click()
frmsafemanage.Show

End Sub

Private Sub cbgl_Click()
frmtablemanage.Show

End Sub

Private Sub fczy_Click()
frmroomsource.Show

End Sub

Private Sub fwwx_Click()
frmroommend.Show

End Sub

Private Sub fyhz_Click()
frmallcharge.Show
frmcharge.Show

End Sub



Private Sub gcssgl_Click()
frmengineer.Show

End Sub

Private Sub gy_Click()
frmabout.Show

End Sub

Private Sub jjbgl_Click()
frmchangedutymanage.Show

End Sub

Private Sub tccgl_Click()
frmparkmanage.Show

End Sub

Private Sub tjyh_Click()
frmadduser.Show


End Sub

Private Sub tsgl_Click()
frmrequest.Show
frmrequestmanage.Show


End Sub

Private Sub wjpbgl_Click()
frmwujie.Show

End Sub

Private Sub xbwx_Click()
frmmend.Show
Me.Enabled = False
End Sub

Private Sub xgbggl_Click()
frmxungeng.Show

End Sub

Private Sub xgmm_Click()
frmmodifyuserinfo.Show
End Sub

Private Sub xqrkgl_Click()
frmpeoplemanage.Show
frmpeople.Show

End Sub

Private Sub yllhgl_Click()
frmyuanlin.Show

End Sub