zhuchuangti.frm

来自「这是我最近自己做的VB开发软件,希望各位给点意见,指点一下不足的地方.」· FRM 代码 · 共 103 行

VERSION 5.00
Begin VB.MDIForm 售楼信息管理系统 
   BackColor       =   &H8000000C&
   Caption         =   "售楼信息管理系统-房产信息管理"
   ClientHeight    =   5625
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9750
   LinkTopic       =   "MDIForm1"
   Picture         =   "zhuchuangti.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu wenjian 
      Caption         =   "文件"
      Begin VB.Menu zhucexinyongthu 
         Caption         =   "注册新用户"
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu shujuguanli 
      Caption         =   "数据管理"
      Begin VB.Menu HYXX 
         Caption         =   "户型信息浏览"
      End
      Begin VB.Menu HYBJ 
         Caption         =   "户型信息编辑"
      End
      Begin VB.Menu LPXX 
         Caption         =   "楼盘信息浏览"
      End
      Begin VB.Menu LPBJ 
         Caption         =   "楼盘信息编辑"
      End
   End
   Begin VB.Menu shujuchaxun 
      Caption         =   "数据查询"
      Begin VB.Menu CXHX 
         Caption         =   "查询户型信息"
      End
      Begin VB.Menu CXLP 
         Caption         =   "查询楼盘信息"
      End
   End
   Begin VB.Menu dayinbaobiao 
      Caption         =   "打印报表"
      Begin VB.Menu DYLP 
         Caption         =   "打印楼盘信息"
      End
      Begin VB.Menu DYHX 
         Caption         =   "打印户型信息"
      End
   End
End
Attribute VB_Name = "售楼信息管理系统"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cxslryxx_Click()

End Sub

Private Sub CXHX_Click()
    查询户型信息.Show
End Sub

Private Sub CXLP_Click()
    查询楼盘信息.Show
End Sub

Private Sub DYHX_Click()
    DataReport2.Show
End Sub

Private Sub DYLP_Click()
    DataReport1.Show
End Sub

Private Sub HYBJ_Click()
    户型信息编辑.Show
End Sub

Private Sub HYXX_Click()
    户型信息浏览.Show
End Sub

Private Sub LPBJ_Click()
    楼盘信息编辑.Show
End Sub

Private Sub LPXX_Click()
    楼盘信息浏览.Show
End Sub

Private Sub tuichu_Click()
    退出系统.Show
End Sub

Private Sub zhucexinyongthu_Click()
    Form3.Show
End Sub