frmmain.frm

Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物业管理系统》,界面还行

VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "小区物业管理系统"
   ClientHeight    =   8220
   ClientLeft      =   60
   ClientTop       =   660
   ClientWidth     =   11805
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8220
   ScaleWidth      =   11805
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image1 
      Height          =   8220
      Left            =   0
      Picture         =   "FrmMain.frx":0CCA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   11820
   End
   Begin VB.Menu mn_Sys 
      Caption         =   "系统管理"
      Begin VB.Menu mn_Users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_House 
      Caption         =   "房产信息"
      Begin VB.Menu mn_HouseStyle 
         Caption         =   "户型管理"
      End
      Begin VB.Menu mn_Building 
         Caption         =   "楼房管理"
      End
      Begin VB.Menu mn_HouseInfo 
         Caption         =   "房屋管理"
      End
   End
   Begin VB.Menu mn_Person 
      Caption         =   "住户管理"
      Begin VB.Menu mn_Owner 
         Caption         =   "住户基本信息管理"
      End
   End
   Begin VB.Menu mn_Service 
      Caption         =   "住户服务"
      Begin VB.Menu mn_Complain 
         Caption         =   "住户投诉"
      End
      Begin VB.Menu mn_Repair 
         Caption         =   "住户报修"
      End
   End
   Begin VB.Menu mn_Charge 
      Caption         =   "收费管理"
      Begin VB.Menu mn_ChargeItem 
         Caption         =   "收费项目"
      End
      Begin VB.Menu mn_RecordItem 
         Caption         =   "抄表信息"
      End
      Begin VB.Menu mn_Charging 
         Caption         =   "收费记帐"
      End
   End
   Begin VB.Menu mn_manage 
      Caption         =   "物业管理"
      Begin VB.Menu mn_Proj 
         Caption         =   "工程项目"
      End
      Begin VB.Menu mn_Parking 
         Caption         =   "小区车位"
      End
      Begin VB.Menu mn_CleanUp 
         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 Form_Load()
  FrmLogin.Show 1
End Sub

Private Sub mn_Building_Click()
  FrmBuildingMan.Show 1
End Sub

Private Sub mn_ChargeItem_Click()
  FrmChargeItemMan.Show 1
End Sub

Private Sub mn_Charging_Click()
  FrmChargingMan.Show 1
End Sub

Private Sub mn_CleanUp_Click()
  FrmCleanMan.Show 1
End Sub

Private Sub mn_Complain_Click()
  FrmComplainMan.Show 1
End Sub

Private Sub mn_exit_Click()
  End
End Sub

Private Sub mn_HouseInfo_Click()
  FrmHouseMan.Show 1
End Sub

Private Sub mn_HouseStyle_Click()
  FrmStyleMan.Show 1
End Sub

Private Sub mn_Owner_Click()
  FrmOwnerMan.Show 1
End Sub

Private Sub mn_Parking_Click()
  FrmParkMan.Show 1
End Sub

Private Sub mn_Proj_Click()
  FrmProjMan.Show 1
End Sub

Private Sub mn_RecordItem_Click()
  FrmRecordItemMan.Show 1
End Sub

Private Sub mn_Repair_Click()
  FrmRepairMan.Show 1
End Sub


Private Sub mn_users_Click()
  '只有系统管理员才能进入用户管理窗体
  If Trim(CurUser.UserName) = "Admin" Then
    FrmUserMan.Show 1
  Else
    '其他用户只能编辑自己的用户信息
    With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.Pwd
    .txtPass2 = CurUser.Pwd
    .txtEname = CurUser.EmpName
    .txtEname.Enabled = False
    .Modify = True
    .Show 1
    End With
  End If
End Sub