智能排课系统vb代码 - 图文(3)

Set rp = Conn.Execute(coom)

cool = \* from 排课表 where [上课时间]='\+ rt(\上课时间\+ \[教师姓名]='\教师姓名\

Set rq = Conn.Execute(cool)

If rp.EOF = True And rq.EOF = True Then sqlll = \教室信息表\ Set rm = Conn.Execute(sqlll) Do Until rm.EOF = True

coon = \排课表 where [上课时间]='\上课时间\上课教室]='\教室名称\

Set rn = Conn.Execute(coon) If rn.EOF = True Then

SQL = \into 排课表 ([课程名称],[教师姓名],[上课教室],[班级编号],[上课时间]) values ('\课程名称\教师姓名\教室名称\Rs(\班级编号\上课时间\ Set rq = Conn.Execute(SQL) Exit Do Else

rm.MoveNext End If Loop Exit Do Else

rt.MoveNext End If Loop i = i - 1 Loop Rs.MoveNext Loop

ProgressBar1.Value = ProgressBar1.Value + 1 DoEvents Loop

MsgBox \自动排课已完成\提示\End Sub

Private Sub Timer1_Timer() If dlaytime >= 100 Then 'Timer1.Enabled = False Load frmLogin frmLogin.Show Else

dlaytime = dlaytime + 1

P1.Value = dlaytime End If End Sub

5、查看手动调课窗口及代码

Dim Conn As New ADODB.Connection '连接变量 Dim SqlString As String '查询字符串 Dim Connstring As String

Private Sub Command2_Click() Form11.Hide Form3.Show End Sub

Private Sub Command5_Click()

Dim Conn As New ADODB.Connection '连接变量 Dim SqlString As String '查询字符串 Dim Connstring As String '连接字符串 Dim RS1 As New ADODB.Recordset '记录集变量 Dim Cmd As New ADODB.Command

Connstring = \

& \ 'SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串

'设置连接字符串 With Conn

.ConnectionString = Connstring '给ConnectionString属性赋值 .ConnectionTimeout = 10

.Open '给连接的ConnectionString属性赋值，然后使用求带参数的Open方法打开连接 End With

Set Cmd.ActiveConnection = Conn '设置Command对象的ActiveConnection为某个打开

的连接

SqlString = \课程名称,教师姓名,上课教室,班级编号,上课时间 from 排课表 \ '形成查询字符串1

Cmd.CommandText = SqlString '设置Command对象执行的命令字符串

Cmd.CommandType = adCmdText '设置命令类型,表示CommandText中为一命令文本 ,童P188

Set RS1 = Cmd.Execute '执行命令得到一个结果记录集 Call ShowData(RS1, MSFlexGrid1) '调用过程显示记录集中的数据 End Sub

Private Sub Form_Load()

constr = \

& \ 'SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串 '定义数据库连接 With Conn

.ConnectionString = constr '给ConnectionString属性赋值 .ConnectionTimeout = 10

.Open '给连接的ConnectionString属性赋值，然后使用求带参数的Open方法打开连接 End With

MsgBox (\连接成功\End Sub

Private Sub Command1_Click() '调整教室 Dim rt As New ADODB.Recordset

If (Text1.Text = \Then

MsgBox (\请输入完整信息\Else

Set Rs = New ADODB.Recordset SQL = \排课表\Set Rs = Conn.Execute(SQL)

If Rs(\上课教室\

MsgBox (\该时间段该教室已被占用，请重新选择\ Text4.Text = \ Text5.Text = \Else

Set Rs = New ADODB.Recordset

SQL = \排课表 set [上课教室]='\课程名称]='\\教师姓名]='\上课时间]='\Set Rs = Conn.Execute(SQL) MsgBox (\教室调整成功\ Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \ Text5.Text = \

End If End If End Sub

Private Sub Command3_Click() '调整时间 Dim rt As New ADODB.Recordset

If (Text1.Text = \Then

MsgBox (\请输入完整信息\Else

Set Rs = New ADODB.Recordset SQL = \排课表\Set Rs = Conn.Execute(SQL)

If Rs(\上课时间\

MsgBox (\该教室该时间段已被占用，请重新选择\ Text4.Text = \ Text5.Text = \ Else

Set Rs = New ADODB.Recordset

SQL = \排课表 set [上课时间]='\课程名称]='\+ \教师姓名]='\教室名称]='\ Set Rs = Conn.Execute(SQL) MsgBox (\时间调整成功\ 'Adodc1.Refresh Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \ Text5.Text = \End If End If End Sub

Private Sub ShowData(Rs As ADODB.Recordset, Dgrid As MSFlexGrid) '该过程用来在Dgrid网格中显示记录集RS中的内容 Dim RowNum As Integer

RowNum = 1 '代表MsFlexGrid控件的行数 Dgrid.Rows = RowNum '设置MsFlexGrid控件的行数 Dgrid.Cols = Rs.Fields.Count '设置MsFlexGrid控件的列数 For j = 0 To Rs.Fields.Count - 1 '遍列所有列

Dgrid.TextMatrix(0, j) = Rs.Fields(j).Name '把列名显示在设置MsFlexGrid控件的首行

Next j

Do While Not Rs.EOF '如果不是记录集的结尾 RowNum = RowNum + 1 '行数加1

Dgrid.Rows = RowNum '设置MsFlexGrid控件的行数

For j = 0 To Rs.Fields.Count - 1 '遍列所有列

If Not IsNull(Rs.Fields(j).Value) Then '如果列中的数据不为空,切记不能用如 if Var1=Null来判断变量Var1的值是否为Null

Dgrid.TextMatrix(RowNum - 1, j) = Rs.Fields(j).Value '把列的数据显示在MsFlexGrid的相应网格中 End If Next j

Rs.MoveNext '记录指针下移 Loop End Sub

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库智能排课系统vb代码 - 图文(3)在线全文阅读。