VB学籍管理系统 - 学习资料 - 逐梦论坛 | 逐梦网---汇聚精品

1 ... 11 121314 15 16 17 18 19 20 ... 27 下一页

返回列表发帖

新手上路

Rank: 1

143^# 跳转到 »

songbear发表于 2007-5-28 09:12 | 只看该作者

我也要，为什么总是无法回复啊

TOP

新手上路

Rank: 1

142^#

期望如同发表于 2007-5-27 05:39 | 只看该作者

看看先，谢谢

当时光流逝岁月轮回我期待还能遇见你们我希望下辈子

TOP

新手上路

Rank: 1

141^#

sonny103发表于 2007-5-25 15:58 | 只看该作者

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

TOP

新手上路

Rank: 1

140^#

nijian8481发表于 2007-5-25 12:17 | 只看该作者

回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊回啊

TOP

新手上路

Rank: 1

139^#

edison0425发表于 2007-5-25 12:09 | 只看该作者

滴滴答答滴滴答答得到

TOP

新手上路

Rank: 1

138^#

52jinhua发表于 2007-5-23 15:10 | 只看该作者

rgreg

TOP

新手上路

Rank: 1

137^#

weixs1984发表于 2007-5-23 13:56 | 只看该作者

wedwqe2qe2q

TOP

新手上路

Rank: 1

136^#

kjkjk发表于 2007-5-23 03:19 | 只看该作者

asp制作学生档案管理系统
作者：陈庆平安徽新华电脑学校

摘要：本系统是根据现代化校园的发展而设计的基于asp的学生档案管理系统，本系统可以方便老师、家长来学校查找学生。实现全校学生信息在线查询。还可以对新来的学员信息进行信息录入。由于学员上课情况复杂，可以实现信息修改，及时调整学员的基本情况。
关键字 asp 在线查询信息录入信息修改

一、制作数据库和建立数据源

1、利用microsoft access 制作数据库，取名为information,然后制作表，表名为infor.下面写入数据字段。如图所示：

2、建立odbc数据源（在2000 professional 系统中建立）
步骤：

控制面板0管理工具0odbc数据源0系统dsn0add….
odbc界面
二、系统界面

一个好的系统需要一个友好的用户界面。由于本系统是基于asp开发的，所以，我们利用网页制作工具制作友好的用户界面。部分界面如图所示：

进入界面
信息录入界面
信息查询

三、程序实现

由于本系统是基于asp开发的实现在线操作的系统。所以，本系统的完成需要借助html，又由于html是网页编程的基础，所以，在这里就省去html代码，相信大家都是html高手。

1、信息录入
<%

dim strsql,rs

set conn=createobject("adodb.connection") //建立adodb连接

conn.open ("dsn=information;uid=;pwd=;") //打开数据源information

set rs=createobject("adodb.recordset") //建立记录对象rs

rs.open "infor",conn,3,3 //打开数据库里的infor表

rs.addnew //添加一条新的记录

rs("name").value=request.form("name") /*取得表单名为 name里的内容“送”

到数据库name记录里（备注：表单名是信息录入界面里的提示信息是“姓名”的表单域的名字，以下类似）*/

rs("sex").value=request.form("sex")
rs("birth").value=request.form("birthday")
rs("zzmm").value=request.form("zz")
rs("teach").value=request.form("teach")
rs("xl").value=request.form("xl")
rs("class").value=request.form("class")
rs("school").value=request.form("school")
rs("add").value=request.form("add")
rs("tel").value=request.form("tel")
rs("hy").value=request.form("mar")
rs("jg").value=request.form("addr")
rs("career").value=request.form("career")
rs("date").value=request.form("time")
rs("school").value=request.form("school")
rs.update //保存数据库里的记录
response.write ("你已经成功注册的这位学员的信息。请继续<a href=“input.htm“>注册 </a>") //显示提示信息
rs.close //关闭数据记录
conn.close //关闭连接
set rs=nothing
set conn=nothing
%>
2、信息查询
<%
dim strsql,conn,rs
set conn=server.createobject("adodb.connection")
conn.open ("dsn=information;uid=;pwd=;")
set rs=server.createobject("adodb.recordset")
strsql="select * from infor where
name= “" & request("name") &"“"//利用sql建立查询
rs.open strsql,conn
%>
<table  width="1205"  border="1"  align="left"  bordercolor="#6600cc">
<tr> //本行写上要显示的字段的相应的中文名
<td width="69"><div align="center">
<font size="2">姓名</font></div></td>
<td width="46"><div align="center">
<font size="2">性别</font></div></td>
<td width="122"><div align="center">
<font size="2">出生年</font></div></td>
<td width="46"><div align="center">
<font size="2">学历</font></div></td>
<td width="91"><div align="center">
<font size="2">政治面貌</font></div></td>
<td width="91"><div align="center">
<font size="2">专业</font></div></td>
<td width="50"><div align="center">
<font size="2">班级</font></div></td>
<td width="69"><div align="center">
<font size="2">班主任</font></div></td>
<td width="122"><div align="center">
<font size="2">入学时间</font></div></td>
<td width="146"><div align="center">
<font size="2">联系电话</font></div></td>
<td width="337"><div align="center">
<font size="2">联系地址</font></div></td>
</tr>

<% while not rs.eof %> //循环语句控制符合条件的记录输出

