數(shù)據(jù)庫課程設(shè)計——教學管理系統(tǒng)論文

1、<p><b>　　數(shù)據(jù)庫技術(shù)</b></p><p><b>　　教學管理系統(tǒng)論文</b></p><p>　　學院：信息科學與工程學院</p><p>　　專業(yè)：電氣工程及其自動化</p><p><b>　　班級：×××</b>&l

2、t;/p><p><b>　　姓名： </b></p><p><b>　　學號：×××</b></p><p>　　日期：2010年12月30日</p><p><b>　　摘 要</b></p><p>　　中南大學教學管

3、理系統(tǒng)的工作主要是對學生，教師，課程，基本情況和用戶進行管理的現(xiàn)代化的信息管理系統(tǒng)。每個管理模塊都包括數(shù)據(jù)查詢、修改、刪除、添加等功能，中南大學教學管理系統(tǒng)能高效、準確地完成這些功能，并達到界面美觀友好、使用方便。其開發(fā)主要包括前端應(yīng)用程序的開發(fā)以及后臺數(shù)據(jù)庫的建立和維護兩個方面。對于前者要求應(yīng)用程序功能完備,易使用等特點。而對于后者則要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。實現(xiàn)的方法主要用Borland Delphi 7和M

4、icrosoft公司的 SQL Server 2000 開發(fā)工具來完成界面與數(shù)據(jù)庫的開發(fā)工作。</p><p>　　關(guān)鍵詞：管理, 一致性, 完整性, 安全性</p><p><b>　　目錄</b></p><p>　　摘 要---------------------------------------------------------

5、-------------------------------------------------2</p><p><b>　　1.引言5</b></p><p>　　1.1項目開發(fā)背景5</p><p>　　1.2.項目開發(fā)的目標5</p><p><b>　　2.系統(tǒng)分析6</b>&l

6、t;/p><p>　　2.1.可行性研究6</p><p>　　2.1.1經(jīng)濟可行性研究6</p><p>　　2.1.2.技術(shù)可行性研究6</p><p>　　2.2. 業(yè)務(wù)流程圖7</p><p>　　2.3. 系統(tǒng)功能分解圖8</p><p>　　2.4．系統(tǒng)分析邀請8</p

7、><p>　　2.4.1功能需求8</p><p>　　2.4.2.性能需求8</p><p>　　2.4.3.運行需求8</p><p><b>　　3.系統(tǒng)設(shè)計9</b></p><p>　　3．1．概要設(shè)計9</p><p>　　3.1.1模塊結(jié)構(gòu)9</

8、p><p>　　3.1.2.系統(tǒng)的總體布局方案10</p><p>　　3.2.系統(tǒng)詳細設(shè)計11</p><p>　　3.2.1.功能模塊設(shè)計11</p><p>　　3.2.2.數(shù)據(jù)庫設(shè)計11</p><p>　　3.2.3.對話設(shè)計14</p><p>　　3.2.4.學生信息算法說明

9、15</p><p>　　3.3.管理系統(tǒng)的實現(xiàn)16</p><p>　　3.3.1.系統(tǒng)開發(fā)平臺16</p><p>　　3.3.2.菜單的實現(xiàn)17</p><p>　　3.3.3.用戶管理員登錄菜的實現(xiàn)17</p><p>　　3.3.4.學生基本信息表單添加的實現(xiàn)18</p><p

10、>　　3.3.5.學生基本信息修改和刪除菜單的實現(xiàn)19</p><p>　　3.3.6.學生成績查詢表單的實現(xiàn)20</p><p><b>　　4.總結(jié)21</b></p><p>　　41.系統(tǒng)在的問題21</p><p>　　4.2.心得體會21</p><p><b&g

11、t;　　參考文獻21</b></p><p><b>　　附錄22</b></p><p><b>　　1.引言</b></p><p><b>　　1.1項目開發(fā)背景</b></p><p>　　本系統(tǒng)作為大三第一學期《數(shù)據(jù)庫技術(shù)》課程的作業(yè)。要求采用Borl

12、and Delphi 7 和Microsoft SQL Server 2000 做為開發(fā)工具開發(fā)一個中南大學教學管理系統(tǒng)。</p><p>　　1.2.項目開發(fā)的目標</p><p>　　建立一個教務(wù)信息管理系統(tǒng)，主要功能為實現(xiàn)對學生，教師，班級，系部，選修，課程，授課和用戶等基本信息的添加，修改，刪除和查詢。因為時間不足，而且第一次接觸Borland Delphi 7和Mircosoft

