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

Vb核心代码设计

一：输入界面与代码（以班级表为例）

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

Dim bm '定义一个变量用来存放添加记录时原来记录的位置 Dim tj As Boolean

Private Sub Command10_Click() Form4.Hide Form3.Show End Sub

Private Sub Command1_Click() '移到首记录 RS1.MoveFirst

Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True

Call DispValue '显示当前记录的值 End Sub

Private Sub Command2_Click() '前移 RS1.MovePrevious

If RS1.BOF Then RS1.MoveFirst

Command1.Enabled = False Command2.Enabled = False End If

Command3.Enabled = True Command4.Enabled = True

Call DispValue '显示当前记录的值 End Sub

Private Sub Command3_Click() '后移 RS1.MoveNext If RS1.EOF Then RS1.MoveLast

Command3.Enabled = False Command4.Enabled = False End If

Command1.Enabled = True Command2.Enabled = True

Call DispValue '显示当前记录的值 End Sub

Private Sub Command4_Click() '移到末记录 RS1.MoveLast

Command3.Enabled = False Command4.Enabled = False Command1.Enabled = True Command2.Enabled = True

Call DispValue '显示当前记录的值 End Sub

Private Sub Command5_Click() '删除记录

If (MsgBox(\真的要删除该记录吗？\删除提示\ RS1.Delete '删除 RS1.MoveNext

If RS1.EOF Then '如果删除的是末记录 RS1.MoveLast End If End If

Call DispValue '显示当前记录的值 End Sub

Private Sub Command6_Click() '添加记录

bm = RS1.Bookmark '用书签记下当前记录位置

RS1.AddNew '调用AddNew方法增加新记录 Call EditStatus '置按钮和文本框状态 Call EmptyText '清空文本框 tj = True '是添加新记录 End Sub

Private Sub Command7_Click() '修改记录 Call EditStatus '置按钮和文本框状态 tj = False '不是添加记录，是修改记录 End Sub

Private Sub Command8_Click() '确定操作 Call SetValue '给各字段赋值

RS1.Update '调用Update方法保存 Call OkStatus '置按钮和文本框状态

MsgBox (\保存成功\给出保存成功提示 End Sub

Private Sub Command9_Click() '取消操作

If (MsgBox(\真的要取消修改吗？\ RS1.CancelUpdate

If tj Then '如果是增加新记录

RS1.Bookmark = bm '把记录指针移动到原来的位置 End If

Call DispValue '显示当前记录的值 Call OkStatus '置按钮和文本框状态 End If End Sub

Private Sub Form_Load()

Connstring = \

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

'设置连接字符串 With Conn

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

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

MsgBox (\连接成功\

RS1.CursorType = adOpenDynamic

RS1.CursorLocation = adUseClient '游标服务的位置、默认值adUseServer。游标用于：控制记录定位、控制其他用户对数据库所作的更改的可视性、控制数据可更新性 RS1.LockType = adLockOptimistic RS1.Open \班级信息表\

If RS1.EOF And RS1.BOF Then '如果表为空 MsgBox \表为空，请添加记录\ Else

Call DispValue '显示当前记录的值 End If

Call TextDisable '使文本框不可用 Command8.Enabled = False Command9.Enabled = False End Sub

Private Sub DispValue()

Text1.Text = RS1.Fields(\班级编号\

If IsNull(Trim(RS1.Fields(\班级名称\ '解决课程名字段值为空移指针出错（无效使用NULL）的问题，其他字段类推。 Text2.Text = \ Else

Text2.Text = RS1.Fields(\班级名称\ End If

Text5.Text = RS1.Fields(\所属系\

Text7.Text = RS1.Fields(\学生人数\End Sub

Private Sub SetValue()

RS1.Fields(\班级编号\ RS1.Fields(\班级名称\

RS1.Fields(\所属系称\

RS1.Fields(\学生人数\End Sub

Private Sub TextEnable() '使所有的文本框可用 Text1.Enabled = True Text2.Enabled = True Text5.Enabled = True Text7.Enabled = True End Sub

Private Sub TextDisable() '使所有的文本框不可用 Text1.Enabled = False Text2.Enabled = False Text5.Enabled = False Text7.Enabled = False End Sub

Private Sub EditStatus() '设置在编辑或添加记录时的各控件状态 Command1.Enabled = False

Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command8.Enabled = True Command9.Enabled = True Call TextEnable End Sub

Private Sub EmptyText() '清空文本框 Text1.Text = \ Text2.Text = \ Text5.Text = \ Text7.Text = \End Sub

Private Sub OkStatus() '设置不在编辑或添加记录时的各控件状态 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Command8.Enabled = False Command9.Enabled = False Call TextDisable End Sub

2、查看课表窗口及代码（以教室课表为例）

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

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