学生管理系统优化-阿里云开发者社区

学生管理系统优化

2023-07-12 57

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： 学生管理系统优化

1.限定text填写类型和长度

1.1 限定Text可填写的长度

'txtUserName是输入用户名的文本框'
Private Sub txtUserName_Change()    'Len(text)：得到字符串的长度。不论中英文字符，均按1计数。'
    If Len(txtUserName.Text) > 15 Then  '限制输入长度为15，一旦超过就只显示前15'
        txtUserName.Text = Left(txtUserName.Text, 15)
        txtUserName.SelStart = 15   '作用是选中排名前15的字符'
    End If
End Sub

'判断电话号码是否小于7位数'
If Len(txtTel.Text) < 7 Then
    MsgBox "电话号码不能小于7位！", vbOKOnly + vbExclamation, "警告"
    Exit Sub
    txtTel.SetFocus
End If

1.2 Text只能输入英文和数字

用户名的输入格式：英文、数字或英文+数字，英文不区分大小写，可以使用退格键

'设置用户名输入的格式'
Private Sub txtUserName_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
          Case 48 To 57, 65 To 90, 97 To 122
                Exit Sub
          Case 8
                Exit Sub
          Case Else
                MsgBox "请输入数字或英文"
    End Select
    KeyAscii = 0
End Sub

1.3 Text只能输入英文和汉字

Private Sub txtDirector_KeyPress(KeyAscii As Integer)
   If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 Then
   ElseIf Not Chr(KeyAscii) Like "[a-zA-Z]" Then
   KeyAscii = 0
   End If
End Sub

1.4 Text只能输入数字，且能退格

'文本框只能输入数字，且能退格'
Private Sub txtClassno_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii
          Case 48 To 57
                Exit Sub
          Case 8
                Exit Sub
    End Select
    KeyAscii = 0
End Sub

1.5 Text不能输入特殊字符

Private Sub txtComment_KeyPress(KeyAscii As Integer)
Dim cTemp As String
   cTemp = "`~!@#$%^&*()-=_+[]{};:'\|<>/?.‘“”’、，。——+（）《》？,~·……￥！：；【】" & """ '禁止输入特殊的字符"
If InStr(1, cTemp, Chr(KeyAscii)) <> 0 Then KeyAscii = 0
End Sub

2. 增加验证原密码功能

首先在Module1模块里定义一个公有变量：

Public PassWord As String

然后在frmLogin登陆页面写下以下代码：

Private Sub cmdOK_Click()       '点击确定登录'
  PassWord = Trim(txtPassword.Text) '把登陆时输入的密码赋给公有变量PassWord'
End Sub

最后在修改密码窗体写下以下的代码：

If PassWord <> Text1(0).Text Then
  MsgBox "原密码输入不正确", vbOKOnly + vbExclamation, "修改密码"
End If

3. 增加数据集移动位置提示

数据集记录计数=1时，提醒已到最后一条记录

Private Sub firstCommand_Click()  '第一条记录按钮'
      mrc.MoveFirst    '移动到数据集的第一条记录
      Call viewData     '调用显示数据的函数
     If mrc.RecordCount = 1 Then
        MsgBox "只剩下这一条记录！", vbOKCancel + vbExclamation, "警告"
     End If
End Sub

Private Sub lastCommand_Click()    '最后一条记录按钮'
      mrc.MoveLast  '移动到数据集的最后一条记录
      Call viewData      '调用显示数据的函数
      If mrc.RecordCount = 1 Then
        MsgBox "只剩下这一条记录！", vbOKCancel + vbExclamation, "警告"
      End If
End Sub

Private Sub nextCommand_Click()   '下一条记录按钮'
     If mrc.RecordCount = 1 Then
        MsgBox "只剩下这一条记录！", vbOKCancel + vbExclamation, "警告"
     Else
      mrc.MoveNext      '数据集向后移动'
      If mrc.EOF Then   '判断是否到末位置'
        MsgBox "这已经是最后一条记录了!", vbOKOnly + vbExclamation, "警告"
          mrc.MovePrevious  '将记录指针移至上一条'
      End If
    End If
    Call viewData
End Sub

Private Sub previousCommand_Click()     '上一条记录按钮'
    If mrc.RecordCount = 1 Then
        MsgBox "只剩下这一条记录！", vbOKCancel + vbExclamation, "警告"
    Else
        mrc.MovePrievious '将记录指针移至上一条'
        If mrc.BOF Then   '如果记录指针到顶了'
            mrc.MoveLast  '将记录指针移至下一条'
        End If
    End If
    Call viewData
End Sub

4. 增加记录集清空提示

当删除最后一条数据时，按钮事件会因为`mrc.MoveFirst`类似的情况报错，因此增加了错误处理程序。

Private Sub deleteCommand_Click() '删除记录按钮'
On Error GoTo P_Err   '遇到错误跳转到P_Err错误处理程序'
…………………………………………
p_EXIT:
    Exit Sub      
P_Err:          '清空记录集并提示'
    txtSID.Text = ""
    txtName.Text = ""
    comboSex.Text = ""
    txtBorndate.Text = ""
    comboClassNo.Text = ""
    txtTel.Text = ""
    txtRudate.Text = ""
    txtAddress.Text = ""
    txtComment.Text = ""
    MsgBox "最后一条信息已删除，即将退出!", vbOKOnly + vbCritical, "警告"
    Unload Me
    GoTo p_EXIT
End Sub

5. 增加当记录集为空时的提示

记录集为空，直接打开修改学籍窗口会报错，所以添加了以下提示，并且在没有数据的情况下，按钮都是不可操作的。

Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    txtSQL = "select * from student_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)   '执行查询操作 '得到student表，并显示出来
    If mrc.RecordCount = 0 Then   '当前记录集为空'
        MsgBox "暂无学籍信息，请先录入", vbOKCancel + vbExclamation, "警告"
        Frame2.Enabled = False  'Frame里的按钮都不可点击'
        Frame3.Enabled = False
    Else
         'select得到的临时表，游标指向尾记录，在Access中指向第一条'
        mrc.MoveFirst   '移动到第一条记录'
        Call viewData   '显示数据'
        myBookmark = mrc.Bookmark '做标记'
        mcclean = True  '给标志赋初值'
    End If
End Sub