ASP+ACCESS教师档案管理系统

本文主要是介绍ASP+ACCESS教师档案管理系统，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

3.1 系统功能模块图

3.2 E－R模型图

3.3 系统使用流程图

3.4 各个模块功能简介：

本系统分为五个功能模块，它们分别是教师信息录入模块、教师信息修改模块、教师信息查询模块、教师信息打印模块。

下面分别介绍各个模块的功能用途，以及使用。

1.教师信息录入模块

教师信息录入模块，主要是用来记录教师的各种信息主要分为四个部分：基本情况、学历情况、工作成绩、社会兼职等。基本情况需要填写姓名、性别、身份证号、入校时间、出身年月、所学专业、家庭住址等信息。这些是一个教师的最基本的情况，也是必须填写的。学历情况要求填写三次接受教育的时间，毕业的学校以及所学的专业。工作成绩包括三个部分：教学成果、科研成果、所著的学术著作等。社会兼职分为学术团体和社会团体的兼职。需要填写担任的职务、任职的时间以及团体的名称。备注中可以就其他没有说清楚的问题加以补充。

教师信息修改模块

教师信息修改模块主要是对教师的进行修改、删除等操作。此模块以教师的姓名作为关键字对教师的整体信息一一列举。点击修改按钮就会跳到教师信息页面，教师的基本情况、学历情况、工作成绩、社会兼职等信息可以任意做修改和补充。点击删除按钮就会弹出一个对话框让管理员确认是否真的删除，点击是就会删除信息，若选择否则信息不会被删除。此外该模块为了提高管理员修改信息的效率还提供了以姓名为关键字的检索，找到的教师信息会用黄色的长条突出显示出来，这样管理员就不必逐个查找了。

2. 教师信息查询模块

信息查询模块与信息修改模块有一些交叉的部分比如说信息查询模块也可以对教师的基本信息进行修改删除等操作，基本方法与修改模块很相似。可以说信息查询模块就是信息修改模块的补充和延伸。但是在在信息查询模块中，查询的能力更加强大，它可以以姓名、入校时间、所学专业、所在基本单位等为关键字进行查询，查询结果也是以黄色长条的形式显示出来。可以说查询修改模块结合起来使用，可以大大提高管理员管理信息的效率，增强系统的可用性。

3. 信息打印模块

信息打印模块就是对教师的基本信息打印输出。基本信息包括基本情况、学历情况、工作成绩、社会兼职等。打印输出就是将这些信息转化为Word文档，然后打印。另外这个模块中也可以查询，其实是为了方便打印某个教师而做的，如果要打印某个教师的信息，只要简单查询一下，用不了多少时间他的信息入口就可以找到很方便的就可以将信息打印出来。

4. 帐户管理模块

帐户管理模块就是对各个帐户进行管理。主要有修改账号、添加账号、删除账号等几个功能

4.2 系统主要界面介绍

1. 图4.3是该教师档案管理的登录界面，也就是欢迎登录界面。

图4.3 教师档案管理

2. 图4.4是系统功能主界面，里面包括了录入信息，修改信息，查询信息，打印信息以及帐号管理等功能。如图4.4所示：

图4.4 功能主界面

3. 教师信息提交页面

教师信息提交页面就是将教师的基本信息包括基本信息，学历情况，社会兼职，备注等信息，提交给数据库。如图4.5所示：

图4.5 教师信息提交页面

4. 教师信息修改界面

教师信息修改界面能够完成查找然后对找到的记录修改并且删除的操作。如图4.6所示：

图4.6 教师信息修改

5. 教师信息查询界面

教师信息查询界面能够完成按照姓名、工作单位等关键字的检索，最后查到结果。如图4.7所示：

图4.7 教师信息查询

6 帐户管理界面

帐户管理界面能够完成修改帐户、添加帐户、删除帐户的操作。如图4.8所示：

图4.8 帐户管理界面

4.3 用户使用注意事项

1、本系统采用access+asp开发，系统要求：windows9X+pws win2000(或更高)+IIS、IE 4.0以上及相关打印设备

2、处于安全考虑,建议安装使用前，先修改数据库路径(默认为"tcadmin\tcmdb")及数据库名称,然后修改文件tcconn.asp相应路径设置

3、本系统所有日期格式均为:yyyy-mm-dd,例如:2004-03-28.请按此格式输入日期,否则日期数据拒绝存入数据库

4、档案输出文件为word(*.doc)格式。由于个人配置及环境不一，所以输出后建议用MS word稍作编辑

5、系统所有查找定位均支持模糊查找。例：输入关键词："李"，选择条件按 "姓名" 查找，则记录列表将显示所有姓名中含有"李"字的教师记录

6、教师业务档案输出时，建议先保存后编辑，以免给你造成不必要的麻烦

7、教师查询页面学院首页指向：tcadmin/user_search.asp

