学生信息管理系统

        李嘉诚说过“富人=接受+学习，穷人=怀疑+拒绝”。尽管米老师也在不断的提起这句话，但自己起初对这句话没有很好的体会，但这段时间借助对学生信息管理系统的学习过程对这句话有了更深的体会。

    起初在刚刚接触学生时感觉一切都很陌生，很难，有一种抵触心理，可不学不可以啊，就慢慢开始接受这个现实，从数据库的连接开始一点一点的学习，不知不觉就到了现在，也通过了师傅的验收，回想这段时间感觉自己真的收获到不少知识，最重要的一点是自己对代码已经产生了兴趣，不在想以前一样看见那么多的代码就抵触了。我想这个过程就是接受+学习的过程，只要在以后遇到的每一件有意义的事上都抱着接受+学习的态度，我们一定会成为“富人”。

 我的小小总结：（宏观）
        1）是如何去敲学生的代码问题：在这一点我做的不好。我是把所有的窗体和代码全部都照着源码来完成的，然后才进行调错美化界面。师傅给出的建议是应该把增删改查分类来完成，开始不会不熟悉可以照着源码敲一个，然后自己看会其中的原理，剩下的相似的功能不要看源码自己分模块来完成，并且不要把代码调错放到最后。这样效果会更好。

        2）是数据库的建立问题：在数据库上我也大打折扣了，没有自己重新建数据库而是直接利用了学生中现成的数据库。师傅给出的建议是自己仿照给出的数据库自己去建，这样理解会更好。在接下来的机房收费系统中要注意这一点。

 我的小小总结：（微观）      

       1）如何使日期的输入更方便?

在窗体中加入控件：

           工程——引用——Microsoft ActiveX Data Objects 2.8 Library

并添加如下代码：

Private Sub Form_Load() 
MonthView1.Visible = False
End Sub
Private Sub txtBorndate_Click()
    MonthView1.Visible = True
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day
    MonthView1.Visible = False
End Sub

2）在修改班级信息时，如果按时，记录会循环显示，很容易使人误认为记录有很多条。如何判断记录到达第一条并当记录到达第一条时就显示提示语“已是第一条记录”？

将源码
'Private Sub previousCommand_Click()所有记录循环显示
'  mrc.MovePrevious
'  If mrc.BOF Then
'   mrc.MoveLast
'  End If
'  Call viewData
'
'End Sub
改为如下代码，通过BOF增加一个判断
Private Sub previousCommand_Click() '记录不循环显示
    mrc.MovePrevious
    If mrc.BOF Then
    mrc.MoveFirst
    MsgBox "已是第一条记录"
    End If
  Call viewData
End Sub

 

3）在没有记录的情况下点击修改记录总是跳出错误，如何避免呢？

对EOF,BOF进行判断，即在源代码基础加上加上如下红色语句 
Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    txtSQL = "select * from student_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF And mrc.BOF Then
        MsgBox "没有记录可以修改！"
    Else
    mrc.MoveFirst
    Call viewData
    mcbookmark = mrc.Bookmark '做标记
    mcclean = True
   End If
End Sub

   

4）在更改密码时，添加输入旧密码（输入的旧密码与当前登陆的密码进行比较），当输入的旧密码正确时才可以对密码进行更改，增加安全性。

Private Sub cmdOk_Click()
  Dim txtSQL, MsgText As String
  Dim mrc As ADODB.Recordset
    txtSQL = "select * from user_Info where user_ID = '" & UserName & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
  If Trim(mrc.Fields(1)) = Trim(Text2.Text) Then
  If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
     MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
     Text1(1).SetFocus
     Text1(1).Text = ""
  Else
     mrc.Fields(1) = Text1(1).Text
     mrc.Update
     mrc.Close
     MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
     Me.Hide
     End If
 Else
    MsgBox "输入的旧密码不正确，请重新输入"
 End If
End Sub

5）在添加信息时，当点击添加并添加成功后，添加记录还留在文本框中，为了方便下一次的输入，如何自动清除呢？

Private Sub Command1_Click()
Dim ctrl As Control
 For Each ctrl In Me.Controls
      If TypeOf ctrl Is TextBox Then
      ctrl.Text = ""
      End If
      Next  
End Sub

         学生信息管理系统学习总结仍在进行中，加油。不断接受，不断学习，相信我们会是个“富人”！