學(xué)生成績(jī)管理信息系統(tǒng)課程設(shè)計(jì)_第1頁(yè)
已閱讀1頁(yè),還剩10頁(yè)未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

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

文檔簡(jiǎn)介

1、<p>  學(xué)生成績(jī)管理信息系統(tǒng)</p><p><b>  分析與設(shè)計(jì)報(bào)告目錄</b></p><p>  一、設(shè)計(jì)報(bào)告要求3</p><p>  二、系統(tǒng)設(shè)計(jì)背景簡(jiǎn)介3</p><p>  三、系統(tǒng)技術(shù)及運(yùn)行環(huán)境3</p><p> ?。ㄒ唬¬isual Basic 6.

2、0(VB)簡(jiǎn)介3</p><p> ?。ǘ┫到y(tǒng)開(kāi)發(fā)及運(yùn)行環(huán)境4</p><p>  1.運(yùn)行環(huán)境WindowsXp或更高版本的操作系統(tǒng)4</p><p><b>  2.開(kāi)發(fā)環(huán)境:4</b></p><p><b>  四、系統(tǒng)分析4</b></p><p>&

3、lt;b>  (一)需求分析4</b></p><p>  1.系統(tǒng)功能需求4</p><p><b>  2.數(shù)據(jù)需求4</b></p><p><b>  3.性能需求4</b></p><p>  4.用戶(hù)選擇需求4</p><p> ?。ǘ?/p>

4、)可行性分析4</p><p>  五、模塊劃分以及有關(guān)模塊圖5</p><p><b> ?。ㄒ唬┑侨肽K5</b></p><p> ?。ǘW(xué)生信息管理5</p><p><b> ?。ㄈ┱n程管理5</b></p><p><b> ?。ㄋ模┏煽?jī)

5、管理5</b></p><p> ?。ㄎ澹┕芾韱T管理6</p><p>  六、業(yè)務(wù)流程圖及數(shù)據(jù)流程圖6</p><p><b>  七、總體設(shè)計(jì)7</b></p><p><b> ?。ㄒ唬┰O(shè)計(jì)目標(biāo)7</b></p><p><b>  

6、(二)項(xiàng)目規(guī)劃7</b></p><p><b>  八、詳細(xì)設(shè)計(jì)7</b></p><p> ?。ㄒ唬?shù)據(jù)庫(kù)設(shè)計(jì)7</p><p><b> ?。ǘ┐a設(shè)計(jì)8</b></p><p><b>  1.登陸界面8</b></p><

7、p>  2.學(xué)生基本情況9</p><p><b>  3.成績(jī)查詢(xún)10</b></p><p><b>  設(shè)計(jì)報(bào)告要求 </b></p><p>  按照課程內(nèi)容中的信息系統(tǒng)開(kāi)發(fā)過(guò)程和方法,選擇適當(dāng)?shù)膶W(xué)生成績(jī)系統(tǒng)開(kāi)發(fā),運(yùn)用結(jié)構(gòu)化開(kāi)發(fā)方法完成整個(gè)系統(tǒng)的分析與設(shè)計(jì)過(guò)程及其相應(yīng)報(bào)告。包括系統(tǒng)規(guī)劃、系統(tǒng)分析、系統(tǒng)設(shè)

8、計(jì)過(guò)程,寫(xiě)出設(shè)計(jì)報(bào)告。</p><p><b>  系統(tǒng)設(shè)計(jì)背景簡(jiǎn)介</b></p><p>  學(xué)生信息管理系統(tǒng)(Student Information Management System),以下簡(jiǎn)稱(chēng)SIMS,是針對(duì)學(xué)校人事處的大量業(yè)務(wù)處理工作而開(kāi)發(fā)的管理軟件,是典型的管理信息系統(tǒng)。它是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要,它能

9、夠?yàn)橛脩?hù)提供充足的信息和快捷的查詢(xún)手段。能有效的幫助學(xué)校和老師掌握學(xué)生的情況,為學(xué)生提供成績(jī)跟課程方面的查詢(xún)。在傳統(tǒng)模式下利用人工進(jìn)行學(xué)生信息管理,存在著較多的缺點(diǎn),如:效率底,保密性差,時(shí)間一長(zhǎng)將產(chǎn)生大量的文件和數(shù)據(jù),更不便于查找,更新,維護(hù)等。諸如這些情況,令學(xué)校管理者對(duì)學(xué)生的信息管理帶來(lái)了很大困難,嚴(yán)重影響了教育工作者的工作效率。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟, 使用日趨成熟的計(jì)算機(jī)技術(shù)來(lái)代替?zhèn)鹘y(tǒng)的人工模式,來(lái)實(shí)現(xiàn)學(xué)生