8、教师业务档案管理系统登陆页面学院首页调用：login.htm ,调用方法：首页插入代码：<iframe src="你的路径/tcadmin/login.htm" scrolling="no" frameborder="0"></ifram>

5.1 录入信息模块代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

if request.Cookies("flag")<>"loginok" then

response.write "<script language=JavaScript>{window.alert('网络超时或你还未登录，请重新登陆!');window.location.href='index.htm';}</script>"

response.end

end if

<html>

<head>

<title>教师业务管理系统</title>

</head>

<tr>

</tr>

<tr>

</tr>

<tr>

<td>   

 您现在正在操作：<span class="style8">录入信息</span></td>

</tr>

<tr>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

<tr>

<tr>

</select></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="86">所在基层单位</td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

</tr>

</table>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<td>第一次教育</td>

</tr>

<tr>

<td>第二次教育</td>

</tr>

<tr>

<td>第三次教育</td>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

</tr>

</table>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

</tr>

</table>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

<td width="241">学术团体名称</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

</tr>

</table>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

</tr>

</table> </form> </td>

</tr>

<tr>

</tr>

</table>

</body>

</html>

5.2 查询模块实现代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

if request.Cookies("flag")<>"loginok" then

response.write "<script language=JavaScript>{window.alert('网络超时或你还未登录，请重新登陆!');window.location.href='index.htm';}</script>"

response.end

end if

tc_key=trim(request("key"))

tc_key=replace(tc_key,"'","")

tc_cond=request("cond")

if tc_key="" then

set rs=conn.execute("select tc_id,tc_name,tc_dw from tcinfor order by tc_id desc")

else

set rs=conn.execute("select tc_id,tc_name,tc_dw from tcinfor where "&tc_cond&" like '%"&tc_key&"%' order by tc_id desc")

end if

Dim rs_numRows

rs_numRows = 0

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = 10

Repeat1__index = 0

rs_numRows = rs_numRows + Repeat1__numRows

' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_total

Dim rs_first

Dim rs_last

' set the record count

rs_total = rs.RecordCount

' set the number of rows displayed on this page

If (rs_numRows < 0) Then

rs_numRows = rs_total

Elseif (rs_numRows = 0) Then

rs_numRows = 1

End If

' set the first and last displayed record

rs_first = 1

rs_last = rs_first + rs_numRows - 1

' if we have the correct record count, check the other stats

If (rs_total <> -1) Then

If (rs_first > rs_total) Then

rs_first = rs_total

End If

If (rs_last > rs_total) Then

rs_last = rs_total

End If

If (rs_numRows > rs_total) Then

rs_numRows = rs_total

End If

' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_total = -1) Then

' count the total records by iterating through the recordset

rs_total=0

While (Not rs.EOF)

rs_total = rs_total + 1

rs.MoveNext

Wend

' reset the cursor to the beginning

If (rs.CursorType > 0) Then

rs.MoveFirst

Else

rs.Requery

End If

' set the number of rows displayed on this page

If (rs_numRows < 0 Or rs_numRows > rs_total) Then

rs_numRows = rs_total

End If

' set the first and last displayed record

rs_first = 1

rs_last = rs_first + rs_numRows - 1

If (rs_first > rs_total) Then

rs_first = rs_total

End If

If (rs_last > rs_total) Then

rs_last = rs_total

End If

Dim MM_paramName

' *** Move To Record and Go To Record: declare variables

Dim MM_rs

Dim MM_rsCount

Dim MM_size

Dim MM_uniqueCol

Dim MM_offset

Dim MM_atTotal

Dim MM_paramIsDefined

Dim MM_param

Dim MM_index

Set MM_rs = rs

MM_rsCount = rs_total

MM_size = rs_numRows

MM_uniqueCol = ""

MM_paramName = ""

MM_offset = 0

MM_atTotal = false

MM_paramIsDefined = false

If (MM_paramName <> "") Then

MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")

End If

' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter

MM_param = Request.QueryString("index")

If (MM_param = "") Then

MM_param = Request.QueryString("offset")

End If

If (MM_param <> "") Then

MM_offset = Int(MM_param)

End If

' if we have a record count, check if we are past the end of the recordset

If (MM_rsCount <> -1) Then

If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last

If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region

MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)

Else

MM_offset = MM_rsCount - MM_size

End If

' move the cursor to the selected record

MM_index = 0

While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

If (MM_rs.EOF) Then

MM_offset = MM_index ' set MM_offset to the last possible record

End If

' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page

MM_index = MM_offset

While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size

If (MM_rs.EOF) Then

MM_rsCount = MM_index

If (MM_size < 0 Or MM_size > MM_rsCount) Then

MM_size = MM_rsCount

End If

' if we walked off the end, set the offset based on page size

If (MM_rs.EOF And Not MM_paramIsDefined) Then

If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then

If ((MM_rsCount Mod MM_size) > 0) Then

MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)

Else

MM_offset = MM_rsCount - MM_size

