【正文】 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 31 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 18 密碼 =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)實現(xiàn) 9 （ 1）查看個人信息 （ 2）修改密碼 （ 3）成績查詢 （ 4）課程查詢 10 （ 5）網(wǎng)上選課 選課提示 選課界面 已選提示 成功提示 11 刪除提示 4. 教職工界面 （ 1） 個人信息（同學(xué)生界面） （ 2） 修改密碼（同學(xué)生界面） （ 3） 課程查詢（同學(xué)生界面） （ 4） 成績評定 12 5. 管理員界面 （ 1） 個人信息（同學(xué)生界面） （ 2） 修改密碼（同學(xué)生界面） （ 3） 學(xué)生查詢管理 （ 4） 學(xué)生信息修改 13 （ 5） 教師信息查詢 （ 6） 教師信息修改 （ 7） 課程信息查詢 14 （ 8） 課程信息修改 （ 9） 成績查詢 第六章 源程序附錄 unit Unit1。它還具有性能穩(wěn)定、便于操作維護(hù)和具有較好的安全可靠性等特點，是作為服務(wù)器端數(shù)據(jù)庫平臺的理想選擇。 （ 4）主要硬件設(shè)備： PC 機(jī)一臺。 4)能明細(xì)查詢某學(xué)生的選課情況及某課程的選修學(xué)生情況。 學(xué)生：學(xué)號、姓名、性別、年齡等。 本系統(tǒng)是以 delphi7 編輯用戶界面，以 SQL server 2021 為數(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)僅僅簡單的實現(xiàn)了教務(wù)管理系統(tǒng)的基本功能和需求，具有一定的實用性。根據(jù)系統(tǒng)的需求，系統(tǒng)用到的各種數(shù)據(jù)表如下圖所示。 interface 15 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Unit2, jpeg, DB, ADODB。 Timer1: TTimer。 。 16 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。 19 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。