学生信息管理系统优化

1·vb中text输入时tab跳转到下一个text

设置text1的tabindex属性值为0，text2的tabindex属性值 为1即可

 

2·VB的程序窗口固定大小

更改窗体的BorderStyle属性为FixedSingle或Fixed Dialog或Fixed ToolWindow

也可以使用代码Me.BorderStyle = 1或 Me.BorderStyle = 3或 Me.BorderStyle = 4

一般使用FixedSingle，即 Me.BorderStyle = 1

 

3·vb编程里，如何实现点击窗体中一个文本框出现日历控件,然后可以选择相应的日期,填入文本框,日历控件消失?

首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1，排列好它们两个的位置即可，属性使用默认。然后复制以下代码到form1的代码窗口里运行即可看到结果（如图）：

<span style="font-size:18px;">PrivateSub Form_Load()
    MonthView1.Visible = False
EndSub
PrivateSub Text1_Click()
    MonthView1.Visible = True
EndSub
PrivateSub MonthView1_DateClick(ByVal DateClicked As Date)
    Text1.Text = MonthView1.Year &"-" & MonthView1.Month & "-" & MonthView1.Day
    MonthView1.Visible = False
EndSub</span>

4·combox控件只允许选择下拉列表框中的内容

combox这是选择框，不应该还能往里边输入文本，这里的style属性有3个，应该设为style=2(Dropdwon List)下拉列表组合框，不接受文本输入;style=0 （Dropdown Combo）可以下文本框内输入 ；style=1(Simple Combo)列表项目始终显示在列表框中。

5·学号只能由数字组成

<span style="font-size:18px;">Private SubtxtSID_KeyPress(KeyAscii As Integer)
'学号只能输入数字
    If (KeyAscii < 48 and KeyAscii >= 9Or KeyAscii > 57 or KeyAscii<8) Then
        MsgBox "学号只能由数字组成！", vbOKOnly+ vbExclamation, "警告"
        KeyAscii = 0
    End If
End Sub</span>

6·在程序删除最后一条数据是产生实时错误3021，关于BOF EOF

关于问题的解决推荐子腾的解决方法：http://blog.csdn.net/liuziteng0228/article/details/51407558

7·在学生学号或电话号码中输入较长的数会产生错误

关于这个问题腾儿的博客也有详细的问题说明和解决方法：http://blog.csdn.net/liuziteng0228/article/details/51476798