学生信息管理系统已经敲完，历时半个多月，总觉得自己的收获就不能几个字草草了之，因此再写篇关于学生信息管理系统的博客，“庖丁解‘牛’”，再次剖析一下学生信息管理系统，总结一下收获。
一、学生信息管理系统的功能块儿
从功能列表上看，各个功能是相互联系的，把它们捆在一起的绳索便是——数据库。利用数据库实现了各个功能之前相互获取对方所添加或修改的信息，可见数据库在其中的重要性。
二、数据库的基本操作
下面以学生信息管理系统中的课程的增、删、改、查为例，总结一下数据库的基本操作
增
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该方法比较简单，软件打包后直接装到其它机器上就能连接服务器的数据库