【正文】 　　begin　　 。　　 Label1: TLabel。)?！? 。delete from 課程表 where 學(xué)分=39。　　 (39。 39。 。39。 :=true。刪除課表記錄成功！39。39?！　? :=true。添加課程信息記錄成功！39。39。,39。39。　　　procedure (Sender: TObject)。39?！　? end　 else if =3 then begin　　 。39。)。++39。對不起，沒有此課號，請重新輸入39。39?！　！? procedure Button1Click(Sender: TObject)?！　? Button3: TButton?！　? Label4: TLabel?！? Label3: TLabel。　 。 showmessage(39。39。select *from 教師表 39。)。 (39。 。39。 end　　 else if =5 then begin 。)。++39?！? 。　 showmessage(39。39。select *from 教師表 39。)。 (39。　 。39?！　nd　　else if =1　　 then begin　 。)。++39。　　　end。)。++39。39。39。++39。39。39?！egin　。39。39?！? showmessage(39。39。 where 職稱=39?！? 。++39。39。 。39。39。 end　　　else if =6then begin。39。select *from 教師表 where 年齡=39。)。39。++39?！? 。 and 教師號=39。 。39。++39。39。39。39。)。++39。39?！　? (39。39。)。++39。39。　　 (39。39。)。++39。39。)。++39。)。++39。)。++39。)。++39。)。++39。)。++39。)。++39。)。++39?！　nd。　　 procedure Button1Click(Sender: TObject)?！　? Label16: TLabel?！? ComboBox2: TComboBox。　 DataSource1: TDataSource。　　 Label7: TLabel。　　 Label3: TLabel。 ?！　? showmessage(39。39。select *from 學(xué)生表 39。)?！? (39?！? 。39。　 end else if =3　　 then begin　　 。)。++39?！　? ?！? showmessage(39。39。select *from 學(xué)生表 39。)。 (39。select *from 學(xué)生表39。)。39。++39。39。39。begin　。39。39?！　? showmessage(39。39。39?！? end　　else if =5then begin。39。select *from 學(xué)生表 where 年齡=39。)。39。++39?！? 。 and 學(xué)號=39?！? 。39。++39。39。39。 。39。++39。39。39。 。39。++39?！? end　　　end。39?！? end　　　 else if =5　　 then begin 。39。 end　　　 else if =4 then begin 。39?！　? end else if =3　 then begin 。39。　　 end else if =2 then begin　 。39?！? end　　 else if =1　 then begin　 。39。begin　　if =0 then begin　 ?！? 　 private　　 { Private declarations } public　　 { Public declarations } end。　 DataSource1: TDataSource?！　? Edit9: TEdit。 Edit7: TEdit?！? Label6: TLabel。 Label2: TLabel?！nd。　　var Form2: TForm2。　 Label1: TLabel。type　 TForm2 = class(TForm)　　 MainMenu1: TMainMenu?！　? end。39。39。)。39?！　? private　 { Private declarations }　　 public　 { Public declarations } end。 Edit2: TEdit。三．沒有建立索引等來優(yōu)化系統(tǒng)功能?！　?) 從主文件中刪除該記錄?！　?) 系統(tǒng)根據(jù)用戶輸入的學(xué)號或名字先從學(xué)生基本信息數(shù)據(jù)庫表文件中讀出該記錄?！　?) 檢查錯(cuò)誤時(shí)，彈出一個(gè)錯(cuò)誤的對話框并提示用戶如何操作?！　≡O(shè)計(jì)一個(gè)項(xiàng)目，項(xiàng)目名為教務(wù)管理信息系統(tǒng)并在此項(xiàng)目中創(chuàng)建一個(gè)數(shù)據(jù)庫，數(shù)據(jù)庫名為EducationManagerSystem此數(shù)據(jù)庫中包含學(xué)生、課程、教師、用戶表?！? 　　　　　　一、用戶管理模塊　 在用戶管理模塊中又把此模塊分為三個(gè)小的模塊分別為：　　1．添加　　 在輸入模塊中通過在表單中的一個(gè)確定按鈕使得用戶在界面中通過鍵盤或通過標(biāo)輸入的數(shù)據(jù)插入到數(shù)據(jù)庫中的學(xué)生基本信息表中，通過退出按鈕結(jié)束學(xué)生信息的添加。必須對鼠標(biāo)和鍵盤單獨(dú)支持硬件接口　　支持一般奔騰Ⅲ,128兆以上內(nèi)存的pc機(jī)。開發(fā)該軟件的基本要求與功能是實(shí)現(xiàn)教務(wù)信息數(shù)據(jù)的管理與操作處理,基于數(shù)據(jù)庫系統(tǒng)的數(shù)據(jù)管理使該軟件有更優(yōu)異的性能。（3）數(shù)據(jù)安全，保安型高。實(shí)現(xiàn)的方法主要用Borland Delphi 7和Microsoft公司的 SQL Server 2000 開發(fā)工具來完成界面與數(shù)據(jù)庫的開發(fā)工作。其開發(fā)主要包括前端應(yīng)用程序的開發(fā)以及后臺數(shù)據(jù)庫的建立和維護(hù)兩個(gè)方面。只是實(shí)現(xiàn)了對信息的基本處理功能。對于一個(gè)基于計(jì)算機(jī)系統(tǒng)的研制項(xiàng)目要在經(jīng)濟(jì)方面評價(jià)其是否合理，成本－－效益分析要估計(jì)出研制開發(fā)的花費(fèi)并與收益（包括有形的可以用貨幣計(jì)數(shù)的及無形的利益）衡量比較?！　　　?．2．業(yè)務(wù)流程圖　經(jīng)過系統(tǒng)的調(diào)查與系統(tǒng)分析得到學(xué)生基本信息的基本業(yè)務(wù)流程圖如下：　　　　添加信息　　　　查詢結(jié)果　　　刪除信息　刪除模塊　　　修改信息　查詢信息　　　教務(wù)信息管理數(shù)據(jù)庫　添加模塊　　　修改模塊　　查詢模塊　　　添加結(jié)果　　　　　 　　　　　，圖中表明在學(xué)生管理模塊中要建立一個(gè)學(xué)生數(shù)據(jù)庫，學(xué)生管理工作中的輸入、編輯和查詢都與此數(shù)據(jù)庫發(fā)生業(yè)務(wù)。　　中南大學(xué)教學(xué)管理系統(tǒng)分為學(xué)生表操作、教師表操作，課程表，安全退出七個(gè)子系統(tǒng)。下圖是學(xué)生表操作系統(tǒng)各個(gè)實(shí)體的ER圖?！∈紫认到y(tǒng)判斷用戶在主菜單上所輸入的功能選擇碼是否合法，并根據(jù)選擇碼進(jìn)入相應(yīng)功能模塊?！　?) 若找不到，則不顯示?！?. 刪除記錄1) 用戶輸入要?jiǎng)h除的學(xué)生的學(xué)號或姓名?！? 　　圖43學(xué)生信息錄入　　　圖44課程信息編輯　　，此界面由于是修改和刪除界面所以所有的數(shù)據(jù)綁定控件均為文本框，每一個(gè)文本框都與課程表的一個(gè)字段進(jìn)行綁定。　　 Label1: TLabel。 ADOConnection1: TADOConnection?！　eginusername :=trim()。39。39。+password+39。)。　end。　　 N5: TMenuItem。　 procedure N6Click(Sender: TObject)?！nd?！rocedure (Sender: TObject)?！nd.　　　　unit Unit3?！? Edit3: TEdit?！? Label8: TLabel?！? Label11: TLabel。　　 Edit10: TEdit。 procedure Button3Click(Sender: TObject)?！?。39。對不起，沒有此學(xué)號，請重新輸入39。39。對不起，沒有此姓名，請重新輸入39。39。對不起，沒有此籍貫，請重新輸入39。39。對不起，沒有此專業(yè)，請重新輸入39。39。對不起，沒有此年齡，請重新輸入39。39。對不起，沒有此性別，請重新輸入39。update 學(xué)生表 set 姓名=39。39。修改學(xué)生信息記錄成功！39。++39。 。 where 籍貫=39。39。修改學(xué)生信息記錄成功！39。++39?！? 。 where 專業(yè)=39。39。修改學(xué)生信息記錄成功！39。++39。39。update 學(xué)生表 set 年齡=39。39。39?！　?9。)。39。39。39。　　 (39。39?！? :=true。39。39。,39。39。39?！?。　　　　procedure (Sender: TObject)。39?！　　? 。 39?！? (39。delete from 學(xué)生表 where 籍貫=39。 。)。39。刪除學(xué)生記錄成功！39?！? :=true。39?！?。 。 39。　 (39?！ype TForm4 = class(TForm)　 Label1: TLabel?！? Edit4: TEdit。 Edit8: TEdit?！? Edit9: TEdit。 ComboBox3: TComboBox。 procedure Button5Click(Sender: TObject)。{$R *.dfm}　procedure (Sender: TObject)。select * from 教師表 where 教師號=39。　　 。select * from 教師表 where 姓名=39。 。select * from 教師表 where 住址=39。 。select * from 教師表 where 專業(yè)=39。　 。select * from 教師表 where 電話=39?！　? 。select * from 教師表 where 年齡=39。 。select * from 教師表 where 性別=39。　　 。select * from 教師表 where 職稱=39?！　? 。 。 where 姓名=39?！? 。39?！　? :=true。39。 and 教師號=39。 。39。 :=true。39。 and 教師號=39?！? 。39。++39?！　? 。 where 電話=39。39。修改教師信息記錄成功！39。++39。39。update 教師表 set 年齡=39。39。39?！　?。39。)。39。39。39。 。 and 教師號=39?！? 。++39。39。)?！　? (39。39?！　? :=true。39。3