【正文】 *.dfm}procedure (Sender: TObject)。var Form4: TForm4。 procedure Button3Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 Button5: TButton。 Edit12: TEdit。 Edit11: TEdit。 ComboBox3: TComboBox。 Button3: TButton。 Label13: TLabel。 Label12: TLabel。 Edit9: TEdit。 ComboBox1: TComboBox。 DBGrid1: TDBGrid。 ADOQuery1: TADOQuery。 Edit8: TEdit。 Edit7: TEdit。 Edit6: TEdit。 Edit5: TEdit。 Edit4: TEdit。 Edit3: TEdit。 Edit2: TEdit。 Edit1: TEdit。type TForm4 = class(TForm) Label1: TLabel。end.unit Unit4。 :=true。)。 (39。刪除學(xué)生記錄成功！39。 。 39。39。39。delete from 學(xué)生表 where 性別=39。 。 :=true。)。 (39。刪除學(xué)生記錄成功！39。 。 39。39。39。delete from 學(xué)生表 where 年齡=39。 。 :=true。)。 (39。刪除學(xué)生記錄成功！39。 。 39。39。39。delete from 學(xué)生表 where 專業(yè)=39。 。 :=true。)。 (39。刪除學(xué)生記錄成功！39。 。 39。39。39。delete from 學(xué)生表 where 籍貫=39。 。 :=true。)。 (39。刪除學(xué)生記錄成功！39。 。 39。39。39。delete from 學(xué)生表 where 姓名=39。 。 :=true。)。 (39。刪除學(xué)生記錄成功！39。 。 39。39。39。delete from 學(xué)生表 where 學(xué)號=39。 。procedure (Sender: TObject)。 :=true。)。 (39。添加學(xué)生信息記錄成功！39。 。)39。39。39。,39。39。39。,39。39。39。,39。39。39。 ,39。39。39。 ,39。39。39。insert into 學(xué)生表 (學(xué)號 ,姓名,籍貫 ,專業(yè),年齡,性別) values(39。 。procedure (Sender: TObject)。 :=true。)。39。++39。39。39。++39。39。 (39。 。修改學(xué)生信息記錄成功！39。 。39。39。39。 and 學(xué)號=39。39。39。 where 性別=39。39。39。update 學(xué)生表 set 性別=39。 。 :=true。)。39。++39。39。39。++39。39。 (39。修改學(xué)生信息記錄成功！39。 。39。39。39。 and 學(xué)號=39。39。39。 where 年齡=39。39。39。update 學(xué)生表 set 年齡=39。 。 :=true。)。39。++39。39。39。++39。39。 (39。修改學(xué)生信息記錄成功！39。 。39。39。39。 and 學(xué)號=39。39。39。 where 專業(yè)=39。39。39。update 學(xué)生表 set 專業(yè)=39。 。 :=true。 )。39。++39。39。 (39。修改學(xué)生信息記錄成功！39。 。39。39。39。 and 學(xué)號=39。39。39。 where 籍貫=39。39。39。update 學(xué)生表 set 籍貫=39。 。 :=true。)。39。++39。39。 (39。修改學(xué)生信息記錄成功！39。 。39。39。39。 where 姓名=39。39。39。update 學(xué)生表 set 姓名=39。 。procedure (Sender: TObject)。 :=true。對不起，沒有此性別，請重新輸入39。 。39。39。39。select *from 學(xué)生表 where 性別=39。 。 :=true。對不起，沒有此年齡，請重新輸入39。 。39。39。39。select *from 學(xué)生表 where 年齡=39。 。 :=true。對不起，沒有此專業(yè)，請重新輸入39。 。39。39。39。select *from 學(xué)生表 where 專業(yè)=39。 。 :=true。對不起，沒有此籍貫，請重新輸入39。 。39。39。39。select *from 學(xué)生表 where 籍貫=39。 。 :=true。對不起，沒有此姓名，請重新輸入39。 。39。39。39。select *from 學(xué)生表 where 姓名=39。 。 :=true。對不起，沒有此學(xué)號，請重新輸入39。 。39。39。39。select * from 學(xué)生表 where 學(xué)號=39。 。procedure (Sender: TObject)。{$R *.dfm}procedure (Sender: TObject)。var Form3: TForm3。 procedure Button4Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 Button4: TButton。 ADOQuery1: TADOQuery。 Edit10: TEdit。 Label14: TLabel。 Button3: TButton。 Label12: TLabel。 Label11: TLabel。 ComboBox2: TComboBox。 Button2: TButton。 Label9: TLabel。 Label8: TLabel。 Edit6: TEdit。 Edit5: TEdit。 Edit4: TEdit。 Edit3: TEdit。 Edit2: TEdit。 Edit1: TEdit。type TForm3 = class(TForm) Label1: TLabel。end.unit Unit3。procedure (Sender: TObject)。procedure (Sender: TObject)。begin。end。begin。end。begin。implementationuses Unit3, Unit4, Unit5, Unit6。 private { Private declarations } public { Public declarations } end。 procedure N6Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 Label2: TLabel。 Image1: TImage。 N5: TMenuItem。 N3: TMenuItem。 N1: TMenuItem。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls。end。procedure (Sender: TObject)。 end。 。)。 if 1 then begin showmessage(39。)。39。+password+39。39。39。+username+39。39。 (39。 end else begin 。密碼不能為空39。39。)。 then begin ShowMessage(39。 if username=39。beginusername :=trim()。procedure (Sender: TObject)。var Form1: TForm1。 procedure Button2Click(Sender: TObject)。 ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery。 Button1: TButton。 Label2: TLabel。 Label1: TLabel。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls。 通過自己查詢相關(guān)書藉和對網(wǎng)絡(luò)資源的利用，可以讓我們對Borland Delphi 7 和Microsoft SQL Server 2000這兩個(gè)開發(fā)工具有了具體的了解，從而上升到運(yùn)用的層次；同時(shí)了解了開發(fā)一個(gè)系統(tǒng)所要做的具體工作。 教務(wù)管理信息系統(tǒng)開發(fā)完成后，由于開發(fā)設(shè)計(jì)的時(shí)間較短，對開發(fā)工具M(jìn)icrosoftt SQL Server 2000和Borland Delphi 7 不熟悉，所以說本系統(tǒng)的存在的問題一是作為一個(gè)完全教務(wù)處能夠運(yùn)行的系統(tǒng)可能功能不夠完善；二，沒有設(shè)置權(quán)限。 圖43學(xué)生信息錄入圖44課程信息編輯，此界面由于是修改和刪除界面所以所有的數(shù)據(jù)綁定控件均為文本框，每一個(gè)文本框都與課程表的一個(gè)字段進(jìn)行綁定。管理系統(tǒng)是在如下配置中進(jìn)行的：硬件：AMD5400+,2G兆內(nèi)存320G的硬盤的pc機(jī)軟件：Windows XP 操作系統(tǒng)，Borland Delphi 7,Microsoft SQL Server 2000 用戶在進(jìn)行用戶確認(rèn)后進(jìn)入如圖41菜單：圖41用戶進(jìn)入