教师条件限制表.frm

智能排课系统

         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9480
      TabIndex        =   2
      Top             =   6120
      Width           =   1695
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Bindings        =   "教师条件限制表.frx":0000
      Height          =   5535
      Left            =   480
      TabIndex        =   5
      Top             =   5400
      Width           =   8535
      _ExtentX        =   15055
      _ExtentY        =   9763
      _Version        =   393216
      AllowUpdate     =   -1  'True
      ColumnHeaders   =   0   'False
      ForeColor       =   12582912
      HeadLines       =   1
      RowHeight       =   31
      FormatLocked    =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   20.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "教师姓名与编号表"
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   "teacherid"
         Caption         =   "编号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   "teachername"
         Caption         =   "教师姓名"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   1995.024
         EndProperty
         BeginProperty Column01 
            Locked          =   -1  'True
            ColumnWidth     =   3000.189
         EndProperty
      EndProperty
   End
   Begin VB.Label label1 
      BackStyle       =   0  'Transparent
      Caption         =   "教师编号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   1080
      TabIndex        =   0
      Top             =   1320
      Width           =   2295
   End
End
Attribute VB_Name = "frmteacherlimit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As DAO.Database
Dim rsteacher As DAO.Recordset
Option Explicit



Private Sub Cmdedit_Click()
On Error Resume Next
Set rsteacher = db.OpenRecordset("select * from courseteacher")
rsteacher.Filter = "teacherid='" & txteacherid.Text & "'"
Set rsteacher = rsteacher.OpenRecordset()
If Chk11.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("11") = "a"
    rsteacher.Update
End If
If Chk11.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("11") = "a"
    rsteacher.Update
End If
If chk12.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("12") = "a"
    rsteacher.Update
End If
If Chk13.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("13") = "a"
    rsteacher.Update
End If
If Chk14.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("14") = "a"
    rsteacher.Update
End If
If Chk21.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("21") = "a"
    rsteacher.Update
End If
If Chk22.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("22") = "a"
    rsteacher.Update
End If
If Chk23.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("23") = "a"
    rsteacher.Update
End If
If Chk24.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("24") = "a"
    rsteacher.Update
End If
If Chk31.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("31") = "a"
    rsteacher.Update
End If
If Chk32.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("32") = "a"
    rsteacher.Update
End If
If Chk33.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("33") = "a"
    rsteacher.Update
End If
If Chk34.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("34") = "a"
    rsteacher.Update
End If
If Chk41.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("41") = "a"
    rsteacher.Update
End If
If Chk42.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("42") = "a"
    rsteacher.Update
End If
If Chk43.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("43") = "a"
    rsteacher.Update
End If
If Chk44.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("44") = "a"
    rsteacher.Update
End If
If Chk51.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("51") = "a"
    rsteacher.Update
End If
If Chk52.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("52") = "a"
    rsteacher.Update
End If
If Chk53.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("53") = "a"
    rsteacher.Update
End If
If Chk54.Value = 1 Then
    rsteacher.edit
    rsteacher.Fields("54") = "a"
    rsteacher.Update
End If


End Sub

Private Sub Cmdelete_Click()
On Error Resume Next
Dim i As Integer
Dim j As Integer
Set rsteacher = db.OpenRecordset("select * from courseteacher")
rsteacher.Filter = "teacherid='" & txteacherid.Text & "'"
Set rsteacher = rsteacher.OpenRecordset()
rsteacher.edit
For i = 1 To 5
    For j = 1 To 4
      rsteacher.Fields(i & j) = "1"
    Next j
Next i
rsteacher.Update

End Sub

Private Sub Cmdexit_Click()
Unload Me

frmteacherlimit.Hide

db.Close
frmmain.Show vbModal

End Sub

Private Sub DataGrid1_Click()
txteacherid.Text = DataGrid1.Text
End Sub

Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\coursetable.mdb")

txteacherid.Text = ""
Chk11.Value = 0
chk12.Value = 0
Chk13.Value = 0
Chk14.Value = 0
Chk21.Value = 0
Chk22.Value = 0
Chk23.Value = 0
Chk24.Value = 0
Chk31.Value = 0
Chk32.Value = 0
Chk33.Value = 0
Chk34.Value = 0
Chk41.Value = 0
Chk42.Value = 0
Chk43.Value = 0
Chk44.Value = 0
Chk51.Value = 0
Chk52.Value = 0
Chk53.Value = 0
Chk54.Value = 0
End Sub

Private Sub Txteacherid_Change()
Dim i As Integer
Dim j As Integer
Set rsteacher = db.OpenRecordset("select * from courseteacher")
rsteacher.Filter = "teacherid='" & txteacherid.Text & "'"
Set rsteacher = rsteacher.OpenRecordset()
If rsteacher.RecordCount() = 0 Then
    MsgBox "请选择教师编号！"
Else

    If rsteacher.Fields("11") = "a" Then
        Chk11.Value = 1
    Else
       Chk11.Value = 0
    End If
    If rsteacher.Fields("12") = "a" Then
       chk12.Value = 1
    Else
      chk12.Value = 0
    End If
    If rsteacher.Fields("13") = "a" Then
         Chk13.Value = 1
    Else
        Chk13.Value = 0
    End If
    If rsteacher.Fields("14") = "a" Then
         Chk14.Value = 1
    Else
        Chk14.Value = 0
    End If
    If rsteacher.Fields("21") = "a" Then
         Chk21.Value = 1
    Else
        Chk21.Value = 0
    End If
    If rsteacher.Fields("22") = "a" Then
         Chk22.Value = 1
    Else
        Chk22.Value = 0
    End If
    If rsteacher.Fields("23") = "a" Then
         Chk23.Value = 1
    Else
        Chk23.Value = 0
    End If
    If rsteacher.Fields("24") = "a" Then
         Chk24.Value = 1
    Else
        Chk24.Value = 0
    End If
    If rsteacher.Fields("31") = "a" Then
         Chk31.Value = 1
    Else
        Chk31.Value = 0
    End If
    If rsteacher.Fields("32") = "a" Then
         Chk32.Value = 1
    Else
        Chk32.Value = 0
    End If
    If rsteacher.Fields("33") = "a" Then
         Chk33.Value = 1
    Else
        Chk33.Value = 0
    End If
    If rsteacher.Fields("34") = "a" Then
         Chk34.Value = 1
    Else
        Chk34.Value = 0
    End If
    If rsteacher.Fields("41") = "a" Then
         Chk41.Value = 1
    Else
        Chk41.Value = 0
    End If
    If rsteacher.Fields("42") = "a" Then
         Chk42.Value = 1
    Else
        Chk42.Value = 0
    End If
    If rsteacher.Fields("43") = "a" Then
         Chk43.Value = 1
    Else
        Chk43.Value = 0
    End If
    If rsteacher.Fields("44") = "a" Then
         Chk44.Value = 1
    Else
        Chk44.Value = 0
    End If
    If rsteacher.Fields("51") = "a" Then
         Chk51.Value = 1
    Else
        Chk51.Value = 0
    End If
    If rsteacher.Fields("52") = "a" Then
         Chk52.Value = 1
    Else
        Chk52.Value = 0
    End If
    If rsteacher.Fields("53") = "a" Then
         Chk53.Value = 1
    Else
        Chk53.Value = 0
    End If
    If rsteacher.Fields("54") = "a" Then
        Chk54.Value = 1
    Else
        Chk54.Value = 0
    End If
End If

End Sub