form9.frm

课程表自动排课系统是一个非常使用的系统软件

     myrs.Open "SELECT * FROM KC where 类型='" + lx + "';", mycn, adOpenKeyset, adLockOptimistic
   Else
     myrs.Open "SELECT * FROM KC;", mycn, adOpenKeyset, adLockOptimistic
   End If

   nb = myrs.RecordCount
   rdnb = Int((nb) * Rnd()) '获得随机数
   myrs.Move rdnb


   rdfl = myrs("课程名")
   myrs.Close

   kk = i
   kk = CStr(kk)
   
   kk2 = b
   kk2 = CStr(kk2)
      
   
   myrs.Open "update tables set tables.星期五='" + rdfl + "'where tables.js=" + kk + " and bj=" + kk2 + ";", mycn, adOpenKeyset, adLockOptimistic
  Next
 Next

''''''''''''''''''''''''''''''星期五的课程
'''''''''''''''''''''''''''''''''''''''''
If c = 6 Then
For b = 1 To bj
b = CStr(b)

  For i = 1 To j

   If i < 4 Then
     lx = "主课"
     myrs.Open "SELECT * FROM KC where 类型='" + lx + "';", mycn, adOpenKeyset, adLockOptimistic
   Else
     myrs.Open "SELECT * FROM KC;", mycn, adOpenKeyset, adLockOptimistic
   End If

   nb = myrs.RecordCount
   rdnb = Int((nb) * Rnd()) '获得随机数
   myrs.Move rdnb


   rdfl = myrs("课程名")
   myrs.Close

   kk = i
   kk = CStr(kk)
   
   kk2 = b
   kk2 = CStr(kk2)
      
   
   myrs.Open "update tables set tables.星期六='" + rdfl + "'where tables.js=" + kk + " and bj=" + kk2 + ";", mycn, adOpenKeyset, adLockOptimistic
  Next
 Next

''''''''''''''''''''''''''''''星期六的课程
'''''''''''''''''''''''''''''''''''''''''
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''




End Sub

Private Sub Command3_Click()
Form7.Show
End Sub

Private Sub Command4_Click()


'''''排教师



Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset

Dim myrs2 As New ADODB.Recordset
Set myrs2 = New ADODB.Recordset

Dim myrs3 As New ADODB.Recordset
Set myrs3 = New ADODB.Recordset

mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


For i = 1 To j
    i = CStr(i)

    myrs3.Open "delete FROM js2  ;", mycn, adOpenKeyset, adLockOptimistic
   
    myrs.Open "SELECT * FROM tables where js=" + i + " ;", mycn, adOpenKeyset, adLockOptimistic
    bjn = ""
    csql = "SELECT * FROM  js where 姓名<>'" + bjn + "'"
    xq = "星期一"
    myrs3.Open "insert into js2 SELECT * FROM js where 不得排课时间<>'" + xq + "';", mycn, adOpenKeyset, adLockOptimistic
   
    
    
    Do While Not myrs.EOF
    
     
       inb = i
       jnb = j
       
       myrs2.Open "SELECT * FROM  js2", mycn, adOpenKeyset, adLockOptimistic
        
      
     
      nb = myrs2.RecordCount
      rdnb = Int((nb) * Rnd())  '获得随机数
      myrs2.Move rdnb
      bjn = myrs2("姓名")
      myrs2.Close
    
      myrs("星期一教师") = bjn
      
        myrs2.Open "delete  FROM  js2 where 姓名='" + bjn + "'", mycn, adOpenKeyset, adLockOptimistic
    
      myrs.MoveNext
    
    Loop

    myrs.Close


Next

'''''排星期一教师


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


For i = 1 To j
    i = CStr(i)

    myrs3.Open "delete FROM js2  ;", mycn, adOpenKeyset, adLockOptimistic
   
    myrs.Open "SELECT * FROM tables where js=" + i + " ;", mycn, adOpenKeyset, adLockOptimistic
    bjn = ""
    csql = "SELECT * FROM  js where 姓名<>'" + bjn + "'"
    
      xq = "星期二"
    myrs3.Open "insert into js2 SELECT * FROM js where 不得排课时间<>'" + xq + "';", mycn, adOpenKeyset, adLockOptimistic
   
    
    
    Do While Not myrs.EOF
    
     
       inb = i
       jnb = j
       
       myrs2.Open "SELECT * FROM  js2", mycn, adOpenKeyset, adLockOptimistic
        
      
     
      nb = myrs2.RecordCount
      rdnb = Int((nb) * Rnd())  '获得随机数
      myrs2.Move rdnb
      bjn = myrs2("姓名")
      myrs2.Close
    
      myrs("星期二教师") = bjn
      
        myrs2.Open "delete  FROM  js2 where 姓名='" + bjn + "'", mycn, adOpenKeyset, adLockOptimistic
    
      myrs.MoveNext
    
    Loop

    myrs.Close


Next

