zhuchuangti.frm

售楼管理系统 比较好的售楼管理系统源码毕业的同学

VERSION 5.00
Begin VB.MDIForm zhuchuangti 
   BackColor       =   &H8000000C&
   Caption         =   "售楼信息管理系统"
   ClientHeight    =   5250
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8850
   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 llslryxx 
         Caption         =   "浏览售楼人员信息"
      End
      Begin VB.Menu llslhtxinxi 
         Caption         =   "浏览售楼合同信息"
      End
      Begin VB.Menu llskxx 
         Caption         =   "浏览收款信息"
      End
      Begin VB.Menu slryxxdj 
         Caption         =   "售楼人员信息登记"
      End
      Begin VB.Menu slhtxxdj 
         Caption         =   "售楼合同信息登记"
      End
      Begin VB.Menu skxxdj 
         Caption         =   "收款信息登记"
      End
   End
   Begin VB.Menu shujuchaxun 
      Caption         =   "数据查询"
      Begin VB.Menu cxslryxx 
         Caption         =   "查询售楼人员信息"
      End
      Begin VB.Menu cxslhtxx 
         Caption         =   "查询售楼合同信息"
      End
      Begin VB.Menu cxskxx 
         Caption         =   "查询收款信息"
      End
   End
   Begin VB.Menu dayinbaobiao 
      Caption         =   "打印报表"
      Begin VB.Menu dyslhtxx 
         Caption         =   "打印售楼合同信息"
      End
      Begin VB.Menu dyskxx 
         Caption         =   "打印收款信息"
      End
   End
End
Attribute VB_Name = "zhuchuangti"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cxskxx_Click()
skxxcx_chuangti.Show
End Sub

Private Sub cxslhtxx_Click()
slhtxxcx_chuangti.Show
End Sub

Private Sub cxslryxx_Click()
slryxxcx_chuangti.Show
End Sub

Private Sub dyskxx_Click()
DataReport2.Show
End Sub

Private Sub dyslhtxx_Click()
DataReport1.Show
End Sub

Private Sub llskxx_Click()
skxxll_chuangti.Show
End Sub

Private Sub llslhtxinxi_Click()
slhtxxll_chuangti.Show
End Sub

Private Sub llslryxx_Click()
slryxxll_chuangti.Show
End Sub

Private Sub skxxdj_Click()
skxxdj_chuangti.Show
End Sub

Private Sub slhtxxdj_Click()
slhtxxdj_chuangti.Show
End Sub

Private Sub slryxxdj_Click()
slryxxdj_chuangti.Show
End Sub

Private Sub tuichu_Click()
Unload Me
End Sub

Private Sub zhucexinyongthu_Click()
zhucechuangti.Show
End Sub