【導讀】學校學生管理信息系統(tǒng)是針對學校人事處的大量業(yè)務處理工作而開發(fā)的管理軟件，它是一個教育單位不可缺少。能有效的幫助學校和老師掌握學生的情況，為學生提供成績跟。課程方面的查詢。本系統(tǒng)是以計算機為基礎，由人和計算機結合的對信息進行收集、存儲、于最佳狀態(tài)，以最少的資源投入獲得最佳的綜合效益。本系統(tǒng)主要包括學生信息管理模。和科研等都有很大的實用價值。隨著科學技術的不斷提高，計算機科學日漸成熟，其強大功能已為人們深刻認識，好的解決辦法就是借助計算機技術提供一個電子化的學生信息管理平臺。課人數(shù)、最高分、最低分、平均成績等統(tǒng)計信息。前臺開發(fā)程序為DELPHI，SQLServer2021。型，是當前的主流數(shù)據(jù)庫產(chǎn)品之一。息、查看、新增、刪除、修改課程信息、開通、關閉選課諸多功能。

　　

【正文】 Source。 Button1: TButton。 Button2: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form10: TForm10。 38 implementation uses Unit2。 {$R *.dfm} procedure (Sender: TObject)。 begin :=True。 。 。 begin (39。select * from 課 程 信 息 表 where 教 師 工 號=39。39。39。++39。39。39。39。)。 。 end。 end。 procedure (Sender: TObject)。 begin 。 :=False。 end。 end. unit Unit11。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。 type TForm11 = class(TForm) Button1: TButton。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 DBGrid1: TDBGrid。 Edit1: TEdit。 Label1: TLabel。 Label2: TLabel。 Edit2: TEdit。 Label3: TLabel。 39 Edit3: TEdit。 Label4: TLabel。 Edit4: TEdit。 Button2: TButton。 Button3: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form11: TForm11。 implementation uses Unit8。 {$R *.dfm} procedure (Sender: TObject)。 begin :=True。 。 。 (39。select * from 成績信息表 where 課程號 =39。39。39。++39。39。39。39。)。 。 end。 procedure (Sender: TObject)。 begin 。 :=False。 end。 procedure (Sender: TObject)。 begin if MessageDlg(39。確認提交？ 39。,mtConfirmation,[mbYes,mbNO],0)=mrYes then begin 。 。 (39。Update 成績信息表 SET 平時成績 =:A,期末成績 =:B 40 where 學號 =39。39。39。++39。39。39。39。)。 (39。A39。).Value:=。 (39。B39。).Value:=。 。 end。 end。 end. unit Unit12。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, Menus, DB, ADODB, StdCtrls。 type TForm12 = class(TForm) Image1: TImage。 MainMenu1: TMainMenu。 N1: TMenuItem。 N2: TMenuItem。 N3: TMenuItem。 N4: TMenuItem。 N5: TMenuItem。 N6: TMenuItem。 N7: TMenuItem。 N8: TMenuItem。 N9: TMenuItem。 N10: TMenuItem。 N11: TMenuItem。 N12: TMenuItem。 N13: TMenuItem。 N14: TMenuItem。 N15: TMenuItem。 Panel1: TPanel。 Label1: TLabel。 ADOConnection1: TADOConnection。 Timer1: TTimer。 procedure N4Click(Sender: TObject)。 procedure N6Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 41 procedure N9Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 procedure N13Click(Sender: TObject)。 procedure N15Click(Sender: TObject)。 procedure N2Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form12: TForm12。 implementation uses Unit13,Unit14,Unit15,Unit16,Unit17,Unit18,Unit19,Unit20,Unit21。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=True。 (,nil,alNone)。 42 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=True。 43 (,nil,alNone)。 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin 44 :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=True。 (,nil,alNone)。 。 。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin :=DateTimeToStr(Now)。 end。 end. unit Unit13。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids。 type 45 TForm13 = class(TForm) DBGrid1: TDBGrid。 DataSource1: TDataSource。 ADOQuery1: TADOQuery。 RadioButton1: TRadioButton。 RadioButton2: TRadioButton。 Button1: TButton。 Button2: TButton。 Edit1: TEdit。 Edit2: TEdit。 Button3: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form13: TForm13。 implementation uses Unit12。 {$R *.dfm} procedure (Sender: TObject)。 begin :=True。 if then begin 。 。 (39。select * from 學生信息表 where 學號 =39。39。39。++39。39。39。39。)。