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