10、信息的現(xiàn)代化管理,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。因此,開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情。</p><p><b>  系統(tǒng)技術(shù)及運(yùn)行環(huán)境</b></p><p> ?。ㄒ唬¬isual Basic 6.0(VB)簡(jiǎn)介</p><p>  Visual Basic 6.0(VB)是一種由微

11、軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶(hù)界面(GUI)和快速應(yīng)用程序開(kāi)發(fā)(RAD)系統(tǒng),可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù),或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。</p><p> ?。ǘ┫到y(tǒng)開(kāi)發(fā)及運(yùn)行環(huán)境</p><p>  該運(yùn)行環(huán)境的規(guī)定是保證本需求說(shuō)明的功能得到實(shí)際

12、真正體現(xiàn)的基礎(chǔ)。</p><p>  1.運(yùn)行環(huán)境WindowsXp或更高版本的操作系統(tǒng)</p><p>  數(shù)據(jù)庫(kù)系統(tǒng):Microsoft Visual Basic 6.0</p><p><b>  2.開(kāi)發(fā)環(huán)境:</b></p><p>  開(kāi)發(fā)工具:Microsoft Visual Basic 6.0</p

13、><p>  數(shù)據(jù)庫(kù)系統(tǒng):Microsoft Visual Basic 6.0</p><p><b>  系統(tǒng)分析</b></p><p><b> ?。ㄒ唬┬枨蠓治?lt;/b></p><p><b>  1.系統(tǒng)功能需求</b></p><p> ?。?)

14、有關(guān)學(xué)籍信息的輸入,包括輸入學(xué)生基本信息、所在院系、所學(xué)專(zhuān)業(yè)、所在班級(jí)、所學(xué)課程和成績(jī)等。</p><p> ?。?)學(xué)生信息的查詢(xún),包括查詢(xún)學(xué)生基本信息、所在班級(jí)、已學(xué)課程和學(xué)生成績(jī)等。</p><p> ?。?)學(xué)生信息的修改,包括增加、刪除等。</p><p> ?。?)班級(jí)管理信息的輸入,包括輸入班級(jí)設(shè)置,年級(jí)信息等。</p><p>

15、; ?。?)課程信息的設(shè)置和查詢(xún)等。</p><p> ?。?)課程信息的修改,包括增加,刪除等。</p><p> ?。?)學(xué)生成績(jī)信息的管理和查詢(xún)等。</p><p><b>  2.數(shù)據(jù)需求</b></p><p>  通過(guò)調(diào)查,總結(jié)出用戶(hù)對(duì)數(shù)據(jù)的需求如下:(1)學(xué)生信息 包括:學(xué)號(hào),學(xué)生姓名,性別,出生日期,專(zhuān)

16、業(yè),班級(jí)等</p><p> ?。?)課程信息 包括:課程編號(hào),課程名稱(chēng),所屬專(zhuān)業(yè)等.</p><p> ?。?)選課信息 包括:學(xué)生姓名,課程名稱(chēng),開(kāi)課時(shí)間,成績(jī)等. </p><p><b>  3.性能需求</b></p><p>  (1) 系統(tǒng)的高速性,穩(wěn)定性,安全性. </p><p>

17、; ?。?) 系統(tǒng)的體系結(jié)構(gòu)能夠方便添加功能模塊,適應(yīng)業(yè)務(wù),辦公的發(fā)展. </p><p> ?。?) 系統(tǒng)人機(jī)界面友好,易學(xué)易用. </p><p> ?。?) 系統(tǒng)維護(hù)成本較低.</p><p><b>  4.用戶(hù)選擇需求</b></p><p>  本系統(tǒng)面向的用戶(hù)有:學(xué)校的系統(tǒng)人員、管理人員、教師、學(xué)生。所以對(duì)

18、計(jì)算機(jī)的人性化和易用性比較高,應(yīng)用于學(xué)校學(xué)生信息管理,總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化,其主要任務(wù)是計(jì)算學(xué)生各種信息進(jìn)行日常管理,如查詢(xún)、修改、增加、刪除,另外還考慮到了學(xué)生選課,做到看界面簡(jiǎn)單易懂,容易操作,提高了學(xué)校管理效率以及提升了學(xué)生信息的安全性和完整性。</p><p><b> ?。ǘ┛尚行苑治?lt;/b></p><p>  目的:可行性

