学生信息管理系统优化

一：添加的课程不能相同，不切实际

情况如下：

       

解决办法：添加如下代码：

       

 二：修改密码时添加原密码，这样可以知道修改的是哪一个密码，更直观的是在修改时显示当前用户名

 添加如下代码：

      

运行时显示当前用户名：

      

三.控制文本框输入的内容，如学号只能输入数字（防止特殊符号输入）

添加如下代码：

      

四.控制输入的长度

解决方法：

        修改MaxLength 属性就行（要结合数据库里的数据类型）

遇到的问题：

         当我把Text1的MaxLength属性设置成11时，数据库表中数据类型设置成char(11)时，当我再次修改学号时直接添加，  添加不 进去，删除在添加可以输进去

分析原因：没有真正理解数据类型

         char(k) 固定长度，当输入的位数 n 不足k（k-n>0））时，系统自动将后面缺少的（k-n）位补上英文空格，当我先前在 Text中输 入了33时，系统自动补上了后面的9位，此9位就是没具体显示出来，此时Text中的内容以为11位了，当我修 改时直接添加， 就超出了11位，所以无法输入

 数据类型有待理解.......

五.分析符号作用

txtSQL =  "select * from student_info where student_id =  '    "   & Trim(txtSID.Text) &   "  '   "

说明：

黄色中的双引号作用：引用字符串

橘色中的双引号作用：vb中引用的字符串

蓝色中的双引号作用：数据库中引用的字符串

&的作用： 连接字符串，不是表示 引用字符串

六：数据类型有关问题：

1.字符串比较大小：

方法：

依次比较每个字符，直接出现差异、或者其中一个串结束为止。

举例说明：

1.ABC与ACDE比较，第一个字符相同，继续比较第二个字符，由于第二个字符是后面一个串大，所以不再继续比较，结果就是后面个串大。

2.ABC与ABC123比较，比较三个字符后第一个串结束，所以就是后面一个串大。总结：

所以，长度不能直接决定大小，字符串的大小是由左边开始最前面的字符决定的。

2.类型分析：

     该student表中有如下数据： student—ID数据类型设为varchar（50）时

        

 

       

A.情况，语句中查询条件为 数值型，一个字符串型一个数据型，这时查询结果可能会出错

      1>当我在查询中输入图中语句，查询结果为

           

   2>

           

 3>

           

 

B情况：语句中查询条件为 字符串类型，即两个字符串类型比较大小

  1>与A中情况相同

         

 2> 与A中情况不同,搜索结果第1条符合上面举例说明中的2，结果中的第2条符合上面举例说明中的1

        

 3>此时无符合条件的记录，结果符合上面举例说明中的1情况

        

 七.每次在弹出对框话时，原来的窗体就会隐藏，点击按钮后，窗体就会重新出现。

原因：

    borderstyle设为3，minbutton设为了false，如果borderstyle改为一，就不会出现这种情况

3-vbFixeddialog 为固定对话框。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸。

下面是有关两者的属性：

1.若BorderStyle属性为0，则无论maxbutton和minbutton如何改变，都不会出现最大化，最小化和关闭按钮。

2.当BorderStyle属性为1，则maxbutton属性为true时，最大化可见并可用。minbutton按钮为true时，最小化按钮可见并可用。当然属性为 false时是不可用，但可见。

3.当BorderStyle属性为2，若maxbutton和minbutton按钮同为false时，最大化与最小化同为不可用且不可见。若maxbutton和minbutton按钮任 一个为true,另一个为false时，最大化与最小化都可见，但为true属性的可用，false的不可用。当两者同为true时，最大化与最小化皆可见 及可用。

4.当BorderStyle属性为3，无论maxbutton与minbutton属性是什么，最大化与最小化都是不可见及不可用。

5.当BorderStyle属性为4，同BorderStyle属性为3时。

6.当BorderStyle属性为5，同BorderStyle属性为3时。

 八.当用到日期时，添加日期部件比较方便（添加圈出的部件）

       

编写代码：

Private Sub txtBorndate_Click()
BornMonthView.Visible = True
End Sub

Private Sub BornMonthView_DateClick(ByVal DateClicked As Date)
txtBorndate.Text = BornMonthView
BornMonthView.Visible = False
End Sub

添加后，程序还要符合实际情况，即出生日期要小于入学日期

添加如下代码：（用到两个函数））

If DateDiff("d", CDate(txtBorndate.Text), txtRudate.Text) < 0 Then
             MsgBox "出生日期应比入学日期早！", vbOKOnly + vbExclamation, "警告"
             txtBorndate.Text = ""
             txtRudate.Text = ""
            txtBorndate.SetFocus
            Exit Sub
      End If