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