19、研究的目的是用最小的代價(jià)在盡可能的時(shí)間內(nèi)確定問(wèn)題是否能解決。</p><p><b>  經(jīng)濟(jì)性:</b></p><p>  由于學(xué)校等中小型管理系統(tǒng)并不復(fù)雜,且Visual Basic 6.0本身要求的運(yùn)行環(huán)境不高,所以一般Windows XP以上的系統(tǒng)環(huán)境都可以使用。</p><p><b>  實(shí)用性:</b>&l

20、t;/p><p>  本學(xué)生信息管理系統(tǒng)管理系統(tǒng)無(wú)太多復(fù)雜的操作要求,也沒(méi)有過(guò)分花哨的裝飾品,人性化的設(shè)計(jì)界面可以使操作者輕易運(yùn)用自如。</p><p>  模塊劃分以及有關(guān)模塊圖</p><p><b> ?。ㄒ唬┑侨肽K</b></p><p>  用戶(hù)登陸(教師登陸,管理員登陸)</p><p>

21、;<b> ?。ǘW(xué)生信息管理</b></p><p>  此模塊由學(xué)生基本信息、系別信息、班級(jí)信息、成績(jī)信息等組成。</p><p><b> ?。ㄈ┱n程管理</b></p><p>  此模塊由課程信息、選課信息組成</p><p><b> ?。ㄋ模┏煽?jī)管理</b>&

22、lt;/p><p>  此模塊由成績(jī)信息組成。</p><p><b> ?。ㄎ澹┕芾韱T管理</b></p><p>  此模塊由管理員信息組成</p><p>  業(yè)務(wù)流程圖及數(shù)據(jù)流程圖</p><p><b>  管理業(yè)務(wù):</b></p><p>&

23、lt;b>  接收成績(jī)表;</b></p><p><b>  錄入成績(jī)單</b></p><p><b>  生成學(xué)生成績(jī)</b></p><p><b>  外部實(shí)體:</b></p><p><b>  教師;</b></p&

24、gt;<p><b>  教務(wù)處;</b></p><p><b>  學(xué)生;</b></p><p><b>  信息實(shí)體(存儲(chǔ)):</b></p><p><b>  成績(jī)表;</b></p><p><b>  賬號(hào)表<

25、/b></p><p>  信息表 圖:頂層DFD</p><p>  處理:(區(qū)分信息處理行為和物流行為、系統(tǒng)內(nèi)的和系統(tǒng)外的)</p><p>  接收成績(jī)單、教師、學(xué)生個(gè)人信息數(shù)據(jù);</p><p><b>  生成成績(jī)表;</b></p><p><b>  成績(jī)綜合分析

26、</b></p><p><b>  接收成績(jī)</b></p><p><b>  總體設(shè)計(jì)</b></p><p><b> ?。ㄒ唬┰O(shè)計(jì)目標(biāo)</b></p><p>  本系統(tǒng)可以能減少很多不必要的資源,不用象以前那樣用冗余的紙張式的管理。大節(jié)省了學(xué)校能源。并且

27、計(jì)算機(jī)的存儲(chǔ)與快速查詢(xún)功能大大提高了學(xué)籍管理的效率,并且還提高了學(xué)籍信息管理的精確度。</p><p>  方便快速的操作,可減少學(xué)籍信息管理的漏洞,又減少因工作的冗余出現(xiàn)的錯(cuò)誤,并且操作非常簡(jiǎn)單,可減少許多不很必要的人員,這無(wú)論從物質(zhì)上還是工作人員的工資上都為學(xué)校節(jié)約了開(kāi)支。為學(xué)校增加了財(cái)富。</p><p><b>  數(shù)據(jù)庫(kù)分析</b></p>&

28、lt;p>  用戶(hù)需求具體有學(xué)籍管理系統(tǒng)提供保存、更新、查詢(xún)、維護(hù),這就需求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿(mǎn)足各種信息的輸入與輸出,實(shí)現(xiàn)有組織地、動(dòng)態(tài)地存儲(chǔ)大量關(guān)聯(lián)數(shù)據(jù),方便用戶(hù)訪問(wèn)系統(tǒng)中的數(shù)據(jù),它與文件系統(tǒng)的重要區(qū)別是數(shù)據(jù)的充分共享,交叉訪問(wèn),與應(yīng)用程序的高度獨(dú)立性。</p><p><b> ?。ǘ╉?xiàng)目規(guī)劃</b></p><p>  學(xué)生管理系統(tǒng)是各大中專(zhuān)院校不可缺少

