学生信息管理系统之总结

学生信息管理系统我是已经完成几天了，一直在做善后工作，这个思维导图今天才给大家展示出来（点击此图可看更全的导图）。

1、数据库的更新代码：（以添加课程为例）先判断是否重复，然后再添加。

    Dim mrc As ADODB.Recordset
    Dim msgtext As String
    Dim txtsql As String

    txtsql = "select * from course_Info"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
    While (mrc.EOF = False)
        If (Trim(mrc.Fields(0)) = Trim(txtCourseno.Text)) Then
           MsgBox "课程编号已经存在，请重新输入课程编号！", vbOKOnly + vbExclamation, "警告"
            txtCourseno.Text = ""
            txtCourseno.SetFocus
            Exit Sub
        Else
            mrc.MoveNext
        End If
    Wend
    
    mrc.AddNew
    mrc.Fields(0) = Trim(txtCourseno.Text)
    mrc.Fields(1) = Trim(txtCourseno.Text)
    mrc.Fields(2) = Trim(comboCoursetype.Text)
    mrc.Fields(3) = Trim(txtCoursedes.Text)
    mrc.Update
    mrc.Close
    
    MsgBox "添加课程信息成功！", vbOKOnly + vbExclamation, "添加课程信息"
    Unload Me

2、修改记录：先找到要修改的信息删除（我在上一篇博客中已经写到http://blog.csdn.net/lishaoran369/article/details/37992737），然后再添加新的记录。

3、查询记录（以查询成绩为例），用到了MSHFlexGrid控件的CellAlignment、TextMatrix（）、row和col属性。

    txtsql = txtsql & "order by student_ID "
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
    With myflexgrid
        .Rows = 2          <span style="color:#009900;"> '你可以在MSHFlexGrid中的任何单元放置文本、图片或这二者。Row和Col属性指定MSHFlexGrid控件的当前单元</span>
        .CellAlignment = 4     <span style="color:#009900;">'MSHFlexGrid1.cellAlignment=1 左对齐
                                'MSHFlexGrid1.cellAlignment=4 居中对齐
                                'MSHFlexGrid1.cellAlignment=7 右对齐</span>
        .TextMatrix(1, 0) = "考试编号"
        .TextMatrix(1, 1) = "学号"
        .TextMatrix(1, 2) = "姓名"
        .TextMatrix(1, 3) = "班号"
        .TextMatrix(1, 4) = "课程名称"
        .TextMatrix(1, 5) = "分数"
        '<span style="color:#009900;">MSHflexgrid控件的属性cellalignment是单元格的对齐方式,textmatrix(row,col)可以返回第row行，第col列的数据</span>
        
        Do While Not mrc.EOF
            .Rows = .Rows + 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) = mrc.Fields(3)
            .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
            .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
            mrc.MoveNext
        Loop
        
    End With
    mrc.Close
    

4、连接数据库后要配置ODBC，则配置时有用户ID和密码这两个空要填，那么一定要和你代码中写的一样。

例如：学生信息管理系统中的模块中有一行这样的代码：

   ConnectString = "FileDSN=student.dsn;UID=sa;PWD=TGB520"

配置ODBC时有这样两个界面：

那么第二个图中登陆ID就和代码中的UID对应，而密码就和PWD对应。第一个图的文本框里填的数据库名必须和上面的代码"Filedns="后面的名字相同。

这是我的一点小小的总结，不是很难，但是却让我苦恼了很长的时间，如果有不对的地方，请给出批评指正。