數(shù)據(jù)課程設(shè)計(jì)--教務(wù)管理輔助系統(tǒng)的設(shè)計(jì)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：29 大?。?62.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語一試題真題（含答案詳解+作文范文）_第1頁

已閱讀1頁，還剩28頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　《數(shù)據(jù)庫》　　課程設(shè)計(jì)報(bào)告　　課程名稱數(shù)據(jù)庫 　　題目名稱教務(wù)管理輔助系統(tǒng)的設(shè)計(jì) 　　專業(yè)班級(jí)

2、 　　學(xué) 號(hào) 　　目錄　　1系統(tǒng)分析3　　1.1開發(fā)背景3　　1.2開發(fā)目的3<

3、/p>　　1.3現(xiàn)行系統(tǒng)存在的主要問題3　　1.4需求分析4　　1.4.1信息要求：4　　1.4.2處理要求：4　　1.4.3安全性與完整性要求：5　　1.5系統(tǒng)功能分析5<

4、;/p>　　1.6業(yè)務(wù)流程圖、數(shù)據(jù)流程圖5　　2系統(tǒng)設(shè)計(jì)8　　2.1ER圖和關(guān)系模式8　　2.2總體結(jié)構(gòu)設(shè)計(jì)9　　2.3數(shù)據(jù)庫設(shè)計(jì)9<b&

5、gt;　　3系統(tǒng)實(shí)現(xiàn)10　　4實(shí)驗(yàn)總結(jié)：28　　5參考文獻(xiàn)29　　教務(wù)輔助管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)　　系統(tǒng)分析

6、;　　開發(fā)背景　　隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)應(yīng)用于各大領(lǐng)域，并給人們的生活帶來了極大的便利，同樣可以應(yīng)用在教務(wù)管理方面。以往大學(xué)教師由于缺乏適當(dāng)?shù)能浖o其工作帶來了很多不便。本文所介紹的便是一個(gè)教務(wù)輔助管理系統(tǒng)，以方便其在課程安排、成績(jī)處理、學(xué)籍管理上的工作。　　教務(wù)輔助管理系統(tǒng)是一個(gè)龐大而復(fù)雜的系統(tǒng)，它包括對(duì)院系資料的管理，

7、對(duì)課程資料的管理，對(duì)學(xué)生資料的管理和對(duì)學(xué)生成績(jī)的管理等等主要的功能。教務(wù)輔助管理系統(tǒng)是每個(gè)學(xué)校的一項(xiàng)必不可少的內(nèi)容，它的好壞直接影響到學(xué)校里的主要工作，　　為了提高教務(wù)管理工作的效率，減少錯(cuò)誤的出現(xiàn)，節(jié)約大量的人力資源，現(xiàn)在的學(xué)校的教務(wù)管理也逐步從手工轉(zhuǎn)到計(jì)算機(jī)自動(dòng)化信息處理階段　　開發(fā)目的&

8、lt;p>　　為了教務(wù)處管理系統(tǒng)更完善；　　節(jié)約資源　　為了教務(wù)處辦公室對(duì)學(xué)生的管理更方便；　　為了減輕工作人員的工作負(fù)擔(dān)　　現(xiàn)行系統(tǒng)存在的主要問題　　單機(jī)單用戶系統(tǒng)，隨著網(wǎng)絡(luò)的發(fā)展和校

9、園網(wǎng)的建立，同時(shí)教務(wù)管理系統(tǒng)中信息的使用者大大增加，原有的單機(jī)單用戶系統(tǒng)已遠(yuǎn)遠(yuǎn)不能滿足需要。同時(shí)，原有的數(shù)據(jù)庫也不支持多用戶的網(wǎng)絡(luò)運(yùn)行環(huán)境。　　系統(tǒng)獨(dú)立性差，原有系統(tǒng)一般都是使用數(shù)據(jù)庫提供的開發(fā)工具編寫的程序，因此收數(shù)據(jù)庫的制約比較大，編寫出來的程序性能也不好。特別是無法支持如Access, MS SQL Server等新的數(shù)據(jù)庫。　　模塊性差，由于不是