'''''排星期二教师


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For i = 1 To j
    i = CStr(i)

    myrs3.Open "delete FROM js2  ;", mycn, adOpenKeyset, adLockOptimistic
   
    myrs.Open "SELECT * FROM tables where js=" + i + " ;", mycn, adOpenKeyset, adLockOptimistic
    bjn = ""
    csql = "SELECT * FROM  js where 姓名<>'" + bjn + "'"
    
      xq = "星期三"
    myrs3.Open "insert into js2 SELECT * FROM js where 不得排课时间<>'" + xq + "';", mycn, adOpenKeyset, adLockOptimistic
   
    
    
    Do While Not myrs.EOF
    
     
       inb = i
       jnb = j
       
       myrs2.Open "SELECT * FROM  js2", mycn, adOpenKeyset, adLockOptimistic
        
      
     
      nb = myrs2.RecordCount
      rdnb = Int((nb) * Rnd())  '获得随机数
      myrs2.Move rdnb
      bjn = myrs2("姓名")
      myrs2.Close
    
      myrs("星期三教师") = bjn
      
        myrs2.Open "delete  FROM  js2 where 姓名='" + bjn + "'", mycn, adOpenKeyset, adLockOptimistic
    
      myrs.MoveNext
    
    Loop

    myrs.Close


Next

'''''排星期三教师


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 1 To j
    i = CStr(i)

    myrs3.Open "delete FROM js2  ;", mycn, adOpenKeyset, adLockOptimistic
   
    myrs.Open "SELECT * FROM tables where js=" + i + " ;", mycn, adOpenKeyset, adLockOptimistic
    bjn = ""
    csql = "SELECT * FROM  js where 姓名<>'" + bjn + "'"
    
      xq = "星期四"
    myrs3.Open "insert into js2 SELECT * FROM js where 不得排课时间<>'" + xq + "';", mycn, adOpenKeyset, adLockOptimistic
   
    
    
    Do While Not myrs.EOF
    
     
       inb = i
       jnb = j
       
       myrs2.Open "SELECT * FROM  js2", mycn, adOpenKeyset, adLockOptimistic
        
      
     
      nb = myrs2.RecordCount
      rdnb = Int((nb) * Rnd())  '获得随机数
      myrs2.Move rdnb
      bjn = myrs2("姓名")
      myrs2.Close
    
      myrs("星期四教师") = bjn
      
        myrs2.Open "delete  FROM  js2 where 姓名='" + bjn + "'", mycn, adOpenKeyset, adLockOptimistic
    
      myrs.MoveNext
    
    Loop

    myrs.Close


Next

'''''排星期四教师


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For i = 1 To j
    i = CStr(i)

    myrs3.Open "delete FROM js2  ;", mycn, adOpenKeyset, adLockOptimistic
   
    myrs.Open "SELECT * FROM tables where js=" + i + " ;", mycn, adOpenKeyset, adLockOptimistic
    bjn = ""
    csql = "SELECT * FROM  js where 姓名<>'" + bjn + "'"
    
     xq = "星期五"
    myrs3.Open "insert into js2 SELECT * FROM js where 不得排课时间<>'" + xq + "';", mycn, adOpenKeyset, adLockOptimistic
   
    
    
    Do While Not myrs.EOF
    
     
       inb = i
       jnb = j
       
       myrs2.Open "SELECT * FROM  js2", mycn, adOpenKeyset, adLockOptimistic
        
      
     
      nb = myrs2.RecordCount
      rdnb = Int((nb) * Rnd())  '获得随机数
      myrs2.Move rdnb
      bjn = myrs2("姓名")
      myrs2.Close
    
      myrs("星期五教师") = bjn
      
        myrs2.Open "delete  FROM  js2 where 姓名='" + bjn + "'", mycn, adOpenKeyset, adLockOptimistic
    
      myrs.MoveNext
    
    Loop

    myrs.Close


Next

'''''排星期五教师


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If c = 6 Then

For i = 1 To j
    i = CStr(i)

    myrs3.Open "delete FROM js2  ;", mycn, adOpenKeyset, adLockOptimistic
   
    myrs.Open "SELECT * FROM tables where js=" + i + " ;", mycn, adOpenKeyset, adLockOptimistic
    bjn = ""
    csql = "SELECT * FROM  js where 姓名<>'" + bjn + "'"
    
      xq = "星期六"
    myrs3.Open "insert into js2 SELECT * FROM js where 不得排课时间<>'" + xq + "';", mycn, adOpenKeyset, adLockOptimistic
   
    
    Do While Not myrs.EOF
    
     
       inb = i
       jnb = j
       
       myrs2.Open "SELECT * FROM  js2", mycn, adOpenKeyset, adLockOptimistic
        
      
     
      nb = myrs2.RecordCount
      rdnb = Int((nb) * Rnd())  '获得随机数
      myrs2.Move rdnb
      bjn = myrs2("姓名")
      myrs2.Close
    
      myrs("星期六教师") = bjn
      
        myrs2.Open "delete  FROM  js2 where 姓名='" + bjn + "'", mycn, adOpenKeyset, adLockOptimistic
    
      myrs.MoveNext
    
    Loop

    myrs.Close


Next
End If

'''''排星期六教师


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''


End Sub

Private Sub Command5_Click()
Form6.Show
End Sub