一、键盘事件

对于键盘事件我们要学习的有很多，之前看VB课本的时候都没怎么注意过键盘事件的使用方法，看来学习还真是需要不断重复的过程，即使永远记不住的。
关于键盘事件，百度了一篇文章感觉知识点很全
键盘事件总结文章

那么要学习键盘事件，当然ASCII表是必不可少的。

1、文本框输入内容只能为汉字

@H_502_11@Private Sub txtDirector_KeyPress(KeyAscii As Integer) If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then Else MsgBox "请输入中文！",0 + 48,"提示" KeyAscii = 0 txtDirector.SetFocus End If End Sub

2、文本框输入内容为数字

@H_502_11@Private Sub txtCourseno_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 _ Or KeyAscii = 13 Then Else If KeyAscii = 32 Then MsgBox "不能输入空格！","警告" KeyAscii = 0 Else MsgBox "对不起，课程编号为数字！","警告" KeyAscii = 0 txtCourseno.Text = "" txtCourseno.SetFocus End If End If End Sub

感觉这只是最简单的一种方法，看了云召的博客，其实有好多种解决办法的，有兴趣的可以看一下
云召兄博客链接

二、出生日期与入校日期符合逻辑

@H_502_11@'判断日期是否符合逻辑 If Val(Left(txtRudate,4)) <= Val(Left(txtBorndate,4)) Then MsgBox "入学年份和出生年份逻辑错误，请重新输入",vbOKOnly +vbExclamation,"警告" txtBorndate.SetFocus '给当前记录做标签 Exit Sub Else txtsql = "select * from student_info" '执行查询操作 Set mrc = Executesql(txtsql,MsgText) '添加记录 mrc.AddNew '给每个字段赋值 …….

利用了VB中学到的 val left函数，这样判断的并不是很精细，想要更精细当然要在添加条件。
当然办法不只这一种，看了邵聪的博客说还可以将这两个日期赋为两个不同的整型值，在通过代码比较这两个值得大小，感觉这个办法也很不错。
更多的办法自己去探讨啦！

三、将子窗体设置在屏幕中间代码

@H_502_11@Me.Left = Screen.Width / 2 - Me.Width / 2 Me.Top = Screen.Height / 2 - Me.Height / 2

四、将选择文本框设置为自动显示第一条记录

@H_502_11@If comboSID.ListCount > 0 Then comboSID.ListIndex = 0 End If

五、查询修改内容是否与数据库中重复

@H_502_11@'查询方法一 'If Not (mrc.EOF Or mrc.BOF) Then 'mrc.MoveFirst 'While (mrc.EOF = False) 'If (Trim(mrc.Fields(0)) = Trim(txtClassno.Text) And Trim(mrc.Fields(1)) = Trim(combograde.Text)) Then 'MsgBox "班号或年级已经存在，请重新输入！",vbOKOnly + vbExclamation,"警告" 'txtClassno.Text = "" 'txtClassno.SetFocus 'Exit Sub 'Else 'mrc.MoveNext 'End If 'Wend 'mrc.Bookmark = mybookmark 'mrc.Delete 'mrc.addnew '...... '第二种查询方法 txtsql = "select * from class_info" Set mrcc = Executesql(txtsql,MsgText) If Not (mrcc.EOF Or mrcc.BOF) Then mrcc.MoveFirst While (mrcc.EOF = False) If (Trim(mrcc.Fields(0)) = Trim(txtClassno.Text) And Trim(mrcc.Fields(1)) = Trim(combograde.Text) And _Trim(mrcc.Fields(2)) = Trim(txtDirector.Text) And Trim(mrcc.Fields(3)) = Trim(txtClassroom.Text)) Then MsgBox "班号或年级已经存在，请重新输入！","警告" mrcc.Close txtClassno.Text = "" txtClassno.SetFocus Exit Sub Else '移动到下一条记录 mrcc.MoveNext End If Wend mrc.Delete mrcc.Close mrc.AddNew mrc.Fields(0) = Trim(txtClassno.Text) mrc.Fields(1) = Trim(combograde.Text) mrc.Fields(2) = Trim(txtDirector.Text) mrc.Fields(3) = Trim(txtClassroom.Text) mrc.Update MsgBox "更新数据成功！","修改班级信息" Else Exit Sub End If

六、设置年级课程，使已选课程不能重新加入

先判断后加入

@H_502_11@Private Sub cmdadd_Click() '判断是否有内容被选中(列表框的listindex属性用来指示当前选择项，-1说明没有没选中的数据项 For i = 0 To listselectcourse.ListCount - 1 If listselectcourse.List(i) = listallcourse.List(listallcourse.ListIndex) Then MsgBox "此项已添加，请勿重复添加！" Exit Sub End If Next If listallcourse.ListIndex <> -1 Then listselectcourse.AddItem listallcourse.List(listallcourse.ListIndex) End If End Sub