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

📄 自动生成课程表.frm

📁 智能排课系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
      
'检测课程编号合法性
    
    If Txtcourseid.Text = "" Then
        MsgBox "请输入课程编号！"
        Txtcourseid.SetFocus
        Exit Sub
        
    End If
    
    temp.Open strSQLcourse, db, adOpenStatic, adLockOptimistic

    temp.Filter = "courseID='" & Txtcourseid.Text & "'"
   temp.Requery
   If temp.RecordCount = 0 Then
      MsgBox ("这个课程编号编号不存在，编辑操作失败！")
      temp.Close
      Exit Sub
   End If
   temp.Close
    
    
    
'检测教师编号合法性
    
    If TxtTxtteacherid.Text = "" Then
        MsgBox "请输入教师编号！"
        txtteacherid.SetFocus
        Exit Sub
        
    End If
    
    temp.Open strSQLteacher, db, adOpenStatic, adLockOptimistic

    temp.Filter = "teacherID='" & Txtteacher.Text & "'"
   temp.Requery
   If temp.RecordCount = 0 Then
      MsgBox ("这个教师编号编号不存在，编辑操作失败！")
      temp.Close
      Exit Sub
   End If
   temp.Close
    
    
    
'检测教室编号合法性
    If Txtclassroomid.Text = "" Then
        MsgBox "请输入教室编号！"
        Txtclassroomid.SetFocus
        Exit Sub
        
    End If
    temp.Open strSQLclassroom, db, adOpenStatic, adLockOptimistic

    temp.Filter = "classroomID='" & Txtclassroomid.Text & "'"
   temp.Requery
   If temp.RecordCount = 0 Then
      MsgBox ("这个教室编号编号不存在，编辑操作失败！")
      temp.Close
      Exit Sub
   End If
   temp.Close
   

   fillrecord
   rst.Update
   Adotemptable.Refresh
   TxtClassID.SetFocus
End Sub

Private Sub Cmdnext_Click()
    rst.MoveNext
    If rst.EOF Then
      MsgBox "这是最后一个记录了！"
      rst.MoveLast
    End If
    filltext
End Sub

Private Sub Cmdprevious_Click()
    rst.MovePrevious
    If rst.BOF Then
        MsgBox "这是第一个记录了!"
        rst.MoveFirst
    End If
    filltext
End Sub

 Private Sub Cmdadd_Click()
    Dim strSQLclass As String
    Dim strSQLclassroom As String
    Dim strSQLcourse As String
    Dim strSQLteacher As String
    
    strSQLclass = "SELECT classID FROM bclass"
    strSQLclassroom = "SELECT classroomID FROM bclassRoom"
    strSQLcourse = "SELECT courseID FROM bcourse"
    strSQLteacher = "SELECT teacherID FROM bteacher"
    
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                                                                                  '
'               检查编号的合法性，首先编号不能为空，其次编号应该在对应库中         '
'           存在。                                                                 ,
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'检测输入班级编号的合法性
   
'编号不为空
    If TxtClassID.Text = "" Then
        MsgBox "请输入班级编号！"
        TxtClassID.SetFocus
        Exit Sub
    End If
'编号存在
    temp.Open strSQLclass, db, adOpenStatic, adLockOptimistic
 
   temp.Filter = "classID='" & TxtClassID.Text & "'"
   temp.Requery
   If temp.RecordCount = 0 Then
      MsgBox ("这个班级编号编号不存在，编辑操作失败！")
      temp.Close
      Exit Sub
   End If
   temp.Close

      
'检测课程编号合法性
    
    If Txtcourseid.Text = "" Then
        MsgBox "请输入课程编号！"
        Txtcourseid.SetFocus
        Exit Sub
        
    End If
    
    temp.Open strSQLcourse, db, adOpenStatic, adLockOptimistic

    temp.Filter = "courseID='" & Txtcourseid.Text & "'"
   temp.Requery
   If temp.RecordCount = 0 Then
      MsgBox ("这个课程编号编号不存在，编辑操作失败！")
      temp.Close
      Exit Sub
   End If
   temp.Close
    
    
    
'检测教师编号合法性
    
    If TxtTxtteacherid.Text = "" Then
        MsgBox "请输入教师编号！"
        txtteacherid.SetFocus
        Exit Sub
        
    End If
    
    temp.Open strSQLteacher, db, adOpenStatic, adLockOptimistic

    temp.Filter = "teacherID='" & Txtteacher.Text & "'"
   temp.Requery
   If temp.RecordCount = 0 Then
      MsgBox ("这个教师编号编号不存在，编辑操作失败！")
      temp.Close
      Exit Sub
   End If
   temp.Close
    
    
    
