【正文】 　　 private　 { Private declarations }　　 public　　 { Public declarations }　 end。　　 :=true。39?！? ?！　? (39?！? 。)39。39?！　? if =0 then showmessage(39。 。)。39。　var Form6: TForm6?！? Label6: TLabel?！　nd.　　　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。)。)。)。)。)。)。)。)?！　　　mplementation　　　uses Unit2。 Label14: TLabel。 Label9: TLabel。　　interface　　uses　 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。39。)。　　 。39。)。　 ?！nd　else if =1　 then begin　　 。++39。)。39。++39。 ?！　? 。++39。39。)。39。39。　 showmessage(39。39。39。39?！? end　　else if =2　 then begin。 showmessage(39?！　? (39。39。39。39。39。39。39。 procedure Button2Click(Sender: TObject)?！　? Label10: TLabel。　 Label4: TLabel?！nd。 procedure N5Click(Sender: TObject)。begin　　 。39?！　? end　 else if password=39。　 DataSource1: TDataSource?！　? 圖42 登陸界面　　在其界面中系統(tǒng)管理名與系統(tǒng)管理員口令都運(yùn)用了文本框讓使用者輸入其目的就增加其保密性?！?) 系統(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　　　 9　　3．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)行綁定?！?) 當(dāng)檢查正確后將在錄入表單的數(shù)據(jù)插入到學(xué)生基本信息數(shù)據(jù)庫(kù)表文件中。5) 結(jié)束?！　? Button1: TButton。 then　 begin　 ShowMessage(39。39。 end。 Label2: TLabel?！　nd。 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?！　　rocedure (Sender: TObject)?！　?39。delete from 教師表 where 住址=39。)。刪除教師記錄成功！39。39。 。　 (39。　 。39。　 :=true?！? Edit2: TEdit?！　? procedure Button3Click(Sender: TObject)。++39。39。39。39。39。++39?！　　　nd。)。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?！egin。 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 電話=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)有此電話，請(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?！　rocedure (Sender: TObject)。39。 and 學(xué)號(hào)=39。　　 :=true?！　? (39。39。)。39。39。39。update 學(xué)生表 set 籍貫=39?！　?9。39。39。39。39。39。39?！　? procedure Button4Click(Sender: TObject)。　 Label12: TLabel。　　 Edit4: TEdit。　 private　 { Private declarations } public　　 { Public declarations }　　 end?！　　nterface　　　　uses 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)限?！　?. 修改過(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ì)方面可行。用戶(hù)在進(jìn)入此系統(tǒng)時(shí)首先必須在進(jìn)行身份