form15.frm

来自「VB自动排课系统」· FRM 代码 · 共 348 行

VERSION 5.00
Begin VB.Form Form1 
   ClientHeight    =   1815
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6030
   LinkTopic       =   "Form1"
   ScaleHeight     =   1815
   ScaleWidth      =   6030
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command4 
      Caption         =   "自动排教师"
      Height          =   495
      Left            =   840
      TabIndex        =   1
      Top             =   600
      Width           =   1575
   End
   Begin VB.CommandButton Command3 
      Caption         =   "查看教师表"
      Height          =   495
      Left            =   3000
      TabIndex        =   0
      Top             =   600
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command3_Click()
Form14.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 pjs 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 pjs 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 pjs 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 pjs 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 pjs 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 pjs 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