|
如果我国各个学校管理水平还停留在纸介质的基础上，已不能适应时代的发展，因为它浪费了许多人力和物力，在当今的信息时代这种管理方法必然被计算机为基础的信息管理所取代。学生信息管理系统的开发，适合任何一个大中小学校的管理，
该学生信息管理系统归纳起来有四点：
1．学生信息的插入。可以插入不同地区的学生的姓名、个人联系方法、所在院系、班级及相关情况。实现了信息的动态管理。
2．学生信息的查询。学生的信息使管理员可以通过多种方式（年级、班级、姓名、学号、所在系等等）的查询，就可以直接查看自己需要的学生的相关信息。实现了信息的动态管理。
3．学生信息的修改。管理人员可以随时对转入、转出的学生进行修改，比如学号、所在系等等实现了信息的动态管理。
3．学生信息的删除。管理人员可以随时对转入、转出的学生进行删除，比如学号、所在系等等实现了信息的动态管理。
好处为：
1． 可以存储怕有的学生档案，安全、高效；
2． 只需一到二名档案录入员即可操作系统，节省大量人力；
3． 可以迅速查找到所需要的信息。
其功能结构如图：
毕业设计 www.lw63.com 论文路上
3.3.5 访问权限管理
系统管理员的权限级别为3，以系统管理员身份登录学生信息管理系统时，可以首面上看到“更改级别”链接，单击即可进入changlevel.asp页面中，可以进行对某个用户的权限级别进行修改。图如下：
功能脚本如下：
<%
Dim cnn, rts, sSQL, UserName, Level
If Session("UserName") = "" Or Session("Level") <> 3 Then
Response.Write "<P>你没有访问本页面的权限！</P>"
Response.End
End If
UserName = Trim(Request.Form("txtUserName"))
Level = Request.Form("optLevel")
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
sSQL = "SELECT * FROM users WHERE user_name='" & UserName & "'"
Set rst = cnn.Execute(sSQL, ,adCmdText)
%>
<%
If UserName <> "" And rst.EOF Then
Response.Write "<FONT COLOR = red>用户“" & UserName & "”不存在！</FONT>"
End If
If UserName <> "" And Not rst.EOF Then
sSQL = "UPDATE users SET purview_level=" & Level & " WHERE user_name='" & UserName & "'"
cnn.Execute sSQL, , adCmdText
Response.Write "用户“" & UserName & "”的权限级别已被更改为" & Level & "级！"
End If
%>
毕业设计 www.lw63.com 论文路上
3.3.1 添加学生信息资料
在学生信息管理系统首页（index.asp）单击“添加资料”链接，可以进入addinfo.asp页面，在该页面中输入学生资料，并提交给saveinfo.asp页面进行添加，将数据保存到数据库中。界面如下：
图1 添加页面addinfo.asp
实现功能脚本如下：
<!-- #include file="Date\adovbs.inc" -->
<%
Dim cnn, rst, sSQL
Dim StudentNum, StudentName, StudentSex, BirthDate, Department
Dim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, Remark
StudentNum = Trim(Request.Form("txtStudentNum"))
StudentName = Trim(Request.Form("txtStudentName"))
StudentSex = Request.Form("optStudentSex")
BirthDate = Trim(Request.Form("txtBirthDate"))
Department = Trim(Request.Form("txtDepartment"))
Speciality = Trim(Request.Form("txtSpeciality"))
Grade = Trim(Request.Form("txtGrade"))
sClass = Trim(Request.Form("txtClass"))
ParentName = Trim(Request.Form("txtParentName"))
HomeAddr = Trim(Request.Form("txtHomeAddr"))
HomePhone = Trim(Request.Form("txtHomePhone"))
Remark = Trim(Request.Form("txtRemark"))
If StudentNum = "" Or StudentName = "" Then
Response.Redirect "addInfo.asp"
End If
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
sSQL = "SELECT student_num FROM students WHERE student_num='" & StudentNum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
If Not rst.EOF Then
Response.Write "<P>学号“" & rst("student_num") & "”已经存在，请重新输入！</P>"
Else
sSQL = "INSERT into students(student_num, student_name, " & "student_sex, birthdate, department, speciality,"
sSQL = sSQL & "grade, class, home_addr, parent_name, "
sSQL = sSQL & "home_phone, remark) VALUES('"
sSQL = sSQL & StudentNum & "','" & StudentName & "','" & StudentSex & "','" & BirthDate & "','"
sSQL = sSQL & Department & "','" & Speciality & "','" & Grade & "','" & sClass & "','"
sSQL = sSQL & HomeAddr & "','" & ParentName & "','" & HomePhone & "','" & Remark & "')"
cnn.Execute sSQL, , adCmdText
%>
<HR NOSHADE SIZE = "1" COLOR = "red">
<P class="STYLE1">数据保存成功！</P>
<% End If %>
|
机械单片机 
今天是:
您现在的位置： 
论文均是按正规的毕业论文格式要求制作的WORD文档，绝大部分论文中都含有中英文摘要、系统功能图、数据词典、数据流程图，E－R图、系统界面抓图、结论与体会、致谢、参考文献等内容.