10、一個(gè)完整的編程語言，故無法做到代碼的模塊化，給功能的擴(kuò)展帶來了巨大的不便。　　需求分析　　教務(wù)輔助管理系統(tǒng)大大提高了學(xué)校管理工作的效率，使用戶能夠方便的對(duì)院系信息、課程信息、學(xué)生信息以及成績(jī)信息進(jìn)行管理。本系統(tǒng)對(duì)具有不同權(quán)限的用戶所開放的功能是不同的，最高級(jí)用戶的權(quán)限是“管理員”，它能使用系統(tǒng)的所有功能，另一種用戶的

11、權(quán)限是“用戶”，它只能使用系統(tǒng)的部分功能。　　信息要求：　　教務(wù)管理系統(tǒng)涉及的實(shí)體有：　　?教師——工作證號(hào)、姓名、職稱、電話等；　　?學(xué)生——學(xué)號(hào)、姓名、性別、出生年月等；　　?班級(jí)—

12、—班號(hào)、最低總學(xué)分等；　　?系——系代號(hào)、系名和系辦公室電話等；　　?課程——課序號(hào)、課名、學(xué)分、上課時(shí)間及名額等。　　這些實(shí)體之間的聯(lián)系如下：　　?每個(gè)學(xué)生都屬于一個(gè)班，每個(gè)班都屬于一個(gè)系，每個(gè)教師也都屬于一個(gè)系。　　?

13、每個(gè)班的班主任都由一名教師擔(dān)任。　　?一名教師可以教多門課，一門課可以有幾位主講老師，但不同老師講的同一門課其課序號(hào)是不同的（課序號(hào)是唯一的）。　　?一名同學(xué)可以選多門課，一門課可被若干同學(xué)選中。一名同學(xué)選中的課若已學(xué)完，應(yīng)該記錄有相應(yīng)成績(jī)。　　?本單位學(xué)生、教師都有重名，工作證號(hào)、學(xué)號(hào)可以作為標(biāo)識(shí)。<

14、;/p>　　處理要求：　　教學(xué)系統(tǒng)主要提供數(shù)據(jù)維護(hù)、選課和信息查詢。其中常見的查詢有：系統(tǒng)中各對(duì)象的基本信息查詢。查詢指定班、系的學(xué)生信息（名單、人數(shù)等）。查詢學(xué)生的成績(jī)、學(xué)分情況。查詢教師授課情況和學(xué)生選課情況。　　安全性與完整性要求：<

15、b>　　?安全性要求：　　1.系統(tǒng)應(yīng)設(shè)置訪問用戶的標(biāo)識(shí)以鑒別是否是合法用戶，并要求合法用戶設(shè)置其密碼，保證用戶身份不被盜用；　　2.系統(tǒng)應(yīng)對(duì)不同的數(shù)據(jù)設(shè)置不同的訪問級(jí)別，限制訪問用戶可查詢和處理數(shù)據(jù)的類別和內(nèi)容；　　3.系統(tǒng)應(yīng)對(duì)不同用戶設(shè)置不同的權(quán)限，區(qū)分不同的用戶，如學(xué)生，教師，系統(tǒng)管

16、理員。　　? 完整性要求：　　1.各種信息記錄的完整性，關(guān)鍵信息記錄內(nèi)容不能為空；　　2.各種數(shù)據(jù)間相互的聯(lián)系的正確性；　　3.相同的數(shù)據(jù)在不同記錄中的一致性　　系統(tǒng)功能分

17、析　　不同權(quán)限的用戶能使用的功能如下：　　用戶管理：此項(xiàng)功能只能由管理員使用　　修改密碼：管理員和用戶都能使用　　信息管理：包含了系別管理、學(xué)生管理、課程管理、成績(jī)管理四個(gè)模塊，只能由管理員使用，用戶不能使用。

