【学生】优化篇

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.注意课程分数的大小限制

猜你喜欢