学生信息管理系统 — 优化篇(二)

  前两天去找师傅验项目了，师傅给指出好多没有优化的地方，师傅告诉我设计软件时候一定要站在 用户的角度去设计软件，方便用户，把软件设计的简单又便捷，我们设计软件的初衷不就是这样的吗。

好了，接下来来说下我最新优化的内容 :

 

  (1) 上篇我们介绍到了文本框限制字符，那么除了 用代码去限制字符还有一种方法，就是在控件属性去更改。

            例：  TextBox文本框，找到 “Maxlength”属性，设置它就可以设置文本限制字符的输入量，

                                       

    在学习VB的过程中，我们要掌握好控件使用和各种性能和作用，在我们以后的学习中用处会很大。

      我们在来看看  ComBox控件怎么去禁止输入字符  这个控件简单的方法也是去更改属性，   找到Style属性，改为Dropdownlist,   这样文本框就不会在输入字符了。

                                    

                多去了解控件的使用和方法，这样才能玩转VB！

 

(2)窗体自动清空文本框内容

      我们在修改密码的时候关闭窗口再进去，或者有时候进去，文本框内容还有显示的密码和记录，这时候站在用户的角度我们就要给它去添加代码，设置成自动清空文本框。

   在确定键添加代码如下：

         

Dim ctrl                  '定义变量


          ...


         For Each ctrl In Me.Controls            


                     If TypeOf ctrl Is TextBox Then         ’在文本框里进行运算


                              ctrl.Text = ""                 ’运行完之后文本框为空


                     End If 


                     Next

 

(3)修改课程重复问题 

    在设置课程的时候，如果点击一科的课程，就会反复，一直添加，一科的数目不能添加那么多，说一我们添加代码去s

代码如下：

Private Sub cmdAdd_Click()
   
   Dim i As Integer       '定义两个变量
   Dim n
   
   For i = 0 To listSelectcourse.ListCount - 1     '在列表中循环找一遍
   n = (listSelectcourse.List(i))
   
   Next
   
                              '判断内容是否被选中：  课程重复问题
    If listAllcourse.ListIndex <> -1 Then
        If Trim(listAllcourse.List(listAllcourse.ListIndex)) = Trim(n) Then
            MsgBox "不能重复添加课程", 48, "警告"
        Else
            listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
        End If
    End If

     在修改完代码之后，课程就不会重复的添加了，而且 还会出现提示  “不能重复添加”。

              

(4)日期控件的使用 （出生日期不得大于入校日期）。

      首先我们点击 工程 — 部件 —  Microsoft  Windows  Common Controls - 2 6.0 然后点击应用和确定，找到DTPicker 控件，添加到出生日期 和入校日期，并却把原先的 Text 文本框给替换掉。

  代码如下：

                                     '设置出生日期不得大于入校日期
         If txtBorndate.Value >= txtRudate.Value Then
           MsgBox "出生日期不得大于或等于入校日期，请您重新输入！", vbOKOnly + vbExclamation
           txtBorndate.SetFocus     '设置个两个窗体焦点
           txtRudate.SetFocus
           Exit Sub
        End If

    注意： 我是把 DTPBorndate,换成了txt的格式，注意把每个对象名称改一下，让属性对象和代码互相匹配，还有后面的后缀名称，改成  .Value

               

If txtBorndate.Value >= txtRudate.Value Then

   

(5)窗体大小的设置

    在MDI子窗体是不能设置 “屏幕中心”，“所有者中心” 等内容的，需要在窗体里加写代码才可以让窗体大小改变。

 这样的窗体看着很别扭，和屏幕一点都不协调，而且每次还得下拉窗体才能展示全部，

       

我们来更改下窗体代码的大小

  代码如下：

Private Sub Form_Load()
                                     '让窗体的高和宽等于屏幕的大小   Screen 屏幕的意思

    frmModifyuserinfo.Width = Screen.Width      ’让窗体宽度和屏幕相等
      
    frmModifyuserinfo.Height = Screen.Height    ’让窗体的高度和屏幕相等

End Sub

           这样的话窗体就能和屏幕居中ba