13、 SQL Server 2000這兩個開發(fā)工具，所以并沒有設(shè)立權(quán)限，也沒有建立索引和視圖等來優(yōu)化系統(tǒng)功能。只是實現(xiàn)了對信息的基本處理功能。 </p><p>　　1.4.數(shù)據(jù)庫系統(tǒng)的選擇原則</p><p>　?。?）數(shù)據(jù)庫系統(tǒng)采用易于集成的，開放的技術(shù)。（2）產(chǎn)品質(zhì)量優(yōu)異，可靠性高，適于長期運行，能支持關(guān)鍵應(yīng)用。（3）數(shù)據(jù)安全，保安型高。（4）能提供分布式數(shù)據(jù)庫功能。（5）支持多

14、種開發(fā)環(huán)境，軟件開發(fā)容易。（6）擴充性和升級能力強。</p><p><b>　　2.系統(tǒng)分析</b></p><p><b>　　2.1.可行性研究</b></p><p>　　2.1.1經(jīng)濟可行性研究</p><p>　　經(jīng)濟可行性---估計開發(fā)費用以及最終從開發(fā)成功的系統(tǒng)所獲得的收入或利益,

15、衡量比較支出的費用和收到的利益。對于一個基于計算機系統(tǒng)的研制項目要在經(jīng)濟方面評價其是否合理，成本－－效益分析要估計出研制開發(fā)的花費并與收益（包括有形的可以用貨幣計數(shù)的及無形的利益）衡量比較。</p><p>　　而該系統(tǒng)的設(shè)計只是通過網(wǎng)絡(luò)自己下載免費開發(fā)工具來開發(fā)，所以經(jīng)濟方面可行。</p><p>　　2.1.2.技術(shù)可行性研究</p><p>　　技術(shù)可行性--

16、-分析功能,性能以及限制條件,能否是一個技術(shù)上可實現(xiàn)的系統(tǒng)。開發(fā)該軟件的基本要求與功能是實現(xiàn)教務(wù)信息數(shù)據(jù)的管理與操作處理,基于數(shù)據(jù)庫系統(tǒng)的數(shù)據(jù)管理使該軟件有更優(yōu)異的性能。系統(tǒng)的基本數(shù)據(jù)流動為教務(wù)數(shù)據(jù)的輸入,學生信息,課程信息,教師信息，授課信息，班級信息，選修信息，系部信息和用戶信息的添加與修改,以及有關(guān)用戶提出的對教務(wù)信息查詢要求所產(chǎn)生的數(shù)據(jù)輸出。數(shù)據(jù)的輸入與輸出處理流程都依靠數(shù)據(jù)庫的支持。MicrosoftSQLServer 200

17、0數(shù)據(jù)的完整性保證性能比較令人滿意,該軟件設(shè)計中保持與其他一些數(shù)據(jù)庫的基本兼容。就目前使用的開發(fā)技術(shù)來說系統(tǒng)的功能目標應(yīng)該能夠達到；利用現(xiàn)有的技術(shù)在規(guī)定的期限內(nèi)開發(fā)工作基本能夠完成。</p><p><b>　　2．2．業(yè)務(wù)流程圖</b></p><p>　　經(jīng)過系統(tǒng)的調(diào)查與系統(tǒng)分析得到學生基本信息的基本業(yè)務(wù)流程圖如下：</p><p>　　圖

18、2.1學生表操作業(yè)務(wù)流程圖</p><p>　　圖2.2給出了教務(wù)信息管理業(yè)務(wù)流程圖，圖中表明在學生管理模塊中要建立一個學生數(shù)據(jù)庫，學生管理工作中的輸入、編輯和查詢都與此數(shù)據(jù)庫發(fā)生業(yè)務(wù)。</p><p>　　2.3.系統(tǒng)功能分解圖</p><p>　　圖2.1粗略給出了整個系統(tǒng)的框架，中南大學教學管理系統(tǒng)分為學生、教師、課程</p><p>

19、　　表操作子功能：對學生的一些基本的信息進行管理工作如：學生的學號、姓名、等進行管理。</p><p>　　2.4.系統(tǒng)需求分析</p><p><b>　　2.4.1功能需求</b></p><p>　　1、能夠查詢學生，教師，班級，專業(yè)，課程等所有信息</p><p>　　2、能夠通過知道學生，教師，教師課程的一個信

