mdiform1.frm

此文件为在ＶＢ环境下可用．且有数据库文件

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "计算中心上机收费系统"
   ClientHeight    =   5640
   ClientLeft      =   4425
   ClientTop       =   3705
   ClientWidth     =   5205
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   8295
      Left            =   0
      ScaleHeight     =   8235
      ScaleWidth      =   5145
      TabIndex        =   0
      Top             =   0
      Width           =   5205
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "2000年10月15日"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0FFFF&
         Height          =   285
         Index           =   1
         Left            =   8280
         TabIndex        =   2
         Top             =   7560
         Width           =   2055
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "计算中心上机收费系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0FFFF&
         Height          =   285
         Index           =   0
         Left            =   7320
         TabIndex        =   1
         Top             =   7080
         Width           =   3990
      End
      Begin VB.Image Image1 
         Height          =   8280
         Left            =   0
         Picture         =   "MDIForm1.frx":030A
         Stretch         =   -1  'True
         Top             =   0
         Width           =   11865
      End
   End
   Begin VB.Menu zhuce 
      Caption         =   "注册管理"
      Begin VB.Menu xueyuanzhece 
         Caption         =   "学院注册"
      End
      Begin VB.Menu xibiezhuce 
         Caption         =   "系别注册"
      End
      Begin VB.Menu banjizhuce 
         Caption         =   "班级注册"
      End
      Begin VB.Menu xueshengzhuce 
         Caption         =   "学生注册"
      End
   End
   Begin VB.Menu zhangmu 
      Caption         =   "账目管理"
      Begin VB.Menu zjzh 
         Caption         =   "新建账号"
      End
      Begin VB.Menu rcrz 
         Caption         =   "日常入账"
      End
      Begin VB.Menu cprzh 
         Caption         =   "账目管理"
      End
      Begin VB.Menu ls_m 
         Caption         =   "流水账"
      End
   End
   Begin VB.Menu sjgl_m 
      Caption         =   "上机管理"
      Begin VB.Menu sjrygl_m 
         Caption         =   "上机人员管理"
      End
   End
   Begin VB.Menu fzxx_m 
      Caption         =   "辅助选项"
      Begin VB.Menu qxsz_m 
         Caption         =   "权限设置"
      End
      Begin VB.Menu about_m 
         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 about_m_Click()
frmAbout.Show 1
End Sub

Private Sub banjizhuce_Click()
banjiform.Show 1
End Sub

Private Sub cprzh_Click()
zmgl_f.Show 1
End Sub

Private Sub ls_m_Click()
ls_f.Show 1
End Sub

Private Sub qxsz_m_Click()
gly_f.Show 1
End Sub

Private Sub rcrz_Click()
rzgl_f.Show 1
End Sub

Private Sub sjrygl_m_Click()
status_f.Show 1
End Sub

Private Sub xibiezhuce_Click()
XIBIEFORM.Show 1
End Sub

Private Sub xueshengzhuce_Click()
jibenform.Show 1
End Sub

Private Sub xueyuanzhece_Click()
zhuceform.Show 1
End Sub

Private Sub zjzh_Click()
zhanghaoform.Show 1
End Sub