【正文】 private { Private declarations } public { Public declarations } end。 :=true。39。 。 (39。 。)39。39。 if =0 then showmessage(39。 。)。39。var Form6: TForm6。 Label6: TLabel。end.unit Unit6。39。)。 。39。)。 。 end else if =3 then begin 。++39。 showmessage(39。select *from 教師表 39。 (39。)。++39。39。39。 and 教師號(hào)=39。39。39。39。39。39。39。++39。 (39。39。39。 endelse if =4 then begin。select *from 教師表 where 專(zhuān)業(yè)=39。39。 。)。++39。select *from 教師表 where 姓名=39。39。)。)。)。)。)。)。)。)。implementationuses Unit2。 Label14: TLabel。 Label9: TLabel。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。39。)。 。39。)。 。endelse if =1 then begin 。++39。)。39。++39。 。 。++39。39。)。39。39。 showmessage(39。39。39。39。 endelse if =2 then begin。 showmessage(39。 (39。39。39。39。39。39。39。 procedure Button2Click(Sender: TObject)。 Label10: TLabel。 Label4: TLabel。end。 procedure N5Click(Sender: TObject)。begin 。39。 end else if password=39。 DataSource1: TDataSource。 圖42 登陸界面在其界面中系統(tǒng)管理名與系統(tǒng)管理員口令都運(yùn)用了文本框讓使用者輸入其目的就增加其保密性。2) 系統(tǒng)根據(jù)用戶(hù)輸入的學(xué)生的學(xué)號(hào)先從學(xué)生基本信息數(shù)據(jù)庫(kù)表文件中讀出該記錄。一、數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上,設(shè)計(jì)出能夠滿(mǎn)足用戶(hù)需求的各種實(shí)體,以及它們之間的關(guān)系,為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ),可以用實(shí)體關(guān)系模型來(lái)描述.實(shí)體關(guān)系模型(Entityrelationship Mode,簡(jiǎn)稱(chēng)ER模型),菱形表示實(shí)體之間的聯(lián)系,聯(lián)系的類(lèi)型可以用1:1或1:M或M：N表示，圓角矩形表示實(shí)體的有關(guān)屬性，橢圓表示實(shí)體的具體屬性。就目前使用的開(kāi)發(fā)技術(shù)來(lái)說(shuō)系統(tǒng)的功能目標(biāo)應(yīng)該能夠達(dá)到；利用現(xiàn)有的技術(shù)在規(guī)定的期限內(nèi)開(kāi)發(fā)工作基本能夠完成。因?yàn)闀r(shí)間不足，而且第一次接觸Borland Delphi 7和Mircosoft SQL Server 2000這兩個(gè)開(kāi)發(fā)工具，所以并沒(méi)有設(shè)立權(quán)限，也沒(méi)有建立索引和視圖等來(lái)優(yōu)化系統(tǒng)功能。關(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ù)庫(kù)技術(shù)》課程的作業(yè)。系統(tǒng)的基本數(shù)據(jù)流動(dòng)為教務(wù)數(shù)據(jù)的輸入,學(xué)生信息,課程信息,教師信息，授課信息，班級(jí)信息，選修信息，系部信息和用戶(hù)信息的添加與修改,以及有關(guān)用戶(hù)提出的對(duì)教務(wù)信息查詢(xún)要求所產(chǎn)生的數(shù)據(jù)輸出。2．修改和刪除當(dāng)用戶(hù)進(jìn)入修改和刪除窗口時(shí)，編輯窗口中的數(shù)據(jù)綁定型控件都與學(xué)生基本信息表中的字段進(jìn)行綁定。4) 當(dāng)檢查正確后將在錄入表單的數(shù)據(jù)插入到學(xué)生基本信息數(shù)據(jù)庫(kù)表文件中。5) 結(jié)束。 Button1: TButton。 then begin ShowMessage(39。39。 end。 Label2: TLabel。end。 Edit1: TEdit。 Button2: TButton。 Button4: TButton。 。 。 。 。 。 。procedure (Sender: TObject)。39。)。39。 (39。39。39。39。39。 。++39。 where 性別=39。修改學(xué)生信息記錄成功！39。39。 ,39。39。 。delete from 學(xué)生表 where 學(xué)號(hào)=39。)。刪除學(xué)生記錄成功！39。39。 。 (39。 。39。 :=true。 Edit6: TEdit。 Label13: TLabel。 procedure Button3Click(Sender: TObject)。39。39。39。39。39。39。39。39。39。update 教師表 set 住址=39。39。39。39。)。39。 (39。 :=true。 and 教師號(hào)=39。39。 。39。39。 (39。++39。++39。 。39。,39。39。procedure (Sender: TObject)。 39。delete from 教師表 where 住址=39。)。刪除教師記錄成功！39。39。 。 (39。 。39。 :=true。 Edit2: TEdit。 procedure Button3Click(Sender: TObject)。++39。39。39。39。39。++39。end。)。39。 (39。select *from 課程表 39。 showmessage(39。 Label2: TLabel。{$R *.dfm}procedure (Sender: TObject)。select *from 表 任課老師39。 (39。39。)。 。39。 showmessage(39。39。 endend。)。對(duì)不起，沒(méi)有此課程名，請(qǐng)重新輸入39。 if =0 then showmessage(39。begin。 Edit5: TEdit。 Label2: TLabel。 。 (39。 。39。刪除教師記錄成功！39。)。delete from 教師表 where 專(zhuān)業(yè)=39。 39。 :=true。39。添加教師信息記錄成功！39。,39。39。39。++39。 。39。39。 。39。39。39。39。39。39。update 教師表 set 電話(huà)=39。++39。39。 。修改教師信息記錄成功！39。 where 住址=39。++39。39。對(duì)不起，沒(méi)有此職稱(chēng)，請(qǐng)重新輸入39。對(duì)不起，沒(méi)有此性別，請(qǐng)重新輸入39。對(duì)不起，沒(méi)有此年齡，請(qǐng)重新輸入39。對(duì)不起，沒(méi)有此電話(huà)，請(qǐng)重新輸入39。對(duì)不起，沒(méi)有此專(zhuān)業(yè)，請(qǐng)重新輸入39。對(duì)不起，沒(méi)有此住址，請(qǐng)重新輸入39。對(duì)不起，沒(méi)有此姓名，請(qǐng)重新輸入39。對(duì)不起，沒(méi)有此教師號(hào)，請(qǐng)重新輸入39。 Edit11: TEdit。 ADOQuery1: TADOQuery。 Edit1: TEdit。 。 (39。 。39。刪除學(xué)生記錄成功！39。)。delete from 學(xué)生表 where 姓名=39。 39。 (39。39。 ,39。procedure (Sender: TObject)。39。 and 學(xué)號(hào)=39。 :=true。 (39。39。)。39。39。39。update 學(xué)生表 set 籍貫=39。39。39。39。39。39。39。39。 procedure Button4Click(Sender: TObject)。 Label12: TLabel。 Edit4: TEdit。 private { Private declarations } public { Public declarations } end。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls。39。密碼不能為空39。 procedure Button2Click(Sender: TObject)。 教務(wù)管理信息系統(tǒng)開(kāi)發(fā)完成后，由于開(kāi)發(fā)設(shè)計(jì)的時(shí)間較短，對(duì)開(kāi)發(fā)工具M(jìn)icrosoftt SQL Server 2000和Borland Delphi 7 不熟悉，所以說(shuō)本系統(tǒng)的存在的問(wèn)題一是作為一個(gè)完全教務(wù)處能夠運(yùn)行的系統(tǒng)可能功能不夠完善；二，沒(méi)有設(shè)置權(quán)限。3. 修改過(guò)程1) 用戶(hù)輸入要修改的學(xué)生的學(xué)號(hào)名字。在上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫(kù)中的表格以及各個(gè)表格之間的關(guān)系。能夠查詢(xún)學(xué)生，教師，班級(jí)，專(zhuān)業(yè)，課程等所有信息能夠通過(guò)知道學(xué)生，教師，教師課程的一個(gè)信息找到其它的相關(guān)信息（例如：知道學(xué)生的姓名能夠找到該學(xué)生的所有有關(guān)的信息）通過(guò)一條信息找到與之匹配的信息（例如：查詢(xún)同一專(zhuān)業(yè)或同班級(jí)的所有學(xué)生）管理人員能對(duì)學(xué)生，教師，和課程信息進(jìn)行管理（例如：因?yàn)閷W(xué)生有關(guān)情況不是固定不變的所以一旦學(xué)生信息發(fā)生改變就要對(duì)原有信息進(jìn)行諸如添加，刪除，修改等的操作）數(shù)據(jù)精確度查詢(xún)時(shí)應(yīng)保證查全率，所有相應(yīng)域包含查詢(xún)關(guān)鍵字的記錄都應(yīng)能查到 時(shí)間特性一般操作的響應(yīng)時(shí)間應(yīng)在12秒內(nèi) 適應(yīng)性對(duì)運(yùn)行環(huán)境要求普遍適應(yīng)性用戶(hù)界面利用菜單界面驅(qū)動(dòng)方式，對(duì)用戶(hù)友好。（2）產(chǎn)品質(zhì)量?jī)?yōu)異，可靠性高，適于長(zhǎng)期運(yùn)行，能支持關(guān)鍵應(yīng)用。對(duì)于前者要求應(yīng)用程序功能完備,易使用等特點(diǎn)。而該系統(tǒng)的設(shè)計(jì)只是通過(guò)網(wǎng)絡(luò)自己下載免費(fèi)開(kāi)發(fā)工具來(lái)開(kāi)發(fā)，所以經(jīng)濟(jì)方面可