学生管理系统(八)---优化
来源:互联网 发布:scilab 矩阵作差 编辑:程序博客网 时间:2024/05/24 16:15
前言:
上一篇是关于属性和代码的优化,这次主要是根据平时的习惯来进行的优化。
内容:
1、添加成绩窗体中,通过班号和学号可以确定该生的姓名,所以该生的姓名就不可以输入,只是显示出来就可以了,所以可以用label控件来显示。且学号的combo框被单击的时候进行响应。
Private Sub comboSID_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String '通过学号,显示姓名 txtSQL = "select*from student_Info where student_ID= '" & comboSID.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) txtName.Caption = mrc!student_Name mrc.Close End Sub
2、添加学籍信息窗体中,使入校日期大于出生日期
If CDate(txtBorndate.Text > txtRudate.Text) Then MsgBox "入校日期不能小于出生日期,请重新输入!", vbOKOnly + vbExclamation, "警告" txtRudate.Text = "" txtRudate.SetFocus End If
3、联系电话最长输入11位
我们可以限制联系电话的长度:
Private Sub txtTel_Change() if txtTel.length>=11 then msgbox "请输入正确的手机号码" end ifEnd Sub
这只是咱们的习惯,手机号一般为11位,但是所给的数据库中的长度为10位,如果输入11位的手机号,会显示如下错误:
所以我们需要对数据库进行更改,具体做法如下:
此时允许我们对数据库进行修改,之后:
改为char(11),限制长度为11位!
4、“3021”的错误
之前解决了窗体没有记录出现“3021”的错误,如果要是只有一条记录,继续点击上一条记录这个时候也会出现“3021”的错误:
这个时候只需在按钮的单击事件下加上一行代码:
On Error Resume Next
5、“mrc=nothing” 之类的错误也经常出现,出现的原因是没有传过来值,大多数情况下是自己代码出错的原因,回头看看自己的代码有没有敲错的,或者数据库里的数据类型有没有和自己需要的不相符的,ODBC数据源有没有问题等等。
总结:
这是优化的整体部分了,最近的总结感觉自己又收获了很多,还是要给自己一个忠告:以后做项目的时候出现问题一定要及时总结,记下出现的问题以及如何解决的,这样以后出现的时候就会理解当时的心情以及解决办法了!还有代码格式一定要规范,大小写,标点符号,适当的空格,这些都是需要注意的地方。
阅读全文
0 0
- 学生管理系统(八)---优化
- 学生管理系统(七)---优化
- 学生管理系统优化总结(一)
- 学生管理系统总结之性能优化
- 学生管理系统(图)
- 学生管理系统(三)
- 学生管理系统(四)
- 学生管理系统(五)
- 学生管理系统(未完)
- 学生管理系统(JAVA)
- 学生管理系统(1)
- 学生管理系统(文件)
- 学生管理系统(通讯录)
- 第一次优化后---学生管理系统(层次分明的设计)
- 学生信息管理系统优化(一)
- 学生信息管理系统优化(一)
- 学生信息管理系统优化(二)
- 学生信息管理系统优化(三)+心得
- 数据库隔离级别详解
- Eclipse不能启动Genymotion plugin
- 热门关键字
- 并发锁
- 还是不想来这里发文章了,程序框图截图居然不显示,以后在城里城外的QQ空间发布文章了
- 学生管理系统(八)---优化
- 状态机按键扫描
- Error
- 四轴飞行器1.4 姿态解算和Matlab实时姿态显示
- Hive安装和配置
- WebService的基础整合ssh框架的应用
- Java的几种对象(PO,VO,DAO,BO,POJO)解释
- PAT——1020月饼
- 面向虚拟现实更新旧版 Unity* 游戏