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

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

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

 

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

 

            二、数据库的基本操作

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

    增

　　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

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