【正文】 implementation uses Unit9,Unit10,Unit11,Unit2。procedure (Sender: TObject)。begin 。 。39。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, ADODB, Grids, DBGrids。 Label1: TLabel。 Edit3: TEdit。 procedure Button6Click(Sender: TObject)。 。39。 :=False。 c:=chr(ord(39。procedure (Sender: TObject)。39。 end。,mtConfirmation,[mbYes,mbNO],0)=mrYes then begin if = then begin 。39。 。39。 ShowMessage(39。 end else ShowMessage(39。 :=39。 ADOQuery1: TADOQuery。implementation uses Unit2。39。end。 ADOQuery1: TADOQuery。 Edit3: TEdit。 private { Private declarations } public { Public declarations } end。select * from 成績(jī)信息表 where 課程號(hào)=39。 。確認(rèn)提交？39。39。B39。 MainMenu1: TMainMenu。 N8: TMenuItem。 Panel1: TPanel。 procedure N9Click(Sender: TObject)。var Form12: TForm12。 。end。 。 (,nil,alNone)。 。 。procedure (Sender: TObject)。 。 。 。 。begin :=True。 。 。end。 ADOQuery1: TADOQuery。 procedure Button1Click(Sender: TObject)。 if then begin 。39。39。 end else ShowMessage(39。 :=False。)。 Button4: TButton。 ComboBox1: TComboBox。 Button5: TButton。 Button6: TButton。 Button10: TButton。 Edit11: TEdit。 procedure Button1Click(Sender: TObject)。 procedure Button11Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 Edit14: TEdit。 ComboBox2: TComboBox。 Label11: TLabel。 Label10: TLabel。 Edit5: TEdit。 Edit1: TEdit。 Button2: TButton。 (39。 。)。 (39。++39。{$R *.dfm}procedure (Sender: TObject)。 Edit2: TEdit。type TForm13 = class(TForm) DBGrid1: TDBGrid。 。 (,nil,alNone)。 。end。 。 。begin :=True。 。 。 。 。procedure (Sender: TObject)。 。 。begin :=True。 procedure Timer1Timer(Sender: TObject)。 procedure N7Click(Sender: TObject)。 N14: TMenuItem。 N6: TMenuItem。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, DB, ADODB, StdCtrls。).Value:=。39。procedure (Sender: TObject)。39。 。 procedure Button3Click(Sender: TObject)。 Edit2: TEdit。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。 。select * from 課程信息表 where 教師工號(hào)=39。 private { Private declarations } public { Public declarations } end。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids。 :=39。原密碼錯(cuò)誤39。).Value:=。39。39。++39。begin if MessageDlg(39。 end。 c:Char。 end。39。procedure (Sender: TObject)。++39。{$R *.dfm}procedure (Sender: TObject)。 procedure GroupBox1Click(Sender: TObject)。 Edit1: TEdit。 DataSource1: TDataSource。end。39。procedure (Sender: TObject)。end。 :=True。 private { Private declarations } public { Public declarations } end。 ADOConnection1: TADOConnection。type TForm8 = class(TForm) Image1: TImage。 ShowMessage(39。DELETE FROM 成績(jī)信息表 where 課程號(hào)=:U39。)。未選此課程39。39。)。 (39。 end。備注39。39。).AsString。N39。課程號(hào)39。 (39。 。39。).Value:=(39。).AsString。F39。學(xué)時(shí)39。 (39。 (39。39。 。++39。39。 。 :=39。 (39。 procedure Button4Click(Sender: TObject)。 Button4: TButton。 ADOQuery1: TADOQuery。end。39。implementation uses Unit2。 Button1: TButton。end。39。implementation uses Unit2。 Button1: TButton。 :=39。 end else ShowMessage(39。 ShowMessage(39。39。 。39。,mtConfirmation,[mbYes,mbNO],0)=mrYes then begin if = then begin 。 := + c。 var i,j:Integer。 end。 c:Char。 :=False。39。 。 procedure Button5Click(Sender: TObject)。 Button5: TButton。 Label3: TLabel。 ADOQuery1: TADOQuery。 。select 姓名 from 學(xué)生信息表 where 學(xué)號(hào)=39。 end else ShowMessage(39。begin if =39。begin 。begin 。begin 。 procedure Button2Click(Sender: TObject)。 DataSource1: TDataSource。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, DB, ADODB, DBCtrls。 //這個(gè)是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成4個(gè)a到z的字符串 begin i:=Random(24)。 begin Randomize。begin :=39。 :=False。)。)。39。and 密碼 =39。 。用戶名或密碼錯(cuò)誤，請(qǐng)重新登錄39。39。39。 1:begin 。 if =0 then begin ShowMessage(39。 AND 用戶名=39。39。procedure (Sender: TObject)。begin case of 0::=39。 procedure Button2Click(Sender: TObject)。 ADOConnection1: TADOConnection。type TForm2 = class(TForm) Label1: TLabel。,mtConfirmation,[mbYes,mbNo],0)=mrYes then begin 。implementation{$R *.dfm}procedure (Sender: TObject)。 Label2: TLabel。系統(tǒng)管理員可以通過(guò)此模塊實(shí)現(xiàn)查看管理員信息、修改密碼、查看、新增、修改、刪除學(xué)生信息、查看、新增、刪除、修改教職工信息、查看、新增、刪除、修改課程信息、開通、關(guā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)品之一。（3）后臺(tái)數(shù)據(jù)SQL Server 2008。3)新生入校登記后可即時(shí)選課，老生每學(xué)期開始前可選課或作選課調(diào)整，一般要選共約20學(xué)分的若干門課程。教師：工號(hào)、姓名、性別、職稱、工齡、出生年月、基本工資等。能有效的幫助學(xué)校和老師掌握學(xué)生的情況，為學(xué)生提供成績(jī)跟課程方面的查詢。本系統(tǒng)主要包括學(xué)生信息管理模塊、教師信息管理模塊、課程信息管理模塊、成績(jī)信息管理模塊和系統(tǒng)維護(hù)模塊等部分。學(xué)生入學(xué)時(shí)新生需錄入登記，登記后即可選課學(xué)習(xí)課程(一學(xué)期約20學(xué)分)。6)能分析出某教師的教學(xué)質(zhì)量情況(可根據(jù)該教師所任所有課優(yōu)良數(shù)平均超過(guò)一定百分比來(lái)粗略評(píng)定)。但真正意義上的大型信息管理存儲(chǔ)還是不太現(xiàn)實(shí)。學(xué)生信息表 教師信息表 課程信息表 管理信息表 教師課程表成績(jī)信息表表與表之間的關(guān)系如下圖所示：