mdiform1.frm

来自「用VB实现的客房信息管理系统。具体的功能是管理员登陆和客房管理」· FRM 代码 · 共 104 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   5490
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8130
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu wenjian 
      Caption         =   "文件"
      Begin VB.Menu zhuce 
         Caption         =   "注册新用户"
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu shujuguanli 
      Caption         =   "数据管理"
      Begin VB.Menu liulan 
         Caption         =   "浏览客户信息"
      End
      Begin VB.Menu liulankefangxinxi 
         Caption         =   "浏览客房信息"
      End
      Begin VB.Menu xinxidengji 
         Caption         =   "客户信息登记"
      End
      Begin VB.Menu tuifang 
         Caption         =   "客房信息处理"
      End
   End
   Begin VB.Menu shujuchaxun 
      Caption         =   "数据查询"
      Begin VB.Menu chaxunkehuxinxi 
         Caption         =   "查询客户信息"
      End
   End
   Begin VB.Menu dayinbaobiao 
      Caption         =   "打印报表"
      Begin VB.Menu dayinkehuxinxi 
         Caption         =   "打印客户信息"
      End
      Begin VB.Menu dayinkefangxinxi 
         Caption         =   "打印客房信息"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub a_Click()

End Sub

Private Sub bianji_Click()

End Sub

Private Sub xinjian_Click()

End Sub

Private Sub chaxunkehuxinxi_Click()
Form6.Show
End Sub

Private Sub dayinkefangxinxi_Click()
DataReport2.Show
End Sub

Private Sub dayinkehuxinxi_Click()
DataReport1.Show
End Sub

Private Sub liulan_Click()
Form7.Show
End Sub

Private Sub liulankefangxinxi_Click()
Form8.Show
End Sub

Private Sub tuichu_Click()
Unload Me
End Sub

Private Sub tuifang_Click()
Form5.Show
End Sub

Private Sub xinxidengji_Click()
Form4.Show
End Sub

Private Sub zhuce_Click()
form3.Show
End Sub