20、息找到其它的相關(guān)信息（例如：知道學生的姓名能夠找到該學生的所有有關(guān)的信息）</p><p>　　3、通過一條信息找到與之匹配的信息（例如：查詢同一專業(yè)或同班級的所有學生）</p><p>　　4、管理人員能對學生，教師，和課程信息進行管理（例如：因為學生有關(guān)情況不是固定不變的所以一旦學生信息發(fā)生改變就要對原有信息進行諸如添加，刪除，修改等的操作）</p><p>　

21、　2.4.2.性能需求</p><p><b>　　1、數(shù)據(jù)精確度</b></p><p>　　查詢時應(yīng)保證查全率，所有相應(yīng)域包含查詢關(guān)鍵字的記錄都應(yīng)能查到 </p><p><b>　　2、時間特性</b></p><p>　　一般操作的響應(yīng)時間應(yīng)在1-2秒內(nèi)</p&g

22、t;<p><b>　　3、適應(yīng)性</b></p><p>　　對運行環(huán)境要求普遍適應(yīng)性</p><p>　　2.4.3.運行需求</p><p><b>　　1、用戶界面</b></p><p>　　利用菜單界面驅(qū)動方式，對用戶友好。必須對鼠標和鍵盤單獨支持</p>&

23、lt;p><b>　　2、硬件接口</b></p><p>　　支持一般奔騰Ⅲ,128兆以上內(nèi)存的pc機。</p><p><b>　　3、軟件接口</b></p><p>　　運行于Windows9X及更高版本具有WIN32API的操作系統(tǒng)上</p><p><b>　　3.系統(tǒng)設(shè)

24、計</b></p><p><b>　　3．1．概要設(shè)計</b></p><p>　　針對以上系統(tǒng)要完成的功能，本系統(tǒng)總體設(shè)計采用自頂向下，逐步細化的方法將功能層次結(jié)構(gòu)的各個部分組合起來，以完成整個系統(tǒng)的實現(xiàn)細節(jié)。</p><p><b>　　3.1.1模塊結(jié)構(gòu)</b></p><p>

25、　　圖3.1 系統(tǒng)功能結(jié)構(gòu)圖</p><p><b>　　有關(guān)功能說明:</b></p><p>　　學生表操作功能：以分類形式錄入在校學生的基本基本信息存放在學生基本數(shù)據(jù)庫文件中。并同時具有對學生基本數(shù)據(jù)庫文件進行查詢，添加，修改和刪除記錄功能。</p><p>　　本模塊又分為三個子模塊： （1）學生信息添加 （2）學生信息查

26、詢 （3）學生信息編輯(修改/刪除)</p><p>　　2．教師表操作，課程表模塊和學生表操作模塊功能相似。</p><p>　　3.1.2.系統(tǒng)的總體布局方案</p><p>　　中南大學教學管理系統(tǒng)分為學生表操作、教師表操作，課程表，安全退出七個子系統(tǒng)。用戶在進入此系統(tǒng)時首先必須在進行身份的確認，只有是合法用戶才能進入此系統(tǒng)，否則將無法使用此系統(tǒng)。如果是

27、合法用戶，就可以進行對學生表操作、教師表操作，課程表進行管理工作（如添另、更新、刪除、查詢等操作）。</p><p>　　3.2.系統(tǒng)詳細設(shè)計</p><p>　　3.2.1.功能模塊設(shè)計</p><p><b>　　一、用戶管理模塊</b></p><p>　　在用戶管理模塊中又把此模塊分為三個小的模塊分別為：<

28、/p><p><b>　　1．添加</b></p><p>　　在輸入模塊中通過在表單中的一個確定按鈕使得用戶在界面中通過鍵盤或通過標輸入的數(shù)據(jù)插入到數(shù)據(jù)庫中的學生基本信息表中，通過退出按鈕結(jié)束學生信息的添加。</p><p><b>　　2．修改和刪除</b></p><p>　　當用戶進入修改和刪除

29、窗口時，編輯窗口中的數(shù)據(jù)綁定型控件都與學生基本信息表中的字段進行綁定。</p><p><b>　　3．查詢</b></p><p>　　當用戶進入查詢窗口時，在查詢窗口的文本框中輸入要查詢的關(guān)鍵字如性名或?qū)W號時，并點確定按鈕，按鈕中的SQL查詢語句就會執(zhí)行，使得結(jié)果顯示在此表單的下方的表格中。</p><p>　　二、學生表操作、教師表操作，

