chjchx.frm

本系统以记录学生信息

VERSION 5.00
Begin VB.MDIForm chjchx 
   BackColor       =   &H00800000&
   Caption         =   "成绩表"
   ClientHeight    =   7305
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9660
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu fenlei 
      Caption         =   "分类表(&A)"
      Begin VB.Menu jsj 
         Caption         =   "计算机成绩表(&C)"
      End
      Begin VB.Menu kj 
         Caption         =   "会计成绩表(&P)"
      End
   End
   Begin VB.Menu tch 
      Caption         =   "退出(&X)"
   End
End
Attribute VB_Name = "chjchx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub jsj_Click()
jsjchj.Hide
kjchj.Hide
jsjchj.Show
jsjchj.Left = 0
jsjchj.Top = 0
jsjchj.Height = 6720
jsjchj.Width = 9445
End Sub

Private Sub kj_Click()
jsjchj.Hide
kjchj.Hide
kjchj.Show
kjchj.Left = 0
kjchj.Top = 0
kjchj.Height = 6720
kjchj.Width = 9445
End Sub

Private Sub tch_Click()
Unload Me
End Sub