【正文】 。++39。 :=39。此課程不存在 39。39。39。 begin 。)。 begin 。 private { Private declarations } public { Public declarations } end。 procedure Button1Click(Sender: TObject)。 ADOQuery3: TADOQuery。 Button3: TButton。 DBGrid1: TDBGrid。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。 begin 。 。39。select * from 課 程 信 息 表 where 學(xué)號=39。 begin :=True。 private { Private declarations } public { Public declarations } end。 ADOQuery1: TADOQuery。 27 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 begin 。 。39。select * from 成 績 信 息 表 where 學(xué)號=39。 begin :=True。 private { Private declarations } public { Public declarations } end。 ADOQuery1: TADOQuery。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 :=39。 :=39。)。原密碼錯誤 39。)。).Value:=。39。39。 。39。39。++39。 :=39。 begin if MessageDlg(39。 begin Randomize。a39。 begin :=39。 end。 end。) + i)。39。 24 procedure (Sender: TObject)。 procedure (Sender: TObject)。 begin 。 。39。select * from 學(xué) 生 信 息 表 where 學(xué)號=39。 :=True。 var Form4: TForm4。 procedure Button6Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 Label5: TLabel。 Edit1: TEdit。 Label1: TLabel。 Button1: TButton。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。 procedure (Sender: TObject)。39。39。 。)。 。 then begin 。 end。 。 end。 。 end。 。 implementation uses Unit4,Unit5,Unit6,Unit7,Unit19,Unit2。 procedure Image1Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 ADOConnection1: TADOConnection。 Image1: TImage。 Button2: TButton。 end。a39。 begin :=39。 end。 := + c。 //這個是標(biāo)簽 for j:=0 to 3 do //隨機(jī)生成 4 個 a 到 z 的字符串 begin i:=Random(24)。 var i,j:Integer。 19 procedure (Sender: TObject)。 procedure (Sender: TObject)。 end else ShowMessage(39。 else ShowMessage(39。 。 if =0 then begin ShowMessage(39。39。and 用戶名 =39。39。39。select * from 管理信息表 where 賬號 =39。 end。 end else begin 。 。++39。39。39。++39。 :=39。 end。)。39。39。39。 AND 密碼 =39。39。 。 end。 1::=39。 implementation uses Unit1,Unit8,Unit12。 procedure Button3Click(Sender: TObject)。 procedure ComboBox1Change(Sender: TObject)。 Label4: TLabel。 Button1: TButton。 Label3: TLabel。 end. unit Unit2。 16 end。 begin if MessageDlg(39。 。 private { Private declarations } public { Public declarations } end。 Timer1: TTimer。 Image1: TImage。 interface 15 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Unit2, jpeg, DB, ADODB。教職工可以通過此模塊實現(xiàn)查看個人信息、修改密碼、查看課程信息、輸入學(xué)生平時成績和期末成績諸多功能。根據(jù)系統(tǒng)的需求，系統(tǒng)用到的各種數(shù)據(jù)表如下圖所示。技術(shù)要求也不是很高，有一點 delphi 和 SQL server 技術(shù)基礎(chǔ)就行了。 3．技術(shù)可行性 :本系統(tǒng)僅僅簡單的實現(xiàn)了教務(wù)管理系統(tǒng)的基本功能和需求，具有一定的實用性。 2．運行環(huán)境： （ 1）以 Windows98 以上 /ME/2021/XP 作為學(xué)生選課管理系統(tǒng)的后臺操作系統(tǒng)。 5)能統(tǒng)計查詢出某學(xué)生的成績單 (包括總成績、平均成績、不及格門數(shù)等 )及某門課的選課人數(shù)、最高分、最低分、平均成績等統(tǒng)計信息。 1)在某數(shù)據(jù)庫管理系統(tǒng)中建立各關(guān)系模式對應(yīng)的庫表，并設(shè)計所需的視圖、索引等。 為簡單起見教師與學(xué)生區(qū)分系別，而課程不分系，課程需反映如下信息： 課程代號、課程名、課時數(shù)、必修課、學(xué)分。為了更好地管理學(xué)生和教職工的資料文檔，我開發(fā)一個軟件工程學(xué)生信息 管理系統(tǒng)。本系統(tǒng)是以計算機(jī)為基礎(chǔ)，由人和計算機(jī)結(jié)合的對信息進(jìn)行收集、存儲、維護(hù)、加工、傳遞和使用的一種管理系統(tǒng)，其目的是使人流、物流、資金流和信息流處于最佳狀態(tài)，以最少的資源投入獲得最佳的綜合效益。1 教務(wù)管理系統(tǒng)數(shù)據(jù)庫 (SQL Server 2021 + delphi7) 實 驗 報告 班級： 7 姓名： 787 學(xué)號： 787 指導(dǎo)教師： 完成日期： 目錄 第一章 系統(tǒng) 概述 …………………………………………… 3 第二章 系統(tǒng) 分析 …………………………………………… 3 2 第三章 系統(tǒng) 設(shè)計 …………………………………………… 4 第四章 系統(tǒng)功能 …………………………………………… 9 第五章 系統(tǒng)實現(xiàn) …………………………………………… 9 第六章 源程序附錄 ………………………………………… 15 第七章 參考文獻(xiàn) …………………………………………… 73 第一章 系統(tǒng)概述 學(xué)校學(xué)生管理信息系統(tǒng)是針對學(xué)校人事處的大量業(yè)務(wù)處理工作而開發(fā)的管理軟件，是典型的管理信息系統(tǒng)（ Management Information System）。 本系統(tǒng)是以 delphi7 編輯用戶界面，以 SQL server 2021 為數(shù)據(jù)源后臺而成的學(xué)生信息管理系統(tǒng)。 3 第二章 系統(tǒng)分析 問題定義 隨著科學(xué)技術(shù)的不斷提高，計算機(jī)科學(xué)日漸成熟，其強(qiáng)大功能已為人們深刻認(rèn)識，它已進(jìn)入人們生活的各個領(lǐng)域，并發(fā)揮了越來越重要的作用，針對人工管理的缺點，最好的 解決辦法就是借助計算機(jī)技術(shù)提供一個電子化的學(xué)生信息管理平臺。 學(xué)生：學(xué)號、姓名、性別、年齡等。 學(xué)生選每門課有個成績，若成績不及格則補考后還需記錄補考成績。 4)能明細(xì)查詢某學(xué)生的選課情況及某課程的選修學(xué)生情況。 8)要求子系統(tǒng)設(shè)計得界面友好，功能選擇方便合理，并適當(dāng)考慮子系統(tǒng)在其安全性、完整性、備份、恢復(fù)等方面的功能要求 可行性分析 1．項目目標(biāo)：學(xué)生和 老師可以方便的進(jìn)行各自所需要的信息管理活動 ，同時可以查詢和修改各自的信息，以便學(xué)校管理。 （ 4）主要硬件設(shè)備： PC 機(jī)一臺。 但是操作簡單，適合小型的學(xué)生信息管理，維護(hù)也更為方便。它還具有性能穩(wěn)定、便于操作維護(hù)和具有較好的安全可靠性等特點，是作為服務(wù)器端數(shù)據(jù)庫平臺的理想選擇。 2. 教職工模塊 此模塊為教職工操作模塊。 第五章 系統(tǒng)實現(xiàn) 9 （ 1）查看個人信息 （ 2）修改密碼 （ 3）成績查詢 （ 4）課程查詢 10 （ 5）網(wǎng)上選課 選課提示 選課界面 已選提示 成功提示 11 刪除提示 4. 教職工界面 （ 1） 個人信息（同學(xué)生界面） （ 2） 修改密碼（同學(xué)生界面） （ 3） 課程查詢（同學(xué)生界面） （ 4） 成績評定 12 5. 管理員界面 （ 1） 個人信息（同學(xué)生界面） （ 2） 修改密碼（同學(xué)生界面） （ 3） 學(xué)生查詢管理 （ 4） 學(xué)生信息修改 13 （ 5） 教師信息查詢 （ 6） 教師信息修改 （ 7） 課程信息查詢 14 （ 8） 課程信息修改 （ 9） 成績查詢 第六章 源程序附錄 unit Unit1。 Panel1: TPanel。 ADOConnection1: TADOConnection。 procedure Timer1Timer(Sender: TObject)。