1、<p>　　課程設(shè)計(jì)(論文)說(shuō)明書(shū)</p><p>　　題 目： 學(xué)生成績(jī)信息管理系統(tǒng) </p><p>　　系 別： 計(jì)算機(jī)科學(xué)與工程學(xué)院 </p><p>　　專 業(yè)： 信息管理與信息系統(tǒng) </p><p>　　學(xué)生姓名： </p><p>　　學(xué) 號(hào)：

2、 </p><p>　　指導(dǎo)教師： </p><p><b>　　摘 要</b></p><p><b>　　背景</b></p><p>　　隨著全球一體化的到來(lái)，我們將面對(duì)快節(jié)奏的時(shí)代步伐，面臨世界各國(guó)的經(jīng)濟(jì)的挑戰(zhàn)，我們的生活要求做任何事情都要簡(jiǎn)

3、單快速準(zhǔn)確，以適應(yīng)這些此種生活，計(jì)算機(jī)技術(shù)讓我們得以實(shí)現(xiàn)。隨著電腦技術(shù)已經(jīng)深入我們的生活，他給我們帶來(lái)的效率有目共睹。</p><p>　　數(shù)據(jù)庫(kù)始于20世紀(jì)60年代，經(jīng)過(guò)40多年的發(fā)展，現(xiàn)在已經(jīng)形成了理論體系，成為計(jì)算機(jī)軟件的一個(gè)重要分支。數(shù)據(jù)庫(kù)技術(shù)體現(xiàn)了當(dāng)代先進(jìn)的數(shù)據(jù)管理方法，使計(jì)算機(jī)的應(yīng)用真正滲透到國(guó)民經(jīng)濟(jì)各個(gè)部門(mén)，在數(shù)據(jù)處理領(lǐng)域發(fā)揮著越來(lái)越大的作用。</p><p>　　在我國(guó)，很

4、多中小學(xué)校的信息管理系統(tǒng)并不科學(xué)高效，甚至有的學(xué)校根本就沒(méi)有信息管理系統(tǒng)完全傳統(tǒng)的手工方式，所有的工作幾乎還是手工操作來(lái)完成。特別是在西部貧困地區(qū)，學(xué)校的管理工作依然由手工操作來(lái)完成，效率極低，成本很大，而且極異出錯(cuò)。隨著社會(huì)的發(fā)展，信息化是社會(huì)進(jìn)程的必然趨勢(shì)，學(xué)校管理充分發(fā)揮其價(jià)值。</p><p><b>　　目的</b></p><p>　　學(xué)生成績(jī)信息管理內(nèi)容

5、交復(fù)雜，數(shù)據(jù)量交大，手工記錄方式對(duì)現(xiàn)代的我們已經(jīng)過(guò)時(shí)，它不僅數(shù)據(jù)容易遺漏丟失，而且在統(tǒng)計(jì)時(shí)易發(fā)生錯(cuò)誤，速度慢。計(jì)算機(jī)可以實(shí)現(xiàn)工作速度高效及統(tǒng)計(jì)數(shù)據(jù)的準(zhǔn)確性，從而提高管理效率。在計(jì)算機(jī)聯(lián)網(wǎng)后，數(shù)據(jù)在網(wǎng)上傳遞，可以實(shí)現(xiàn)數(shù)據(jù)共享，避免重復(fù)勞動(dòng)，學(xué)生成績(jī)管理系統(tǒng)以計(jì)算機(jī)為工具，通過(guò)對(duì)教務(wù)管理所需的信息管理，為老師節(jié)省很多的時(shí)間和精力，提高老師的工作效率。傳統(tǒng)的手工方式，數(shù)據(jù)容易丟失，在統(tǒng)計(jì)時(shí)易發(fā)生錯(cuò)誤，速度慢。而計(jì)算機(jī)可以提高工作速度及統(tǒng)計(jì)數(shù)據(jù)

