学生信息管理系统（2）——增、删、改、查

   上次书说道，学生管理系统中的select语句。select语句其实也就是四大金刚中的“查”。而在学生管理系统中它也抢占鳌头，为什么这么说那？因为只有它和上级（表）打交道。   在学生管理系统中，所有的表都是已近建好的。所以对表的操作就比较少，唯一和表打交道比较频繁的就是select了。 他首先确定是那张表，然后把符合添加的记录筛选出来生成临时表——也就是视图。然后再在这张视图中 做相应的增、删、改，这些操作完成后在更新到数据库表中。

        下面就说说，学生系统信息管理系统中的其他三大金刚。

        增：学生管理系统中添加记录的方式大同小异，一般步骤为：

        1、判断文本框是否为空

               If Not Testtxt(txtName.Text) Then

                      MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告"

                       txtName.SetFocus

                       Exit Sub

              End If

          2、判断记录 是否重复

               If mrc.EOF = False Then

                    MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"

                    mrc.Close

                     txtSID.SetFocus

                Else                   

           3、如果满足添加 新行，更新记录。

                 mrc.AddNew '增加新行，在临时表中

                 mrc.Fields(0) = Trim(Text1(0).Text)

                 mrc.Fields(1) = Trim(Text1(1).Text)

            

                  mrc.Update '更新数据库

            

                 mrc.Close

        

               

            改：在四大金刚中”改“和”增“是双胞胎啊！

             这学生管理系统中改和增的方式太相同了，唯一不同的是。”增“是添加记录，而”改“是更新记录。

            不过需要注意的是有的窗体在修改记录的时候，也有用到addnew的方法。但是同学们一定留心，因为只要是改 在用addnew方法的前面定会有mrc.delect 。

   不过有一点需要注意的是：在最后一大类成绩管理中，修改成绩信息的时候没有用到addnew这种方法，而是直接在原理记录的基础上更新字段，其实道理相通。

                删：它做事的原则比较清楚，直接mrc.delect 就行啦！他有一个好兄弟bookbark 俗称：书签

             它的一般步骤为：

             1、用bookbark备份当前记录，提示用户是否真的删除！

                        myBookmark = mrc.Bookmark

                         str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

            2、如果不是真的删除，用bookbark还原记录

                         Else

                                mrc.Bookmark = myBookmark

                                 Call viewData

            3、如果确定删除，判断是不是最后记录

                               If str2$ = vbOK Then

                                           mrc.MoveNext

        

            4、如果是，删除最后的记录。

                         If mrc.EOF Then

                                   mrc.MoveFirst

                                   myBookmark = mrc.Bookmark

                                   mrc.MoveLast

                                    mrc.Delete

                                    mrc.Bookmark = myBookmark

                                   Call viewData

              5、如果不是直接删除

                         Else

                                   myBookmark = mrc.Bookmark

                                    mrc.MovePrevious

                                    mrc.Delete          '删除记录后，游标的位置不能确定？？

                                    mrc.Bookmark = myBookmark

                                    Call viewData

       这是我对学生管理系统四大金刚的认识，其实学知识和交朋友是一样的。都需要你真心对待、耐心交往，你对他应付公事，还没聊一会就烦。可想而知他反馈给你的也是如此！

以上是我对学生管理系统四大金刚的总结，有什么不足之处或别的见解，请大家批评指正，我们共同学习！