18、　　學(xué)生資料查詢：只能由管理員使用，用戶不能使用　　學(xué)生成績(jī)查詢：管理員和用戶都能使用　　業(yè)務(wù)流程圖、數(shù)據(jù)流程圖　　圖 1.6.1業(yè)務(wù)流程圖　　圖 1.6.2數(shù)據(jù)流程圖　　系統(tǒng)設(shè)計(jì)</p

19、>　　ER圖和關(guān)系模式　　關(guān)系模式：　　教師（教師號(hào)，姓名，職稱，電話，系代號(hào)）　　學(xué)生（學(xué)號(hào)，姓名，性別，出生年月，班號(hào)）　　系（系代號(hào)，系名，系辦公室電話）<

20、/p>　　課程（課序號(hào)，課名，學(xué)分，上課時(shí)間，名額，工作證號(hào)）　　班級(jí)（班號(hào)，最低總學(xué)分，工作證號(hào)，系代號(hào)）　　總體結(jié)構(gòu)設(shè)計(jì)　　數(shù)據(jù)庫設(shè)計(jì)　　表1：登

21、錄信息表　　表2：系別信息表　　表3：學(xué)生信息表　　表4：課程信息表　　系統(tǒng)實(shí)現(xiàn)

22、　　一、主頁登錄部分 default.asp　　<% Option Explicit %>　　<% Response.Buffer=True %>　　<%　　If Trim(re

23、quest.form("username"))<>"" AND Trim(request.form("pswd"))<>"" Then　　Dim db　　Set db=Server.CreateObject(&qu

24、ot;ADODB.Connection")　　db.Open "jiaowu"　　Dim userid,pswd,strsql,rs　　userid=Request.Form("username")　　pswd=Reque

25、st.Form("pswd")　　End If　　If request.form("D1")="學(xué)生" Then 　　strsql="Select * From stu Where sno='&q

26、uot;&userid&"'"　　Set rs=db.Execute(strsql)　　If pswd=rs("spin") Then　　Session("stuid")=userid

27、Response.Redirect"student.asp"　　Else　　Response.write"密碼錯(cuò)誤" 　　End If　　ElseIf re

28、quest.form("D1")="教師" Then 　　strsql="Select * From tea Where tno='"&userid&"'"　　Set rs=db.Execute(strsql)<p

29、>　　If pswd=rs("tpin") Then　　Session("teaid")=userid　　Response.Redirect"teacher.asp"　　Else&l

30、t;p>　　Response.write"密碼錯(cuò)誤" 　　End If　　ElseIf request.form("D1")="教務(wù)管理員" Then　　strsql="Select * From a

31、dm Where adm='"&userid&"'"　　Set rs=db.Execute(strsql)　　If pswd=rs("apin") Then　　Session("admid")=userid&

32、lt;/p>　　Response.Redirect"adm.asp"　　Else　　Response.write"密碼錯(cuò)誤" 　　End If&l

33、t;p>　　Else 　　Session("stuid")=""　　Session("teaid")=""　　Session("admid")=""&

34、lt;/p>　　End If 　　%>　　二、學(xué)生用戶界面　?。ㄒ唬?shí)現(xiàn)選課 student.asp　　<%

35、 Option Explicit %>　　<% Response.Buffer=True %>　　<%　　If Session("stuid")="" Then　　Res

