【正文】 and 用戶名 =39。39。39。select * from 管理信息表 where 賬號=39。 end。 end else begin 。 。++39。39。39。++39。 :=39。 end。工 號 39。{$R *.dfm}procedure (Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Button3: TButton。 Button2: TButton。 ComboBox1: TComboBox。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB,Unit3。procedure (Sender: TObject)。確認退出整個系統(tǒng)嗎？39。 :=True。var Form1: TForm1。 procedure Button1Click(Sender: TObject)。 Label1: TLabel。type TForm1 = class(TForm) Button1: TButton。3. 系統(tǒng)管理員模塊此模塊為系統(tǒng)管理員操作模塊。學生信息表 教師信息表 課程信息表 管理信息表 教師課程表成績信息表表與表之間的關系如下圖所示： 成績評定查詢成績查詢課程查詢新增刪除修改查詢查詢修改密碼修改密碼修改密碼個人信息個人信息個人信息網(wǎng)上選課開通選課修改新增刪除修改新增刪除管理員教職工學生 ER 關系圖第四章 系統(tǒng)功能1. 學生模塊此模塊為學生操作模塊。：成本低，出錯率低，使學校實現(xiàn)現(xiàn)代化網(wǎng)絡教學管理。但真正意義上的大型信息管理存儲還是不太現(xiàn)實。（2）前臺開發(fā)程序為DELPHI，SQL Server 2008。6)能分析出某教師的教學質(zhì)量情況(可根據(jù)該教師所任所有課優(yōu)良數(shù)平均超過一定百分比來粗略評定)。2)能對各庫表進行輸入、修改、刪除、添加、查詢、打印等基本操作。學生入學時新生需錄入登記，登記后即可選課學習課程(一學期約20學分)。教師和學生可以應用該系統(tǒng)實現(xiàn)如下功能：可隨時查詢出不同系及各系教師與各系學生情況，系、教師與學生各反映如下情況：系：系號、系名、系負責人、專業(yè)數(shù)等。本系統(tǒng)主要包括學生信息管理模塊、教師信息管理模塊、課程信息管理模塊、成績信息管理模塊和系統(tǒng)維護模塊等部分。它是一個教育單位不可缺少的部分,它的內(nèi)容對于學校的決策者和管理者來說都至關重要,它能夠為用戶提供充足的信息和快捷的查詢手段。能有效的幫助學校和老師掌握學生的情況，為學生提供成績跟課程方面的查詢。在校務管理中，為有關部門提供完整、綜合、共享的信息，對于學校的教育管理、教務和科研等都有很大的實用價值。教師：工號、姓名、性別、職稱、工齡、出生年月、基本工資等。一門只由一位教師上，一位教師可上多門課，滿30人才開課。3)新生入校登記后可即時選課，老生每學期開始前可選課或作選課調(diào)整，一般要選共約20學分的若干門課程。7)其他你認為子系統(tǒng)應有的查詢、統(tǒng)計功能。（3）后臺數(shù)據(jù)SQL Server 2008。對于大量信息的維護也不具有很強的穩(wěn)定性。第三章 系統(tǒng)設計根據(jù)該系統(tǒng)的需求，數(shù)據(jù)庫采用Microsoft SQL Server 2008 ，它完全設和本系統(tǒng)的工作需求，它所支持的字段數(shù)據(jù)類型包括數(shù)值、字符、日期時間及二進制和圖片等類型，是當前的主流數(shù)據(jù)庫產(chǎn)品之一。學生可以通過此模塊實現(xiàn)查看個人信息、修改密碼、查看課程信息、才查看成績信息、網(wǎng)上選課（在管理員開通選課前提下）諸多功能。系統(tǒng)管理員可以通過此模塊實現(xiàn)查看管理員信息、修改密碼、查看、新增、修改、刪除學生信息、查看、新增、刪除、修改教職工信息、查看、新增、刪除、修改課程信息、開通、關閉選課諸多功能。 Button2: TButton。 Label2: TLabel。 procedure Button2Click(Sender: TObject)。implementation{$R *.dfm}procedure (Sender: TObject)。end。,mtConfirmation,[mbYes,mbNo],0)=mrYes then begin 。begin :=DateTimeToStr(Now)。type TForm2 = class(TForm) Label1: TLabel。 Edit1: TEdit。 ADOConnection1: TADOConnection。 Label5: TLabel。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。begin case of 0::=39。 else :=39。procedure (Sender: TObject)。select * from 管理信息表 where 賬號=39。39。39。 AND 用戶名=39。39。 if =0 then begin ShowMessage(39。 。 1:begin 。39。39。++39。39。39。用戶名或密碼錯誤，請重新登錄39。 :=False。 。39。and 密碼 =39。39。39。39。)。 end。)。)。 :=False。end。begin :=39。a39。 begin Randomize。 var i,j:Integer。 //這個是標簽 for j:=0 to 3 do //隨機生成4個a到z的字符串 begin i:=Random(24)。 := + c。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, DB, ADODB, DBCtrls。 Button4: TButton。 DataSource1: TDataSource。 Timer1: TTimer。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。begin 。 。begin 。 。begin 。 。begin if =39。 。 end else ShowMessage(39。procedure (Sender: TObject)。select 姓名 from 學生信息表 where 學號=39。39。 。end。 ADOQuery1: TADOQuery。 Button3: TButton。 Label3: TLabel。 Edit3: TEdit。 Button5: TButton。 procedure Button2Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。{$R *.dfm}procedure (Sender: TObject)。 。39。39。end。 :=False。 :=True。 c:Char。 c:=chr(ord(39。 end。procedure (Sender: TObject)。 var i,j:Integer。 //這個是標簽 for j:=0 to 3 do //隨機生成4個a到z的字符串 begin i:=Random(24)。 := + c。end。,mtConfirmation,[mbYes,mbNO],0)=mrYes then begin if = then begin 。39。39。++39。 。Update 管理信息表 SET 密碼=:A where 賬號=39。39。 (39。 ShowMessage(39。新密碼不一致39。 end else ShowMessage(39。 :=39。 :=39。end。 Button1: TButton。 procedure Button1Click(Sender: TObject)。implementation uses Unit2。 。39。39。end。 end。 Button1: TButton。 procedure Button1Click(Sender: TObject)。implementation uses Unit2。 。39。39。end。end。 ADOQuery1: TADOQuery。 Edit1: TEdit。 Button4: TButton。 DataSource2: TDataSource。 procedure Button4Click(Sender: TObject)。implementation uses Unit2。 (39。end。 :=39。++39。 。 end else 。39。39。++39。 。 。39。39。 。 (39。B39。 (39。).AsString。學時39。).Value:=(39。F39。 (39。).AsString。教師姓名39。).Value:=(39。 。39。39。 。)。 (39。).AsString。課程號39。).Value:=(39。N39。 (39。).AsString。39。39。39。備注39。選課成功39。 end。end。 (39。++39。)。begin 。39。39。未選此課程39。,mtConfirmation,[mbYes,mbNo],0)=mrYes then begin 。)。 。DELETE FROM 成績信息表 where 課程號=:U39。).Value:=。 ShowMessage(39。 end。type TForm8 = class(TForm) Image1: TImage。 Panel1: TPanel。 ADOConnection1: TADOConnection。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。begin 。 :=True。 。end。 (,nil,alNone)。procedure (Sender: TObject)。select 姓名 from 教師信息表 where 教師工號=39。39。 。end。