学生信息管理系统知识点大盘点 1

(黄色字体为自定义函数,绿色字体为注释)

1.ComboClassno AddItem不重复的条目

都知道select 语句是这样的:

Select[all|distinct] [top n] <select_list>

[Into new_table]

From …

where…

Group by…

Having…

Order by…

现数据库的表Student_info中有1班和2班各两名同学,我需要从中挑选出班号1和2,而不是得到1,1,2,2,所以就不能用"select * from student_info where grade=' " & comboGrade.Text &"'"

所以需要这样查询:

txtSQL ="select distinct class_No from student_infowhere grade='" & ComboGrade.Text & "'"

Set mrc = ExecuteSQL(txtSQL,MsgText)

While mrc.EOF = False

ComboClassno.AddItemmrc.Fields("class_no").Value

mrc.MoveNext

Wend

mrc.Close

2.查看上一条记录或下一条记录

先看这样一段代码

Private SubcmdPre_Click()

If mrc.BOF = True Then

mrc.MoveLast

Else

mrc.MovePrevious

End If

Call ViewData

End Sub

运行结果是这样的

为什么会出错呢,我们来分析一下.当指针指向第一条记录的时候,if条件不成立,所以会执行mrc.MovePrevious,此时指针指向第一条记录之前,callviewdata 时出错.

所以正确的程序应该是这样的:

Private SubcmdPre_Click()

mrc.MovePrevious

If mrc.BOF = True Then

mrc.MoveLast

End If

Call ViewData

End Sub

3.查找新添加记录是否与已有记录重复

从数据库中查找已有记录存放到记录集中,记录集非空时,从第一条记录开始判断是否重复,若重复则exit sub;若不重复则继续判断下一条.

txtSQL = "select* from user_info"

Set mrc = ExecuteSQL(txtSQL,MsgText)

While (mrc.EOF = False)

If Trim$(mrc.Fields("user_name").value) = Trim$(TxtUserName.Text)Then

MsgBox "用户已存在,请重新输入用户名!",vbOKOnly + vbExclamation, "警告"

TxtUserName.SetFocus

TxtUserName.Text = ""

TxtPassword1.Text = ""

TxtPassword2.Text = ""

Exit Sub

Else

mrc.MoveNext

EndIf

Wend

mrc.EOF = False说明mrc记录集不为空,经常用mrc.BOF和EOF的值判断记录集是否为空.

4.课程设置时,要实现添加课程即从图一到图二,用如下代码.

(图一) (图二)

'保证全部课程中选中时已选课程不同时选中

Private SubListAllcourse_Click()

If ListAllcourse.ListIndex <> -1 Then

ListSelectcourse.ListIndex = -1

End If

End Sub

'保证已选课程中选中时全部课程不同时选中

Private SubListSelectcourse_Click()

If ListSelectcourse.ListIndex <> -1Then

ListAllcourse.ListIndex = -1

End If

End Sub

'在全部课程中被选中的情况下,点击添加按钮,课程被添加到已选课程中

Private SubcmdAdd_Click()

If ListAllcourse.ListIndex <> -1 Then

ListSelectcourse.AddItemListAllcourse.List(ListAllcourse.ListIndex)

End If

End Sub

Listindex=-1表示listbox未选中

5单选按钮与复选框的value属性

If Check1.Value Then…表示如果复选框被选中那么...看源码的时候知道是什么意思,自己写的时候写成了If Check1.Value =True Then…

复选框value属性有0-unchecked(未选中),1-checked(选中),2-grayed(禁止使用,灰色显示),默认值1.而单选按钮option的value属性有True和False,做系统时我把这两个控件的属性弄混了,还是基础知识不扎实,看来以后还得细心再细心啊.