学生信息管理系统
Grace-tt
一枚非常上进的小白
展开
-
On error goto 捕捉错误语句
On error goto 捕捉错误语句一般有下面三种1.on error goto 0 :出现错误程序终止执行,报出错误信息2.on error resume next:程序出现错误会跳过当前的错误语句,继续执行后面的语句,不会弹出错误提示信息3.on error goto line:出现错误会跳到line行,激活错误处理程序,需要自己写错误处理程序,特别是一些可以预见到的错误举例说明...原创 2019-05-02 19:53:14 · 7677 阅读 · 19 评论 -
学生修改信息之‘3021’问题
在敲学生的时候,经常出现‘3021’问题,当BOF或EOF中有一个为真时,就会出现’3021‘的错误,出现这个问题的原因主要是查找的数据库当中没有数据,在修改学籍信息的时候,将所有的数据删除就报错,可以添加一个on error goto line 错误捕捉语句,出现3021问题的时候弹出提示框提示没有学籍信息,需要先添加学籍信息,代码如下:Private Sub cmddelete_Click(...原创 2019-07-28 16:28:00 · 307 阅读 · 22 评论 -
学生之设置课程重复问题优化
问题一:在设置课程窗体中,课程会重复添加,下面的代码可以避免课程的重复添加,利用 for… next进行循环判断Private Sub cmdadd_Click() Dim selectcourse As Integer Dim i As Integer Dim j As Integer If Listallcourse.List(Listallc...原创 2019-07-29 10:59:37 · 492 阅读 · 33 评论 -
学生之限制下拉框不可编辑
再敲学生的时候,经常用到下拉框,很容易对下拉框进行误编辑,这时候就需要将下拉框设置成只可以下拉不可以编辑的。最初的时候改了一下combox的style属性,将其改为2,但是改完之后会发现如下错误所以直接将style改为2是不可以的,下面的方法可以实现:将style属性改回0然后添加下面一行代码,通过keypress,限制不能键盘输入Private Sub combograde_KeyPr...原创 2019-07-29 09:24:00 · 486 阅读 · 28 评论 -
学生之修改学籍信息窗体的记录查询
ADO的movefirst, movelast, movenext, moveprevious 方法 将指定Recordset对象中移动到第一个,最后一个,下一个或前一个使该记录成为当前记录语法:recordset.{MoveFirst,Movelast,MoveNext,MovePrexious}用法:使用movefirst 方法将当前记录位置移动到Recordset中的第一个记录使...原创 2019-05-21 21:31:32 · 403 阅读 · 15 评论 -
学生信息管理系统之添加学籍信息窗体
限制数据类型1.文本框中只允许输入数字方法一:If IsNumeric(trim(txtSID))=false then (或者这样写:if not IsNumeric(trim(txtSID))) then Msgbox "请输入数字!",vbokonly + vbexclaimation,"警告" txtSID="" txtSID.setfocus Exit subEnd ...原创 2019-05-04 21:25:24 · 931 阅读 · 15 评论 -
数据库中的单引号双引号和&符号的用法和区别
在sql语句中经常会用到单引号双引号和&,下面以insert语句为例,select,update,delete语句都是一样的1.插入字符串型插入名字为张红的人,是字符串,所以insert语句当中名字两边要加单引号strsql=“insert into mytable(username) values('张红') ”如果名字变成了一个变量 thename,语句要写成:strsql...原创 2019-05-04 21:12:38 · 13900 阅读 · 16 评论 -
添加学籍信息字段长度报错
在添加学籍信息的时候,出现了下面这一个错误:多步 OLE DB 操作产生错误。如果可能,请检查每个OLE DB状态值。没有工作被完成出现这个错误的原因是自己输入的字段内容长度和数据库要求的字段内容长度不一致导致的,需要查看数据库字段进行修改有的时候不能对数据表进行操作,操作之后无法保存解决方法:Sql server工具-选项-设计器-取消勾选阻止保存要求重新创建表的更改数据类型...原创 2019-05-02 20:19:10 · 546 阅读 · 14 评论 -
学生模块中出现的函数
split()函数:操作字符串的函数,将一个字符串分割为子字符串,结果是一个下标从0开始的子字符串的一维数组Dim sTokens As StringsTokens=Split(SQL)如果sql语句为: “SELEC * FROM…”,则函数返回的是sTokens(0)=SELECT; sTokens(1)=*; sTokens(2)=FROM.byval:by value 参数...原创 2019-05-02 20:04:19 · 212 阅读 · 22 评论 -
学生修改学籍信息窗体之下表越界问题
学籍信息查询窗体用到了MSFlexgrid控件显示查询出来的信息,再敲的过程中出现了下表越界的问题产生下表越界问题的原因是Msflexgrid控件的列不够的原因,因为默认的是两行两列,但是再查询学籍信息的时候,需要很多列,所以当列不够的时候,就会报这个错误,这个时候只需要改一下这个控件的列的属性,改成我们需要的就可以了。...原创 2019-07-28 16:34:13 · 657 阅读 · 22 评论