6、的準(zhǔn)確性。從而提高管理效率。在計(jì)算機(jī)聯(lián)網(wǎng)后，數(shù)據(jù)在網(wǎng)上傳遞，可以實(shí)現(xiàn)數(shù)據(jù)共享，避免重復(fù)勞動(dòng)，學(xué)生成績(jī)管理系統(tǒng)以計(jì)算機(jī)為工具，通過(guò)對(duì)教務(wù)管理所需的信息管理，為老師節(jié)省很多的時(shí)間和精力，提高老師的工作效率。</p><p>　　這次課程設(shè)計(jì)室結(jié)合數(shù)據(jù)庫(kù)原理的基本理論上，利用現(xiàn)代關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)這個(gè)學(xué)生成績(jī)信息管理系統(tǒng)。通過(guò)本課程的訓(xùn)練，使我掌握數(shù)據(jù)庫(kù)技術(shù)的實(shí)際應(yīng)用以及數(shù)據(jù)庫(kù)信息管理系統(tǒng)的設(shè)計(jì)方法與開(kāi)發(fā)過(guò)程；掌握數(shù)據(jù)

7、庫(kù)開(kāi)發(fā)工具的使用以及綜合編程調(diào)試的能力，為以后能進(jìn)行數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)、開(kāi)發(fā)與維護(hù)打下良好的基礎(chǔ)。</p><p><b>　　目 錄</b></p><p><b>　　摘 要1</b></p><p>　　1系統(tǒng)目標(biāo)與任務(wù)3</p><p>　　2系統(tǒng)需求分析3</p>

8、<p>　　2.1系統(tǒng)詳細(xì)需求 功能需求3</p><p>　　2.2使用環(huán)境：6</p><p>　　2.3可行性分析6</p><p>　　3軟件開(kāi)發(fā)過(guò)程7</p><p>　　3.1系統(tǒng)設(shè)計(jì)7</p><p>　　3.2軟件設(shè)計(jì)9</p><p>&l

9、t;b>　　4軟件測(cè)試12</b></p><p>　　4.1測(cè)試環(huán)境12</p><p>　　4.2功能測(cè)試12</p><p>　　4.3性能測(cè)試15</p><p><b>　　5結(jié)論15</b></p><p><b>　　6參考文獻(xiàn)16

10、</b></p><p><b>　　附錄17</b></p><p><b>　　系統(tǒng)目標(biāo)與任務(wù)</b></p><p>　　本系統(tǒng)是利用數(shù)據(jù)庫(kù)系統(tǒng)，將現(xiàn)代化的計(jì)算機(jī)技術(shù)和傳統(tǒng)的教學(xué)、教務(wù)工作相結(jié)合，按照學(xué)院的工作流程設(shè)計(jì)完成的。為了使系統(tǒng)在學(xué)院的管理中發(fā)揮更大的作用，實(shí)現(xiàn)工作過(guò)程的計(jì)算機(jī)化，提高工作效率和

11、工作質(zhì)量，現(xiàn)提出如下的系統(tǒng)開(kāi)發(fā)目標(biāo)：</p><p>　　1.系統(tǒng)應(yīng)要達(dá)到實(shí)用、可靠和適用，操作簡(jiǎn)單。</p><p>　　2.對(duì)數(shù)據(jù)庫(kù)進(jìn)行動(dòng)有效態(tài)管。</p><p>　　3.能夠按照用戶需求進(jìn)行簡(jiǎn)單查詢和復(fù)合查詢。</p><p>　　4.能夠進(jìn)行分類匯總，實(shí)現(xiàn)報(bào)表打印。</p><p>　　系統(tǒng)開(kāi)發(fā)任務(wù)：完成信息

12、管理系統(tǒng)的主界面設(shè)計(jì)；數(shù)據(jù)輸入與修改的設(shè)計(jì)；數(shù)據(jù)查詢的設(shè)計(jì)；統(tǒng)計(jì)與報(bào)表輸出的設(shè)計(jì)。盡量減少用戶的操作結(jié)合一個(gè)具體任務(wù)，完成一個(gè)基于數(shù)據(jù)庫(kù)系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)，主要應(yīng)包括如下內(nèi)容：完成課題任務(wù)的需求分析、完成系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)方案。</p><p><b>　　系統(tǒng)需求分析</b></p><p>　　系統(tǒng)詳細(xì)需求 功能需求</p><p>　　本系統(tǒng)

