teach.frm

教师管理系统

VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmTeach 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   1500
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4095
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1500
   ScaleWidth      =   4095
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox cboType 
      Height          =   300
      Left            =   1080
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   120
      Width           =   1455
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   375
      Left            =   2880
      MaskColor       =   &H00000000&
      TabIndex        =   1
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2880
      MaskColor       =   &H00000000&
      TabIndex        =   2
      Top             =   840
      Width           =   975
   End
   Begin MSDataListLib.DataCombo dcbName 
      Bindings        =   "Teach.frx":0000
      Height          =   330
      Left            =   1080
      TabIndex        =   3
      Top             =   1080
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   582
      _Version        =   393216
      Style           =   2
      ListField       =   "Name"
      BoundColumn     =   "Serial"
      Text            =   "课程名"
      Object.DataMember      =   "AddCourse"
   End
   Begin MSDataListLib.DataCombo dcbSerial 
      Bindings        =   "Teach.frx":0016
      Height          =   330
      Left            =   1080
      TabIndex        =   4
      Top             =   585
      Width           =   1455
      _ExtentX        =   2566
      _ExtentY        =   582
      _Version        =   393216
      Style           =   2
      ListField       =   "Serial"
      BoundColumn     =   "Name"
      Text            =   "课程号"
      Object.DataMember      =   "AddCourse"
   End
   Begin VB.Label lblCourse 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "课程号："
      Height          =   180
      Left            =   300
      TabIndex        =   7
      Top             =   675
      Width           =   720
   End
   Begin VB.Label lblCourseName 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "课程名："
      Height          =   180
      Left            =   300
      TabIndex        =   6
      Top             =   1155
      Width           =   720
   End
   Begin VB.Label lblCourseType 
      AutoSize        =   -1  'True
      Caption         =   "课程类型："
      Height          =   180
      Left            =   120
      TabIndex        =   5
      Top             =   180
      Width           =   900
   End
End
Attribute VB_Name = "frmTeach"
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
   
''刷新dcbName所列的课程类型名
   dcbName.RowMember = ""
   dcbName.Refresh
   dcbSerial.ReFill
   dcbName.RowMember = "AddCourse"
   dcbName.Refresh
   dcbName.ReFill
   
   Call dcbName_Click(0)
   Call dcbSerial_Click(0)
   
   cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub

Private Sub cmdCancel_Click()
   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