36、ponse.Redirect "default.asp"　　Response.write"請(qǐng)先登錄"　　Else　　Dim stuid,cnoid　　stuid=Session("st

37、uid")　　cnoid=Request.form("T1")　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.

38、Open "jiaowu"　　Dim strsql,rs　　strsql="Insert Into score(cno,sno) Values('"&cnoid&"','"&stuid&"')"

39、;　　Set rs=db.Execute(strsql)　　End If　　db.close　　Set db=Nothing　　%>

40、;　?。ǘ╋@示課表 cou_list.asp　　<% Option Explicit %>　　<% Response.Buffer=True %>　　<%

41、　If Session("stuid")="" Then　　Response.Redirect "default.asp"　　Response.write"請(qǐng)先登錄"　　Else </p&g

42、t;　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"　　Dim strsql,rs<

43、p>　　strsql="Select Distinct cou.cno,cou.cname,cou.tno, cou.room From cou"　　Set rs=db.Execute(strsql)　　End if　　%>&

44、lt;/b>　　<div align="center">　　<table border="1" width="80%" id="table2" cellpadding="0">

45、<tr><td align="center">課程編號(hào)</td>　　<td align="center">課程名稱</td>　　<td align="center">任課教師</td>&

46、lt;p>　　<td align="center">上課地點(diǎn)</td>　　</tr>　　<%　　Do While Not rs.Eof<p&

47、gt;　　%>　　<tr><td align="center"><%=rs("cno")%></td>　　<td align="center"><%=rs("cname&qu

48、ot;)%></td>　　<td align="center"><%=rs("tno")%></td>　　<td align="center"><%=rs("room")%></td>&

49、lt;/p>　　</tr>　　<%　　rs.MoveNext　　Loop　　%><

50、;/b>　　</table>　　</div>　?。ㄈ┏煽?jī)查詢 mark.asp　　<% Option Explicit %>&

51、lt;p>　　<% Response.Buffer=True %>　　<%　　If Session("stuid")="" Then　　Response.Redirect "default.asp&qu

