frmmain.frm

房产中介的数据管理系统 运用方便简洁 具有查询等功能

VERSION 5.00
Begin VB.Form frmMain 
   BackColor       =   &H00FFFFFF&
   Caption         =   "欢迎使用 选择所需的信息种类"
   ClientHeight    =   8235
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   12150
   LinkTopic       =   "Form2"
   Picture         =   "frmmain.frx":0000
   ScaleHeight     =   8235
   ScaleWidth      =   12150
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnufang 
      Caption         =   "房源信息(&F)"
      Begin VB.Menu mnufangguan 
         Caption         =   "房源管理"
      End
      Begin VB.Menu mnufangcha 
         Caption         =   "房源查询"
      End
   End
   Begin VB.Menu mnuke 
      Caption         =   "客户信息(&K)"
   End
   Begin VB.Menu mnujiao 
      Caption         =   "交易信息(&J)"
      Begin VB.Menu mnujiaoguan 
         Caption         =   "交易管理"
      End
      Begin VB.Menu mnujiaocha 
         Caption         =   "交易查询"
      End
   End
   Begin VB.Menu mnuxiguan 
      Caption         =   "系统管理(&M)"
      Begin VB.Menu mnuzeng 
         Caption         =   "增加用户"
      End
      Begin VB.Menu mnuxiu 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu mnutui 
      Caption         =   "退出系统(&Q)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub mnufangcha_Click()
frmMain.Hide
frmFangcx.Show
End Sub

Private Sub mnufangguan_Click()
frmMain.Hide
frmFang.Show
End Sub

Private Sub mnujiaocha_Click()
frmMain.Hide
frmJiaocx.Show
End Sub

Private Sub mnujiaoguan_Click()
frmMain.Hide
frmJiao.Show
End Sub

Private Sub mnuke_Click()
frmMain.Hide
frmKe.Show
End Sub

Private Sub mnutui_Click()
Unload Me
End
End Sub

Private Sub mnuxiu_Click()
frmXiu.Show
End Sub

Private Sub mnuzeng_Click()
frmZeng.Show
End Sub