13、是學(xué)生成績(jī)管理系統(tǒng)，所以主要是對(duì)學(xué)生成績(jī)信息的管理。在SQL Serve2005中建立表有：學(xué)生基本信息表、學(xué)生在校信息表、學(xué)生成績(jī)表和用戶表，他們各自的屬性如圖所示：</p><p>　　在這個(gè)系統(tǒng)中我們首先在學(xué)生入學(xué)時(shí)候，建表將其基本信息以及入校后的信息錄入，并讓其核對(duì)修改，然后就其選得課程再建立一張表，對(duì)它的成績(jī)錄入，并讓學(xué)生自己建立用戶以便查詢自己的成績(jī)。在建立各張表后，保留對(duì)表的信息的添加、刪除和修改功

14、能，并可以按班級(jí)、課程名稱與成績(jī)批次組合進(jìn)行多條件查詢出符合這個(gè)條件的學(xué)生的成績(jī)，并選擇其中要修改的學(xué)生的成績(jī)進(jìn)行修改，可以按學(xué)號(hào)查詢出學(xué)生成績(jī)，并對(duì)該學(xué)號(hào)的學(xué)生的成績(jī)進(jìn)行修改。具體業(yè)務(wù)流程如圖：</p><p>　　學(xué)生建立用戶后，通過(guò)主頁(yè)面檢查用戶密碼準(zhǔn)確后進(jìn)入功能界面。學(xué)生進(jìn)入業(yè)務(wù)流程圖：</p><p><b>　　用戶界面登陸如圖：</b></p>

15、;<p><b>　　使用環(huán)境： </b></p><p>　　此系統(tǒng)是在筆記本電腦上完成的，本電腦采用windows7系統(tǒng)，i5雙核處理器，硬盤(pán)為500GB，利用Delphi和SQL Serve2005。</p><p>　　Delphi是一個(gè)對(duì)象導(dǎo)向設(shè)計(jì)的應(yīng)用程序語(yǔ)言，是開(kāi)發(fā)數(shù)據(jù)庫(kù)前端的優(yōu)秀工具，它的編程語(yǔ)言簡(jiǎn)潔明快、組件功能強(qiáng)大和編程環(huán)境靈活方便。

16、采用Delphi來(lái)開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序具有更大的靈活性和可擴(kuò)展性。</p><p>　　SQL Server是一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，它達(dá)到了支持超大型企業(yè)進(jìn)行聯(lián)機(jī)事務(wù)處理(OLTP)、高度復(fù)雜的數(shù)據(jù)分析、數(shù)據(jù)倉(cāng)庫(kù)系統(tǒng)和網(wǎng)站所需的性能水平，為開(kāi)發(fā)人員在SQL Server查詢開(kāi)發(fā)方面提供了更高的靈活性和控制力。個(gè)完整的、數(shù)據(jù)傳輸服務(wù)的、重新設(shè)計(jì)方案，這一方案為用戶提供了一個(gè)全面的摘錄、傳輸和加載平臺(tái)錯(cuò)技術(shù)移轉(zhuǎn)叢集、

17、增強(qiáng)對(duì)多重執(zhí)行個(gè)體的支持、以及支持備份和恢復(fù)分析服務(wù)對(duì)象和數(shù)據(jù)，分析服務(wù)改進(jìn)了其可用性。</p><p><b>　　可行性分析</b></p><p>　　在現(xiàn)在這個(gè)計(jì)算機(jī)高度發(fā)展的時(shí)代，設(shè)計(jì)這個(gè)系統(tǒng)是絕對(duì)可行的，分別充經(jīng)濟(jì)和技術(shù)上分析：</p><p>　　經(jīng)濟(jì)上：首先計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能也有了很大的進(jìn)步。然后而本系統(tǒng)的開(kāi)發(fā)，為學(xué)

18、校的工作效率帶來(lái)了一個(gè)質(zhì)的飛躍，節(jié)省了人力物力，為此具體表現(xiàn)有以下幾個(gè)方面：</p><p>　　第一，本系統(tǒng)的運(yùn)行可以代替人工進(jìn)行許多繁雜的勞動(dòng)，以交少得人力完成以前很多很才能完成的工作，為學(xué)校節(jié)省許多開(kāi)支和人力；</p><p>　　第二，本系統(tǒng)的運(yùn)行可以大大的提高學(xué)校的工作效率，只想要較少得人就能完成；</p><p>　　第三，本系統(tǒng)更加安全準(zhǔn)確可靠，降低了

