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

📄 年级限制表.frm

📁 学校排课管理系统 科目的查询
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
         Height          =   255
         Left            =   7800
         TabIndex        =   5
         Top             =   480
         Width           =   1695
      End
   End
   Begin VB.CommandButton Cmdexit 
      BackColor       =   &H00FFC0C0&
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   9600
      TabIndex        =   1
      Top             =   9360
      Width           =   2415
   End
   Begin VB.CommandButton Cmdedit 
      BackColor       =   &H00FFC0C0&
      Caption         =   "编辑"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   2160
      TabIndex        =   3
      Top             =   9360
      Width           =   2415
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   975
      Left            =   6960
      TabIndex        =   25
      Top             =   360
      Width           =   4455
   End
   Begin VB.Label label1 
      BackStyle       =   0  'Transparent
      Caption         =   "年级编号："
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   1095
      Left            =   2400
      TabIndex        =   2
      Top             =   1320
      Width           =   3735
   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
123

⌨️ 快捷键说明

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