'检测教室编号合法性
    If Txtclassroomid.Text = "" Then
        MsgBox "请输入教室编号！"
        Txtclassroomid.SetFocus
        Exit Sub
        
    End If
    temp.Open strSQLclassroom, db, adOpenStatic, adLockOptimistic

    temp.Filter = "classroomID='" & Txtclassroomid.Text & "'"
   temp.Requery
   If temp.RecordCount = 0 Then
      MsgBox ("这个教室编号编号不存在，编辑操作失败！")
      temp.Close
      Exit Sub
   End If
   temp.Close
 
    
   rst.AddNew
   fillrecord
   rst.Update
   clearfield
   rst.Requery
   showbutton
   TxtClassID.SetFocus
   Adotemptable.Refresh

    Exit Sub

 End Sub









Public Sub filltext()
   
    If rst.RecordCount = 0 Then
        Exit Sub
    End If
   TxtClassID.Text = rst.Fields("classid")
   Txtcourseid.Text = rst.Fields("courseid")
   txtteacherid.Text = rst.Fields("teacherid")
   Txtclassroomid.Text = rst.Fields("classroomid")
   Txttime.Text = rst.Fields("ttime")
    
    
End Sub

Public Sub clearfield()
   TxtClassID.Text = ""
   Txtcourseid.Text = ""
   txtteacherid.Text = ""
   Txtclassroomid.Text = ""
   Txttime.Text = ""
End Sub





Private Sub Command1_Click(Index As Integer)
    db.Close
    Unload Me
    frmmain.Show vbModal
End Sub

Private Sub Command3_Click()
    clearfield
    TxtClassID.SetFocus
End Sub




Private Sub DGclass_Click()
    TxtClassID.Text = DGclass.Columns(0).Text
End Sub

Private Sub DGclassroom_Click()
    Txtclassroomid.Text = DGclassroom.Columns(0).Text
End Sub

Private Sub DGcourse_Click()
    Txtcourseid.Text = DGcourse.Columns(0).Text
End Sub

Private Sub DGteacher_Click()
    txtteacherid.Text = DGteacher.Columns(0).Text
End Sub

Private Sub DGtemptable_Click()
    Txttime.Text = DGtemptable.Columns(4).Text
End Sub




Private Sub Form_Load()
    
    strSQL = "SELECT * FROM btemptableA"
    ConenctToDatabase
    rst.Open strSQL, db, adOpenKeyset, adLockOptimistic
    
    If rst.RecordCount() = 0 Then
        'clearfield
        hidebutton
    Else
        showbutton
        rst.MoveFirst
        filltext
       
    End If
    
    
    
 
    

    
End Sub


Public Sub hidebutton()
     Cmddelete.Enabled = False
     Cmdnext.Enabled = False
     cmdfirst.Enabled = False
     Cmdlast.Enabled = False
     Cmdmodify.Enabled = False
     Cmdprevious.Enabled = False
End Sub

Public Sub showbutton()
    Cmddelete.Enabled = True
     Cmdnext.Enabled = True
     cmdfirst.Enabled = True
     Cmdlast.Enabled = True
     Cmdmodify.Enabled = True
     Cmdprevious.Enabled = True
End Sub

Public Sub fillrecord()
    rst.Fields("classid") = TxtClassID.Text
    rst.Fields("teacherid") = txtteacherid.Text
    rst.Fields("classroomid") = Txtclassroomid.Text
    rst.Fields("courseid") = Txtcourseid.Text
    rst.Fields("ttime") = Txttime.Text
End Sub





Private Sub Txtclassid_Change()
    adoClass.Refresh
    DGclass.Visible = True
    DGclassroom.Visible = False
    DGteacher.Visible = False
    DGcourse.Visible = False
    
End Sub

Private Sub Txtclassid_Click()
    adoClass.Refresh
    DGclass.Visible = True
    DGclassroom.Visible = False
    DGteacher.Visible = False
    DGcourse.Visible = False
    
    
End Sub

Private Sub Txtclassroomid_Change()
    AdoClassroom.Refresh
    DGclass.Visible = False
    DGclassroom.Visible = True
    DGteacher.Visible = False
    DGcourse.Visible = False
    
End Sub

Private Sub Txtclassroomid_Click()
    AdoClassroom.Refresh
    DGclass.Visible = False
    DGclassroom.Visible = True
    DGteacher.Visible = False
    DGcourse.Visible = False
End Sub

Private Sub Txtcourseid_Change()
    Adocourse.Refresh
    DGclass.Visible = False
    DGclassroom.Visible = False
    DGteacher.Visible = False
    DGcourse.Visible = True
    
End Sub

Private Sub Txtcourseid_Click()
    Adocourse.Refresh
    DGclass.Visible = False
    DGclassroom.Visible = False
    DGteacher.Visible = False
    DGcourse.Visible = True
End Sub

Private Sub Txtteacherid_Change()
    Adoteacher.Refresh
    DGclass.Visible = False
    DGclassroom.Visible = False
    DGteacher.Visible = True
    DGcourse.Visible = False
    
End Sub

Private Sub txtteacherid_Click()
    Adoteacher.Refresh
    DGclass.Visible = False
    DGclassroom.Visible = False
    DGteacher.Visible = True
    DGcourse.Visible = False
End Sub
1234

⌨️ 快捷键说明

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