学生系统优化

曾经终败给现在 2022-06-14 05:14 161阅读 0赞

0.窗体布局

'设置窗体的大小和位置

Me.Width = 7600

Me.Height = 6700

Me.Left = Screen.Width / 2 - Me.Width / 2

Me.Top = Screen.Height / 2 - Me.Height / 2

1.添加日历功能代码

首先添加日历控件，ctrl+T或者菜单栏“工程—部件”，选中Microsoft Windows Common Controls-2 6.0 (SP6)有MonthView控件，就是日历了；然后就可以编写代码了。在窗体加载时，日历的visual属性不可用。

'添加点击日历时，输入日期

Private Submonthview1\_dateclick(ByVal dateclicked As Date)

If flag = True Then

txtBorndate.Text = MonthView1.Year& "-" & MonthView1.Month & "-" &MonthView1.Day

Else

txtRudate.Text = MonthView1.Year &"-" & MonthView1.Month & "-" & MonthView1.Day

end if

MonthView1.Visible =False

End Sub

'在输入日期框的控件，添加日历显示代码

Private Subtxtborndate\_click()

flag = True

MonthView1.Visible = True

End Sub

Private Subtxtrudate\_click()

flag = False

MonthView1.Visible = True

End Sub

2.修改信息时，所有的文本框不可用

'使各个按钮有效

cmdFirst.Enabled = True

cmdPrevious.Enabled = True

cmdNext.Enabled = True

cmdLast.Enabled = True

'使各个文本框失效

txtSID.Enabled = False

txtName.Enabled = False

comboSex.Enabled = False

txtBorndate.Enabled = False

comboClassNo.Enabled = False

txtRudate.Enabled = False

txtTel.Enabled = False

txtAddress.Enabled = False

txtComment.Enabled = False

mcclean = True

3.由于跟数据库有关系，所有当我们进行有关数据的操作时，需要注意当没有数据时应当做什么。当数据库中没有记录时的，弹出提示信息，让所有的按钮都不可用，这样可以避免由于没有数据而出现的错误。

'判断表中数据是否为空

If mrc.RecordCount =0 Then

MsgBox "数据库表中已经没有记录了！请先添加数据！", vbOKOnly + vbExclamation, "信息提示"

Exit Function

End If

4.修改型的窗体中，点击更新记录并不是真正的更新，而是把原先的记录删除，添加了一个新的记录。可以查看源代码定义了两个执行查询的变量：mrc和mrcc，相关代码操作是mrc.delete mrcc.AddNew.

5.添加课程信息窗口出现了一个问题，数据库中该表中的课程编号的数据类型是int，当你输入001时，它自动保存的是1，虽然会有判断是否重复记录，但是出入的和保存的判断不出来，因为输入的是001，表中保存的是1，所以这样做的后果是表中会有重复的课程编号。原因在于VB中int类型保存时会自动舍去第一位是0的位数。

6.查询数据时，注意使用的组合sql语句，句尾要加个空格，否则会出现“变量或对象变量with未设置”的错误。

![Image 1][]

7.关于SQL语句，在单引号的左右需要注意不要输入多余的空格，不然会查询不到记录。

比如这个：第一行语句中，注意单引号的前后，是没有空格的。

'添加相关课程

txtSQL = "select \* fromgradecourse\_info where grade='" & myGrade & "'"

Set mrc =ExecuteSQL(txtSQL, MsgText)         '调用模块中定义的查询函数

MsgBox MsgText                  '弹出查询结果窗口

8.combobox控件数据重复问题及解决代码

txtSQL ="select grade from class\_info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

For i = 1 To mrc.RecordCount

comboGrade.AddItem mrc.Fields(0)

a(i) = mrc.Fields(0)

mrc.MoveNext

Next i

'去掉重复数据

For i = 0 To comboGrade.ListCount - 1

For j = i + 1 To comboGrade.ListCount -1

s1 = a(i)

s2 = comboGrade.List(j)

If s1 = s2 ThencomboGrade.RemoveItem (j)

Next j

Next i

9.在无需提醒的由于操作不当造成错误的可以加上，来跳过错误，建议不在万不得已的情况下不使用这样的语句。

On Error Resume Next

10.判断listbox数据重复

用到的两个属性：listindex（返回一个数值型的索引）、list（index）返回该数据。

List1.listindex:表示当前选中数据，返回值是数值型

List1.list(index)：返回索引的数据。

例子代码

Dim a As Integer

If listAllCourse.ListIndex <> -1 Then

a = listAllCourse.ListIndex

For i = 0 TolistSelectCourse.ListCount - 1         '遍历判断是否有重复数据

If listAllCourse.List(a) =listSelectCourse.List(i) Then

MsgBox "已有该课程"

Else

listSelectCourse.AddItemlistAllCourse.List(listAllCourse.ListIndex)

End If

Next i

End If

11.修改信息的窗口（添加判断是否有修改）的四步操作

(1)首先声明一个标志数组，根据信息的显示控件来定义大小

Dimflag(6) as boolean

(2)在修改记录按钮的事件中，给标志赋初值

Dim i asinteger

For i= 0to 5

flag(i)=true

Next i

(3)添加这个几个控件的change事件，这里给出一个的代码，其余的相同；注意修改索引

Private SubtxtClassNo\_Change()

flag(0) = False

End Sub

(4)在更新按钮事件中，添加代码。如果有修改，就把原来的记录删除。

If flag(0) = TrueAnd flag(1) = True Then

MsgBox "什么都没修改，不用更新"

Exit Sub

Else

mrc.Delete

End If

12.添加考试成绩与添加其他信息稍微有些不同，不同之处在于其他表有一个可以唯一确定一条记录的字段，而成绩表，除姓名和分数之外，其余四个字段都可以唯一确定一个记录。所以这里的判断条件是多条件判断：

'执行查询操作

txtSQL = "select \* from result\_infowhere exam\_No ='" & comboExamNo.Text & "' and student\_ID='" & comboSID.Text & "'and course\_Name ='" &comboCourse.Text & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then '判断是否到数据集最后

MsgBox "有相同纪录，请重新输入信息!", vbOKOnly + vbExclamation,"警告"

mrc.Close

13.文本框控件限制输入内容，可以使用退格键。

'电话文本框中只能输入数字

Private SubtxtTel\_KeyPress(KeyAscii As Integer)

If KeyAscii < 7 OrKeyAscii > 9 And KeyAscii < 48 Or KeyAscii > 57 Then  '（退格键的ASCII码是8）

KeyAscii = 0

End If

End Sub

总结：学生管理系统让我明白了，学习是一件认真、严肃的事情，它不允许你将就、差不多来执行；只有不将就才可以将它学懂、学精。