30、課程表，系統(tǒng)安全這四個模塊的每一個模塊都包含以上的三個小模塊，在此不再重復。</p><p>　　3.2.2.數(shù)據(jù)庫設(shè)計</p><p>　　一、數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計</p><p>　　這一設(shè)計階段是在需求分析的基礎(chǔ)上,設(shè)計出能夠滿足用戶需求的各種實體,以及它們之間的關(guān)系,為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ),可以用實體-關(guān)系模型來描述.</p><p&

31、gt;　　實體-關(guān)系模型(Entity-relationship Mode,簡稱E-R模型)是數(shù)據(jù)庫設(shè)計常用的方法.E-R圖中的矩形表示實體,菱形表示實體之間的聯(lián)系,聯(lián)系的類型可以用1:1或1:M或M：N表示，圓角矩形表示實體的有關(guān)屬性，橢圓表示實體的具體屬性。下圖是學生表操作系統(tǒng)各個實體的E-R圖。</p><p>　　3-1學生實體E-R圖</p><p>　　3-2教師實體E-R圖&

32、lt;/p><p>　　3-3課程實體E-R圖</p><p><b>　　二、數(shù)據(jù)庫邏輯設(shè)計</b></p><p>　　下面需要將數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL Sever數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。在上面的實體以及實體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中的表格以及各個表格之間的關(guān)系。</p><p>

33、　　設(shè)計一個項目，項目名為教務(wù)管理信息系統(tǒng)并在此項目中創(chuàng)建一個數(shù)據(jù)庫，數(shù)據(jù)庫名為EducationManagerSystem此數(shù)據(jù)庫中包含學生、課程、教師、用戶表。</p><p><b>　　表結(jié)構(gòu)如下：</b></p><p>　　學生表操作(student)</p><p>　　課程表(course) </p><p&

34、gt;　　教師表(teacher) </p><p>　　用戶表(login)</p><p>　　3.2.3.對話設(shè)計</p><p>　　在對話設(shè)計的過程中遵循了對話設(shè)計的原則：</p><p>　　1．對話要清楚、沒有二義性。</p><p>　　2．對用戶的響應(yīng)要快，而且要進行了回答的有效性檢驗。</p&

35、gt;<p>　　3．對話比較適合用戶的要求與習慣，應(yīng)該問的問題問了，問得不頻繁。</p><p>　　4．注意詢問格式的美觀、實用，而且采用了統(tǒng)一的格式，體現(xiàn)了一定的風格。</p><p>　　首先系統(tǒng)判斷用戶在主菜單上所輸入的功能選擇碼是否合法，并根據(jù)選擇碼進入相應(yīng)功能模塊。</p><p>　　3.2.4.學生基本信息算法說明</p>

36、<p><b>　　錄入過程</b></p><p><b>　　用戶添加數(shù)據(jù)。</b></p><p>　　系統(tǒng)檢查用戶輸入的學生基本信息的合法性，如學生的學號的寬度與學生的出生日期的合法性等。</p><p>　　檢查錯誤時，彈出一個錯誤的對話框并提示用戶如何操作。</p><p>

37、;　　當檢查正確后將在錄入表單的數(shù)據(jù)插入到學生基本信息數(shù)據(jù)庫表文件中。</p><p><b>　　結(jié)束。</b></p><p><b>　　查詢過程</b></p><p>　　用戶輸入要查詢的學生的學號或姓名等其它信息。</p><p>　　系統(tǒng)根據(jù)用戶輸入的學生的學號先從學生基本信息數(shù)據(jù)庫表

38、文件中讀出該記錄。</p><p>　　若找不到，則不顯示。</p><p><b>　　結(jié)束。</b></p><p><b>　　修改過程</b></p><p>　　用戶輸入要修改的學生的學號名字。</p><p>　　系統(tǒng)根據(jù)用戶輸入的學號或名字先從學生基本信息數(shù)據(jù)庫

39、表文件中讀出該記錄。</p><p>　　如找不到，則不顯示。</p><p><b>　　用戶輸入修改數(shù)據(jù)。</b></p><p>　　檢查輸入數(shù)據(jù)合法性。</p><p><b>　　結(jié)束。</b></p><p><b>　　刪除記錄</b>&l

