【正文】 行。用戶在進(jìn)入此系統(tǒng)時首先必須在進(jìn)行身份的確認(rèn)，只有是合法用戶才能進(jìn)入此系統(tǒng)，否則將無法使用此系統(tǒng)。1. 錄入過程1) 用戶添加數(shù)據(jù)。2) 系統(tǒng)根據(jù)用戶輸入的學(xué)生的學(xué)號先從學(xué)生基本信息數(shù)據(jù)庫表文件中讀出該記錄。 Edit1: TEdit。 password :=trim()。39。 end else begin 。 N6: TMenuItem。procedure (Sender: TObject)。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB。 ComboBox1: TComboBox。 Button5: TButton。end。)。)。)。)。)。)。++39。39。39。)。 (39。++39。39。39。39。 and 學(xué)號=39。++39。)。39。++39。39。39。beginif =0 then begin 。 。)。39。 。)。39。 (39。select *from 學(xué)生表 39。 Label6: TLabel。 Button2: TButton。 procedure Button2Click(Sender: TObject)。39。39。39。39。39。39。39。39。 (39。 showmessage(39。 endelse if =2 then begin。39。39。39。 showmessage(39。39。39。)。39。++39。 。 。39。 (39。 :=true。 and 教師號=39。select *from 教師表 where 職稱=39。 end end。39。++39。39。 。 showmessage(39。++39。 end else if =2 then begin 。 。)。39。 。)。39。 (39。select *from 教師表 39。 Button2: TButton。 ADOConnection1: TADOConnection。select * from 課程表 where 課號=39。39。39。++39。39。,39。)。 。39。 :=true。 39。type TForm5 = class(TForm) Label5: TLabel。end。 :=true。39。 。 (39。 。39。39。 。 (39。 。 end else if =1 then begin 。procedure (Sender: TObject)。 ComboBox2: TComboBox。 Edit1: TEdit。)。 。39。)。 。 end else if =4 then begin 。++39。 showmessage(39。select *from 教師表 39。 (39。39。++39。39。39。39。)。39。39。修改教師信息記錄成功！39。39。39。 showmessage(39。39。39。)。++39。 and 教師號=39。39。39。 。++39。39。39。 endend。 end else if =7 then begin 。 end else if =6 then begin 。 end else if =5 then begin 。 end else if =4 then begin 。 end else if =3 then begin 。 end else if =2 then begin 。 end else if =1 then begin 。beginif =0 then begin 。 Button4: TButton。 Label10: TLabel。 Label4: TLabel。)。 。39。)。 。 end else if =2 then begin 。++39。 showmessage(39。 。39。++39。 (39。39。++39。 (39。39。39。 endelse if =4then begin。select *from 學(xué)生表 where 專業(yè)=39。39。 。)。++39。select *from 學(xué)生表 where 姓名=39。39。)。)。)。)。)。)。implementationuses Unit2。 Label13: TLabel。 Label7: TLabel。begin 。{$R *.dfm}procedure (Sender: TObject)。 N2: TMenuItem。 。 。implementation{$R *.dfm}uses unit2。參考文獻(xiàn)[1]薩師煊 王珊 “數(shù)據(jù)庫系統(tǒng)概論”，高等教育出版社，1999 附件：unit Unit1。4) 用戶輸入修改數(shù)據(jù)。2．對用戶的響應(yīng)要快，而且要進(jìn)行了回答的有效性檢驗。中南大學(xué)教學(xué)管理系統(tǒng)教師表操作課程表 安全退出學(xué)生表操作系部班級信息系部班級信息系部班級信息系部班級信息系部班級信息 添加課程信息 修改課程信息 刪除課程信息 查詢課程信息 退出 刪除學(xué)生信息 修改學(xué)生信息 查詢學(xué)生信息 添加學(xué)生信息 添加教師信息 刪除教師信息 修改教師信息 查詢教師信息 系統(tǒng)功能結(jié)構(gòu)圖有關(guān)功能說明:學(xué)生表操作功能：以分類形式錄入在校學(xué)生的基本基本信息存放在學(xué)生基本數(shù)據(jù)庫文件中。（5）支持多種開發(fā)環(huán)境，軟件開發(fā)容易。數(shù)據(jù)庫技術(shù)中南大學(xué)教學(xué)管理系統(tǒng)論文學(xué)院：信息科學(xué)與工程學(xué)院專業(yè)：電氣工程及其自動化班級：姓名：木雕小象學(xué)號：日期：2010年12月30日摘 要中南大學(xué)教學(xué)管理系統(tǒng)的工作主要是對學(xué)生，教師，課程，基本情況和用戶進(jìn)行管理的現(xiàn)代化的信息管理系統(tǒng)。（6）擴充性和升級能力強。并同時具有對學(xué)生基本數(shù)據(jù)庫文件進(jìn)行查詢，添加，修改和刪除記錄功能。3．對話比較適合用戶的要求與習(xí)慣，應(yīng)該問的問題問了，問得不頻繁。5) 檢查輸入數(shù)據(jù)合法性。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls。procedure (Sender: TObject)。 (39。 if 1 then begin showmessage(39。 N3: TMenuItem。begin。 Edit6: TEdit。 Label14: TLabel。{$R *.dfm}procedure (Sender: TObject)。 。 。 。 。 。 。 where 姓名=39。39。39。 。 :=true。 and 學(xué)號=39。39。 。39。++39。update 學(xué)生表 set 性別=39。39。39。insert into 學(xué)生表 (學(xué)號 ,姓名,籍貫 ,專業(yè),年齡,性別) values(39。39。39。 :=true。刪除學(xué)生記錄成功！39。39。 。 (39。 。39。 :=true。 Edit3: TEdit。 ComboBox1: TComboBox。 Button5: TButton。 。 。 。 。 。 。 。 。procedure (Sender: TObject)。39。)。39。 (39。39。39。39。39。 。++39。 where 年齡=39。修改教師信息記錄成功！39。39。39。)。39。++39。 。)。39。,39。39。 (39。 39。delete from 教師表 where 姓名=39。)。刪除教師記錄成功！39。39。 。 (39。 。39。 :=true。 Button1: TButton。 Label9: TLabel。beginif =0 then begin 。 。 (39。select * from 課程表 where 任課教師=39。 (39。++39。39。 (39。select *from 課程表 39。 showmessage(39。++39。 endend。end.62。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。39。)。 。39。)。select *from 課程表39。39。39。39。39。select * from 課程表 where 課程名=39。 (39。 Button4: TButton。 DataSource1: TDataSource。 (39。 。39。刪除教師記錄成功！39。)。delete from 教師表 where 電話=39。 39。 :=true。39。