专业限制条件窗体.frm

学校排课管理系统 科目的查询

    rstmajorcourse.Fields("51") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("51") = "1"
    rstmajorcourse.Update
End If
If Chk52.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("52") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("52") = "1"
    rstmajorcourse.Update
End If
If Chk53.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("53") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("53") = "1"
    rstmajorcourse.Update
End If
If Chk54.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("54") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("54") = "1"
    rstmajorcourse.Update
End If
Set rstclass = db.OpenRecordset("select * from class")
rstclass.Filter = "majorid='" & rstmajorcourse.Fields("majorid") & "'"
Set rstclass = rstclass.OpenRecordset()
If rstclass.RecordCount() <> 0 Then
  rstclass.MoveFirst
  Do Until rstclass.EOF
     Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
     rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
     Set rstclasscourse = rstclasscourse.OpenRecordset()
     If Chk11.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("11") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("11") = "1"
        rstclasscourse.Update
    End If
    If Chk12.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("12") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("12") = "1"
        rstclasscourse.Update
    End If
    If Chk13.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("13") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("13") = "1"
        rstclasscourse.Update
    End If
    If Chk14.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("14") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("14") = "1"
        rstclasscourse.Update
    End If
    If Chk21.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("21") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("21") = "1"
        rstclasscourse.Update
    End If
    If Chk22.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("22") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("22") = "1"
        rstclasscourse.Update
    End If
    If Chk23.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("23") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("23") = "1"
        rstclasscourse.Update
    End If
    If Chk24.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("24") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("24") = "1"
        rstclasscourse.Update
    End If
    If Chk31.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("31") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("31") = "1"
        rstclasscourse.Update
    End If
    If Chk32.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("32") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("32") = "1"
        rstclasscourse.Update
    End If
    If Chk33.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("33") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("33") = "1"
        rstclasscourse.Update
    End If
    If Chk34.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("34") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("34") = "1"
        rstclasscourse.Update
    End If
    If Chk41.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("41") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("41") = "1"
        rstclasscourse.Update
    End If
    If Chk42.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("42") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("42") = "1"
        rstclasscourse.Update
    End If
    If Chk43.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("43") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("43") = "1"
        rstclasscourse.Update
    End If
    If Chk44.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("44") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("44") = "1"
        rstclasscourse.Update
    End If
    If Chk51.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("51") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("51") = "1"
        rstclasscourse.Update
    End If
    If Chk52.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("52") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("52") = "1"
        rstclasscourse.Update
    End If
    If Chk53.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("53") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
        rstclasscourse.Fields("53") = "1"
        rstclasscourse.Update
    End If
    If Chk54.Value = 1 Then
        rstclasscourse.edit
        rstclasscourse.Fields("54") = "a"
        rstclasscourse.Update
    Else
        rstclasscourse.edit
         rstclasscourse.Fields("54") = "1"
        rstclasscourse.Update
    End If
    rstclass.MoveNext
    Loop
End If
Label2.Caption = "数据处理完成！"


End Sub



Private Sub Cmdexit_Click()

db.Close
Unload Me
frmmain.Show vbModal

End Sub

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

Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set dbcourse = DBEngine.Workspaces(0).OpenDatabase("d:\coursetable.mdb")
Txtmajorid.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 txtmajorid_Change()
Dim i As Integer
Dim j As Integer
Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
rstmajorcourse.Filter = "majorid='" & Txtmajorid.Text & "'"
Set rstmajorcourse = rstmajorcourse.OpenRecordset()
If rstmajorcourse.RecordCount() = 0 Then
    MsgBox "请选择专业编号！"
Else

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

End Sub