29、的一部分,是一個(gè)VB數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用程序,它主要包括用戶(hù)登錄、學(xué)生信息輸入修改、學(xué)生信息查詢(xún)以及學(xué)生成績(jī)輸入、學(xué)生成績(jī)查詢(xún)、系統(tǒng)用戶(hù)管理等幾個(gè)頁(yè)面,因而該系統(tǒng)具有較強(qiáng)的實(shí)用性。</p><p><b>  詳細(xì)設(shè)計(jì)</b></p><p><b> ?。ㄒ唬?shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p><b> ?。ǘ┐a

30、設(shè)計(jì)</b></p><p><b>  1.登陸界面</b></p><p>  Private Sub Command1_Click()</p><p>  Dim str As String</p><p>  If Trim(Text1.Text) = "" Or Trim(Tex

31、t2.Text) = "" Then</p><p>  MsgBox "輸入不能為空", 0 + 48, "警告" '判斷是否為空,是則彈出窗體警告</p><p>  Text1.SetFocus</p><p>  Text1.Text = ""</p>

32、<p>  Text2.Text = ""</p><p><b>  Else</b></p><p>  Adodc1.RecordSource = "select * from 賬號(hào)表 where 用戶(hù)名='" & Text1.Text & "'"</p&

33、gt;<p>  Adodc1.Refresh</p><p>  If Adodc1.Recordset.EOF Then</p><p>  MsgBox "賬戶(hù)錯(cuò)誤", 0 + 48, "提示信息"</p><p>  Text1.SetFocus</p><p>  Text1.T

34、ext = ""</p><p>  Text2.Text = ""</p><p><b>  Else</b></p><p>  str = Adodc1.Recordset.Fields("密碼").Value</p><p>  If Trim(Tex

35、t2.Text) <> str Then</p><p>  MsgBox "密碼錯(cuò)誤", 0 + 48, "warning"</p><p>  Text2.SetFocus</p><p>  Text2.Text = ""</p><p><b>  El

36、se</b></p><p><b>  Me.Hide</b></p><p>  formmain.Show </p><p><b>  End If</b></p><p><b>  End If</b></p><p><b

37、>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p><b>  End</b></p><p><b>  End Sub</b><

38、/p><p>  Private Sub Command3_Click()</p><p><b>  Me.Hide</b></p><p>  formapply.Show</p><p><b>  End Sub</b></p><p>  Private Sub Tex

39、t2_KeyPress(KeyAscii As Integer)</p><p>  If KeyAscii = 13 Then</p><p>  Call Command1_Click</p><p><b>  End If</b></p><p><b>  End Sub</b></

40、p><p>  Private Sub Text1_KeyPress(KeyAscii As Integer)</p><p>  If KeyAscii = 13 Then</p><p>  Text2.SetFocus</p><p><b>  End If</b></p><p><b

41、>  End Sub</b></p><p>  2.學(xué)生基本情況代碼</p><p>  Private Sub Command4_Click()</p><p><b>  Me.Hide</b></p><p>  formmain.Show</p><p><b&g

42、t;  End Sub</b></p><p>  Private Sub Combo1_Click()</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select * from 基本情況表 where 性別 ='" &

43、amp; Combo1.Text & "'"</p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Combo2_Click()</p><p>  Adodc1.CommandType = a

44、dCmdUnknown</p><p>  Adodc1.RecordSource = "select * from 基本情況表 where 專(zhuān)業(yè) ='" & Combo2.Text & "'"</p><p>  Adodc1.Refresh</p><p><b>  End Su

45、b</b></p><p>  Private Sub Command1_Click()</p><p>  If Text1 > "" Then</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = &qu

46、ot;select * from 基本情況表 where 學(xué)號(hào) ='" & Text1 & "'"</p><p><b>  Else</b></p><p>  Adodc1.RecordSource = "select * from 基本情況表"</p><p&

47、gt;<b>  End If</b></p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  If Text2 > "" The

48、n</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select * from 基本情況表 where 姓名 ='" & Text2 & "'"</p><p><b>  Els

49、e</b></p><p>  Adodc1.RecordSource = "select * from 基本情況表"</p><p><b>  End If</b></p><p>  Adodc1.Refresh</p><p><b>  End Sub</b>

