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

　　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
　　        ’从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

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

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

　　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

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