——【学生信息管理系统】
TGB-Earnest
一位热爱英语的人
展开
-
学生管理系统调试--实时错误(实时错误‘3021’)
大家在敲学生信息管理系统时,经常会遇到这种情况: 数据库中没有添加记录,但我们点击修改记录时,会出现如下提示: 首先,我们先让我们了解一下什么是EOF和BOF吧。 BOF:指当前记录位置位于Recordset对象的第一个记录之前; EOF:指当前记录位置位于Recordset对象的最后一个记录之后。 这两个的属性值均返回布尔型:True和False,使用BOF和 EOF 属性可确...原创 2018-08-20 18:08:17 · 674 阅读 · 13 评论 -
【学生信息管理系统优化之字符限制】
一、TextBox字符长度限制 属性栏里的Maxlength更改想要的字数 取消按钮:me.hide 二、这种可以限制特殊字符、数字、空格。只能输入汉字和字母。 Private Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 Then ...原创 2018-09-16 10:47:51 · 346 阅读 · 4 评论 -
【学生信息管理系统优化之代码】
一、如何清空textbox和combobox dim ctrl '清空textbox类型的文本框 For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then ctrl.Text = "" End If Next '清空combobox类型的文本框 ...原创 2018-09-16 10:59:03 · 363 阅读 · 1 评论 -
【学生信息管理系统优化之DTPicker控件使用】
DTPicker日期控件运用 VB默认的控件栏中是没有DTpicker日期控件的,其添加过程:工具-部件-控件-“Microsoft Windows 在我们工具箱就会显示出这么几个控件,日期添加这两个都是可以使用的,一个是Mothview另一个就是DTPicker,这里建议大家使用第二个。 添加控件,把之前的给替换掉但是不要忘记把新添加上的属性名称改一下,要不和代码里的不匹配。 在...原创 2018-09-16 11:02:49 · 741 阅读 · 3 评论 -
【学生信息管理系统优化之无修改但显示修改】
一、当点修改信息之后,点更新数据(并没有更改东西),仍然显示更新数据成功。 第一部: Dim flag1(4) As Boolean Private Sub editCommand_Click() Dim i As Integer '先循环 先使它为true For i = 0 To 3 flag1(i) = True Next i 第二部: Priva...原创 2018-09-16 11:24:32 · 339 阅读 · 1 评论 -
【学生信息管理系统优化之修改密码窗口】
一、如何让文本框获得焦点 Me.show text1.setfocus 如何您只输入setfocus会出错。 二、主要代码如下: Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset Dim ctrl As Control ‘判断输入用户名是否为空 If Not Testtxt(Text1.T...原创 2018-09-16 11:26:44 · 1066 阅读 · 2 评论 -
【学生信息管理系统之设置年级课程信息】
点击按钮会重复添加课程 Private Sub cmdAdd_Click(Index As Integer) Dim i As Integer '定义两个整型变量 Dim j As Integer '往 listSelectcourse列表中添加课程 If listAllcourse.ListIndex <> -1 Then ...原创 2018-09-16 11:30:00 · 464 阅读 · 3 评论