ctlclass.ctl

用VB实现的一个学生管理系统

VERSION 5.00
Begin VB.UserControl ctlClass 
   ClientHeight    =   1185
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4140
   ScaleHeight     =   1185
   ScaleWidth      =   4140
   Begin VB.Frame Frame1 
      Height          =   1140
      Left            =   45
      TabIndex        =   0
      Top             =   0
      Width           =   4065
      Begin VB.TextBox txtPoint 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   3015
         TabIndex        =   8
         Top             =   720
         Width           =   915
      End
      Begin VB.TextBox txtTeacher 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   1080
         TabIndex        =   7
         Top             =   675
         Width           =   915
      End
      Begin VB.TextBox txtClassName 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   3015
         TabIndex        =   6
         Top             =   270
         Width           =   915
      End
      Begin VB.TextBox txtNumber 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   1080
         TabIndex        =   5
         Top             =   270
         Width           =   915
      End
      Begin VB.Label Label4 
         Caption         =   "学分数:"
         Height          =   195
         Left            =   2160
         TabIndex        =   4
         Top             =   765
         Width           =   960
      End
      Begin VB.Label Label3 
         Caption         =   "授课老师:"
         Height          =   195
         Left            =   135
         TabIndex        =   3
         Top             =   720
         Width           =   960
      End
      Begin VB.Label Label2 
         Caption         =   "课程名称:"
         Height          =   195
         Left            =   2160
         TabIndex        =   2
         Top             =   315
         Width           =   960
      End
      Begin VB.Label Label1 
         Caption         =   "课程编号:"
         Height          =   195
         Left            =   135
         TabIndex        =   1
         Top             =   315
         Width           =   960
      End
   End
End
Attribute VB_Name = "ctlClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

Public Property Get 课程名称() As Variant
Attribute 课程名称.VB_MemberFlags = "14"
课程名称 = txtClassName.Text

End Property

Public Property Let 课程名称(ByVal vNewValue As Variant)
txtClassName.Text = vNewValue

End Property

Public Property Get 课程编号() As Variant
Attribute 课程编号.VB_MemberFlags = "14"
  课程编号 = txtNumber.Text
  
End Property

Public Property Let 课程编号(ByVal newNumber As Variant)
txtNumber.Text = newNumber

End Property

Private Sub txtClassName_Change()
PropertyChanged "课程名称"
End Sub

Private Sub txtNumber_Change()
PropertyChanged "课程编号"
End Sub

Public Property Get 授课老师() As Variant
Attribute 授课老师.VB_MemberFlags = "14"
授课老师 = txtTeacher.Text

End Property

Public Property Let 授课老师(ByVal vNewValue As Variant)
txtTeacher.Text = vNewValue
End Property

Public Property Get 学分数() As Variant
Attribute 学分数.VB_MemberFlags = "14"
学分数 = txtPoint.Text
End Property

Public Property Let 学分数(ByVal vNewValue As Variant)
txtPoint.Text = vNewValue
End Property

Private Sub txtPoint_Change()
PropertyChanged "学分数"
End Sub

Private Sub txtTeacher_Change()
PropertyChanged "授课老师"
End Sub