【正文】 :=true。刪除學(xué)生記錄成功！39。39。)。 。delete from 學(xué)生表 where 學(xué)號(hào)=39。)。 。,39。39。39。 ,39。 。39。++39。修改學(xué)生信息記錄成功！39。39。 where 性別=39。 。++39。39。 。 and 學(xué)號(hào)=39。39。 :=true。39。 (39。39。39。39。 )。 (39。39。39。39。)。 (39。39。39。procedure (Sender: TObject)。39。 。39。 。39。 。39。 。39。 。39。 。var Form3: TForm3。 Button4: TButton。 Button3: TButton。 Button2: TButton。 Edit5: TEdit。 Edit1: TEdit。procedure (Sender: TObject)。end。implementationuses Unit3, Unit4, Unit5, Unit6。 Label2: TLabel。 N1: TMenuItem。 end。)。39。 end else begin 。 then begin ShowMessage(39。var Form1: TForm1。 Button1: TButton。 通過自己查詢相關(guān)書藉和對(duì)網(wǎng)絡(luò)資源的利用，可以讓我們對(duì)Borland Delphi 7 和Microsoft SQL Server 2000這兩個(gè)開發(fā)工具有了具體的了解，從而上升到運(yùn)用的層次；同時(shí)了解了開發(fā)一個(gè)系統(tǒng)所要做的具體工作。5) 結(jié)束。3) 如找不到，則不顯示。4) 當(dāng)檢查正確后將在錄入表單的數(shù)據(jù)插入到學(xué)生基本信息數(shù)據(jù)庫表文件中。表結(jié)構(gòu)如下：學(xué)生表操作(student)課程表(course) 教師表(teacher) 用戶表(login) 在對(duì)話設(shè)計(jì)的過程中遵循了對(duì)話設(shè)計(jì)的原則：1．對(duì)話要清楚、沒有二義性。2．修改和刪除當(dāng)用戶進(jìn)入修改和刪除窗口時(shí)，編輯窗口中的數(shù)據(jù)綁定型控件都與學(xué)生基本信息表中的字段進(jìn)行綁定。軟件接口運(yùn)行于Windows9X及更高版本具有WIN32API的操作系統(tǒng)上3．1．概要設(shè)計(jì)針對(duì)以上系統(tǒng)要完成的功能，本系統(tǒng)總體設(shè)計(jì)采用自頂向下，逐步細(xì)化的方法將功能層次結(jié)構(gòu)的各個(gè)部分組合起來，以完成整個(gè)系統(tǒng)的實(shí)現(xiàn)細(xì)節(jié)。系統(tǒng)的基本數(shù)據(jù)流動(dòng)為教務(wù)數(shù)據(jù)的輸入,學(xué)生信息,課程信息,教師信息，授課信息，班級(jí)信息，選修信息，系部信息和用戶信息的添加與修改,以及有關(guān)用戶提出的對(duì)教務(wù)信息查詢要求所產(chǎn)生的數(shù)據(jù)輸出。（4）能提供分布式數(shù)據(jù)庫功能。關(guān)鍵詞：管理, 一致性, 完整性, 安全性目錄摘 要 2 5 5 5 6 6 6 6. 業(yè)務(wù)流程圖 7. 系統(tǒng)功能分解圖 8．系統(tǒng)分析邀請(qǐng) 8 8 8 8 93．1．概要設(shè)計(jì) 9 9 10 11 11 11 14 15 16 16 17 17 18 19 20 21 21 21參考文獻(xiàn) 21附錄 22 本系統(tǒng)作為大三第一學(xué)期《數(shù)據(jù)庫技術(shù)》課程的作業(yè)。每個(gè)管理模塊都包括數(shù)據(jù)查詢、修改、刪除、添加等功能，中南大學(xué)教學(xué)管理系統(tǒng)能高效、準(zhǔn)確地完成這些功能，并達(dá)到界面美觀友好、使用方便。因?yàn)闀r(shí)間不足，而且第一次接觸Borland Delphi 7和Mircosoft SQL Server 2000這兩個(gè)開發(fā)工具，所以并沒有設(shè)立權(quán)限，也沒有建立索引和視圖等來優(yōu)化系統(tǒng)功能。經(jīng)濟(jì)可行性估計(jì)開發(fā)費(fèi)用以及最終從開發(fā)成功的系統(tǒng)所獲得的收入或利益,衡量比較支出的費(fèi)用和收到的利益。就目前使用的開發(fā)技術(shù)來說系統(tǒng)的功能目標(biāo)應(yīng)該能夠達(dá)到；利用現(xiàn)有的技術(shù)在規(guī)定的期限內(nèi)開發(fā)工作基本能夠完成。本模塊又分為三個(gè)子模塊： （1）學(xué)生信息添加 （2）學(xué)生信息查詢 （3）學(xué)生信息編輯(修改/刪除)2．教師表操作，課程表模塊和學(xué)生表操作模塊功能相似。一、數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上,設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體,以及它們之間的關(guān)系,為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ),可以用實(shí)體關(guān)系模型來描述.實(shí)體關(guān)系模型(Entityrelationship Mode,簡稱ER模型),菱形表示實(shí)體之間的聯(lián)系,聯(lián)系的類型可以用1:1或1:M或M：N表示，圓角矩形表示實(shí)體的有關(guān)屬性，橢圓表示實(shí)體的具體屬性。4．注意詢問格式的美觀、實(shí)用，而且采用了統(tǒng)一的格式，體現(xiàn)了一定的風(fēng)格。2) 系統(tǒng)根據(jù)用戶輸入的學(xué)生的學(xué)號(hào)先從學(xué)生基本信息數(shù)據(jù)庫表文件中讀出該記錄。6) 結(jié)束。 圖42 登陸界面在其界面中系統(tǒng)管理名與系統(tǒng)管理員口令都運(yùn)用了文本框讓使用者輸入其目的就增加其保密性。type TForm1 = class(TForm) Image1: TImage。 DataSource1: TDataSource。var username,password:string。 end else if password=39。select * from login where username=39。39。用戶名或密碼錯(cuò)誤39。begin 。 N4: TMenuItem。 procedure N5Click(Sender: TObject)。end。end。 Label4: TLabel。 Button1: TButton。 Label10: TLabel。 ComboBox3: TComboBox。 procedure Button2Click(Sender: TObject)。begin。39。 if =0 then showmessage(39。39。 if =0 then showmessage(39。39。 if =0 then showmessage(39。39。 if =0 then showmessage(39。39。 if =0 then showmessage(39。39。 if =0 then showmessage(39。 (39。39。 showmessage(39。39。 endelse if =2 then begin。39。39。 showmessage(39。39。 endelse if =3 then begin。39。39。 showmessage(39。39。39。 (39。39。++39。)。39。39。39。++39。39。 。 and 學(xué)號(hào)=39。 。39。++39。39。39。++39。)。end。++39。)。endelse if =1 then begin 。39。 。 (39。)。select *from 學(xué)生表 39。39。 showmessage(39。 。++39。)。 end else if =5 then begin 。39。 。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。 Label5: TLabel。 Label9: TLabel。 Label11: TLabel。 Label14: TLabel。 ADOConnection1: TADOConnection。implementationuses Unit2。 (39。)。 (39。)。 (39。)。 (39。)。 (39。)。 (39。)。 (39。)。 (39。)。begin if =1then begin。39。)。select *from 教師表 where 姓名=39。 。++39。39。)。select *from 教師表 where 住址=39。 。++39。39。)。select *from 教師表 where 專業(yè)=39。39。 endelse if =4 then begin。39。39。 showmessage(39。39。39。 (39。39。++39。)。39。39。39。++39。39。39。)。39。39。39。 。 and 教師號(hào)=39。 。39。++39。39。39。++39。39。)。select *from 教師表39。 (39。)。select *from 教師表 39。39。 showmessage(39。 。++39。)。 end else if =3 then begin 。39。 。 (39。)。select *from 教師表 39。39。 showmessage(39。 。++39。)。 end else if =7 then begin 。39。 。end.unit Unit6。 ADOQuery1: TADOQuery。 Label6: TLabel。 Edit6: TEdit。var Form6: TForm6。 。39。 (39。)。select * from 課程表 where 學(xué)分=39。 。39。 if =0 then showmessage(39。insert into 課程表 (課號(hào) ,課程名, 學(xué)分,任課教師) values(39。39。39。)39。 (39。 。 39。 (39。delete from 課表表 where 課程名=39。 。)。39。刪除課表記錄成功！39。 :=true。39。end.unit Unit5。 private { Private declarations } public { Public declarations }