52、ot;　　Response.write"請(qǐng)先登錄"　　Else　　Dim db　　Set db=Server.CreateObject("ADODB.Connecti

53、on")　　db.Open "jiaowu"　　Dim rs,strsql　　strsql="Select * From score Where sno='"&Session("stuid")&"'&q

54、uot;　　Set rs=db.Execute(strsql)　　End if　　%>　　<tr>

55、　　<td align="center" height="34">學(xué)號(hào)</td>　　<td align="center" height="34">課號(hào)</td>　　<td align="center"

56、height="34">成績(jī)</td>　　</tr>　　<%　　Do While Not rs.Eof　　%>&l

57、t;/b>　　<tr>　　<td align="center" ><%=rs("sno")%></td>　　<td align="center" >&

58、lt;%=rs("cno")%></td>　　<td align="center" ><%=rs("mark")%></td>　　</tr><b

59、>　　<%　　rs.MoveNext　　Loop　　%>　　教師用戶界面實(shí)現(xiàn)成績(jī)錄入功能 teacher.asp&

60、lt;p>　　<% Option Explicit %>　　<% Response.Buffer=True %>　　<%　　If Session("teaid")="" Then

61、　　Response.Redirect "default.asp"　　Response.write"請(qǐng)先登錄"　　ElseIf Request.Form("T1")<>"" And Request.Form("T2")<

62、;>"" And Request.Form("T3")<>"" Then　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")<p&

63、gt;　　db.Open "jiaowu"　　Dim strsql,cno,sno,mark　　cno=Request.Form("T1")　　sno=Request.Form("T2")　　mark=Reque

64、st.Form("T3")　　strsql="Update score Set mark='"&mark&"'Where cno='"&cno&"'And sno='"&sno&"'And tno='&q

65、uot;&Session("teaid")&"'"　　db.Execute(strsql)　　Response.Write "添加成功"　　End If

66、;　　%>　　四、教務(wù)管理員登錄界面 adm.asp　　<% Option Explicit %>　　<% Response.Buffer=True %>　　<%</b

67、>　　If Session("admid")="" Then　　Response.Redirect "default.asp"　　Response.write"請(qǐng)先登錄"

68、;　　End If　　%>　?。ㄒ唬┱n程信息維護(hù)　　1、顯示課程信息 adm_cou.asp　　<% Option Explicit %></p&

69、gt;　　<% Response.Buffer=True %>　　<%　　If Session("admid")="" Then　　Response.Redirect "default.

70、asp"　　Response.write"請(qǐng)先登錄"　　Else 　　Dim db　　Set db=Server.CreateObject("ADODB.C

71、onnection")　　db.Open "jiaowu"　　Dim strsql,rs　　strsql="Select * From cou"　　Set rs=db.Execute(strsql)

72、　　End if　　%>　　<form method="POST" action="">　　<table border="0" widt

73、h="100%" id="table8">　　<%　　Do While Not rs.Eof　　%>　　<tr&g

74、t;　　<td align="center" height="27"><%=rs("cno")%></td>　　<td align="center" height="27"><%=r

75、s("cname")%></td>　　<td align="center" height="27"><%=rs("tno")%></td>　　<td align="center" height=&

76、quot;27"><%=rs("room")%></td>　　<td align="center"height="27"><a href="update_cou.asp?cno=<%=rs("cno")%>">修改<

77、/a></td>　　<td align="center" height="27"><a href="dele_cou.asp?cno=<%=rs("cno")%>">刪除</a></td><b

78、>　　</tr>　　<%　　rs.MoveNext　　Loop　　%><p

79、>　　</table>　　</form>　　2、修改課程信息 update_cou.asp　　<% Option Explicit %>　　<%

80、Response.Buffer=True %>　　<%　　If Session("admid")="" Then　　Response.write"請(qǐng)先登錄"　　R

81、esponse.Redirect "default.asp"　　Else 　　Dim cno　　cno=Request.QueryString("cno")

82、　　Session("cno")=cno　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"&l

83、t;p>　　Dim strsql,rs　　strsql="Select * From cou Where cno='"&cno&"'"　　Set rs=db.Execute(strsql)　　End If</b&

84、gt;　　%>　　3、修改課程的執(zhí)行程序 update3.asp　　<% Option Explicit %>　　<%<b

85、>　　Dim cnoid　　cnoid=Session("cno")　　If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Fo

86、rm("T3")<>"" And Request.Form("T5")<>"" Then　　Dim db　　Set db=Server.CreateObject("ADODB.Connection&qu

87、ot;)　　db.Open "jiaowu"　　Dim cno,cname,tno,stime,room,strsql　　cno=Request.Form("T1")　　cname=Request.Form("T2&quo

88、t;)　　tno=Request.Form("T3")　　room=Request.Form("T5")　　strsql="Update cou Set cno='"&cno&"',cname='&quo

89、t;&cname&"',tno='"&tno&"',room='"&room&"' Where cno='"&cnoid&"'"　　db.Execute(strsql)<

90、;p>　　Response.Redirect "adm_cou.asp" 　　Response.Write"修改成功"　　End If　　%>

91、　4、刪除課程的執(zhí)行程序 dele_cou.asp 　　<% Option Explicit %>　　<% Response.Buffer=True %>　　<%　　If Session("

92、;admid")="" Then　　Response.write"請(qǐng)先登錄"　　Response.Redirect "default.asp"　　Else <

93、b>　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"　　Dim strsql,cno　　cno=Reque

94、st.QueryString("cno")　　strsql="Delete From cou Where cno='"&cno&"'"　　db.Execute(strsql)　　Response.Redirect"

95、;adm_cou.asp"　　End if　　%>　　5、添加課程的執(zhí)行程序 add_cou.asp　　<% Option Explicit %>

96、　　<% Response.Buffer=True %>　　<%　　If Session("admid")="" Then　　Response.Redirect "default.asp

97、"　　End If　　If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<&g

98、t;"" And Request.Form("T5")<>"" Then　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")

99、　　db.Open "jiaowu"　　Dim strsql,cno,cname,tno,stime,room　　cno=Request.Form("T1")　　cname=Request.Form("T2")

100、　tno=Request.Form("T3")　　room=Request.Form("T5")　　strsql="Insert Into cou(cno,cname,tno,room) Values('"&cno&"','"&

101、cname&"','"&tno&"','"&room&"')"　　db.Execute(strsql)　　Response.Redirect"add_cou.asp" &l

102、t;p>　　Response.write"添加成功"　　End If　　%>　?。ǘ┙處熜畔⒕S護(hù)　　1、顯示教師信息

103、adm_tea.asp　　<% Option Explicit %>　　<% Response.Buffer=True %> 　　<%　　If Session("admid")=&q

104、uot;" Then　　Response.Redirect "default.asp"　　Response.write"請(qǐng)先登錄"　　Else 　　Dim db<

105、;/b>　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"　　Dim strsql,rs　　strsql="Select tno,tn

106、ame,ttel From tea"　　Set rs=db.Execute(strsql)　　End if　　%>　　<form method="POST"

107、; action="">　　<table border="0" width="100%" id="table8">　　<%　　Do While Not rs.Eof<

108、/p>　　%>　　<tr>　　<td width="20%" align="center"><%=rs("tno")%></td><

109、/p>　　<td width="20%" align="center"><%=rs("tname")%></td>　　<td width="19%" align="center"><%=rs("ttel&q

110、uot;)%></td>　　<td width="19%" align="center"><a href="update_tea.asp?tno=<%=rs("tno")%>">修改</a></td>

111、;　　<td width="19%" align="center"><a href="dele_tea.asp?tno=<%=rs("tno")%>">刪除</a></td>　　</tr>

112、　　<%　　rs.MoveNext　　Loop　　%>　　</table>

113、　　</form>　　2、修改教師信息 update_tea　　<% Option Explicit %>　　<% Response.Buffer=True %><p

114、>　　<%　　If Session("admid")="" Then　　Response.write"請(qǐng)先登錄"　　Response.Redirect "default.asp"<

115、;/p>　　Else 　　Dim tno　　tno=Request.QueryString("tno")　　Session("tno")=tno&

116、lt;p>　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"　　Dim strsql,rs

117、　　strsql="Select * From tea Where tno='"&tno&"'"　　Set rs=db.Execute(strsql)　　End If　　%><

118、;/b>　　3、修改教師信息的執(zhí)行程序 update2.asp　　<% Option Explicit %>　　<%　　Dim tnoid<

119、p>　　tnoid=Session("tno")　　If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" Th

120、en　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"　　Dim tno,tname,ttel,

121、strsql　　tno=Request.Form("T1")　　tname=Request.Form("T2")　　ttel=Request.Form("T3")　　strsql="Update tea

122、 Set tno='"&tno&"',tname='"&tname&"',ttel='"&ttel&"'Where tno='"&tnoid&"'"　　db.Execute(str

123、sql)　　Response.Redirect"adm_tea.asp" 　　Else　　Response.Write"請(qǐng)將所有信息填寫完整"　　Response.Write"<

124、a href='adm_tea.asp'>重新修改</a>"　　End If　　%>　　4、刪除教師信息的執(zhí)行程序 dele_tea.asp

125、;　　<% Option Explicit %>　　<% Response.Buffer=True %>　　<%　　If Session("admid")="" Then<p&

126、gt;　　Response.write"請(qǐng)先登錄"　　Response.Redirect "default.asp"　　Else 　　Dim db　　Set

127、 db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"　　Dim strsql,tno　　tno=Request.QueryString("tno")<p&

128、gt;　　strsql="Delete From tea Where tno='"&tno&"'"　　db.Execute(strsql)　　Response.Redirect"adm_tea.asp"

129、　End if　　%>　　5、添加信息教師信息的執(zhí)行程序 add_tea.asp　　<% Option Explicit %>　　<% Response.Buffer=True %>

130、　　<%　　If Session("admid")="" Then　　Response.Redirect "default.asp"　　Response.write&q

131、uot;請(qǐng)先登錄"　　End If　　If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3"

132、;)<>"" Then　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"<p