40、t;/p><p>　　用戶輸入要刪除的學生的學號或姓名。</p><p>　　系統(tǒng)根據(jù)用戶輸入的學生的學號先從學生基本信息數(shù)據(jù)庫表文件中讀出該記錄。</p><p><b>　　用戶確定刪除數(shù)據(jù)。</b></p><p>　　從主文件中刪除該記錄。</p><p><b>　　結(jié)束。<

41、/b></p><p>　　學生表操作、教師表操作，課程表，系統(tǒng)安全這四個模塊的算法說明基本相同。</p><p>　　3.3.管理系統(tǒng)的實現(xiàn)</p><p>　　3.3.1.系統(tǒng)開發(fā)平臺</p><p>　　管理系統(tǒng)是在如下配置中進行的：</p><p>　　硬件：AMD5400+,2G兆內(nèi)存320G的硬盤的p

42、c機</p><p>　　軟件：Windows XP 操作系統(tǒng)，Borland Delphi 7,Microsoft SQL Server 2000</p><p>　　3.3.2.菜單的實現(xiàn)</p><p>　　用戶在進行用戶確認后進入如圖4-1菜單：</p><p>　　圖4-1用戶進入界面</p><p>　　3

43、.3.3.用戶管理員認證表單的實現(xiàn)</p><p>　　系統(tǒng)管理員在作為普通用戶進入系統(tǒng)后，必須再經(jīng)過如圖4-2中表單的確認后方可進行用戶管理。</p><p><b>　　圖4-2 登陸界面</b></p><p>　　在其界面中系統(tǒng)管理名與系統(tǒng)管理員口令都運用了文本框讓使用者輸入其目的就增加其保密性。</p><p>

44、;　　3.3.4.學生基本信息表單添加的實現(xiàn)</p><p>　　圖4-3學生信息錄入</p><p>　　3.3.5.學生信息修改表單的實現(xiàn)</p><p>　　圖4-4課程信息編輯</p><p>　　圖4.5是學生信息修改和刪除界面，此界面由于是修改和刪除界面所以所有的數(shù)據(jù)綁定控件均為文本框，每一個文本框都與課程表的一個字段進行綁定。&

45、lt;/p><p>　　3.3.6.學生信息查詢的實現(xiàn)</p><p>　　圖4-5學生成績查詢</p><p>　　圖4.6是學生個人信息查詢界面，此界面中通過在組合框中選擇要查詢的學號、姓名、課程代號、專業(yè)和班級代號等多種查詢手段，并在其后的文本框中輸入要查詢的值，然后單擊確定按鈕在下方的表格中就會顯示出查詢的結(jié)果。</p><p><

46、b>　　4.總結(jié)</b></p><p>　　4.1.系統(tǒng)在的問題</p><p>　　教務(wù)管理信息系統(tǒng)開發(fā)完成后，由于開發(fā)設(shè)計的時間較短，對開發(fā)工具Microsoftt SQL Server 2000和Borland Delphi 7 不熟悉，所以說本系統(tǒng)的存在的問題</p><p>　　一是作為一個完全教務(wù)處能夠運行的系統(tǒng)可能功能不夠完善；&l

47、t;/p><p><b>　　二，沒有設(shè)置權(quán)限。</b></p><p>　　三．沒有建立索引等來優(yōu)化系統(tǒng)功能。</p><p><b>　　4.2.心得體會</b></p><p>　　通過自己查詢相關(guān)書藉和對網(wǎng)絡(luò)資源的利用，可以讓我們對Borland Delphi 7 和Microsoft SQL

48、Server 2000這兩個開發(fā)工具有了具體的了解，從而上升到運用的層次；同時了解了開發(fā)一個系統(tǒng)所要做的具體工作。</p><p><b>　　參考文獻</b></p><p>　　[1]薩師煊 王珊 “數(shù)據(jù)庫系統(tǒng)概論”，高等教育出版社，1999</p><p><b>　　附件：</b></p><p

49、>　　unit Unit1;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p>

50、;<p>　　Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls;</p><p><b>　　type</b></p><p>　　TForm1 = class(TForm)</p><p>　　Image1: TImage;</p><p>　　Label1: TL

51、abel;</p><p>　　Edit1: TEdit;</p><p>　　Label2: TLabel;</p><p>　　Edit2: TEdit;</p><p>　　Button1: TButton;</p><p>　　Button2: TButton;</p><p>　　AD

