学生信息管理系统之恍然大悟（2）

昨天师傅来验收系统,让自己感觉一切不是问题的问题也变成了问题.主要大的修改有

 

1)修改密码窗口是不是该添加一个旧密码呢?这样显起来才合情合理.想想是啊!自己的那个密码修改的过程好似都有一个旧密码添加的过程啊!

解决难点:该如何和系统的密码联系起来呢?其实刚开始感觉挺难的,不过难的原因是因为你并没有把这个系统的代码弄明白,细细的去琢磨,发现其实很简单.

代码如下：

    txtSQL = "select * from user_Info where user_ID='" & username & "'"  '和系统的用户名联系起来，一一对应
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    If Trim(Text1(0).Text = "") Then
       msgbox "原密码为空，请重新输入！", vbOKOnly + vbExclamation, "警告"
    Else
       If Trim(Text1(0).Text <> Trim(mrc.Fields(1))) Then
       msgbox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
       Text1(0).SetFocus
       Exit Sub
       Else
    
          If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
             msgbox "密码输入不一样！", vbOKOnly + vbExclamation, "警告"
             Text1(1).SetFocus
             Text1(1).Text = ""
             
          Else
             txtSQL = "select * from user_info where user_ID='" & username & "'"
             Set mrc = ExecuteSQL(txtSQL, MsgText)
        
             mrc.Fields(1) = Text1(1).Text
             mrc.Update
             mrc.Close
             msgbox "密码修改成功!", vbOKOnly + vbExclamation, "修改密码"
             Me.Hide
          End If
      End If
    End If

2)整体格式,在验收的过程中,师傅说你看你们的窗体,大大小小,里边的格式也是玲玲乱乱,毫无整体感.

解决办法：这个问题上次记得米老师讲的ppt里就有相关的介绍，用户界面的设计。可以把他更改为固定的大小，让他显得就不那么的凌乱了！

3)领悟“方便”，做系统就是让人来用的，如果用你的用的感觉不方便，那还有谁会继续用你的？所以师父说一些小问题就得解决，如性别男女，是否就可以固定一个呢？比例一比一，这样就有一半的人省去选择的时间了！

4）对错误提示窗体的详细了解：

：

    If mrc.EOF = False And mrc.BOF = False Then  '表示指针在第一条记录和最后一条记录之间，肯定有记录
    If mrc.EOF = True And mrc.BOF = True Then    '表示没有任何记录
    If mrc.BOF = True Then                       '表示当前指针的位置在第一行之前
    If mrc.EOF = True Then                       '表示当前指针的位置在最后一行之后

此提示窗体则表示没有任何记录，我们可以也照葫芦画瓢，同样的添加提示窗体，让他不显示则可。例如在修改学籍信息时如果没有记录，我们则需要一个提示窗体告诉我们，

相关代码如下：

Dim txtSQL As String
Dim MsgText As String

  txtSQL = "select * from student_Info"
  Set mrc = ExecuteSQL(txtSQL, MsgText)
    
  If mrc.EOF = True And mrc.BOF = True Then
     msgbox "没有记录，请先添加记录！", vbOKOnly + vbExclamation, "警告"
        frmAddsinfo.Show
        Exit Sub
  Else
       
    frmmodifysinfo.Show
  End If