frmmain.frm

来自「适合房屋管理系统的软件」· FRM 代码 · 共 96 行

VERSION 5.00
Begin VB.MDIForm frmmain 
   BackColor       =   &H00C0E0FF&
   Caption         =   "房屋管理系统"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu xtgl 
      Caption         =   "系统管理"
      Begin VB.Menu tcxt 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu xtsz 
      Caption         =   "系统设置"
      Begin VB.Menu fwhx 
         Caption         =   "设置房屋户型"
      End
      Begin VB.Menu dlwz 
         Caption         =   "设置地理位置"
      End
   End
   Begin VB.Menu xxjl 
      Caption         =   "信息交流"
      Begin VB.Menu fyj 
         Caption         =   "发邮件"
      End
      Begin VB.Menu ggl 
         Caption         =   "公告栏"
      End
   End
   Begin VB.Menu fwgl 
      Caption         =   "房屋管理"
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bmgl_Click()
frmxlgl.Show
End Sub

Private Sub adduser_Click()
frmchangepwd.Show
End Sub

Private Sub dlwz_Click()
frmdl.Show
End Sub

Private Sub fwgl_Click()
frmfwgl.Show
End Sub

Private Sub fwhx_Click()
frmfw.Show
End Sub

Private Sub fyj_Click()
frmmaif.Show

End Sub

Private Sub ggl_Click()
frmgg.Show

End Sub

Private Sub syj_Click()
frmsmail.Show

End Sub

Private Sub szbm_Click()
frmbm.Show

End Sub

Private Sub xltype_Click()
frmdl.Show
End Sub

Private Sub ycbz_Click()
frmfw.Show
End Sub

Private Sub tcxt_Click()
Unload Me
End Sub