133、>　　Dim strsql,tno,tname,ttel　　tno=Request.Form("T1")　　tname=Request.Form("T2")　　ttel=Request.Form("T3")

134、　　strsql="Insert Into tea(tno,tname,ttel) Values('"&tno&"','"&tname&"','"&ttel&"')"　　db.Execute(strsql)</p&g

135、t;　　Response.Redirect"add_tea.asp" 　　Response.write"添加成功"　　End If　　%><

136、;p>　　（三）學(xué)生信息維護(hù)　　1、顯示學(xué)生信息 adm_stu.asp　　<% Option Explicit %>　　<% Response.Buffer=True%>　　&l

137、t;%　　If Session("admid")="" Then　　Response.Redirect "default.asp"　　Response.write"請(qǐng)先登錄"

138、;　　Else 　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"<p

139、>　　Dim strsql,rs　　strsql="Select distinct sno,sname,ssex,class From stu"　　Set rs=db.Execute(strsql)　　End if<p&

140、gt;　　%>　　<form method="POST" action="update_1.asp">　　<table border="0" width="100%" id="table8"&g

141、t;　　<%　　Do While Not rs.Eof　　%>　　<tr>　　<td

142、width="17%" align="center"><%=rs("sno")%></td>　　<td width="16%" align="center"><%=rs("sname")%></td></p

