form5.frm

vb开发的房屋管理系统

VERSION 5.00
Begin VB.Form 管理员界面 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "管理员界面"
   ClientHeight    =   8625
   ClientLeft      =   1920
   ClientTop       =   -825
   ClientWidth     =   10980
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form5.frx":0000
   ScaleHeight     =   8625
   ScaleWidth      =   10980
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Menu fwxx 
      Caption         =   "房屋信息模块"
      Begin VB.Menu fwcx 
         Caption         =   "查询房屋信息"
      End
      Begin VB.Menu fwtj 
         Caption         =   "添加房屋信息"
      End
      Begin VB.Menu fwxg 
         Caption         =   "修改房屋信息"
      End
      Begin VB.Menu fwsc 
         Caption         =   "删除房屋信息"
      End
   End
   Begin VB.Menu khxx 
      Caption         =   "客户信息模块"
      Begin VB.Menu khcx 
         Caption         =   "查询客户信息"
      End
      Begin VB.Menu khtj 
         Caption         =   "添加客户信息"
      End
      Begin VB.Menu khxg 
         Caption         =   "修改客户信息"
      End
      Begin VB.Menu khsc 
         Caption         =   "删除客户信息"
      End
   End
   Begin VB.Menu ht 
      Caption         =   "合同管理模块"
      Begin VB.Menu htcx 
         Caption         =   "查询合同信息"
      End
      Begin VB.Menu tjht 
         Caption         =   "添加合同信息"
      End
      Begin VB.Menu xght 
         Caption         =   "修改合同信息"
      End
      Begin VB.Menu htsc 
         Caption         =   "删除合同信息"
      End
   End
   Begin VB.Menu zjmk 
      Caption         =   "租金模块"
      Begin VB.Menu zjjs 
         Caption         =   "租金计算"
      End
      Begin VB.Menu zjcx 
         Caption         =   "租金查询"
      End
   End
   Begin VB.Menu tjmk 
      Caption         =   "统计模块"
      Begin VB.Menu fwxtj 
         Caption         =   "房屋统计"
      End
      Begin VB.Menu bb 
         Caption         =   "报表打印"
         Begin VB.Menu fwdd 
            Caption         =   "房屋信息打印"
         End
         Begin VB.Menu zjdy 
            Caption         =   "租金信息打印"
         End
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "管理员界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 9000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 10000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 65000)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 11500)
End Sub

Private Sub fwcx_Click()
房屋查询.Show

End Sub

Private Sub fwdd_Click()
房屋信息打印.Show

End Sub

Private Sub fwsc_Click()
房屋删除.Show

End Sub

Private Sub fwtj_Click()
房屋添加.Show

End Sub

Private Sub fwxg_Click()
房屋修改.Show

End Sub

Private Sub fwxtj_Click()
房屋统计.Show

End Sub

Private Sub guany_Click()

End Sub

Private Sub guanyu_Click()
关于.Show
End Sub

Private Sub htcx_Click()
合同查询.Show

End Sub

Private Sub htsc_Click()
合同删除.Show
End Sub

Private Sub khcx_Click()
客户查询.Show
End Sub

Private Sub khsc_Click()
客户删除.Show
End Sub

Private Sub khtj_Click()
客户添加.Show
End Sub

Private Sub khxg_Click()
客户修改.Show
End Sub

Private Sub tc_Click()
主界面.Show
Unload Me
End Sub

Private Sub tjht_Click()
合同添加.Show
End Sub

Private Sub tjyh_Click()
添加用户.Show
End Sub

Private Sub xght_Click()
合同修改.Show
End Sub

Private Sub xgmm_Click()
修改密码.Show
End Sub

Private Sub zjcx_Click()
租金查询.Show
End Sub

Private Sub zjdy_Click()
租金信息打印.Show
End Sub

Private Sub zjjs_Click()
租金计算.Show
End Sub