系统分析
一、主要功能如下：
1、个人工资信息浏览；
2、修改记录；
3、添加记录；
4、删除记录。
二、系统结构图如下图：
三、数据库设计：
教职员工工资管理系统采用的是 Access 数据库，数据库名 RSGL 。由于本管理系统是一个很简单的管理系统，所以在 RSGL 数据库中只包含一个表，表名为：教师工资表。表内包含10个字段，其字段名分别为：所在部门、员工编号、员工姓名、基本工资、岗位工资、职位工资、年动工资、养老保险、医疗保险和实发工职。其结构如下图：
四、主页面结构：
本系统的主页面名为 main.asp 。它由上、下两个框组成，上框架链接一个菜单页面。下框用于显示记录信息。其代码如下：
<html> <frameset rows="100,*" border="0"> <frame name="top" noresize scrolling="no" src="Menu.asp"> <frame name="Bottom" noresize src="list1.asp"> </frameset> <noframes> </noframes> </html>
五、菜单页面的代码如下：（文件名为：main.asp)
<html> <head><title>职工工资</title></head> <body bgcolor="#9ccdcd"> <table align="Center" width="70%" border="0"> <caption><font face=隶书 size=6>职工工资管理</font></caption> <tr height="30" bgcolor="#edf5f5" align="center"> <td><a href="list1.asp？no=First" target="Bottom">第一个</a></td> <td><a href="list1.asp？no=Previous" Target="Bottom">上一个</a> <td><a href="list1.asp？no=next" Target="Bottom">下一个</a> <td><a href="list1.asp？no=last" Target="Bottom">最后一个</a> <td><a href="list2.asp" target="bottom">修改</a></td> <td><a href="list3.asp" target="bottom">增加</a></td> <td><a href="list4.asp" target="bottom">删除</a></td> </tr> </table> </body> </html>
浏览记录
一、浏览页面的功能：
通过菜单栏上的导航条在浏览器上显示第一条、或上一条、或下一条、或最后一条记录。
二、浏览页面的实现过程：
1、连接数据库并打开“教师工资”表；
2、通过条件判断语句，判断是不是刚打开网页，若是，则显示第一条记录，否则通过由 Request 对象获取的当前记录号，显示相应的记录；
3、通过调用 ShowPage(objRS,no) 过程，显示记录；
4、关闭记录集和数据库。
三、浏览页面的代码如下：
<html><head><title>教师工资表</title></head><body bgcolor="cccc99"><%'定义一个过程，带有两个参数，一个表示记录集，一个表示当前记录号。Sub ShowPage(objRS,no)objRS.AbsolutePosition=no '指定当前记录号'显示单记录(逐个将字段名和字段值赋给变量Date 。然后通过 Recordset 变量的 Write 方法向用户端输出。for j=0 to objRS.Fields.Count-1Data="<tr><td>" & objRS.Fields(j).nameData=Data & "<td>" & objRS.Fields(j).Value & "</tr>"Response.Write dataNextEnd Sub'创建一个连接数据库对象。set conn=server.createobject("adodb.Connection")'通过连接字符串指定了要连接的数据库所使用的提供程序是 Microsoft.Jet.OLEDB.4.o;所连接的数据库名为 rsgl.mdb。CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")'打开数据库。conn.Open'创建一个记录集。set rs=server.createobject("adodb.recordset")'打开“教师工资”表。rs.open"教师工资表",conn,1,2,2'如果是新打开网页，则第一条记录编号赋给变量 Session("no"),也就是说打开网页时显示的总是第一条记录。if Request("no")="" thenSession("no")=1'否则当前记录号由 Request 对象来获取。elseSelect case Request("no")case "First"Session("no")=1case "Previous"Session("no")=Session("no")-1case "next"Session("no")=Session("no")+1case "last"Session("no")=RS.RecordCountend selectend if'当 Session（"no") 的值大于记录数时，则 Session("no") 等于记录数。if Session("no")>RS.RecordCount then Session("no")=RS.RecordCount'当 Session（"no") 的值小于1时，则 Session("no")值等于1.if Session("no")<1 then Session("no")=1Response.write"<table border=1 align=center cellspacing=0 cellpadding=4 height=270 bgcolor='#9ccdcd'>"Response.write"<tr><td width=100><td width=195>"'调用 ShowPage Rs,Session("no") 过程。ShowPage RS,Session("no")Response.write"</table>"RS.closeset RS=nothingconn.closeset conn=nothing%></body></html>六、小结：
零七网部分新闻及文章转载自互联网，供读者交流和学习，若有涉及作者版权等问题请及时与我们联系，以便更正、删除或按规定办理。感谢所有提供资讯的网站，欢迎各类媒体与零七网进行文章共享合作。
