学生信息管理系统有什么作用？

学生信息管理西永得作用：

1、学生信息管理系统使用起来非常的灵活和方便，它能够最大限度的满足学校或者是培训机构的排课方面的需求，这样就可以预防上课冲突的情况发生了。

2、老师和学生可以直接在学员管理系统上面去搜索上课的情况，然后就可以选择自己喜欢的课程去上课了，而老师也可以根据实际的情况，选择上课的时间。

3、学生信息管理系统能够对输入的数据进行自动的保存，因此大家是不需要担心数据丢失的问题的；同时大家还可以去即时的打印或者是打印预览各类课程表，并设置各种不同的打印格式。

4、学生信息管理系统能够对学生的名字，年龄和学号等进行相应的 *** 作，这种 *** 作包括增加学员，删除学员，修改学员信息，查找学员等，这些都是可以利用数据组做出来的。

5、大家在使用该系统的时候，可以使用二维数组去做，一维是用作存储学生信息的，一维是用作存储，增加和删除的 *** 作的。同时还可以进行查询，我们可以以学号进行查询，这样就可以得到学生的信息数组了。

Private Sub Command1_Click() '增加命令按钮事件

Dim db As Database

Dim rs1 As Recordset

Set db = OpenDatabase(App.th &"\学生.mdb")打开当前access数据库

Set rs1 = db.OpenRecordset("学生表")

rs1.AddNew

rs1.Fields("学号") = Text1.Text

rs1.Fields("姓名") = Text2.Text

rs1.Fields("成绩") = Text3.Text

rs1.Update

rs1.Close

db.Close

MsgBox "成功增加信息"

End Sub

Private Sub Command2_Click() '删除命令按钮事件

Dim db As Database

Dim rs As new ADODB.Recordset

conn.ConnectionString = "provider=microsoft.jet.oledb.4.0data_ source="&App.Path&"\学生.mdb" &"

rs.open"select * from 学生表 where rs.Fields("学号")= Text1.Text ",conn, _adOpenDynamic, adLockBatchOptimistic

rs.Delete

rs.UpdateBatch

rs.Requery

End sub

Private Sub Command3_Click() '排序命令按钮事件

Dim db As Database

Dim rs2 As new ADODB.Recordset

conn.ConnectionString = "provider=microsoft.jet.oledb.4.0data_ source="&App.Path&"\学生.mdb" &"

rs2.open"select * from 学生表 order by 成绩 asc",conn, _adOpenDynamic, adLockBatchOptimistic

rs2.UpdateBatch

rs2.Requery

End sub

---