19、錯(cuò)誤的出現(xiàn)。</p><p>　　所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的。</p><p>　　技術(shù)上：本系統(tǒng)的開(kāi)發(fā)利用Microsoft SQL Server2005作為本系統(tǒng)的數(shù)據(jù)庫(kù)，它是一個(gè)支持多用戶的新型數(shù)據(jù)庫(kù)，適用于大中規(guī)模的數(shù)據(jù)量需求。學(xué)校校園網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。</p><p>　　使用delphi7作為系統(tǒng)開(kāi)發(fā)的開(kāi)發(fā)環(huán)境，它

20、的技術(shù)較為容易學(xué)習(xí)，我們更容易掌握，在學(xué)習(xí)C語(yǔ)言和數(shù)據(jù)庫(kù)后，為我們提供了技術(shù)可能，給開(kāi)發(fā)高性能系統(tǒng)提供的保障為開(kāi)發(fā)滿足客戶要求的系統(tǒng)，它的代碼的簡(jiǎn)單，非常有利于以后對(duì)新系統(tǒng)的擴(kuò)展與修改。</p><p>　　綜上所述，本系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。</p><p>　　本系統(tǒng)為一個(gè)小型的學(xué)生信息管理系統(tǒng)，所耗費(fèi)的資源非常的小，學(xué)校的電腦無(wú)

21、論是硬件還是軟件都能夠滿足條件，因此，本系統(tǒng)在運(yùn)行上是可行的。</p><p><b>　　軟件開(kāi)發(fā)過(guò)程</b></p><p><b>　　系統(tǒng)設(shè)計(jì)</b></p><p>　　本系統(tǒng)適用于中小學(xué)校，其功能主要分為：</p><p>　　用戶管理：用于對(duì)用戶的添加，賦于不同權(quán)限及對(duì)用戶的修改及查詢

22、。</p><p>　　課程管理：用于對(duì)各學(xué)期課程的開(kāi)設(shè)和修改。</p><p>　　成績(jī)管理：用于對(duì)成績(jī)的輸入、修改、匯總及排名。</p><p>　　學(xué)生信息管理：添加，刪除，修改學(xué)生信息等。 </p><p>　　學(xué)生信息查詢: 對(duì)學(xué)生成績(jī)等信息的查詢，匯總查詢方式，且具有多條件組合查詢功能。 </p><p>

23、　　學(xué)生成績(jī)統(tǒng)計(jì): 統(tǒng)計(jì)總?cè)藬?shù),及格人數(shù)</p><p><b>　　功能有：</b></p><p>　　錄入功能：為一般用戶提供相應(yīng)的錄入功能，為超級(jí)用戶提供對(duì)所有信息的錄入功能。</p><p>　　查詢功能：為所有用戶提供查詢的功能，可查詢?cè)试S范圍內(nèi)的所有信息。</p><p>　　維護(hù)功能：為一般用戶提供查詢及

24、相應(yīng)的修改，刪除功能，為超級(jí)用戶提供對(duì)所有信息的修改刪</p><p>　　退出功能：結(jié)束并關(guān)閉系統(tǒng)。</p><p>　　數(shù)據(jù)庫(kù)設(shè)計(jì)E-R圖如下：</p><p>　　系統(tǒng)分別可以對(duì)學(xué)生基本信息、學(xué)生在校信息和學(xué)生成績(jī)進(jìn)行查詢和修改，在成績(jī)查詢中可以按照不同要求進(jìn)行查詢：對(duì)單一學(xué)生進(jìn)行查詢，對(duì)班級(jí)或?qū)I(yè)學(xué)生成績(jī)進(jìn)行查詢和按照科目查詢和統(tǒng)計(jì)，在用戶中只有管理員可以查

25、詢，用戶可以修改密碼，刪除功能也只有管理員可執(zhí)行，并可以對(duì)成績(jī)進(jìn)行統(tǒng)計(jì)和制作報(bào)表。功能模塊結(jié)構(gòu)圖如圖：</p><p><b>　　查詢模塊：</b></p><p><b>　　修改模塊：</b></p><p><b>　　刪除模塊：</b></p><p><b&g

