【正文】 ing。L39。J39。)。 (39。 (39。).Value:=(39。).AsString。D39。課程號(hào)39。insert into 課程信息表 values(:A,:B,:C,:D,:E,:F,:G,:H,:I)39。39。確認(rèn)選課嗎？39。39。 :=39。39。begin 。begin 。 procedure Button1Click(Sender: TObject)。 Button3: TButton。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。 。select * from 課程信息表 where 學(xué)號(hào)=39。 private { Private declarations } public { Public declarations } end。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 。select * from 成績(jī)信息表 where 學(xué)號(hào)=39。 private { Private declarations } public { Public declarations } end。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 :=39。原密碼錯(cuò)誤39。).Value:=。39。39。++39。begin if MessageDlg(39。a39。end。) + i)。procedure (Sender: TObject)。begin 。39。 :=True。 procedure Button6Click(Sender: TObject)。 Label5: TLabel。 Label1: TLabel。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。39。 。 。end。end。end。implementation uses Unit4,Unit5,Unit6,Unit7,Unit19,Unit2。 procedure Button1Click(Sender: TObject)。 Image1: TImage。end。begin :=39。 := + c。 var i,j:Integer。procedure (Sender: TObject)。 else ShowMessage(39。 if =0 then begin ShowMessage(39。and 用戶名 =39。39。 end。 。39。++39。 end。39。39。39。end。implementation uses Unit1,Unit8,Unit12。 procedure ComboBox1Change(Sender: TObject)。 Button1: TButton。end.unit Unit2。begin if MessageDlg(39。 private { Private declarations } public { Public declarations } end。 Image1: TImage。教職工可以通過(guò)此模塊實(shí)現(xiàn)查看個(gè)人信息、修改密碼、查看課程信息、輸入學(xué)生平時(shí)成績(jī)和期末成績(jī)諸多功能。技術(shù)要求也不是很高，有一點(diǎn)delphi和SQL server 技術(shù)基礎(chǔ)就行了。2．運(yùn)行環(huán)境：（1）以Windows98 以上/ME/2000/XP作為學(xué)生選課管理系統(tǒng)的后臺(tái)操作系統(tǒng)。1)在某數(shù)據(jù)庫(kù)管理系統(tǒng)中建立各關(guān)系模式對(duì)應(yīng)的庫(kù)表，并設(shè)計(jì)所需的視圖、索引等。為了更好地管理學(xué)生和教職工的資料文檔，我開(kāi)發(fā)一個(gè)軟件工程學(xué)生信息管理系統(tǒng)。教務(wù)管理系統(tǒng)數(shù)據(jù)庫(kù)(SQL Server 2008 + delphi7)實(shí)驗(yàn)報(bào)告班級(jí)： 姓名： 學(xué)號(hào)： 指導(dǎo)教師： 完成日期： 目錄第一章 系統(tǒng)概述……………………………………………3第二章 系統(tǒng)分析……………………………………………3 第三章 系統(tǒng)設(shè)計(jì)……………………………………………4第四章 系統(tǒng)功能……………………………………………9第五章 系統(tǒng)實(shí)現(xiàn)……………………………………………9第六章 源程序附錄…………………………………………15第七章 參考文獻(xiàn)……………………………………………73第一章 系統(tǒng)概述 學(xué)校學(xué)生管理信息系統(tǒng)是針對(duì)學(xué)校人事處的大量業(yè)務(wù)處理工作而開(kāi)發(fā)的管理軟件，是典型的管理信息系統(tǒng)（Management Information System）。第二章 系統(tǒng)分析 問(wèn)題定義 隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人們生活的各個(gè)領(lǐng)域，并發(fā)揮了越來(lái)越重要的作用，針對(duì)人工管理的缺點(diǎn)，最好的解決辦法就是借助計(jì)算機(jī)技術(shù)提供一個(gè)電子化的學(xué)生信息管理平臺(tái)。學(xué)生選每門課有個(gè)成績(jī)，若成績(jī)不及格則補(bǔ)考后還需記錄補(bǔ)考成績(jī)。8)要求子系統(tǒng)設(shè)計(jì)得界面友好，功能選擇方便合理，并適當(dāng)考慮子系統(tǒng)在其安全性、完整性、備份、恢復(fù)等方面的功能要求可行性分析1．項(xiàng)目目標(biāo)：學(xué)生和老師可以方便的進(jìn)行各自所需要的信息管理活動(dòng)，同時(shí)可以查詢和修改各自的信息，以便學(xué)校管理。但是操作簡(jiǎn)單，適合小型的學(xué)生信息管理，維護(hù)也更為方便。2. 教職工模塊此模塊為教職工操作模塊。 Panel1: TPanel。 procedure Timer1Timer(Sender: TObject)。procedure (Sender: TObject)。end。 Edit2: TEdit。 Edit3: TEdit。var Form2: TForm2。學(xué) 號(hào) 39。39。++39。39。 :=False。39。39。39。 end。++39。39。 。 end。 end。procedure (Sender: TObject)。) + i)。 c:Char。 end。 Panel1: TPanel。 Label2: TLabel。var Form3: TForm3。 :=True。 :=True。 :=True。 (,nil,alNone)。begin 。39。end.unit Unit4。 GroupBox1: TGroupBox。 Edit4: TEdit。 procedure GroupBox1Click(Sender: TObject)。begin :=False。++39。procedure (Sender: TObject)。end。a39。begin :=False。 c:=chr(ord(39。procedure (Sender: TObject)。39。39。39。A39。) end else ShowMessage(39。39。end.unit Unit5。 procedure Button2Click(Sender: TObject)。 begin (39。)。end.unit Unit6。 procedure Button2Click(Sender: TObject)。 begin (39。)。end.unit Unit7。 Button2: TButton。 ADOQuery5: TADOQuery。{$R *.dfm}procedure (Sender: TObject)。procedure (Sender: TObject)。39。 。and 學(xué)號(hào)=39。 if =0 then begin if MessageDlg(39。++39。 (39。).Value:=(39。 (39。學(xué)分39。G39。).AsString。 。39。 (39。 (39。課程名39。O39。 (39。 (39。)。procedure (Sender: TObject)。39。 。39。 。 。 。end。 DBText1: TDBText。 procedure Button3Click(Sender: TObject)。 。 (,nil,alNone)。 。39。end。 Button1: TButton。 Label4: TLabel。 Button6: TButton。 private { Private declarations } public { Public declarations } end。select * from 教師信息表 where 教師工號(hào)=39。 。 var i,j:Integer。 := + c。end。a39。begin :=False。select * from 管理信息表 where 賬號(hào)=39。39。 (39。)。 end else ShowMessage(39。 end。39。 Button2: TButton。 。39。 :=False。 Edit1: TEdit。 Button2: TButton。{$R *.dfm}procedure (Sender: TObject)。++39。begin 。 (39。)。 end。 N3: TMenuItem。 N11: TMenuItem。 Timer1: TTimer。 procedure N13Click(Sender: TObject)。begin 。 。 (,nil,alNone)。 。 。procedure (Sender: TObject)。 。 。 。 。begin :=True。 。 。end。 。end。 Button1: TButton。 private { Private declarations } public { Public declarations } end。select * from 學(xué)生信息表 where 學(xué)號(hào)=39。 。39。end。begin :=True。end.unit Unit14。 Label2: TLabel。 Label6: TLabel。 ADOQuery1: TADOQuery。 GroupBox3: TGroupBox。 Edit9: TEdit。 Label16: TLabel。 procedure Button6Click(Sender: TObject)。var