学生信息管理系统优化（一）

第一个问题就是登陆的时候如果在姓名哪输入 “‘ ’” 单引号会报错的解决方法是

解决方法

1 给姓名的文本框建立个键盘输入事件

2然后就是用ASCI码的方式来禁止输入单引号

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

If KeyAscii = 39 Then '禁止输入单引号

KeyAscii = 0

End If

End Sub

就是记录清空

学生的添加用户和修改密码，当用户再次点开的时候上次修改的记录还存在这就对客户再次操作就不放便了

1 当我们点击确认的时候创建个确认按钮的 弹起事件 在弹起是卸载当前窗体下次在打开的时候就不会有上

次的记录了请他的窗体清空记录我用的都是这个办法

2 用卸载窗体来清空上次记录不是最好的办法，所以大家评论的时候有什么好的方法，一起分享一下

Private Sub cmdOK_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Unload Me

End Su

字符和字数限制

1字符限制有的字段的数据类型是字符的有的是整形的那这问题就来了 如果往字符类型里输入数字那不就报错了，相反也一样

2通过给文本框创建键盘输入事件来限制

Private Sub txtDirector_KeyPress(KeyAscii As Integer)

Select Case KeyAscii '禁止输入数字和特殊字符

Case 65 To 90

Case 97 To 122

Case 44

Case 46

Case 13

Case 8

Case Else

KeyAscii = 0

End Select

End Sub

禁止输入字符的

Select Case KeyAscii '只能输入数字

Case 8 '无变化，退格键

Case 48 To 57

Case Else '出来上边的都屏蔽

KeyAscii = 0

End Select

这个只能输入数字

设置课程防止重复添加

在添加课程的时候，点击设置课程在点击第二次的时候它还回在输出一次跟上面的一模一样

1 给设置课程的命令按钮创建个鼠标弹起事件但鼠标弹起是禁用 设置课程按钮

Private Sub cmdSet_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

cmdSet.Enabled = False

End Sub

2已选择的课程重复修改一下代码

Private Sub cmdAdd_Click()

' If listAllcourse.ListIndex <> -1 Then

'listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)

'End If '

Dim s As String

Dim i As Integer

i = listSelectcourse.ListCount '已选择课程列表框的项目

s = listAllcourse.List(listAllcourse.ListIndex) '所有课程列表框选中的项目

For i = 0 To listSelectcourse.ListCount - 1 '在列表框中循环找一遍

If listSelectcourse.List(i) = s Then Exit For

Next

If i = listSelectcourse.ListCount Then listSelectcourse.AddItem s

End Sub

详见窃子硕博客http://m15732678364.blog.163.com/blog/static/25321606920165197303347

修改成绩的comboCoursetype 课程类型禁止写入 其他的可以通过style的属性来设置

Private Sub comboCoursetype_KeyPress(KeyAscii As Integer)

Select Case KeyAscii '禁止写入

Case 1 To 127

KeyAscii = 0

End Select

学籍查询和成绩查询的复选框

当点击那个复选框那个复选框后边的文本框可用

1在设计阶段，禁用文本框

2给复选框创建单机事件，当单机复选框文本框可用

Private Sub Check1_Click(Index As Integer) '选择复习框文本框才可用

Select Case Index

Case 0

txtSID.Enabled = True

Case 1

txtName.Enabled = True

Case 2

txtCourse.Enabled = True

End Select

End Sub

添加日期控件

1添加 部件 microsoft Windows common Controls-2.6.0

Private Sub DTPicker1_Change() '日期选择

选择

txtRudate = Format(DTPicker1.Value, "yyyy-mm-dd")

DTPicker2.Value = txtRudate

End Sub

Private Sub DTPicker2_Change() '选择出生日期

txtBorndate = Format(DTPicker2.Value, "YYYY-mm-dd")

DTPicker2.Value = txtBorndate

End Sub

暂时总结怎么多，还又很多没有优化的

项目管理 ProjectMan

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。