50、;</p><p>  Private Sub Command3_Click()</p><p>  Adodc1.CommandType = adCmdTable</p><p>  Adodc1.RecordSource = "基本情況表"</p><p>  Adodc1.Refresh</p><

51、;p><b>  End Sub</b></p><p><b>  3.成績(jī)查詢(xún)代碼</b></p><p>  Private Sub Command1_Click()</p><p>  If Text1.Text > "" Then</p><p>  Ado

52、dc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select * from 成績(jī)表 where 姓名 ='" & Text1.Text & "'"</p><p><b>  Else</b></p>&

53、lt;p>  Adodc1.RecordSource = "select * from 成績(jī)表"</p><p><b>  End If</b></p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Pr

54、ivate Sub Command10_Click()</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 平均成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 "</p><p>  Adodc1.Refresh</p><

55、p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  If Text2.Text > "" Then</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>

56、  Adodc1.RecordSource = "select * from 成績(jī)表 where 學(xué)號(hào) ='" & Text2.Text & "'"</p><p><b>  Else</b></p><p>  Adodc1.RecordSource = "select * from

57、 成績(jī)表"</p><p><b>  End If</b></p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>  If

58、 Adodc1.RecordSource = "select 高數(shù)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 " Then</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 高數(shù)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 order by 高數(shù)成績(jī) DESC&

59、quot;</p><p>  Adodc1.Refresh</p><p><b>  Else</b></p><p>  If Adodc1.RecordSource = "select 英語(yǔ)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 " Then</p><p>  Adodc1.CommandTyp

60、e = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 英語(yǔ)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 order by 英語(yǔ)成績(jī) DESC"</p><p>  Adodc1.Refresh</p><p><b>  Else</b></p><p&g

61、t;  If Adodc1.RecordSource = "select 計(jì)算機(jī)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 " Then</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 計(jì)算機(jī)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 order by 計(jì)算

62、機(jī)成績(jī) DESC"</p><p>  Adodc1.Refresh</p><p><b>  Else</b></p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 平均成績(jī),學(xué)號(hào),姓

63、名 from 成績(jī)表 order by 平均成績(jī) DESC"</p><p>  Adodc1.Refresh</p><p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End If</b><

64、/p><p><b>  End Sub</b></p><p>  Private Sub Command4_Click()</p><p>  If Adodc1.RecordSource = "select 高數(shù)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 " Then</p><p>  Adodc1.Co

65、mmandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 高數(shù)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 where 高數(shù)成績(jī) between 60 and 100"</p><p>  Adodc1.Refresh</p><p><b>  Else</b>

66、</p><p>  If Adodc1.RecordSource = "select 英語(yǔ)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 " Then</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 英語(yǔ)成績(jī),學(xué)號(hào),姓名 fro

67、m 成績(jī)表 where 英語(yǔ)成績(jī) between 60 and 100"</p><p>  Adodc1.Refresh</p><p><b>  Else</b></p><p>  If Adodc1.RecordSource = "select 計(jì)算機(jī)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 " Then<

68、;/p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 計(jì)算機(jī)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 where 計(jì)算機(jī)成績(jī) between 60 and 100"</p><p>  Adodc1.Refresh</p><

69、;p><b>  Else</b></p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 平均成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 where 平均成績(jī) between 60 and 100"</p><p>

70、;  Adodc1.Refresh</p><p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End Sub</b></p>

71、<p>  Private Sub Command5_Click()</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select *from 成績(jī)表 "</p><p>  Adodc1.Refresh</p>

72、<p><b>  End Sub</b></p><p>  Private Sub Command6_Click()</p><p><b>  Me.Hide</b></p><p>  formmain.Show</p><p><b>  End Sub</b&g

73、t;</p><p>  Private Sub Command7_Click()</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "select 高數(shù)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 "</p><p>  Adod

74、c1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command8_Click()</p><p>  Adodc1.CommandType = adCmdUnknown</p><p>  Adodc1.RecordSource = "sel

75、ect 英語(yǔ)成績(jī),學(xué)號(hào),姓名 from 成績(jī)表 "</p><p>  Adodc1.Refresh</p><p><b>  End Sub</b></p><p>  Private Sub Command9_Click()</p><p>  Adodc1.CommandType = adCmdUnkn

溫馨提示

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

最新文檔

評(píng)論

0/150

提交評(píng)論