智能排课系统vb代码(4)

和智能智能排课系统1、2、3是一套

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("班级名称"))) Then '解决课程名字段值为空移指针出错（无效使用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("班级编号") = Text1.Text

RS1.Fields("班级名称") = Text2.Text

RS1.Fields("所属系称") = Text5.Text

RS1.Fields("学生人数") = Text7.Text

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