【正文】 procedure Button9Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 Label14: TLabel。 Button9: TButton。 Edit8: TEdit。 Edit6: TEdit。 Edit2: TEdit。 Button3: TButton。select * from 學(xué)生信息表39。 。 。select * from 學(xué)生信息表 where 姓名=39。39。begin :=True。 Button3: TButton。 DataSource1: TDataSource。 。 。 。procedure (Sender: TObject)。 。 。 (,nil,alNone)。 。end。 。 。begin :=True。 。 。 (,nil,alNone)。 private { Private declarations } public { Public declarations } end。 procedure N3Click(Sender: TObject)。 N15: TMenuItem。 N7: TMenuItem。type TForm12 = class(TForm) Image1: TImage。 (39。++39。begin if MessageDlg(39。)。 (39。 procedure Button2Click(Sender: TObject)。 Label3: TLabel。type TForm11 = class(TForm) Button1: TButton。 end。39。var Form10: TForm10。type TForm10 = class(TForm) DBGrid1: TDBGrid。39。)。 。++39。39。39。確認(rèn)修改嗎？39。 begin Randomize。begin :=39。end。 //這個是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成4個a到z的字符串 begin i:=Random(24)。begin 。39。begin :=True。 procedure Button3Click(Sender: TObject)。 Edit2: TEdit。 GroupBox1: TGroupBox。end.unit Unit9。39。begin 。procedure (Sender: TObject)。 end。var Form8: TForm8。 Label1: TLabel。 Button1: TButton。成功刪除！39。)。 (39。)。39。 。select * from 課程信息表 where 學(xué)號=39。 end else ShowMessage(39。).AsString。 (39。 (39。).Value:=(39。).AsString。K39。 。39。備注39。 (39。).Value:=(39。).AsString。C39。A39。)。 (39。39。39。 if =0 then begin ShowMessage(39。select * from 教師課程表 where 課程號=39。select * from 教師課程表39。 procedure Button3Click(Sender: TObject)。 ADOQuery2: TADOQuery。 DataSource1: TDataSource。procedure (Sender: TObject)。++39。{$R *.dfm}procedure (Sender: TObject)。 Button2: TButton。procedure (Sender: TObject)。++39。{$R *.dfm}procedure (Sender: TObject)。 Button2: TButton。39。驗證碼錯誤39。修改成功39。39。 if =1 then begin if = then begin 。and 密碼 =39。 。 end。 c:Char。 begin Randomize。begin :=39。 end。)。 begin (39。 private { Private declarations } public { Public declarations } end。 Button6: TButton。 Label4: TLabel。 DataSource1: TDataSource。end。39。選課系統(tǒng)已關(guān)閉！39。已開通選課 39。 。 。 。 procedure Button4Click(Sender: TObject)。 ADOQuery1: TADOQuery。type TForm3 = class(TForm) Button1: TButton。 c:=chr(ord(39。end。39。end。 end。 end else begin 。++39。39。 :=39。)。39。and 密碼 =39。 。用戶名或密碼錯誤，請重新登錄39。39。39。begin if = then begin case of 0:begin 。賬 號 39。 procedure FormCreate(Sender: TObject)。 ADOQuery1: TADOQuery。 Label2: TLabel。 end。begin (,nil,alNone)。 ADOConnection1: TADOConnection。第五章 系統(tǒng)實(shí)現(xiàn)（1）查看個人信息（2）修改密碼（3）成績查詢（4）課程查詢（5）網(wǎng)上選課 選課提示選課界面已選提示 成功提示 刪除提示4. 教職工界面（1） 個人信息（同學(xué)生界面）（2） 修改密碼（同學(xué)生界面）（3） 課程查詢（同學(xué)生界面）（4） 成績評定5. 管理員界面（1） 個人信息（同學(xué)生界面）（2） 修改密碼（同學(xué)生界面）（3） 學(xué)生查詢管理 （4） 學(xué)生信息修改（5） 教師信息查詢（6） 教師信息修改（7） 課程信息查詢（8） 課程信息修改（9） 成績查詢第六章 源程序附錄unit Unit1。它還具有性能穩(wěn)定、便于操作維護(hù)和具有較好的安全可靠性等特點(diǎn)，是作為服務(wù)器端數(shù)據(jù)庫平臺的理想選擇。（4）主要硬件設(shè)備：PC機(jī)一臺。4)能明細(xì)查詢某學(xué)生的選課情況及某課程的選修學(xué)生情況。學(xué)生：學(xué)號、姓名、性別、年齡等。 本系統(tǒng)是以delphi7編輯用戶界面，以SQL server 2008為數(shù)據(jù)源后臺而成的學(xué)生信息管理系統(tǒng)。本系統(tǒng)是以計算機(jī)為基礎(chǔ)，由人和計算機(jī)結(jié)合的對信息進(jìn)行收集、存儲、維護(hù)、加工、傳遞和使用的一種管理系統(tǒng)，其目的是使人流、物流、資金流和信息流處于最佳狀態(tài)，以最少的資源投入獲得最佳的綜合效益。為簡單起見教師與學(xué)生區(qū)分系別，而課程不分系，課程需反映如下信息：課程代號、課程名、課時數(shù)、必修課、學(xué)分。5)能統(tǒng)計查詢出某學(xué)生的成績單(包括總成績、平均成績、不及格門數(shù)等)及某門課的選課人數(shù)、最高分、最低分、平均成績等統(tǒng)計信息。3．技術(shù)可行性:本系統(tǒng)僅僅簡單的實(shí)現(xiàn)了教務(wù)管理系統(tǒng)的基本功能和需求，具有一定的實(shí)用性。根據(jù)系統(tǒng)的需求，系統(tǒng)用到的各種數(shù)據(jù)表如下圖所示。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Unit2, jpeg, DB, ADODB。 Timer1: TTimer。 。end。 Label3: TLabel。 Label4: TLabel。 procedure Button3Click(Sender: TObject)。 1::=39。 。 AND 密碼=39。39。)。 :=39。39。++39。 end else begin 。select * from 管理信息表 where 賬號=39。39。39。 。 end else ShowMessage(39。procedure (Sender: TObject)。 //這個是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成4個a到z的字符串 begin i:=Random(24)。end。a39。 Button2: TButton。 ADOConnection1: TADOConnection。 procedure Image1Click(Sender: TObject)。 。 。 。 then begin 。)。39。procedure (Sender: TObject)。 Button1: TButton。 Edit1: TEdit。 procedure Button1Click(Sender: TObject)。var Form4: TForm4。select * from 學(xué)生信息表 where 學(xué)號=39。 。procedure (Sender: TObject)。39。 end。begin :=39。 begin Randomize。 :=39。39。 。39。)。)。 :=39。 ADOQuery1: TADOQuery。begin :=True。39。begin 。 ADOQuery1: TADOQuery。begin :=True。39。begin 。 DBGrid1: TDBGrid。 ADOQuery3: TADOQuery。 private { Private declarations } public { Public declarations } end。)。39。此課程不存在39。++39。39。select * from 教師課程表 where 課程號=39。 。).Value:=。).Value:=(39。 (39。開課時間39。H39。).AsString。++39。 (39。).Value:=(39。 (39。學(xué)時39。P39。R39。 。已選過此課程39。39。end。++39。 end else begin if MessageDlg(39。T39。 (39。)。 Button2: TButton。 Timer1: TTimer。