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

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

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

3、理系統(tǒng)的工作主要是對學(xué)生，教師，課程，基本情況和用戶進(jìn)行管理的現(xiàn)代化的信息管理系統(tǒng)。每個(gè)管理模塊都包括數(shù)據(jù)查詢、修改、刪除、添加等功能，中南大學(xué)教學(xué)管理系統(tǒng)能高效、準(zhǔn)確地完成這些功能，并達(dá)到界面美觀友好、使用方便。其開發(fā)主要包括前端應(yīng)用程序的開發(fā)以及后臺數(shù)據(jù)庫的建立和維護(hù)兩個(gè)方面。對于前者要求應(yīng)用程序功能完備,易使用等特點(diǎn)。而對于后者則要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。實(shí)現(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項(xiàng)目開發(fā)背景5</p><p>　　1.2.項(xiàng)目開發(fā)的目標(biāo)5</p><p><b>　　2.系統(tǒng)分析6</b>&l

6、t;/p><p>　　2.1.可行性研究6</p><p>　　2.1.1經(jīng)濟(jì)可行性研究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.運(yùn)行需求8</p><p><b>　　3.系統(tǒng)設(shè)計(jì)9</b></p><p>　　3．1．概要設(shè)計(jì)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)詳細(xì)設(shè)計(jì)11</p><p>　　3.2.1.功能模塊設(shè)計(jì)11</p><p>　　3.2.2.數(shù)據(jù)庫設(shè)計(jì)11</p><p>　　3.2.3.對話設(shè)計(jì)14</p><p>　　3.2.4.學(xué)生信息算法說明

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

10、>　　3.3.5.學(xué)生基本信息修改和刪除菜單的實(shí)現(xiàn)19</p><p>　　3.3.6.學(xué)生成績查詢表單的實(shí)現(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;　　參考文獻(xiàn)21</b></p><p><b>　　附錄22</b></p><p><b>　　1.引言</b></p><p><b>　　1.1項(xiàng)目開發(fā)背景</b></p><p>　　本系統(tǒng)作為大三第一學(xué)期《數(shù)據(jù)庫技術(shù)》課程的作業(yè)。要求采用Borl

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

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

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

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

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

17、0數(shù)據(jù)的完整性保證性能比較令人滿意,該軟件設(shè)計(jì)中保持與其他一些數(shù)據(jù)庫的基本兼容。就目前使用的開發(fā)技術(shù)來說系統(tǒng)的功能目標(biāo)應(yīng)該能夠達(dá)到；利用現(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)分析得到學(xué)生基本信息的基本業(yè)務(wù)流程圖如下：</p><p>　　圖

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

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

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

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

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

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

24、計(jì)</b></p><p><b>　　3．1．概要設(shè)計(jì)</b></p><p>　　針對以上系統(tǒng)要完成的功能，本系統(tǒng)總體設(shè)計(jì)采用自頂向下，逐步細(xì)化的方法將功能層次結(jié)構(gòu)的各個(gè)部分組合起來，以完成整個(gè)系統(tǒng)的實(shí)現(xiàn)細(xì)節(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>　　學(xué)生表操作功能：以分類形式錄入在校學(xué)生的基本基本信息存放在學(xué)生基本數(shù)據(jù)庫文件中。并同時(shí)具有對學(xué)生基本數(shù)據(jù)庫文件進(jìn)行查詢，添加，修改和刪除記錄功能。</p><p>　　本模塊又分為三個(gè)子模塊： （1）學(xué)生信息添加 （2）學(xué)生信息查

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

46、b>　　4.總結(jié)</b></p><p>　　4.1.系統(tǒng)在的問題</p><p>　　教務(wù)管理信息系統(tǒng)開發(fā)完成后，由于開發(fā)設(shè)計(jì)的時(shí)間較短，對開發(fā)工具M(jìn)icrosoftt SQL Server 2000和Borland Delphi 7 不熟悉，所以說本系統(tǒng)的存在的問題</p><p>　　一是作為一個(gè)完全教務(wù)處能夠運(yùn)行的系統(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這兩個(gè)開發(fā)工具有了具體的了解，從而上升到運(yùn)用的層次；同時(shí)了解了開發(fā)一個(gè)系統(tǒng)所要做的具體工作。</p><p><b>　　參考文獻(xiàn)</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('用戶名或密碼錯(cuò)誤');</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 學(xué)生表 where 學(xué)號='''+edit7.Text+'''');</p><p>　　adoquery1.open;</p><p>　

90、　if adoquery1.RecordCount=0 then</p><p>　　showmessage('對不起，沒有此學(xué)號，請重新輸入');</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 學(xué)生表 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 學(xué)生表 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 學(xué)生表 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 學(xué)生表 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 學(xué)生表 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 學(xué)生表 set 姓名='''+edit9.Text+''' where 姓名=''

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

106、</p><p>　　adoquery1.sql.Add('select *from 學(xué)生表 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 學(xué)生表 set 籍貫='''+edit9.Text+''' where 籍貫='''+edit8.Text+''' and 學(xué)號='''+edit7.Text+'''');</p><p>　　adoqu

109、ery1.ExecSQL;</p><p>　　showmessage('修改學(xué)生信息記錄成功！');</p><p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學(xué)生表 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 學(xué)生表 set 專業(yè)='''+edit9.Tex

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

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

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 學(xué)生表 set 年齡='''+edit9.Text+'''

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

117、<p>　　adoquery1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學(xué)生表 where 年齡='''+edit9.Text+''' and 學(xué)號='''+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 學(xué)生表 set 性別='''+edit9.Text+''' where 性別='&#

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

121、ry1.Close;</p><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學(xué)生表 where 性別='''+edit9.Text+''' and 學(xué)號='''+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 學(xué)生表 (

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

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

126、><p>　　Adoquery1.sql.Clear;</p><p>　　adoquery1.sql.Add('select *from 學(xué)生表');</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 學(xué)生表 where 學(xué)號='''+edit10.Text+''' ');</p><p>　　

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

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 學(xué)生表 where 姓名='''+edit10.Text+''' ');</p><

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

133、rom 學(xué)生表 ');</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 學(xué)生表 where 籍貫='''+edit10.Text+''' ');</p&

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

136、lect *from 學(xué)生表 ');</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 學(xué)生表 where 專業(yè)='''+edit10.Text+''' ')