52、OQuery1: TADOQuery;</p><p>　　DataSource1: TDataSource;</p><p>　　ADOConnection1: TADOConnection;</p><p>　　procedure Button1Click(Sender: TObject);</p><p>　　procedure But

53、ton2Click(Sender: TObject);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }<

54、;/p><p><b>　　end;</b></p><p><b>　　var</b></p><p>　　Form1: TForm1;</p><p>　　implementation</p><p>　　{$R *.dfm}</p><p>　　us

55、es unit2;</p><p>　　procedure TForm1.Button1Click(Sender: TObject);</p><p>　　var username,password:string;</p><p><b>　　begin</b></p><p>　　username :=trim(edi

56、t1.Text);</p><p>　　password :=trim(edit2.Text);</p><p>　　if username='' then</p><p><b>　　begin</b></p><p>　　ShowMessage('用戶名不能為空');</p>

57、;<p><b>　　end</b></p><p>　　else if password='' then</p><p><b>　　begin</b></p><p>　　ShowMessage('密碼不能為空');</p><p><b>

58、;　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　adoquery1.Close;</p><p>　　adoquery1.SQL.Clear;</p><p>　　adoque

59、ry1.SQL.Add('select * from login where username='''+username+''' and password ='''+password+'''');</p><p>　　adoquery1.Open;</p><p>　　if ad

60、oquery1.RecordCount <1 then</p><p><b>　　begin</b></p><p>　　showmessage('用戶名或密碼錯誤');</p><p><b>　　end</b></p><p><b>　　else</b&

61、gt;</p><p><b>　　begin</b></p><p>　　Form1.Hide;</p><p>　　Form2.Show;</p><p><b>　　end;</b></p><p><b>　　end;</b></p>

62、<p><b>　　end;</b></p><p>　　procedure TForm1.Button2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　Application.Terminate;</p><p>&

63、lt;b>　　end;</b></p><p><b>　　end.</b></p><p>　　unit Unit2;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p&g

64、t;　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, Menus, StdCtrls, jpeg, ExtCtrls;</p><p><b>　　type</b></p><p>　　TForm2 =

65、class(TForm)</p><p>　　MainMenu1: TMainMenu;</p><p>　　N1: TMenuItem;</p><p>　　N2: TMenuItem;</p><p>　　N3: TMenuItem;</p><p>　　N4: TMenuItem;</p><

66、p>　　N5: TMenuItem;</p><p>　　N6: TMenuItem;</p><p>　　Image1: TImage;</p><p>　　Label1: TLabel;</p><p>　　Label2: TLabel;</p><p>　　procedure N2Click(Sender:

67、 TObject);</p><p>　　procedure N3Click(Sender: TObject);</p><p>　　procedure N5Click(Sender: TObject);</p><p>　　procedure N6Click(Sender: TObject);</p><p>　　procedure N4C

68、lick(Sender: TObject);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }</p&g

69、t;<p><b>　　end;</b></p><p><b>　　var</b></p><p>　　Form2: TForm2;</p><p>　　implementation</p><p>　　uses Unit3, Unit4, Unit5, Unit6;</p&g

70、t;<p>　　{$R *.dfm}</p><p>　　procedure TForm2.N2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form2.Hide;</p><p>　　form3.show;</p><

71、;p><b>　　end;</b></p><p>　　procedure TForm2.N3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form2.hide;</p><p>　　form4.show;</p>

72、;<p><b>　　end;</b></p><p>　　procedure TForm2.N5Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form2.close;</p><p><b>　　end;

73、</b></p><p>　　procedure TForm2.N6Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form2.hide;</p><p>　　form5.show;</p><p><b>

74、　　end;</b></p><p>　　procedure TForm2.N4Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form2.hide;</p><p>　　form6.show;</p><p><

75、;b>　　end;</b></p><p><b>　　end.</b></p><p>　　unit Unit3;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>

76、　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;</p><p><b>　　type</b></p><p>　　TForm3

77、= class(TForm)</p><p>　　Label1: TLabel;</p><p>　　Label2: TLabel;</p><p>　　Edit1: TEdit;</p><p>　　Label3: TLabel;</p><p>　　Edit2: TEdit;</p><p>

78、;　　Label4: TLabel;</p><p>　　Edit3: TEdit;</p><p>　　Label5: TLabel;</p><p>　　Edit4: TEdit;</p><p>　　Label6: TLabel;</p><p>　　Edit5: TEdit;</p><p&

79、gt;　　Label7: TLabel;</p><p>　　Edit6: TEdit;</p><p>　　Button1: TButton;</p><p>　　Label8: TLabel;</p><p>　　ComboBox1: TComboBox;</p><p>　　Label9: TLabel;<

80、/p><p>　　Edit7: TEdit;</p><p>　　Button2: TButton;</p><p>　　DBGrid1: TDBGrid;</p><p>　　ComboBox2: TComboBox;</p><p>　　Label10: TLabel;</p><p>　　La

81、bel11: TLabel;</p><p>　　Edit8: TEdit;</p><p>　　Label12: TLabel;</p><p>　　Edit9: TEdit;</p><p>　　Button3: TButton;</p><p>　　Label13: TLabel;</p><

82、p>　　Label14: TLabel;</p><p>　　ComboBox3: TComboBox;</p><p>　　Edit10: TEdit;</p><p>　　Button5: TButton;</p><p>　　ADOQuery1: TADOQuery;</p><p>　　DataSourc

83、e1: TDataSource;</p><p>　　Button4: TButton;</p><p>　　ADOConnection1: TADOConnection;</p><p>　　procedure Button5Click(Sender: TObject);</p><p>　　procedure Button2Click(S

84、ender: TObject);</p><p>　　procedure Button3Click(Sender: TObject);</p><p>　　procedure Button1Click(Sender: TObject);</p><p>　　procedure Button4Click(Sender: TObject);</p><

85、;p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }</p><p><b>　　end;</b>

86、;</p><p><b>　　var</b></p><p>　　Form3: TForm3;</p><p>　　implementation</p><p>　　uses Unit2;</p><p>　　{$R *.dfm}</p><p>　　procedure

87、TForm3.Button5Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　form3.hide;</p><p>　　form2.show;</p><p><b>　　end;</b></p><p>　

88、　procedure TForm3.Button2Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if combobox1.ItemIndex=0</p><p>　　then begin</p><p>　　adoquery1.Close;</p

89、><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select * from 學生表 where 學號='''+edit7.Text+'''');</p><p>　　adoquery1.open;</p><p>　

90、　if adoquery1.RecordCount=0 then</p><p>　　showmessage('對不起，沒有此學號，請重新輸入');</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combo

91、box1.ItemIndex=1</p><p>　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表 where 姓名='''+

92、edit7.Text+'''');</p><p>　　adoquery1.open;</p><p>　　if adoquery1.RecordCount=0 then</p><p>　　showmessage('對不起，沒有此姓名，請重新輸入');</p><p>　　dbgrid1.Vi

93、sible:=true;</p><p><b>　　end</b></p><p>　　else if combobox1.ItemIndex=2</p><p>　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Cl

94、ear;</p><p>　　adoquery1.sql.Add('select *from 學生表 where 籍貫='''+edit7.Text+'''');</p><p>　　adoquery1.open;</p><p>　　if adoquery1.RecordCount=0 then&l

95、t;/p><p>　　showmessage('對不起，沒有此籍貫，請重新輸入');</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combobox1.ItemIndex=3</p><p&

96、gt;　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表 where 專業(yè)='''+edit7.Text+'''');&

97、lt;/p><p>　　adoquery1.open;</p><p>　　if adoquery1.RecordCount=0 then</p><p>　　showmessage('對不起，沒有此專業(yè)，請重新輸入');</p><p>　　dbgrid1.Visible:=true;</p><p>&

98、lt;b>　　end</b></p><p>　　else if combobox1.ItemIndex=4</p><p>　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquer

99、y1.sql.Add('select *from 學生表 where 年齡='''+edit7.Text+'''');</p><p>　　adoquery1.open;</p><p>　　if adoquery1.RecordCount=0 then</p><p>　　showmessage(&

100、#39;對不起，沒有此年齡，請重新輸入');</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combobox1.ItemIndex=5</p><p>　　then begin</p><p&g

101、t;　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表 where 性別='''+edit7.Text+'''');</p><p>　　adoquery1.op

102、en;</p><p>　　if adoquery1.RecordCount=0 then</p><p>　　showmessage('對不起，沒有此性別，請重新輸入');</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p>

103、<p><b>　　end;</b></p><p>　　procedure TForm3.Button3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if combobox2.ItemIndex=1</p><p>

104、　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('update 學生表 set 姓名='''+edit9.Text+''' where 姓名=''

105、'+edit8.Text+'''');</p><p>　　adoquery1.ExecSQL;</p><p>　　showmessage('修改學生信息記錄成功！');</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;

106、</p><p>　　adoquery1.sql.Add('select *from 學生表 where 姓名='''+edit9.Text+'''');</p><p>　　adoquery1.Open;</p><p>　　dbgrid1.Visible:=true;</p><

107、p><b>　　end</b></p><p>　　else if combobox2.ItemIndex=2</p><p>　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　

108、adoquery1.sql.Add('update 學生表 set 籍貫='''+edit9.Text+''' where 籍貫='''+edit8.Text+''' and 學號='''+edit7.Text+'''');</p><p>　　adoqu

109、ery1.ExecSQL;</p><p>　　showmessage('修改學生信息記錄成功！');</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表 wher

110、e 籍貫='''+edit9.Text+'''' );</p><p>　　adoquery1.Open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combo

111、box2.ItemIndex=3</p><p>　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('update 學生表 set 專業(yè)='''+edit9.Tex

112、t+''' where 專業(yè)='''+edit8.Text+''' and 學號='''+edit7.Text+'''');</p><p>　　adoquery1.ExecSQL;</p><p>　　showmessage('修改學生信息記錄成功！&#

113、39;);</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表 where 專業(yè)='''+edit9.Text+''' and 學號=''&

114、#39;+edit7.Text+'''');</p><p>　　adoquery1.Open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combobox2.ItemIndex=4&

115、lt;/p><p>　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('update 學生表 set 年齡='''+edit9.Text+'''

116、 where 年齡='''+edit8.Text+''' and 學號='''+edit7.Text+'''');</p><p>　　adoquery1.ExecSQL;</p><p>　　showmessage('修改學生信息記錄成功！');</p>

117、<p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表 where 年齡='''+edit9.Text+''' and 學號='''+edit7.Text+&

118、#39;''');</p><p>　　adoquery1.Open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combobox2.ItemIndex=5</p><p&

119、gt;　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('update 學生表 set 性別='''+edit9.Text+''' where 性別='&#

120、39;'+edit8.Text+''' and 學號='''+edit7.Text+'''');</p><p>　　adoquery1.ExecSQL;</p><p>　　showmessage('修改學生信息記錄成功！');</p><p>　　adoque

121、ry1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表 where 性別='''+edit9.Text+''' and 學號='''+edit7.Text+'''

122、9;);</p><p>　　adoquery1.Open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p><b>　　end;</b></p><p>　　procedure TForm3.Bu

123、tton1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('insert into 學生表 (

124、學號 ,姓名,籍貫 ,專業(yè),年齡,性別) values('''+edit1.Text+''' ,'''+edit2.Text+''' ,'''+edit3.Text+''','''+edit4.Text+''','''+e

125、dit5.Text+''','''+edit6.Text+''')');</p><p>　　adoquery1.ExecSQL;</p><p>　　showmessage('添加學生信息記錄成功！');</p><p>　　adoquery1.Close;</p

126、><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表');</p><p>　　adoquery1.Open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　

127、　end;</b></p><p>　　procedure TForm3.Button4Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if combobox3.ItemIndex=0</p><p>　　then begin</p&g

128、t;<p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('delete from 學生表 where 學號='''+edit10.Text+''' ');</p><p>　　

129、adoquery1.ExecSQL;</p><p>　　showmessage('刪除學生記錄成功！');</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學生表

130、');</p><p>　　adoquery1.open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combobox3.ItemIndex=1</p><p>　　then begin

131、</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('delete from 學生表 where 姓名='''+edit10.Text+''' ');</p><

132、;p>　　adoquery1.ExecSQL;</p><p>　　showmessage('刪除學生記錄成功！');</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *f

133、rom 學生表 ');</p><p>　　adoquery1.open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combobox3.ItemIndex=2</p><p>　　th

134、en begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('delete from 學生表 where 籍貫='''+edit10.Text+''' ');</p&

135、gt;<p>　　adoquery1.ExecSQL;</p><p>　　showmessage('刪除學生記錄成功！');</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('se

136、lect *from 學生表 ');</p><p>　　adoquery1.open;</p><p>　　dbgrid1.Visible:=true;</p><p><b>　　end</b></p><p>　　else if combobox3.ItemIndex=3</p><p

137、>　　then begin</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('delete from 學生表 where 專業(yè)='''+edit10.Text+''' ')