📄 form15.frm
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -