addcourse.frm

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

VERSION 5.00
Begin VB.Form frmAddCourse 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   2295
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   4095
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame fraMain 
      Height          =   2175
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   3855
      Begin VB.CommandButton cmdCancel 
         Cancel          =   -1  'True
         Caption         =   "取消(&C)"
         Height          =   375
         Left            =   2760
         MaskColor       =   &H00000000&
         TabIndex        =   4
         Top             =   1200
         Width           =   975
      End
      Begin VB.CommandButton cmdOK 
         Caption         =   "确定(&O)"
         Default         =   -1  'True
         Enabled         =   0   'False
         Height          =   375
         Left            =   2760
         MaskColor       =   &H00000000&
         TabIndex        =   3
         Top             =   600
         Width           =   975
      End
      Begin VB.ComboBox cboType 
         Height          =   300
         Left            =   1080
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   240
         Width           =   1455
      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            =   1080
         TabIndex        =   1
         Text            =   "60"
         Top             =   1755
         Width           =   855
      End
      Begin VB.PictureBox dcbName 
         Height          =   330
         Left            =   1080
         ScaleHeight     =   270
         ScaleWidth      =   1395
         TabIndex        =   5
         Top             =   1245
         Width           =   1455
      End
      Begin VB.PictureBox dcbSerial 
         Height          =   330
         Left            =   1080
         ScaleHeight     =   270
         ScaleWidth      =   1395
         TabIndex        =   6
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "课程类型："
         Height          =   180
         Left            =   120
         TabIndex        =   10
         Top             =   300
         Width           =   900
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "课程名："
         Height          =   180
         Index           =   3
         Left            =   300
         TabIndex        =   9
         Top             =   1305
         Width           =   720
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "课程号："
         Height          =   180
         Index           =   0
         Left            =   300
         TabIndex        =   8
         Top             =   795
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "成绩："
         Height          =   180
         Left            =   480
         TabIndex        =   7
         Top             =   1800
         Width           =   540
      End
   End
End
Attribute VB_Name = "frmAddCourse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

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

Private Sub cboType_Click()
   ''点击课程类型时，动态的改变对应的课程类型号
   Dim strSQL
   If cboType.ListIndex <> 0 Then
      strSQL = "Select * from course where typeid = " & cboType.ItemData(cboType.ListIndex)
   Else
      strSQL = "Select * from course"
   End If
   If DataEnv.rsAddCourse.State <> adStateClosed Then DataEnv.rsAddCourse.Close
   DataEnv.rsAddCourse.Open strSQL

''刷新dcbSerial所列的课程类型号
   dcbSerial.RowMember = ""
   dcbSerial.Refresh
   dcbSerial.ReFill
   dcbSerial.RowMember = "AddCourse"
   dcbSerial.Refresh
   dcbSerial.ReFill
   dcbSerial = ""
   
''刷新dcbName所列的课程类型名
   dcbName.RowMember = ""
   dcbName.Refresh
   dcbSerial.ReFill
   dcbName.RowMember = "AddCourse"
   dcbName.Refresh
   dcbName.ReFill
   dcbName.Text = ""
   
   Call dcbName_Click(0)
   Call dcbSerial_Click(0)
   
   cmdOK.Enabled = (dcbSerial.Text <> "")
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中的课程名
  dcbName.Text = dcbSerial.BoundText
  
  cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub

Private Sub Form_Load()
   mbAdded = False
   
   ''从课程类型表重读取数据，写入到cboType中
   ''将name写入到列表框中，id写入到对应的ItemData中
   cboType.Clear
   cboType.AddItem "全部"
   If DataEnv.rsCourse_type.State = adStateClosed Then DataEnv.rsCourse_type.Open
   While Not DataEnv.rsCourse_type.EOF
     Dim s As String
     s = DataEnv.rsCourse_type.Fields("name")
     cboType.AddItem s
     cboType.ItemData(cboType.ListCount - 1) = DataEnv.rsCourse_type("id")
     DataEnv.rsCourse_type.MoveNext
   Wend
   cboType.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