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

Dim SqlString As String '查询字符串 Dim Connstring As String '连接字符串 Dim RS1 As New ADODB.Recordset '记录集变量 Dim Cmd As New ADODB.Command Private Sub Command1_Click()

Connstring = \

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

'设置连接字符串 With Conn

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

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

MsgBox (\连接成功\

Command1.Enabled = False '连接按钮不可用 Command2.Enabled = True '显示数据可用 End Sub

Private Sub Command2_Click()

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

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

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

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

Set RS1 = Cmd.Execute '执行命令得到一个结果记录集 Call ShowData(RS1, MSFlexGrid1) '调用过程显示记录集中的数据 Command1.Visible = True 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

Command2.Enabled = False End Sub

Private Sub Command3_Click() Form14.Hide Form3.Show End Sub

Private Sub Command4_Click() RS1.Close '关闭记录集 Conn.Close '关闭连接 Text1.Text = \

Command1.Enabled = True '连接按钮不可用 Command2.Enabled = True '显示数据可用 End Sub

Private Sub Command5_Click() DataReport1.Show vbModal, Me End Sub

3、查看初始化窗口及代码

Option Explicit

Dim SQL As String

Dim Conn As New ADODB.Connection '连接变量

Dim SqlString As String '查询字符串 Dim Connstring As String

Dim msg As String '连接字符串 Private Sub CmdSave_Click() '进行初始化操作

Dim Counnter As Integer Connstring = \

Server};Server=PC2012110412ewr.;Database=GXPK;\

& \ 'SQL Server普通安全模式建立到Pubs数据库的

连接的连接字符串

'设置连接字符串 With Conn

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

.Open '给连接的ConnectionString属性赋值，然后使用求带参数的Open

方法打开连接

End With

MsgBox (\连接成功\

ProgressBar1.Visible = True ProgressBar1.Max = 200

ProgressBar1.Value = ProgressBar1.Min

msg = MsgBox(\您确实要初始化这些数据吗?\ If msg = vbNo Then Exit Sub

For Counnter = ProgressBar1.Min To ProgressBar1.Max ProgressBar1.Value = Counnter

If Check1.Value = 1 Then '如果班级信息表被选中 '删除全部提醒信息数据

SQL = \班级信息表\ Conn.Execute SQL End If

If Check2.Value = 1 Then '如果课程信息表被选中 '删除全部通讯日志数据

SQL = \课程信息表\ Conn.Execute SQL End If

If Check3.Value = 1 Then '如果班级课程信息表被选中 '删除全部群组信息数据

SQL = \任课表\ Conn.Execute SQL End If

If Check4.Value = 1 Then '如果教师信息表被选中 '删除全部联系人信息数据

SQL = \教师信息表\

Conn.Execute SQL End If

If Check6.Value = 1 Then '如果排课信息表被选中 '删除全部联系人信息数据

SQL = \排课表\ Conn.Execute SQL End If Next Counnter

ProgressBar1.Visible = False

ProgressBar1.Value = ProgressBar1.Min End Sub

Private Sub CmdExit_Click() '退出操作

Form15.Hide Form3.Show End Sub

Private Sub Form_Unload(Cancel As Integer) '退出操作

Form15.Hide Form3.Show End Sub

4、查看自动排课窗口及代码

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

Private Sub Command2_Click() Dim SQL As String

Dim sc As ADODB.Recordset Set sc = New ADODB.Recordset SQL = \排课表 \End Sub

Private Sub Command3_Click() Form9.Hide Form3.Show End Sub

Private Sub Form_Load()

constr = \

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

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

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

MsgBox (\连接成功\

ProgressBar1.Visible = True ProgressBar1.Max = 200

ProgressBar1.Value = ProgressBar1.Min End Sub

Private Sub Command1_Click() '开始 Dim SQL, sqll, sqlll As String

Dim rt As New ADODB.Recordset Dim rm As New ADODB.Recordset Dim rn As New ADODB.Recordset Dim rp As New ADODB.Recordset Dim rq As New ADODB.Recordset Dim i As Integer

Set Rs = New ADODB.Recordset SQL = \任课表 \Set Rs = Conn.Execute(SQL) ProgressBar1.Max = 100

Do While ProgressBar1.Value < ProgressBar1.Max Do Until Rs.EOF = True i = Rs(\每周节数\ Do Until i = 0

sqll = \时间表\ Set rt = Conn.Execute(sqll) Do Until rt.EOF = True

Set rp = New ADODB.Recordset

coom = \排课表 where [班级编号]='\班级编号\上课时间]='\上课时间\

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