<tr> //本行根据循环条件可以重复输出
<td><div align="center"><font size="2">
<%=rs("name")%></font></div></td>
/*输出数据库中符合条件的name字段的值*/
<td><div align="center"><font size="2">
<%=rs("sex")%></font></div></td>

<td><div align="center"><font size="2">
<%=rs("birth")%></font></div></td>

<td><div align="center"><font size="2">
<%=rs("xl")%></font></div></td>

<td><div align="center"><font size="2">
<%=rs("zzmm")%></font></div></td>

<td><div align="center"><font size="2">
<%=rs("career")%></font></div></td>

<td><div align="center"><font size="2">
<%=rs("class")%></font></div></td>

<td><div align="center"><font size="2"><%=rs("teach")%></font></div></td>
<td><div align="center"><font size="2"><%=rs("date")%></font></div></td>
<td><div align="center"><font size="2"><%=rs("tel")%></font></div></td>
<td><div align="center"><font size="2"><%=rs("add")%></font></div></td></tr>

<% rs.movenext
wend
rs.close
conn.close
%>
</table>
3、信息修改

<%
set conn=server.createobject("adodb.connection")
conn.open "dsn=information;uid=;pwd=;"
set rs=server.createobject("adodb.recordset")
username=request("name") // 取得name表单的值赋给username
strsql="select * from infor where name=“"&username&"“" //建立sql查询
rs.open strsql,conn,3,3
%>
<form action="zhuce.asp" method="post">
// 以post方式将修改的记录通过zhuce.asp页面的程序保存到数据库当中
<table width="75%" border="1" align="center" bordercolor="#663399">
<tr>
<td width="18%"><div align="right"><font size="2">姓名：</font></div></td>
<td width="36%"><font size="2">
<input name="name" type="text" id="name" value="<%=rs.fields("name")%>">
</font></td> //显示符合查询条件的数据库当中name字段的值，供修改
<td width="15%"><div align="right"><font size="2">入学时间：</font></div></td>
<td width="31%"><input name="time" type="text" id="time" value="<%=rs.fields("date")%>"></td>
</tr>
<tr>
<td height="20"><div align="right"><font size="2">性别：</font></div></td>
<td><p>
<label>
<input name="sex" type="radio" value="<%=rs.fields("sex")%>" checked>
男</label>
<label>
<input type="radio" name="sex" value="<%=rs.fields("sex")%>">
女</label>

</p></td>
<td><div align="right"><font size="2">专业：</font></div></td>
<td><input name="career" type="text" id="career" value="<%=rs.fields("career")%>"></td>
</tr>
<tr>
<td><div align="right"><font size="2">出生年月：</font></div></td>
<td><font size="2">
<input name="birthday" type="text" id="birthday" value="<%=rs.fields("birth")%>">
</font></td>
<td><div align="right"><font size="2">班级：</font></div></td>
<td><input name="class" type="text" id="class" value="<%=rs.fields("class")%>"></td>
</tr>
<tr>
<td><div align="right"><font size="2">政治面貌：</font></div></td>
<td><select name="zz" id="zz">
<option value="团员">团员</option>
<option value="党员">党员</option>
<option value="其他">其他</option>
</select></td>
<td><div align="right"><font size="2">班主任：</font></div></td>
<td><input name="teach" type="text" id="teach" value="<%=rs.fields("teach")%>"></td>
</tr>
<tr>
<td><div align="right"><font size="2">学历：</font></div></td>
<td><font size="2">
<select name="xl" id="xl">
<option value="初中">初中</option>
<option value="高中">高中</option>
<option value="大专">大专</option>
<option value="本科">本科</option>
<option value="研究生">研究生</option>
<option value="其他">其他</option>
</select>
</font></td>
<td><div align="right"><font size="2">教室：</font></div></td>
<td><input name="room" type="text" id="room"></td>
</tr>
<tr>
<td><div align="right"><font size="2">原毕业学校：</font></div></td>
<td><font size="2">
<input name="school" type="text" id="school" value="<%=rs.fields("school")%>">
</font></td>
<td colspan="2" rowspan="5"><div align="left">
<p><font color="#ff0000" size="2">请数据录入人员认真录入学员信息，以便以</font></p>
<p><font color="#ff0000" size="2">后查询！</font></p>
</div></td>
</tr>
<tr>
<td><div align="right"><font size="2">联系地址：</font></div></td>
<td><font size="2">
<input name="add" type="text" id="add" value="<%=rs.fields("add")%>">
</font></td>
</tr>
<tr>
<td><div align="right"><font size="2">联系电话：</font></div></td>
<td><font size="2">
<input name="tel" type="text" id="tel"
  value="<%=rs.fields("tel")%>">
</font></td>
</tr>
<tr>
<td><div align="right"><font size="2">婚姻状况：</font></div></td>
<td><select name="mar" id="mar">
<option value="已婚">已婚</option>
<option value="未婚">未婚</option>
</select></td>
</tr>
<tr>
<td><div align="right"><font size="2">籍贯：
</font></div></td>
<td><font size="2">
<input name="addr" type="text" id="addr"
value="<%=rs.fields("jg")%>">
</font></td>
</tr>
</table>
<table width="75%" border="0">
<tr>
<td><div align="center">
<input type="submit" name="submit2" value="保存">
</div></td>
<td><input type="reset" name="reset" value="重写"></td>
</tr>
</table>
<p> </p>
</form>

wo hao

TOP