mdiform1.frm

公寓管理信息系统的基本功能的设计~~~~~~~~

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   7125
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9375
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   6750
      Width           =   9375
      _ExtentX        =   16536
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            AutoSize        =   1
            TextSave        =   "15:12"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            AutoSize        =   1
            TextSave        =   "2006-12-22"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            AutoSize        =   2
            Enabled         =   0   'False
            TextSave        =   "CAPS"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            AutoSize        =   2
            TextSave        =   "NUM"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Object.Width           =   6826
            Text            =   "系统制作人：陈群叶  费菲  何寿婷  王瑛   "
            TextSave        =   "系统制作人：陈群叶  费菲  何寿婷  王瑛   "
         EndProperty
      EndProperty
   End
   Begin VB.Menu user 
      Caption         =   "用户管理(&U)"
      Begin VB.Menu modifypwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu relogin 
         Caption         =   "重登陆"
      End
      Begin VB.Menu quit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu office 
      Caption         =   "办公室(&O)"
      Begin VB.Menu elec 
         Caption         =   "用电管理"
      End
      Begin VB.Menu prapun 
         Caption         =   "奖惩情况记录"
      End
      Begin VB.Menu changeroom 
         Caption         =   "宿舍变更"
      End
      Begin VB.Menu workerinfo 
         Caption         =   "员工信息"
      End
      Begin VB.Menu oreport 
         Caption         =   "报表"
         Begin VB.Menu elecinfo 
            Caption         =   "电量信息"
         End
         Begin VB.Menu reportp 
            Caption         =   "奖惩报表"
         End
         Begin VB.Menu reportw 
            Caption         =   "员工信息"
         End
      End
   End
   Begin VB.Menu floor 
      Caption         =   "楼道管理处(&F)"
      Begin VB.Menu stuinfo 
         Caption         =   "学生基本信息"
      End
      Begin VB.Menu late 
         Caption         =   "晚归学生登记"
      End
      Begin VB.Menu visitor 
         Caption         =   "外来访客登记"
      End
      Begin VB.Menu reports 
         Caption         =   "学生信息报表"
      End
   End
   Begin VB.Menu repair 
      Caption         =   "维修处(&RE)"
      Begin VB.Menu repairman 
         Caption         =   "维修情况管理"
      End
      Begin VB.Menu reportr 
         Caption         =   "报表"
      End
   End
   Begin VB.Menu roomer 
      Caption         =   "宿管委(&R)"
      Begin VB.Menu score 
         Caption         =   "卫生情况记录"
      End
      Begin VB.Menu reportsc 
         Caption         =   "卫生得分报表"
      End
   End
   Begin VB.Menu about 
      Caption         =   "关于(&A)"
      Begin VB.Menu aboutus 
         Caption         =   "关于我们"
      End
      Begin VB.Menu office1 
         Caption         =   "办公室"
         Visible         =   0   'False
      End
      Begin VB.Menu floor1 
         Caption         =   "楼道管理处"
         Visible         =   0   'False
      End
      Begin VB.Menu repair1 
         Caption         =   "维修处"
         Visible         =   0   'False
      End
      Begin VB.Menu roomer1 
         Caption         =   "宿管委"
         Visible         =   0   'False
      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 exit_Click()

End Sub

Private Sub aboutus_Click()
frmaboutus.Show
End Sub

Private Sub changeroom_Click()
frmchangeroom.Show
End Sub

Private Sub elec_Click()
frmelec.Show
End Sub

Private Sub elecinfo_Click()
reportelec.Show
End Sub

Private Sub exit1_Click()
End
End Sub

Private Sub floor1_Click()
frmaboutfloor.Show
End Sub

Private Sub prapun_Click()
frmprapun.Show
End Sub

Private Sub quit_Click()
End
End Sub

Private Sub relogin_Click()
MDIForm1.Hide
Form1.Show
Form1.txtpassword = ""
End Sub

Private Sub repairman_Click()
frmmend.Show
End Sub

Private Sub late_Click()
frmlate.Show
End Sub

Private Sub modifypwd_Click()
frmmodifypwd.Show
End Sub

Private Sub office1_Click()
frmaboutoffice.Show
End Sub

Private Sub repair1_Click()
frmaboutrepair.Show
End Sub

Private Sub reportp_Click()
reportprapun.Show
End Sub

Private Sub reportr_Click()
reportrepair.Show
End Sub

Private Sub reports_Click()
reportstuinfo.Show
End Sub

Private Sub reportscore_Click()
reportscore.Show
End Sub

Private Sub reportsc_Click()
reportscore.Show
End Sub

Private Sub reportw_Click()
reportworker.Show
End Sub

Private Sub roomer1_Click()
frmaboutroomer.Show
End Sub

Private Sub score_Click()
frmscore.Show
End Sub

Private Sub stuinfo_Click()
frmstuinfo.Show
End Sub

Private Sub visitor_Click()
frmvisitor.Show
End Sub

Private Sub workerinfo_Click()
frmworkerinfo.Show
End Sub