數(shù)據(jù)庫課程設(shè)計(jì)-教務(wù)輔助管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(參考版)
2024-09-06 11:39本頁面
【正文】 當(dāng)下次我接觸到新知識時(shí)，我會知道我該做些什么，該去看那些書籍資料，心中就會有一個(gè)明確的目的。 在這次課程設(shè)計(jì)中，我覺得我最大的收獲就是學(xué)會了為了做出這個(gè)程序，我該如何去尋找有用的資料，在短時(shí)期內(nèi)學(xué)到盡量多而且有用的知識和本領(lǐng) 。在做這次課程設(shè)計(jì)之前，我對它了解的很少，也從來沒想到我能完成這么一個(gè)程序。) (strsql) 添加成功 End If % 4 實(shí)驗(yàn)總結(jié)： 通過這 一 周的課程設(shè)計(jì)，我學(xué)到了很多從書本上學(xué)不到的知識。sclassamp。,39。ssexamp。,39。snameamp。,39。snoamp。 (strsql) End if % 添加學(xué)生信息的執(zhí)行程序 % Option Explicit % % =True % % If Session(admid)= Then End If If (T1) And (T2) And (T3) And (T4) Then Dim db Set db=() jiaowu Dim strsql,sno,sname,ssex,sclass sno=(T1) sname=(T2) ssex=(T3) sclass=(T4) strsql=Insert Into stu(sno,sname,ssex,class) Values(39。snoamp。重新修改 /a End If % 刪除學(xué)生信息的執(zhí)行程序 % Option Explicit % % =True % % If Session(admid)= Then 請先登錄 Else Dim db Set db=() jiaowu Dim strsql,sno sno=(sno) strsql=Delete From stu Where sno=39。 (strsql) Else 請將所有信息填寫完整 a href=39。snoidamp。Where sno=39。sclassamp。,class=39。ssexamp。,ssex=39。snameamp。,sname=39。snoamp。 Set rs=(strsql) End If % 修改學(xué)生信息的執(zhí)行程序 % Option Explicit % % Dim snoid snoid=Session(sno) If (T1) And (T2) And (T3) And (T4) Then Dim db Set db=() jiaowu Dim sno,sname,ssex,sclass,strsql sno=(T1) sname=(T2) ssex=(T3) sclass=(T4) strsql=Update stu Set sno=39。snoamp。) (strsql) 添加成功 End If % （三）學(xué)生信息維護(hù) 顯示學(xué)生信息 % Option Explicit % % =True% % If Session(admid)= Then 請先登錄 Else Dim db Set db=() jiaowu Dim strsql,rs strsql=Select distinct sno,sname,ssex,class From stu Set rs=(strsql) End if % form method=POST action= table border=0 width=100% id=table8 % Do While Not % tr td width=17% align=center%=rs(sno)%/td td width=16% align=center%=rs(sname)%/td td width=16% align=center%=rs(ssex)%/td td width=16% align=center%=rs(class)%/td td width=16% align=centera href=?sno=%=rs(sno)%修改 /a /td td width=16% align=centera href=?sno=%=rs(sno)%刪除 /a/td /tr % Loop % /table /form 修改學(xué)生信息 % Option Explicit % % =True % % If Session(admid)= Then 請先登錄 Else Dim sno sno=(sno) Session(sno)=sno Dim db Set db=() jiaowu Dim strsql,rs strsql=Select * From stu Where sno=39。ttelamp。,39。tnameamp。,39。tnoamp。 (strsql) End if % 添加信息教師信息的執(zhí)行程序 % Option Explicit % % =True % % If Session(admid)= Then 請先登錄 End If If (T1) And (T2) And (T3) Then Dim db Set db=() jiaowu Dim strsql,tno,tname,ttel tno=(T1) tname=(T2) ttel=(T3) strsql=Insert Into tea(tno,tname,ttel) Values(39。tnoamp。重新修改 /a End If % 刪除教師信息的執(zhí)行程序 % Option Explicit % % =True % % If Session(admid)= Then 請先登錄 Else Dim db Set db=() jiaowu Dim strsql,tno tno=(tno) strsql=Delete From tea Where tno=39。 (strsql) Else 請將所有信息填寫完整 a href=39。tnoidamp。Where tno=39。ttelamp。,ttel=39。tnameamp。,tname=39。tnoamp。 Set rs=(strsql) End If % 修改教師信息的執(zhí)行程序 % Option Explicit % % Dim tnoid tnoid=
試題試卷相關(guān)推薦
鄂ICP備17016276號-1