庖丁解“学生信息管理系统”

    学生信息管理系统已经敲完，历时半个多月，总觉得自己的收获就不能几个字草草了之，因此再写篇关于学生信息管理系统的博客，“庖丁解‘牛’”，再次剖析一下学生信息管理系统，总结一下收获。

    一、学生信息管理系统的功能块儿

 

    从功能列表上看，各个功能是相互联系的，把它们捆在一起的绳索便是——数据库。利用数据库实现了各个功能之前相互获取对方所添加或修改的信息，可见数据库在其中的重要性。

            二、数据库的基本操作

    下面以学生信息管理系统中的课程的增、删、改、查为例，总结一下数据库的基本操作

    增

　　mrc.addnew                                                     ’添加信息的语句
　　    mrc.Fields(0) = Trim(txtCourseno.Text)
　　    mrc.Fields(1) = Trim(txtCoursename.Text)
　　    mrc.Fields(2) = Trim(comboCoursetype.Text)
　　    mrc.Fields(3) = Trim(txtCoursedes.Text)                     '数据库更新
　　    mrc.Update
　　    mrc.Close

 

    删

　　mybookmark = mrc.Bookmark
　　    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
　　    If str2$ = vbOK Then
　　            mrc.MoveNext
　　            If mrc.EOF Then
　　                mrc.MoveFirst
　　                mybookmark = mrc.Bookmark                 '做标记
　　                mrc.MoveLast
　　                mrc.Delete                                '删除语句
　　                mrc.Bookmark = mybookmark
　　                Call viewData                             '调用过程
　　            Else
　　                mybookmark = mrc.Bookmark
　　                mrc.MovePrevious
　　                mrc.Delete                                '删除记录后，游标的位置不能确定？？
　　                mrc.Bookmark = mybookmark
　　                Call viewData
　　            End If
　　    Else
　　        mrc.Bookmark = mybookmark
　　        Call viewData
　　    End If

    删除数据虽然简单，mrc.delete   但是这个代码中用到多处mrc.book = mybookmark  或两者反过来，值得我们好好思考

    改

　　        Mrc.delete
　　        ’从text中获得数据并更新
　　        mrc.AddNew
　　        mrc.Fields(0) = Trim(txtCourseno.Text)
　　        mrc.Fields(1) = Trim(txtCoursename.Text)
　　        mrc.Fields(2) = Trim(comboCoursetype.Text)
　　        mrc.Fields(3) = Trim(txtCoursedes.Text)
　　        mrc.Update                                                      ’更新数据

    查

　　With myflexgrid
　　        .Rows = 2                                  '返回的行数为2
　　        .CellAlignment = 4                         '单元格居中对齐
　　        .TextMatrix(1, 0) = "学号"
　　        .TextMatrix(1, 1) = "姓名"
　　        .TextMatrix(1, 2) = "性别"
　　        .TextMatrix(1, 3) = "出生日期"             '设置第一列的文本内容
　　        .TextMatrix(1, 4) = "班号"
　　        .TextMatrix(1, 5) = "联系电话"
　　        .TextMatrix(1, 6) = "入校日期"
　　        .TextMatrix(1, 7) = "家庭住址"
　　        
　　        '利用一个循环语句来返回所有的信息
　　        Do While Not mrc.EOF
　　            .Rows = .Rows + 1                      '返回行加1
　　            .CellAlignment = 4
　　            .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
　　            .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)         '返回值
　　            .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
　　            .TextMatrix(.Rows - 1, 3) = Format(mrc.Fields(3), "yyyy-mm-dd")
　　            .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
　　            .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
　　            .TextMatrix(.Rows - 1, 6) = Format(mrc.Fields(6), "yyyy-mm-dd")
　　            .TextMatrix(.Rows - 1, 7) = mrc.Fields(7)
　　            mrc.MoveNext
　　        Loop
　　        
　　    End With

    当然前提是利用select语句来选择数据库中的对应的表之后才能进行数据的增、删、改、查

　　txtSQL = "select * from student_Info where class_NO = '" & comboClassno.Text & "'"

    三、其它的一些重要操作

    1.输入修改新密码时输入旧密码

　　’利用一个循环语句
　　If Trim(mrc.Fields(1)) = Trim(TxtOldPassword.Text) Then
　　......
　　Else
　　 MsgBox "原密码输入不正确，请重新输入", vbOKOnly + vbExclamation, "警告"
　　       TxtOldPassword.SetFocus
　　       TxtOldPassword.Text = ""
　　       Text1.Text = ""
　　       Text2.Text = ""
　　    
　　End If

    2.利用循环语句排除重复选课

　　If listAllcourse.ListIndex <> -1 Then
　　
　　    For i = 0 To listSelectcourse.ListCount - 1
　　        If listAllcourse.List(listAllcourse.ListIndex) = listSelectcourse.List(i) Then    ’课程重复后会有提示
　　            MsgBox "所选课程重复，请重新选择", vbOKOnly + vbExclamation, "警告"
　　        Exit Sub       ’退出过程
　　        End If
　　    Next i
　　    listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
　　 End If

    3.数据库的发布

    方法一：利用ODBC数据源管理器

 这种方法比较麻烦，每次换一个机器装的话都需要连接

     方法二：在模块中代码连接

Public Function ConnectString() As String
   	ConnectString="provider=sqloledb;server=192.168.24.2;UID=sa;PWD=123;database=student"  ’连接服务器的ip，ID，和密码
End Function

 该方法比较简单，软件打包后直接装到其它机器上就能连接服务器的数据库