End If

' reset the cursor to the beginning

If (MM_rs.CursorType > 0) Then

MM_rs.MoveFirst

Else

MM_rs.Requery

End If

' move the cursor to the selected record

MM_index = 0

While (Not MM_rs.EOF And MM_index < MM_offset)

MM_rs.MoveNext

MM_index = MM_index + 1

Wend

End If

' *** Move To Record: update recordset stats

' set the first and last displayed record

rs_first = MM_offset + 1

rs_last = MM_offset + MM_size

If (MM_rsCount <> -1) Then

If (rs_first > MM_rsCount) Then

rs_first = MM_rsCount

End If

If (rs_last > MM_rsCount) Then

rs_last = MM_rsCount

End If

' set the boolean used by hide region to check if we are on the last record

MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)

' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone

Dim MM_keepURL

Dim MM_keepForm

Dim MM_keepBoth

Dim MM_removeList

Dim MM_item

Dim MM_nextItem

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then

MM_removeList = MM_removeList & "&" & MM_paramName & "="

End If

MM_keepURL=""

MM_keepForm=""

MM_keepBoth=""

MM_keepNone=""

' add the URL parameters to the MM_keepURL string

For Each MM_item In Request.QueryString

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))

End If

' add the Form variables to the MM_keepForm string

For Each MM_item In Request.Form

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))

End If

' create the Form + URL string and remove the intial '&' from each of the strings

MM_keepBoth = MM_keepURL & MM_keepForm

If (MM_keepBoth <> "") Then

MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)

End If

If (MM_keepURL <> "") Then

MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)

End If

If (MM_keepForm <> "") Then

MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

End If

' a utility function used for adding additional parameters to these strings

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove

Dim MM_moveParam

Dim MM_moveFirst

Dim MM_moveLast

Dim MM_moveNext

Dim MM_movePrev

Dim MM_urlStr

Dim MM_paramList

Dim MM_paramIndex

Dim MM_nextParam

MM_keepMove = MM_keepBoth

MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters

If (MM_size > 1) Then

MM_moveParam = "offset"

If (MM_keepMove <> "") Then

MM_paramList = Split(MM_keepMove, "&")

MM_keepMove = ""

For MM_paramIndex = 0 To UBound(MM_paramList)

MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)

If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then

MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)

End If

If (MM_keepMove <> "") Then

MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)

End If

' set the strings for the move to links

If (MM_keepMove <> "") Then

MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"

End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"

MM_moveLast = MM_urlStr & "-1"

MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)

If (MM_offset - MM_size < 0) Then

MM_movePrev = MM_urlStr & "0"

Else

MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)

End If

<html>

<head>

<title>教师业务管理系统</title>

</head>

<tr>

</tr>

<tr>

</tr>

<tr>

<td>     您现在正在操作：<span class="style8">查询信息</span></td>

</tr>

<tr>

<td>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

<td>请输入关键词:</td>

<option value="tc_dw">所在基层单位</option>

</select></td>

</tr>

<tr>

</tr>

</table>

</form>

</td>

</tr>

<tr>

</tr>

</table>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

<td colspan="3">共计 <i><%=(rs_total)%></i> 条记录，当前显示第 <i><%=(rs_first)%></i> 条到第 <i><%=(rs_last)%></i> 条</td>

</tr>

<tr>

</tr>

<tr>

<A HREF="<%=MM_moveFirst%>" class="4">第一页</A>

<% End If ' end MM_offset <> 0 %></td>

<A HREF="<%=MM_movePrev%>" class="4">上一页</A>

<% End If ' end MM_offset <> 0 %></td>

<A HREF="<%=MM_moveNext%>" class="4">下一页</A>

<% End If ' end Not MM_atTotal %></td>

<A HREF="<%=MM_moveLast%>" class="4">最末页</A>

<% End If ' end Not MM_atTotal %></td>

</tr>

</table>

<tr>

</tr>

<tr>

<td><b>所在基层单位</b></td>

</tr>

While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))

<td><input name="btm1" type="button" id="btm1" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" οnclick=" window.location='admin_edit.asp?id=<%=rs("tc_id")%>'" onMouseOver ="this.style.backgroundColor='#FFC864'" onMouseOut ="this.style.backgroundColor='#D4D0C8'" value="查看/修改"></td>

<td><input type="button" value="删除" οnclick="if (confirm('确实要此条记录吗？')) window.location='admin_del.asp?id=<%=rs("tc_id")%>'" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver="this.style.backgroundColor='#FFC864'" onMouseOut="this.style.backgroundColor='#D4D0C8'"></td>

</tr>

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rs.MoveNext()

Wend

<tr>

</tr>

</table>

<tr>

<A HREF="<%=MM_moveFirst%>" class="4">第一页</A>

<% End If ' end MM_offset <> 0 %></td>

<A HREF="<%=MM_movePrev%>" class="4">上一页</A>