【正文】 :=true。39。39。,39。39。39。,39。 。)。delete from 教師表 where 教師號=39。 。)。39。刪除教師記錄成功！39。 :=true。39。 。 39。 (39。delete from 教師表 where 電話=39。 。)。39。刪除教師記錄成功！39。 :=true。39。 。 39。 (39。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 DataSource1: TDataSource。 Edit4: TEdit。 Button4: TButton。implementationuses Unit2。 (39。)。select * from 課程表 where 課程名=39。 。39。 if =0 then showmessage(39。39。對不起，沒有此任課教師，請重新輸入39。39。++39。39。)。select *from 課程表39。 (39。)。select *from 課表表 39。39。 showmessage(39。 。++39。)。 end else if =3 then begin 。39。 。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。var Form5: TForm5。end.62。 procedure Button1Click(Sender: TObject)。 endend。)。++39。 。 showmessage(39。39。select *from 課程表 39。)。 (39。 。39。begin if =0 then begin 。39。++39。39。 (39。 。select * from 課程表 where 任課教師=39。)。 (39。39。 。39。beginif =0 then begin 。 private { Private declarations } public { Public declarations } end。 Label9: TLabel。 Edit3: TEdit。 Button1: TButton。end。39。 :=true。刪除教師記錄成功！39。39。)。 。delete from 教師表 where 年齡=39。 (39。 39。 。39。 :=true。刪除教師記錄成功！39。39。)。 。delete from 教師表 where 姓名=39。 (39。 39。 。 (39。)39。39。39。,39。39。39。insert into 教師表 (教師號 ,姓名,住址 ,專業(yè),電話,年齡,性別,職稱) values(39。)。39。 。39。++39。39。39。39。)。39。39。update 教師表 set 性別=39。39。++39。修改教師信息記錄成功！39。39。 where 年齡=39。 。++39。39。 。 and 教師號=39。39。 :=true。39。 (39。39。39。39。 )。 (39。39。39。39。)。 (39。39。39。procedure (Sender: TObject)。39。 。39。 。39。 。39。 。39。 。39。 。39。 。39。 。var Form4: TForm4。 Button5: TButton。 Button3: TButton。 ComboBox1: TComboBox。 Edit7: TEdit。 Edit3: TEdit。end.unit Unit4。39。 :=true。刪除學生記錄成功！39。39。)。 。delete from 學生表 where 專業(yè)=39。 (39。 39。 。39。 :=true。刪除學生記錄成功！39。39。 :=true。添加學生信息記錄成功！39。39。,39。39。39。insert into 學生表 (學號 ,姓名,籍貫 ,專業(yè),年齡,性別) values(39。)。39。 。39。39。update 學生表 set 性別=39。39。++39。修改學生信息記錄成功！39。39。 where 年齡=39。 。++39。39。 。 and 學號=39。39。 :=true。39。 。 and 學號=39。39。 :=true。39。 。 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。{$R *.dfm}procedure (Sender: TObject)。 procedure Button5Click(Sender: TObject)。 Label14: TLabel。 ComboBox2: TComboBox。 Edit6: TEdit。 Edit2: TEdit。begin。begin。 procedure N3Click(Sender: TObject)。 N3: TMenuItem。procedure (Sender: TObject)。 if 1 then begin showmessage(39。39。 (39。)。procedure (Sender: TObject)。 ADOQuery1: TADOQuery。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls。管理系統(tǒng)是在如下配置中進行的：硬件：AMD5400+,2G兆內存320G的硬盤的pc機軟件：Windows XP 操作系統(tǒng)，Borland Delphi 7,Microsoft SQL Server 2000 用戶在進行用戶確認后進入如圖41菜單：圖41用戶進入界面系統(tǒng)管理員在作為普通用戶進入系統(tǒng)后，必須再經(jīng)過如圖42中表單的確認后方可進行用戶管理。5) 檢查輸入數(shù)據(jù)合法性。2. 查詢過程1) 用戶輸入要查詢的學生的學號或姓名等其它信息。3．對話比較適合用戶的要求與習慣，應該問的問題問了，問得不頻繁。二、學生表操作、教師表操作，課程表，系統(tǒng)安全這四個模塊的每一個模塊都包含以上的三個小模塊，在此不再重復。并同時具有對學生基本數(shù)據(jù)庫文件進行查詢，添加，修改和刪除記錄功能。MicrosoftSQLServer 2000數(shù)據(jù)的完整性保證性能比較令人滿意,該軟件設計中保持與其他一些數(shù)據(jù)庫的基本兼容。（6）擴充性和升級能力強。 建立一個教務信息管理系統(tǒng)，主要功能為實現(xiàn)對學生，教師，班級，系部，選修，課程，授課和用戶等基本信息的添加，修改，刪除和查詢。數(shù)據(jù)庫技術中南大學教學管理系統(tǒng)論文學院：信息科學與工程學院專業(yè)：電氣工程及其自動化班級：姓名：木雕小象學號：日期：2010年12月30日摘 要中南大學教學管理系統(tǒng)的工作主要是對學生，教師，課程，基本情況和用戶進行管理的現(xiàn)代化的信息管理系統(tǒng)。要求采用Borland Delphi 7 和Microsoft SQL Server 2000 做為開發(fā)工具開發(fā)一個中南大學教學管理系統(tǒng)。（5）支持多種開發(fā)環(huán)境，軟件開發(fā)容易。數(shù)據(jù)的輸入與輸出處理流程都依靠數(shù)據(jù)庫的支持。中南大學教學管理系統(tǒng)教師表操作課程表 安全退出學生表操作系部班級信息系部班級信息系部班級信息系部班級信息系部班級信息 添加課程信息 修改課程信息 刪除課程信息 查詢課程信息 退出 刪除學生信息 修改學生信息 查詢學生信息 添加學生信息 添加教師信息 刪除教師信息 修改教師信息 查詢教師信息 系統(tǒng)功能結構圖有關功能說明:學生表操作功能：以分類形式錄入在校學生的基本基本信息存放在學生基本數(shù)據(jù)庫文件中。3．查詢 當用戶進入查詢窗口時，在查詢窗口的文本框中輸入要查詢的關鍵字如性名或學號時，并點確定按鈕，按鈕中的SQL查詢語句就會執(zhí)行，使得結果顯示在此表單的下方的表格中。2．對用戶的響應要快，而且要進行了回答的有效性檢驗。5) 結束。4) 用戶輸入修改數(shù)據(jù)。學生表操作、教師表操作，課程表，系統(tǒng)安全這四個模塊的算法說明基本相同。參考文獻[1]薩師煊 王珊 “數(shù)據(jù)庫系統(tǒng)概論”，高等教育出版社，1999 附件：unit Unit1。 Button2: TButton。implementation{$R *.dfm}uses unit2。用戶名不能為空39。 。 and password =39。 。end。 N2: TMenuItem。 procedure N2Click(Sender: TObject)。{$R *.dfm}procedure (Sender: TObject)。procedure (Sender: TObject)。begin 。 Label3: TLabel。 Label7: TLabel。 DBGrid1: TDBGrid。 Label13: TLabel。 ADOConnection1: TADOConnection。implementationuses Unit2。 (39。)。 (39。)。 (39。)。