26、t;　　錄入模塊：</b></p><p><b>　　軟件設(shè)計(jì)</b></p><p>　　系統(tǒng)主要運(yùn)用SQL Server和delphi7按鈕和語(yǔ)句，列舉幾個(gè)設(shè)計(jì)實(shí)例。</p><p>　　在經(jīng)歷SQL Server中，首先連接它，在數(shù)據(jù)庫(kù)中建立新的名為學(xué)生信息的數(shù)據(jù)庫(kù)，在表中分別經(jīng)歷4個(gè)表，并輸入事先準(zhǔn)備好的數(shù)據(jù)，然后經(jīng)歷界面

27、并把他們連接到數(shù)據(jù)庫(kù)上。功能分析：</p><p><b>　　數(shù)據(jù)庫(kù)如：</b></p><p>　　在運(yùn)用delphi7按鈕和語(yǔ)句，部分功能程序，</p><p><b>　　用戶進(jìn)入語(yǔ)句：</b></p><p>　　doquery1.SQL.Clear;</p><p&g

28、t;　　adoquery1.SQL.Add('select * from 用戶 where 用戶名='''+Edit1.Text+''' and 密碼='''+Edit2.Text+'''');</p><p>　　adoquery1.Open;</p><p>　　if(ado

29、query1.IsEmpty)then</p><p><b>　　begin</b></p><p>　　ShowMessage('用戶名或密碼錯(cuò)誤！');</p><p><b>　　end</b></p><p><b>　　else</b></p&

30、gt;<p><b>　　begin</b></p><p>　　form2.Show;</p><p><b>　　end</b></p><p>　　錄入語(yǔ)句：procedure TForm3.Button1Click(Sender: TObject);</p><p><b

31、>　　begin</b></p><p>　　adotable1.Append</p><p><b>　　end;</b></p><p>　　procedure TForm3.Button2Click(Sender: TObject);</p><p><b>　　begin</b&

32、gt;</p><p>　　adotable1.Delete;</p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　修改語(yǔ)句procedure TForm8.Button1Click(Sender: TObject);</p>

33、<p><b>　　begin</b></p><p>　　adotable1.Edit;</p><p><b>　　end;：</b></p><p>　　查詢語(yǔ)句procedure TForm6.Button1Click(Sender: TObject);</p><p><

34、b>　　begin</b></p><p>　　ADOQuery1.SQL.clear;</p><p>　　ADOQuery1.SQL.Add('select * from 學(xué)生 where 學(xué)號(hào)='''+edit1.text+'''');</p><p>　　ADOQuery1.o

35、pen;</p><p><b>　　end;</b></p><p>　　procedure TForm6.Button2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　ADOQuery1.SQL.clear;</p>

36、<p>　　ADOQuery1.SQL.Add('select * from 學(xué)生 where 姓名='''+edit2.text+'''');</p><p>　　ADOQuery1.open;</p><p><b>　　end;</b></p><p>　　pr

37、ocedure TForm6.Button3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　ADOQuery1.SQL.clear;</p><p>　　ADOQuery1.SQL.Add('select * from 成績(jī) where 學(xué)號(hào)=''

38、9;+edit4.text+'''');</p><p>　　ADOQuery1.open;</p><p><b>　　end;</b></p><p>　　procedure TForm6.Button4Click(Sender: TObject);</p><p><b>

39、　　begin</b></p><p>　　ADOQuery1.SQL.clear;</p><p>　　ADOQuery1.SQL.Add('select * from 成績(jī) where 科目='''+edit3.text+'''');</p><p>　　ADOQuery1.open;&

40、lt;/p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　用戶進(jìn)入后，就到了主目錄界面如圖：</p><p>　　點(diǎn)擊左上角的下拉菜單和都可以進(jìn)入各模塊界面，</p><p><b>　　報(bào)表制作如圖：</

41、b></p><p><b>　　軟件測(cè)試</b></p><p><b>　　測(cè)試環(huán)境</b></p><p>　　本系統(tǒng)也是在設(shè)計(jì)本系統(tǒng)的筆記本上進(jìn)行測(cè)試的，并在打開(kāi)SQL Server和delphi7環(huán)境下進(jìn)行的。測(cè)試時(shí)打開(kāi)SQL Server使delphi7能夠連接到數(shù)據(jù)庫(kù)，然后在delphi7中進(jìn)行測(cè)試。&

42、lt;/p><p><b>　　功能測(cè)試</b></p><p>　　測(cè)試用戶進(jìn)入測(cè)試：錯(cuò)誤時(shí)出現(xiàn)：</p><p><b>　　正確是：</b></p><p><b>　　錄入信息后：</b></p><p><b>　　查詢測(cè)試：</

43、b></p><p><b>　　報(bào)表功能：</b></p><p><b>　　性能測(cè)試</b></p><p>　　此系統(tǒng)方便快速的操作，可減少學(xué)籍信息管理的漏洞，又減少因工作的冗余出現(xiàn)的錯(cuò)誤，并且操作非常簡(jiǎn)單，可減少許多不很必要的人員，這無(wú)論從物質(zhì)上還是工作人員的工資上都為學(xué)校節(jié)約了開(kāi)支。為學(xué)校增加了財(cái)富。&l

44、t;/p><p><b>　　結(jié)論</b></p><p>　　通過(guò)這次自己一人單獨(dú)設(shè)計(jì)此系統(tǒng)我感觸甚多，對(duì)Delphi這一系有了進(jìn)一步了解，這次對(duì)我在這方面幫助很大，不僅然讓我知道自身的不足，而且還給我今后的學(xué)習(xí)方法有一定的提升幫助。</p><p>　　在這次實(shí)踐中，我并沒(méi)能夠較好的完成期望的效果。在一下功能的設(shè)計(jì)上，我沒(méi)能夠設(shè)計(jì)合理，沒(méi)到到效

45、、簡(jiǎn)便的目的，還有兩個(gè)功能沒(méi)能夠完成，我感到非常遺憾。對(duì)自身，我感覺(jué)到自己對(duì)時(shí)間的分配不合理，這次讓我知道時(shí)間要分配好，并要留一些時(shí)間對(duì)所做的東西進(jìn)行修改提升。</p><p>　　學(xué)生信息管理系統(tǒng)有利于學(xué)校對(duì)學(xué)生資料的查詢，具有可使用性，利于學(xué)校在需要之時(shí)快速了解學(xué)生的情況。并可以讓具有最高權(quán)限的管理員更新、修改信息，已經(jīng)具備了一定的功能。但由于時(shí)間關(guān)系和其它原因，本系統(tǒng)還有些不足之處。</p>

46、<p>　　在面向?qū)ο蟮沫h(huán)境，結(jié)合Delphi如何使用圖形工具。同時(shí)可以很容易地使用鼠標(biāo)，鍵盤(pán)和動(dòng)畫(huà)程序。我們發(fā)現(xiàn)了許多有趣的話題，使用線程編程競(jìng)賽排序算法，編程，網(wǎng)際創(chuàng)建三維圖形應(yīng)用程序使用OpenGL。</p><p>　　在此我誠(chéng)摯的像老師說(shuō)“謝謝”，感謝你在這段時(shí)間對(duì)我的諄諄教導(dǎo)，在學(xué)習(xí)上對(duì)我們不厭其煩的解釋。你是我在大學(xué)中見(jiàn)到最和藹的老師之一。</p><p><

47、b>　　參考文獻(xiàn)</b></p><p>　　趙建明 《手把手教你學(xué)用數(shù)據(jù)庫(kù)》 清華大學(xué) 2001.6</p><p>　　劉前進(jìn) 《Delphi數(shù)據(jù)庫(kù)編程技術(shù)》 人民郵電出版社 1999.10</p><p>　　段來(lái)盛 《Delphi實(shí)戰(zhàn)演練》 人民郵電出版社 2000.1<

48、;/p><p>　　肖永順 《Delphi 程序設(shè)計(jì)》 人民郵電</p><p>　　Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)自學(xué)教程 人民郵電出版社</p><p><b>　　附錄</b></p><p><b>　　上文沒(méi)提到的程序：</b></p><p><

49、;b>　　用戶進(jìn)入程序：</b></p><p><b>　　var</b></p><p>　　Form1: TForm1;</p><p>　　implementation</p><p>　　uses Unit2;</p><p>　　{$R *.dfm}</p>

50、;<p>　　procedure TForm1.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　adoquery1.SQL.Clear;</p><p>　　adoquery1.SQL.Add('select * from 用戶 where

51、用戶名='''+Edit1.Text+''' and 密碼='''+Edit2.Text+'''');</p><p>　　adoquery1.Open;</p><p>　　if(adoquery1.IsEmpty)then</p><p><b>　

52、　begin</b></p><p>　　ShowMessage('用戶名或密碼錯(cuò)誤！');</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p>

53、<p>　　form2.Show;</p><p><b>　　end</b></p><p><b>　　end;</b></p><p>　　procedure TForm1.Button2Click(Sender: TObject);</p><p><b>　　beg

54、in</b></p><p>　　form1.Close;</p><p><b>　　end;</b></p><p>　　procedure TForm1.Image1Click(Sender: TObject);</p><p><b>　　begin</b></p>

55、<p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　進(jìn)入各功能模塊程序：</p><p><b>　　var</b></p><p>　　Form2: TForm2;</p><p>　　i

56、mplementation</p><p>　　uses Unit5, Unit7, Unit6, Unit10, Unit3, Unit4, Unit8, Unit9, Unit11,</p><p>　　Unit12, Unit13;</p><p>　　{$R *.dfm}</p><p>　　procedure TForm2.Butt

57、on1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form5.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.Button2Click(Sender: TObjec

58、t);</p><p><b>　　begin</b></p><p>　　form7.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.N2Click(Sender: TObject);</p><p><

59、b>　　begin</b></p><p>　　form7.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.Button4Click(Sender: TObject);</p><p><b>　　begin</b>&

60、lt;/p><p>　　form6.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.Button3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　f

61、orm10.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.N5Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form3.show;</p><p

62、><b>　　end;</b></p><p>　　procedure TForm2.N6Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form4.show;</p><p><b>　　end;</b>

63、;</p><p>　　procedure TForm2.N7Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form8.show;</p><p><b>　　end;</b></p><p>　　proc

64、edure TForm2.N8Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form9.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.N9Click(Sender:

65、 TObject);</p><p><b>　　begin</b></p><p>　　form10.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.N10Click(Sender: TObject);</p><

66、p><b>　　begin</b></p><p>　　form10.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.N11Click(Sender: TObject);</p><p><b>　　begin</

67、b></p><p>　　form10.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.N12Click(Sender: TObject);</p><p><b>　　begin</b></p><p>

68、　　form10.show;</p><p><b>　　end;</b></p><p>　　procedure TForm2.N13Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form6.show;</p>&

69、lt;p><b>　　end;</b></p><p>　　procedure TForm2.N14Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form6.show;</p><p><b>　　end;<

70、/b></p><p>　　procedure TForm2.N16Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form11.show;</p><p><b>　　end;</b></p><p>

71、;　　procedure TForm2.xueshengchengjib1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form12.show;</p><p><b>　　end;</b></p><p>　　procedure

72、 TForm2.Button5Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form13.show;</p><p><b>　　end;</b></p><p><b>　　end.</b></p&g

73、t;<p><b>　　統(tǒng)計(jì)程序：var</b></p><p>　　Form10: TForm10;</p><p>　　implementation</p><p>　　{$R *.dfm}</p><p>　　procedure TForm10.RadioButton1Click(Sender: TO

74、bject);</p><p><b>　　begin</b></p><p>　　adoquery1.SQL.Clear;</p><p>　　adoquery1.SQL.add('select count(學(xué)號(hào)) as 總?cè)藬?shù) from 學(xué)生 ');</p><p>　　adoquery1.Open

75、;</p><p><b>　　end;</b></p><p>　　procedure TForm10.RadioButton3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　adoquery1.SQL.Clear;</p&

76、gt;<p>　　adoquery1.SQL.add('select count(學(xué)號(hào)) from 成績(jī) where 成績(jī)<60');</p><p>　　adoquery1.Open;</p><p><b>　　end;</b></p><p>　　procedure TForm10.RadioButto

77、n4Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　adoquery1.SQL.Clear;</p><p>　　adoquery1.SQL.add('select count(專業(yè)) as 專業(yè)數(shù) from 學(xué)生');</p><p>

78、;　　adoquery1.Open;</p><p><b>　　end;</b></p><p>　　procedure TForm10.RadioButton2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　adoquery1.

79、SQL.Clear;</p><p>　　adoquery1.SQL.add('select count(學(xué)號(hào)) from 成績(jī) where 成績(jī)>60');</p><p>　　adoquery1.Open;</p><p><b>　　end;</b></p><p><b>　　en