【正文】 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)。確認(rèn)退出整個(gè)系統(tǒng)嗎？39。 :=True。var Form1: TForm1。 procedure Button1Click(Sender: TObject)。 Label1: TLabel。type TForm1 = class(TForm) Button1: TButton。3. 系統(tǒng)管理員模塊此模塊為系統(tǒng)管理員操作模塊。學(xué)生信息表 教師信息表 課程信息表 管理信息表 教師課程表成績信息表表與表之間的關(guān)系如下圖所示： 成績評定查詢成績查詢課程查詢新增刪除修改查詢查詢修改密碼修改密碼修改密碼個(gè)人信息個(gè)人信息個(gè)人信息網(wǎng)上選課開通選課修改新增刪除修改新增刪除管理員教職工學(xué)生 ER 關(guān)系圖第四章 系統(tǒng)功能1. 學(xué)生模塊此模塊為學(xué)生操作模塊。：成本低，出錯(cuò)率低，使學(xué)校實(shí)現(xiàn)現(xiàn)代化網(wǎng)絡(luò)教學(xué)管理。但真正意義上的大型信息管理存儲還是不太現(xiàn)實(shí)。（2）前臺開發(fā)程序?yàn)镈ELPHI，SQL Server 2008。6)能分析出某教師的教學(xué)質(zhì)量情況(可根據(jù)該教師所任所有課優(yōu)良數(shù)平均超過一定百分比來粗略評定)。2)能對各庫表進(jìn)行輸入、修改、刪除、添加、查詢、打印等基本操作。學(xué)生入學(xué)時(shí)新生需錄入登記，登記后即可選課學(xué)習(xí)課程(一學(xué)期約20學(xué)分)。教師和學(xué)生可以應(yīng)用該系統(tǒng)實(shí)現(xiàn)如下功能：可隨時(shí)查詢出不同系及各系教師與各系學(xué)生情況，系、教師與學(xué)生各反映如下情況：系：系號、系名、系負(fù)責(zé)人、專業(yè)數(shù)等。本系統(tǒng)主要包括學(xué)生信息管理模塊、教師信息管理模塊、課程信息管理模塊、成績信息管理模塊和系統(tǒng)維護(hù)模塊等部分。它是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,它能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍Ｄ苡行У膸椭鷮W(xué)校和老師掌握學(xué)生的情況，為學(xué)生提供成績跟課程方面的查詢。在校務(wù)管理中，為有關(guān)部門提供完整、綜合、共享的信息，對于學(xué)校的教育管理、教務(wù)和科研等都有很大的實(shí)用價(jià)值。教師：工號、姓名、性別、職稱、工齡、出生年月、基本工資等。一門只由一位教師上，一位教師可上多門課，滿30人才開課。3)新生入校登記后可即時(shí)選課，老生每學(xué)期開始前可選課或作選課調(diào)整，一般要選共約20學(xué)分的若干門課程。7)其他你認(rèn)為子系統(tǒng)應(yīng)有的查詢、統(tǒng)計(jì)功能。（3）后臺數(shù)據(jù)SQL Server 2008。對于大量信息的維護(hù)也不具有很強(qiáng)的穩(wěn)定性。第三章 系統(tǒng)設(shè)計(jì)根據(jù)該系統(tǒng)的需求，數(shù)據(jù)庫采用Microsoft SQL Server 2008 ，它完全設(shè)和本系統(tǒng)的工作需求，它所支持的字段數(shù)據(jù)類型包括數(shù)值、字符、日期時(shí)間及二進(jìn)制和圖片等類型，是當(dāng)前的主流數(shù)據(jù)庫產(chǎn)品之一。學(xué)生可以通過此模塊實(shí)現(xiàn)查看個(gè)人信息、修改密碼、查看課程信息、才查看成績信息、網(wǎng)上選課（在管理員開通選課前提下）諸多功能。系統(tǒng)管理員可以通過此模塊實(shí)現(xiàn)查看管理員信息、修改密碼、查看、新增、修改、刪除學(xué)生信息、查看、新增、刪除、修改教職工信息、查看、新增、刪除、修改課程信息、開通、關(guā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。用戶名或密碼錯(cuò)誤，請重新登錄39。 :=False。 。39。and 密碼 =39。39。39。39。)。 end。)。)。 :=False。end。begin :=39。a39。 begin Randomize。 var i,j:Integer。 //這個(gè)是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成4個(gè)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 學(xué)生信息表 where 學(xué)號=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。 //這個(gè)是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成4個(gè)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。學(xué)時(shí)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。