注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

邢玉 廊坊师范学院信息技术提高班 十一期

自己选的路,就算跪着也要走完!

 
 
 

日志

 
 

学生信息管理系统系列博客之优化二  

2014-08-01 21:11:58|  分类: 学生信息管理系统 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

全心全意为人民服务是没有尽头的……所以继续优化我的系统!!

优化5、设置课程不可重复

当我们为年级设置课程时,需要从所有课程中为每个年级设置相应的课程,但总是能重复添加。所以我们需要一段代码控制不能重复添加课程。代码如下:

Private Function addlist(list As ListBox, str As String) As Boolean

'自定义函数,保证每次添加时,只能添加某项一次

      Dim i As Long

      For i = 0 To list.ListCount - 1

        If list.list(i) = str Then

         Exit Function

        End If

      Next

          list.AddItem str

          addlist = True

End Function

Private Sub cmdAdd_Click()

'添加时要调用不重复添加的自定义过程

If listAllcourse.ListIndex <> -1 Then

 Call addlist(listSelectcourse, listAllcourse.list(listAllcourse.ListIndex))

End If

End Sub

这样用户就不能重复的添加课程啦……

优化6、当查询学籍或成绩时,没有记录需要提醒

我们在查询时,如果有我们查询的,结果会弹出来,但是当没有时,就没有任何的反应,所以我们要在没有查询结果时,给用户一个提示。代码如下:

If mrc.EOF = True Then

   MsgBox "没有该记录!", vbOKOnly, "提示"

   Check1(0).Value = False

   Check1(1).Value = False

   Check1(2).Value = False

   txtSID.Text = ""

   txtName.Text = ""

   txtCourse.Text = ""

 End If

注意:此段代码一定要加在Set mrc = ExecuteSQL(txtSQL, MsgText) 之后,因为这句之上是查询之后,将表拿过来放在记录集中,之后我们判断是不是在记录集在中没有此项记录。

优化7、一下清空所有的文本框

每当我们要添加信息的时候,窗体弹出,每个文本框应该是空的,这样更方便用户添加。但是在代码中,我们就必须把每个框清空,写好多行的代码。我们可以用一个循环一下清空所有的文本框,代码如下:

Dim ctrl As Control

For Each ctrl In Me.Controls

If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox

 ctrl.Text = ""

 End If

 Next

优化8、限制某些文本框只能输入数字

例如学号文本框和联系方式文本框只能输入数字,如果有的用户输入别的话,会提示。代码如下

Private Sub Text1_change()

 '非数字校验~

If IsNumeric(Text1.Text) = False Then

   MsgBox "请输入数字!", 48, "错误提示"

   Text1.Text =""

   Text1.SetFocus

   Exit Sub

End If

Endsub

优化的地方我就想到了这么多,看来要想做到全心全意为人民服务真不是一件容易的事呀!!!

 

  评论这张
 
阅读(71)| 评论(37)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017