【正文】 的確認(rè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?！　rocedure (Sender: TObject)?！　nterface　　uses 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?！　egin　if =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?！? end　　　　else 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?！　　ype　　 TForm5 = class(TForm)　　 Label5: TLabel。end?！? :=true。39?！? 。 (39。　 。39?！　　?9?！　? ?！　? (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。　 end　end?！? 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　　 ?！eginif =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。　　 end　　else if =4　then begin　。select *from 學(xué)生表 where 專業(yè)=39。39。 。)。++39。select *from 學(xué)生表 where 姓名=39。39。)。)。)。)。)。)。implementation　　uses Unit2。 Label13: TLabel。 Label7: TLabel。　begin ?！　　$R *.dfm}　procedure (Sender: TObject)?！　? N2: TMenuItem?！? 。 ?！　mplementation　　{$R *.dfm}　　uses unit2?！⒖嘉墨I　[1]薩師煊 王珊 “數(shù)據(jù)庫系統(tǒng)概論”，高等教育出版社，1999　 　　　附件：　　unit Unit1?！　?) 用戶輸入修改數(shù)據(jù)?！?．對用戶的響應(yīng)要快，而且要進行了回答的有效性檢驗?！　　≈心洗髮W(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é)生，教師，課程，基本情況和用戶進行管理的現(xiàn)代化的信息管理系統(tǒng)。（6）擴充性和升級能力強。并同時具有對學(xué)生基本數(shù)據(jù)庫文件進行查詢，添加，修改和刪除記錄功能?！?．對話比較適合用戶的要求與習(xí)慣，應(yīng)該問的問題問了，問得不頻繁?！　?) 檢查輸入數(shù)據(jù)合法性。　　interface　uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　 Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls?！　rocedure (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?！? 。 。 ?！? 。　 。　　 ?！　? 。 ?！rocedure (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?！　eginif =0　 then begin　　 ?！? 。 (39。select * from 課程表 where 任課教師=39?！　? (39。++39。39?！? (39。select *from 課程表 39。　　 showmessage(39。++39。 endend。end.　?！　　nterface　　　uses　 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?！　?