【正文】 (39。開課時(shí)間 39。H39。).AsString。++39。 (39。).Value:=(39。 (39。學(xué)時(shí) 39。P39。R39。 。已選過此課程 39。39。 end。++39。 end else begin if MessageDlg(39。T39。 (39。)。 Button2: TButton。 Timer1: TTimer。 implementation uses Unit9,Unit10,Unit11,Unit2。 procedure (Sender: TObject)。 begin 。 。39。 interface 34 uses 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。 38 implementation uses Unit2。39。 end。 ADOQuery1: TADOQuery。 39 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。 41 procedure N9Click(Sender: TObject)。 var Form12: TForm12。 。 end。 。 (,nil,alNone)。 。 。 procedure (Sender: TObject)。 。 。 。 。 begin 44 :=True。 。 。 end。 ADOQuery1: TADOQuery。 procedure Button1Click(Sender: TObject)。 if then begin 。39。++39。 {$R *.dfm} procedure (Sender: TObject)。 Edit2: TEdit。 type 45 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。 interface uses 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。 interface uses 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。 interface uses 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 25 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。 interface 20 uses 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)管理員可以通過此模塊實(shí)現(xiàn)查看管理員信息、修改密碼、查看、新增、修改、刪除學(xué)生信息、查看、新增、刪除、修改教職工信息、查看、新增、刪除、修改課程信息、開通、關(guān)閉選課諸多功能。 第三章 系統(tǒng)設(shè)計(jì) 根據(jù)該系統(tǒng)的需求，數(shù)據(jù)庫(kù)采用 Microsoft SQL Server 2021 ，它完全設(shè)和本系統(tǒng)的工作需求，它所支持的字段數(shù)據(jù)類型包括數(shù)值、字符、日期時(shí)間及二進(jìn)制和圖片等類型，是當(dāng)前的主流數(shù)據(jù)庫(kù)產(chǎn)品之一。 （ 3）后臺(tái)數(shù)據(jù) SQL Server 2021。 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ù)該教師所任所有