1.限制登录次数
'记载输入密码次数
miCount = miCount + 1
If miCount = 3 Then
MsgBox "只允许输入三次密码,请重新登录!", vbOKOnly + vbExclamation, "警告"
End '结束程序
End If
Exit Sub
2.修改密码
Private Sub cmdOK_Click()
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
'判断原始密码输入框与登录窗体输入的密码是否一致
txtSQL = "select * from user_info where user_ID='" & Username & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Trim(txtOldPassword.Text) <> Trim(mrc.Fields(1)) Then
MsgBox "原密码输入不正确!", vbOKOnly + vbExclamation, "警告"
txtOldPassword.SetFocus
txtOldPassword.Text = ""
txtPassword1.Text = ""
txtPassword2.Text = ""
Exit Sub
Else
3.添加班级信息:点击班号,所有信息清空,方便再次添加
Private Sub txtClassno_Click()
txtClassno.Text = ""
comboGrade.Text = ""
txtDirector.Text = ""
txtClassroom.Text = ""
End Sub
4.日期控件:可以提供格式化的日期字段,使得进行日期选择很容易。添加方法:工程----->部件选择MicrosoftWindows Common Controls-2.6
运行时的状态:
5.出生日期小于(不能大于)入校日期
'出生日期不能大于等于入校日期
If DTPicker1.Value >= DTPicker2.Value Then
MsgBox "出生日期不能大于等于入校日期,请重新输入!", vbOKOnly + vbExclamation, "警告"
DTPicker1.SetFocus
DTPicker2.SetFocus
Exit Sub
End If
6.课程重复添加的问题:添加代码listAllcourse.Clear
Private Sub cmdSet_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
listAllcourse.Clear
7.myFlexgrid表格第一行为空
解决办法:将代码修改为如下
'将查询内容显示在表格控件中
With myFlexgrid
.Rows = 1
.CellAlignment = 4
.TextMatrix(0, 0) = "学号"
.TextMatrix(0, 1) = "姓名"
.TextMatrix(0, 2) = "性别"
.TextMatrix(0, 3) = "出生日期"
.TextMatrix(0, 4) = "班号"
.TextMatrix(0, 5) = "联系电话"
.TextMatrix(0, 6) = "入校日期"
.TextMatrix(0, 7) = "家庭住址"
8.修改学籍信息
9.查询学籍信息
10.限制内容,限制电话号码框
添加学籍信息:
还要输入keyASCII=0,这样在输错的时候就可以删除了
11.用户名和密码要限制特殊字符,代码如下:
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 '退格
Case Asc("A") To Asc("Z")
Case Asc("0") To Asc("9")
Case Asc("a") To Asc("z")
Case Else
KeyAscii = 0
End Select
End Sub
12.我们还要注意数据库数据的格式,区分date和datetime
13.注意课程分数的大小限制