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