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