addstudent.frm

对成绩的管理,很方便,也很实用,适合各种学校的管理

VERSION 5.00
Begin VB.Form frmAddStudent 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   2025
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4605
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2025
   ScaleWidth      =   4605
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame fraMain 
      Height          =   1935
      Left            =   80
      TabIndex        =   0
      Top             =   0
      Width           =   4455
      Begin VB.CommandButton cmdCancel 
         Cancel          =   -1  'True
         Caption         =   "取消(&C)"
         Height          =   375
         Left            =   3240
         MaskColor       =   &H00000000&
         TabIndex        =   5
         Top             =   1320
         Width           =   975
      End
      Begin VB.CommandButton cmdOK 
         Caption         =   "确定(&O)"
         Default         =   -1  'True
         Enabled         =   0   'False
         Height          =   375
         Left            =   2040
         MaskColor       =   &H00000000&
         TabIndex        =   4
         Top             =   1320
         Width           =   975
      End
      Begin VB.TextBox txtScore 
         BeginProperty DataFormat 
            Type            =   1
            Format          =   "0.00"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   1
         EndProperty
         Height          =   270
         Left            =   840
         TabIndex        =   3
         Text            =   "60"
         Top             =   1365
         Width           =   855
      End
      Begin VB.ComboBox cboDep 
         Height          =   300
         ItemData        =   "AddStudent.frx":0000
         Left            =   840
         List            =   "AddStudent.frx":0007
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   255
         Width           =   1095
      End
      Begin VB.ComboBox cboClass 
         Height          =   300
         ItemData        =   "AddStudent.frx":0011
         Left            =   855
         List            =   "AddStudent.frx":0018
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   795
         Width           =   1095
      End
      Begin VB.PictureBox dcbName 
         Height          =   330
         Left            =   2880
         ScaleHeight     =   270
         ScaleWidth      =   1275
         TabIndex        =   6
         Top             =   780
         Width           =   1335
      End
      Begin VB.PictureBox dcbSerial 
         Height          =   330
         Left            =   2880
         ScaleHeight     =   270
         ScaleWidth      =   1275
         TabIndex        =   7
         Top             =   240
         Width           =   1335
      End
      Begin VB.Label lblName 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "姓名："
         Height          =   180
         Left            =   2280
         TabIndex        =   12
         Top             =   855
         Width           =   540
      End
      Begin VB.Label lblSerial 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "学号："
         Height          =   180
         Left            =   2280
         TabIndex        =   11
         Top             =   315
         Width           =   540
      End
      Begin VB.Label lblScore 
         AutoSize        =   -1  'True
         Caption         =   "成绩："
         Height          =   180
         Left            =   240
         TabIndex        =   10
         Top             =   1410
         Width           =   540
      End
      Begin VB.Label lblDep 
         AutoSize        =   -1  'True
         Caption         =   "所在系："
         Height          =   180
         Left            =   120
         TabIndex        =   9
         Top             =   315
         Width           =   720
      End
      Begin VB.Label lblClass 
         AutoSize        =   -1  'True
         Caption         =   "所在班："
         Height          =   180
         Left            =   135
         TabIndex        =   8
         Top             =   855
         Width           =   720
      End
   End
End
Attribute VB_Name = "frmAddStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

''表示用户是否点击“确定”，来添加一个课程信息
Public mbAdded As Boolean

Private Sub cboClass_Click()
   ''针对所选的班级，列出班级中所有的学籍信息
   Dim strSQL
   If cboClass.Text = "全部" Then
      strSQL = " from student order by serial"
   Else
      strSQL = " from student where class='" & cboClass & "' order by serial"
   End If
      
   DataEnv.rsAddStudent.Close
   DataEnv.rsAddStudent.Open "select * " & strSQL
   
''刷新dcbSerial所列的学号
   dcbSerial.RowMember = ""
   dcbSerial.ReFill
   dcbSerial.Refresh
   dcbSerial.RowMember = "AddStudent"
   dcbSerial.ReFill
   dcbSerial.Refresh
   dcbSerial.Text = ""
   
''刷新dcbName所列的学生姓名
   dcbName.RowMember = ""
   dcbName.Refresh
   dcbSerial.ReFill
   dcbName.RowMember = "AddStudent"
   dcbName.Refresh
   dcbName.ReFill
   dcbName.Text = ""
End Sub

Private Sub cboDep_Click()
    Dim rsClass As New ADODB.Recordset
    Dim strSQL
    If cboDep.ItemData(cboDep.ListIndex) = 0 Then   ''在所在系中选择了全部
        strSQL = "select * from class"
    Else ''选择了某一个具体的系
        strSQL = "select * from class where dept_id=" & cboDep.ItemData(cboDep.ListIndex)
    End If
    
    rsClass.Open strSQL, DataEnv.Con

    cboClass.Clear
    cboClass.AddItem "全部"
    While Not rsClass.EOF
        cboClass.AddItem rsClass("Name")
        rsClass.MoveNext
    Wend
    cboClass.ListIndex = 0
    
    rsClass.Close
    Set rsClass = Nothing
End Sub

Private Sub cmdCancel_Click()
   mbAdded = False
   Me.Hide
End Sub

Private Sub cmdOK_Click()
   mbAdded = True
   Me.Hide
End Sub

Private Sub dcbName_Click(Area As Integer)
   ''动态改变dcbSerial中的学号
   dcbSerial.Text = dcbName.BoundText
   
   cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub

Private Sub dcbSerial_Click(Area As Integer)
  dcbName.Text = dcbSerial.BoundText
  
  cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub

Private Sub Form_Load()
   
   Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset
   Set rsDep = DataEnv.rsDepartment
   Set rsClass = DataEnv.rsClass
   
   ''从Department表中读取数据，填充cboDep复合框到中
   If rsDep.State = adStateOpen Then rsDep.Close
   rsDep.Open
   cboDep.Clear
   cboDep.AddItem "全部"
   ''将各个系的id号作为ItemData附加到复合框中
   cboDep.ItemData(0) = 0
   While Not rsDep.EOF
       cboDep.AddItem rsDep("Name")
       cboDep.ItemData(cboDep.ListCount - 1) = rsDep("id")
       rsDep.MoveNext
   Wend
   cboDep.ListIndex = 0
   
   '''从class中读取数据，填充到cboClass复合框中
   If rsClass.State = adStateClosed Then rsClass.Open
   cboClass.Clear
   cboClass.AddItem "全部"
   While Not rsClass.EOF
       cboClass.AddItem rsClass("Name")
       rsClass.MoveNext
   Wend
   cboClass.ListIndex = 0
End Sub

Private Sub txtScore_Change()
  cmdOK.Enabled = Len(dcbSerial.Text) > 0 And Len(txtScore.Text) > 0
End Sub

Private Sub txtScore_KeyPress(KeyAscii As Integer)
   ''如果输入的字符不属于数字或者顿号，则取消输入的字符
  If (KeyAscii > Asc("9") Or KeyAscii < Asc("0")) And KeyAscii <> Asc(".") And KeyAscii <> vbKeyBack Then KeyAscii = 0
End Sub