学生信息管理系统完工已经有一段时间了,但是问题却像小草一样,野火烧不尽,春风吹又生。下面我们一起来看看几个常见的问题,这些问题你是否也曾遇到过。
1,对于文本框的内容是否设置了字符长度
由于数据库中的内容有长度限制,那么当我们在文本框中不做任何操作时,会出现这样的提示
2,没有查询结果时,是否注意了要弹出提示
在做学生信息管理系统时,查询信息你是否注意到了呢?如果你是用户,当你查询结果时,它时时不出来,是没有信息呢,还是仍在加载?所谓全心全意为人民服务就是要我们设身处地的为用户着想。
3,选择列表框:需要选择的内容是否还可以输入
对于下拉列表框的使用,不是我们不会,只是我们没有去思考,理所当然的认为只要功能实现,我们就大功告成了,如果是这样我们就大错特错了,不是都说细节决定成败,当然现在还不至于那么严重,只是会告诉你不合格,继续改而已,但是任何习惯的养成都是我们日常点滴的积累,如果平时都不去注意,那么你想如何成为一名优秀的程序员呢?
当然在设置过程中,还出现了一段小插曲,我们知道,列表框的Style属性是设计时属性,那么如果我们将它改成只读的,那么当修改时,需要从数据库读出数据显示的时候就会提示我们错误
对于这个问题,我们也想到了一个好玩的方法解决,来看一下这段代码,嘿嘿!
Private Sub ComGra_KeyPress(KeyAscii As Integer)
KeyAscii = 0 '不允许用户输入
End Sub
4,当表中没有任何记录
我们先来看看它的错误提示
对于这个问题,一种方法我们可以添加错误处理,另一种方法即在显示窗体前加如下代码
Private Sub modifycoursemenu_Click()
Dim txtsql As String
Dim msgtext As String
Dim mrc As ADODB.Recordset
txtsql = "select * from course_info "
Set mrc = executesql(txtsql, msgtext)
If mrc.EOF And mrc.BOF Then
MsgBox "数据为空,请先添加数据", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
frmmodifycourseinfo.Show
End If
End Sub
5,多次点击修改更新时,是否出错
我们先来看一下出现这个问题的原因,错误代码
Dim txtsql As String
Dim msgtext As String
Dim mrcc As ADODB.Recordset
mrc.Delete '删除以前的那个表,然后重新输入,更新
txtsql = "select *from class_info where class_no= ' " & Trim(TxtNum.Text) & " '"
Set mrcc = executesql(txtsql, msgtext)
If mrcc.EOF = False Then
'mrcc的作用主要是查找注册表里是否还存在着重新输入的内容
MsgBox "输入班号重复,请重新输入", vbOKOnly + vbExclamation, "警告"
TxtNum.SetFocus
mrcc.Close
Else
mrcc.Close '不存在的话,就将输入的内容添加到mrc中
mrc.AddNew
mrc.Fields(0) = Trim(TxtNum.Text)
mrc.Fields(1) = Trim(ComGra.Text)
mrc.Fields(2) = Trim(TxtTec.Text)
mrc.Fields(3) = Trim(TxtGra.Text)
mrc.Update
MsgBox "修改班级信息成功", vbOKOnly + vbExclamation, "警告"
Call ViewData
Frame2.Enabled = True
TxtNum.Enabled = False
ComGra.Enabled = False
TxtTec.Enabled = False
TxtGra.Enabled = False
Frame1.Enabled = True
CmdFir.Enabled = True
CmdPre.Enabled = True
CmdNext.Enabled = True
CmdLast.Enabled = True
mcclean = True
End If
End Sub
在这个过程中,聪明的你不难发现,如果当输入的班号相同时,它就会重复删除两次,提示错误
错误改正,代码如下:
Dim txtsql As String
Dim msgtext As String
Dim mrcc As ADODB.Recordset
Dim update As Boolean
If update = False Then '还未进行过删除
mrc.Delete '删除以前的那个表,然后重新输入,更新
update = True '已经删除了一次
End If
txtsql = "select *from class_info where class_no= ' " & Trim(TxtNum.text) & " '"
Set mrcc = executesql(txtsql, msgtext)
If mrcc.EOF = False Then
'mrcc主要是查找注册表里是否还存在着重新输入的内容
MsgBox "输入班号重复,请重新输入", vbOKOnly + vbExclamation, "警告"
TxtNum.SetFocus
mrcc.Close
Else
mrcc.Close '不存在的话,就将输入的内容添加到mrc中
mrc.AddNew
mrc.Fields(0) = Trim(TxtNum.text)
mrc.Fields(1) = Trim(ComGra.text)
mrc.Fields(2) = Trim(TxtTec.text)
mrc.Fields(3) = Trim(TxtGra.text)
mrc.update
mrc.MoveLast
MsgBox "修改班级信息成功", vbOKOnly + vbExclamation, "警告"
update = False '写回没有删除的状态
Call ViewData
Frame2.Enabled = True
TxtNum.Enabled = False
ComGra.Enabled = False
TxtTec.Enabled = False
TxtGra.Enabled = False
Frame1.Enabled = True
CmdFir.Enabled = True
CmdPre.Enabled = True
CmdNext.Enabled = True
CmdLast.Enabled = True
mcclean = True
End If
End Sub
当然在窗体加载时将update=false,即加载时未进行过删除
以上这些问题都是我们在做系统时,最容易忽视的,也是最常见的,想要作为优秀设计人员,我们要学的不仅仅是一些算法,更不要为了做程序而做程序,在这个过程中,我们要不断的学习和总结,像这样的错误在设计初期就应该避免。
出现这些问题,也告诉我们以后做任何事情都需要有前瞻性,不仅仅是设计软件,在学习和生活中,做事情之前,想一想这件事情会出现什么错误,什么困难,提前避免和处理,让自己的效率得到提高。
分享到:
相关推荐
UML系统设计(学生信息管理系统)
学生信息管理系统数据流图汇总.doc
pring boot+spring mvc+mybatis+thymeleaf整合开发学生成绩信息管理系统 项目描述 学生成绩管理系统,有三个用户,学生,管理员,教师。管理员可以对学生、教师信息增删改查。教师可以批改学生作业,并且通过echart...
此软件功能齐全,设计合理,使用方便,适合各种学校对繁杂的学生信息进行统筹管理: 1.软件可以供不同角色的用户使用,而由超级用户来指定每个用户的操作权限。 2.班级管理子功能可以对全校的班级进行汇总,以及...
中小学生学籍信息管理系统常见问题汇总.doc
学生信息管理:添加,删除,修改学生信息等。 授课信息管理: 对授课教师,课程号,学时数,班级等信息的添加,维护等。 学生信息查询: 对学生成绩等信息的查询,查询方式为模糊,且具有多条件组合查询功能。 ...
学生成绩管理系统,有三个用户,学生,管理员,教师。管理员可以对学生、教师信息增删改查。教师可以批改学生作业,并且通过echartjs对学生成绩汇总统计,横向比较可以查看某个班级某门课及格、优秀等成绩段占比。...
5、可以设置,修改,增加学生信息,也可以批量增加学生信息,批量增加的学生姓名都是学生编号,可以学生登录后台后自己修改姓名等信息,学生增加的时候必须选择相关的班级。 6、可以设置,修改,增加课程信息,包括...
学生成绩管理系统.mdb学生信息管理系统可以进行学生的档案管理、成绩管理,课程信息管理以及教师档案和授课管理,学生可以进行选课,选课的信息存入数据库;学生可以查询课程的设置;可以查询已选修课程的成绩。管理...
学生信息管理:添加,删除,修改学生信息等。 任课信息管理: 对授课教师,课程号,学时数,班级等信息的添加,维护等。 学生信息查询: 对学生成绩等信息的查询,查询方式为模糊,且具有多条件组合查询功能...
(3)管理员对学生的信息进行编辑的学生信息管理模块的实现。 (4)管理员对各科课程信息进行编辑的课程信息管理模块的实现。 (5)实现管理员对每名同学的成绩的添加、修改和删除的成绩信息管理模块的实现。 (6)...
该模块主要是对每个班级的基本信息进行有效管理,包括学生个数、学生信息、班干部信息、教师信息等。 (4)课程信息管理 该模块主要存储所有的课程信息,教师、学生等可以根据使用查询自己的课程信息。 (5)成绩...
Excel 强大的数据管理功能!使其得到了广泛应用"现在很多公司企业单位都利用Excel进行各种数据的统计汇总除了函数之外! Excel 还给我们提供了另外一个强大的工具VBAVBA(Visual Bas ic for Application)是MS office ...
此软件功能齐全,设计合理,使用方便,适合各种学校对繁杂的学生信息进行统筹管理: 1.软件可以供不同角色的用户使用,而由超级用户来指定每个用户的操作权限。 2.班级管理子功能可以对全校的班级进行汇总,以及...
高考信息管理系统2013年暑假项目实训-2012级题目 题目:《SISE高考预录数据信息管理系统》 2012年华软学院高考招生录取开始,招生办6月20日得到第一批学生成绩明细表文件格式如下: 表一 该汇总表共有学生25人,...
学生基本信息的基本项如下: 学号,姓名,所属院系,专业,班级,年级,性别,出生年月,籍贯民族,家庭住址 邮政编码,政治面貌,家庭电话 缴费表的基本项如下: 学号,姓名,专业,班级,缴费时间,应交费用,已...
2,关系型数据库管理系统的编程技术,并能独立完成一般小系统的程设计、调试运行等工作。 3, 培养把所学知识运用到具体对象,并能求出解决方案的能力。 b),要求: 1,E-R图设计; 2,创建数据库、数据表等; 3...