143、>　　<td width="16%" align="center"><%=rs("ssex")%></td>　　<td width="16%" align="center"><%=rs("class&quo

144、t;)%></td>　　<td width="16%" align="center"><a href="update_stu.asp?sno=<%=rs("sno")%>">修改</a>　　&

145、lt;/td>　　<td width="16%" align="center"><a href="dele_stu.asp?sno=<%=rs("sno")%>">刪除</a></td>&l

146、t;b>　　</tr>　　<%　　rs.MoveNext　　Loop　　%><

147、p>　　</table>　　</form>　　2、修改學(xué)生信息 update_stu.asp　　<% Option Explicit %>　　<%

148、 Response.Buffer=True %>　　<%　　If Session("admid")="" Then　　Response.write"請(qǐng)先登錄"

149、Response.Redirect "default.asp"　　Else 　　Dim sno　　sno=Request.QueryString("sno")

150、;　　Session("sno")=sno　　Dim db　　Set db=Server.CreateObject("ADODB.Connection")　　db.Open "jiaowu"&

151、lt;p>　　Dim strsql,rs　　strsql="Select * From stu Where sno='"&sno&"'"　　Set rs=db.Execute(strsql)　　End If</b

152、>　　%>　　3、修改學(xué)生信息的執(zhí)行程序 update1.asp　　<% Option Explicit %>　　<%&l

153、t;b>　　Dim snoid　　snoid=Session("sno")　　If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request

154、.Form("T3")<>"" And Request.Form("T4")<>"" Then　　Dim db　　Set db=Server.CreateObject("ADODB.Connection&

155、quot;)　　db.Open "jiaowu"　　Dim sno,sname,ssex,sclass,strsql　　sno=Request.Form("T1")　　sname=Request.Form("T2"

156、;)　　ssex=Request.Form("T3")　　sclass=Request.Form("T4")　　strsql="Update stu Set sno='"&sno&"',sname='&q

157、uot;&sname&"',ssex='"&ssex&"',class='"&sclass&"'Where sno='"&snoid&"'"　　db.Execute(strsql)

158、;　　Response.Redirect"adm_stu.asp" 　　Else　　Response.Write"請(qǐng)將所有信息填寫完整"　　Response.Write"<a href='a

159、dm_stu.asp'>重新修改</a>"　　End If　　%>　　4、刪除學(xué)生信息的執(zhí)行程序 dele_stu.asp 　　<% Opti

160、on Explicit %>　　<% Response.Buffer=True %>　　<%　　If Session("admid")="" Then　　Response

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)課程設(shè)計(jì)--教務(wù)管理輔助系統(tǒng)的設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

數(shù)據(jù)課程設(shè)計(jì)--教務(wù)管理輔助系統(tǒng)的設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載