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

📄 自动生成课程表.frm

📁 VB做的排课
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'检测输入班级编号的合法性
   
'编号不为空
    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 Txtteacherid.Text = "" Then
        MsgBox "请输入教师编号！"
        Txtteacherid.SetFocus
        Exit Sub
    End If
    
    temp.Open strSQLteacher, db, adOpenStatic, adLockOptimistic

    temp.Filter = "teacherID='" & Txtteacherid.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 Txtteacherid.Text = "" Then
        MsgBox "请输入教师编号！"
        Txtteacherid.SetFocus
        Exit Sub
        
    End If
    
    temp.Open strSQLteacher, db, adOpenStatic, adLockOptimistic

    temp.Filter = "teacherID='" & Txtteacherid.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()
AdoClassroom.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Paike.mdb;Persist Security Info=False"
Adotemptable.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Paike.mdb;Persist Security Info=False"
    
    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
'wwddff    DataGrid1.Refresh
DGclass.Refresh
    DGclass.Visible = True
    DGclassroom.Visible = False
    DGteacher.Visible = False
    DGcourse.Visible = False
End Sub

Private Sub Txtclassid_Click()
 '   adoClass.Refresh
'wwddff DataGrid1.Refresh
DGclass.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()
'wwddff     Adocourse.Refresh
DGcourse.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()
'wwddff     Adoteacher.Refresh
DGteacher.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 + -