⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 年级限制表.frm

📁 VB做的排课
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   615
      Left            =   2040
      TabIndex        =   30
      Top             =   960
      Width           =   2295
   End
End
Attribute VB_Name = "Frmgradelimit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dbcourse As DAO.Database
Dim rstgradecourse As DAO.Recordset
Dim db As DAO.Database
Dim rstmajor As DAO.Recordset
Dim rstmajorcourse As DAO.Recordset
Dim rstclasscourse As DAO.Recordset
Dim rstclass As DAO.Recordset

Option Explicit






Private Sub Cmdedit_Click()
On Error Resume Next
Label2.Caption = "系统正在处理数据，请稍等!"
Set rstgradecourse = dbcourse.OpenRecordset("select * from coursegrade")
rstgradecourse.Filter = "gradeid='" & txtgrade.Text & "'"
Set rstgradecourse = rstgradecourse.OpenRecordset()

If Chk11.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("11") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("11") = "1"
    rstgradecourse.Update
End If
If chk12.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("12") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("12") = "1"
    rstgradecourse.Update
End If
If Chk13.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("13") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("13") = "1"
    rstgradecourse.Update
End If
If Chk14.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("14") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("14") = "1"
    rstgradecourse.Update
End If
If Chk21.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("21") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("21") = "1"
    rstgradecourse.Update
End If
If Chk22.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("22") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("22") = "1"
    rstgradecourse.Update
End If
If Chk23.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("23") = "a"
    rstgradecourse.Update
 Else
    rstgradecourse.edit
    rstgradecourse.Fields("23") = "1"
    rstgradecourse.Update
End If
If Chk24.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("24") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("24") = "1"
    rstgradecourse.Update
End If
If Chk31.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("31") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("31") = "1"
    rstgradecourse.Update
End If
If Chk32.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("32") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("32") = "1"
    rstgradecourse.Update
End If
If Chk33.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("33") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("33") = "1"
    rstgradecourse.Update
End If
If Chk34.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("34") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("34") = "1"
    rstgradecourse.Update
End If
If Chk41.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("41") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("41") = "1"
    rstgradecourse.Update
    End If
If Chk42.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("42") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("42") = "1"
    rstgradecourse.Update
End If
If Chk43.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("43") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("43") = "1"
    rstgradecourse.Update
End If
If Chk44.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("44") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("44") = "1"
    rstgradecourse.Update
End If
If Chk51.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("51") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("51") = "1"
    rstgradecourse.Update
End If
If Chk52.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("52") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("52") = "1"
    rstgradecourse.Update
End If
If Chk53.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("53") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("53") = "1"
    rstgradecourse.Update
End If
If Chk54.Value = 1 Then
    rstgradecourse.edit
    rstgradecourse.Fields("54") = "a"
    rstgradecourse.Update
Else
    rstgradecourse.edit
    rstgradecourse.Fields("54") = "1"
    rstgradecourse.Update
End If
Set rstmajor = db.OpenRecordset("select * from major")
rstmajor.Filter = "gradeid='" & txtgrade.Text & "'"
Set rstmajor = rstmajor.OpenRecordset()
rstmajor.MoveFirst
Do Until rstmajor.EOF
Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
rstmajorcourse.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
Set rstmajorcourse = rstmajorcourse.OpenRecordset()
If Chk11.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("11") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("11") = "1"
    rstmajorcourse.Update
End If
If chk12.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("12") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("12") = "1"
    rstmajorcourse.Update
End If
If Chk13.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("13") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("13") = "1"
    rstmajorcourse.Update
End If
If Chk14.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("14") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("14") = "1"
    rstmajorcourse.Update
End If
If Chk21.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("21") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("21") = "1"
    rstmajorcourse.Update
End If
If Chk22.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("22") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("22") = "1"
    rstmajorcourse.Update
End If
If Chk23.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("23") = "a"
    rstmajorcourse.Update
 Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("23") = "1"
    rstmajorcourse.Update
End If
If Chk24.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("24") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("24") = "1"
    rstmajorcourse.Update
End If
If Chk31.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("31") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("31") = "1"
    rstmajorcourse.Update
End If
If Chk32.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("32") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("32") = "1"
    rstmajorcourse.Update
End If
If Chk33.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("33") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("33") = "1"
    rstmajorcourse.Update
End If
If Chk34.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("34") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("34") = "1"
    rstmajorcourse.Update
End If
If Chk41.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("41") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("41") = "1"
    rstmajorcourse.Update
    End If
If Chk42.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("42") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("42") = "1"
    rstmajorcourse.Update
End If
If Chk43.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("43") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("43") = "1"
    rstmajorcourse.Update
End If
If Chk44.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("44") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("44") = "1"
    rstmajorcourse.Update
End If
If Chk51.Value = 1 Then
    rstmajorcourse.edit
    rstmajorcourse.Fields("51") = "a"
    rstmajorcourse.Update
Else
    rstmajorcourse.edit
    rstmajorcourse.Fields("51") = "1"
    rstmajorcourse.Update
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -