教務(wù)管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)

1、教務(wù)管理系統(tǒng)數(shù)據(jù)庫(SQL Server 2008 + delphi7)實(shí)驗(yàn)報(bào)告班級(jí)：7 姓名：787 學(xué)號(hào)：787 指導(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ù)處理工作而開發(fā)的管理軟件，是典型的管理信息系統(tǒng)（Management Information System）。它是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要,它能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍Ｄ苡行У膸椭鷮W(xué)校和老師

2、掌握學(xué)生的情況，為學(xué)生提供成績(jī)跟課程方面的查詢。 本系統(tǒng)是以delphi7編輯用戶界面，以SQL server 2008為數(shù)據(jù)源后臺(tái)而成的學(xué)生信息管理系統(tǒng)。本系統(tǒng)是以計(jì)算機(jī)為基礎(chǔ)，由人和計(jì)算機(jī)結(jié)合的對(duì)信息進(jìn)行收集、存儲(chǔ)、維護(hù)、加工、傳遞和使用的一種管理系統(tǒng)，其目的是使人流、物流、資金流和信息流處于最佳狀態(tài)，以最少的資源投入獲得最佳的綜合效益。本系統(tǒng)主要包括學(xué)生信息管理模塊、教師信息管理模塊、課程信息管理模塊、成績(jī)信息管理模塊和系統(tǒng)維護(hù)模塊等部分。在校務(wù)管理中，為有關(guān)部門提供完整、綜合、共享的信息，對(duì)于學(xué)校的教育管理、教務(wù)和科研等都有很大的實(shí)用價(jià)值。第二章 系統(tǒng)分析 1、問題定義 隨著科學(xué)技術(shù)的

3、不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人們生活的各個(gè)領(lǐng)域，并發(fā)揮了越來越重要的作用，針對(duì)人工管理的缺點(diǎn)，最好的解決辦法就是借助計(jì)算機(jī)技術(shù)提供一個(gè)電子化的學(xué)生信息管理平臺(tái)。為了更好地管理學(xué)生和教職工的資料文檔，我開發(fā)一個(gè)軟件工程學(xué)生信息管理系統(tǒng)。教師和學(xué)生可以應(yīng)用該系統(tǒng)實(shí)現(xiàn)如下功能：1、可隨時(shí)查詢出不同系及各系教師與各系學(xué)生情況，系、教師與學(xué)生各反映如下情況：系：系號(hào)、系名、系負(fù)責(zé)人、專業(yè)數(shù)等。教師：工號(hào)、姓名、性別、職稱、工齡、出生年月、基本工資等。學(xué)生：學(xué)號(hào)、姓名、性別、年齡等。2、為簡(jiǎn)單起見教師與學(xué)生區(qū)分系別，而課程不分系，課程需反映如下信息：課程代號(hào)、課程名、

4、課時(shí)數(shù)、必修課、學(xué)分。3、學(xué)生入學(xué)時(shí)新生需錄入登記，登記后即可選課學(xué)習(xí)課程(一學(xué)期約20學(xué)分)。4、一門只由一位教師上，一位教師可上多門課，滿30人才開課。5、學(xué)生選每門課有個(gè)成績(jī)，若成績(jī)不及格則補(bǔ)考后還需記錄補(bǔ)考成績(jī)。1)在某數(shù)據(jù)庫管理系統(tǒng)中建立各關(guān)系模式對(duì)應(yīng)的庫表，并設(shè)計(jì)所需的視圖、索引等。2)能對(duì)各庫表進(jìn)行輸入、修改、刪除、添加、查詢、打印等基本操作。3)新生入校登記后可即時(shí)選課，老生每學(xué)期開始前可選課或作選課調(diào)整，一般要選共約20學(xué)分的若干門課程。4)能明細(xì)查詢某學(xué)生的選課情況及某課程的選修學(xué)生情況。5)能統(tǒng)計(jì)查詢出某學(xué)生的成績(jī)單(包括總成績(jī)、平均成績(jī)、不及格門數(shù)等)及某門課的選課人數(shù)

5、、最高分、最低分、平均成績(jī)等統(tǒng)計(jì)信息。6)能分析出某教師的教學(xué)質(zhì)量情況(可根據(jù)該教師所任所有課優(yōu)良數(shù)平均超過一定百分比來粗略評(píng)定)。7)其他你認(rèn)為子系統(tǒng)應(yīng)有的查詢、統(tǒng)計(jì)功能。8)要求子系統(tǒng)設(shè)計(jì)得界面友好，功能選擇方便合理，并適當(dāng)考慮子系統(tǒng)在其安全性、完整性、備份、恢復(fù)等方面的功能要求2、可行性分析1項(xiàng)目目標(biāo)：學(xué)生和老師可以方便的進(jìn)行各自所需要的信息管理活動(dòng)，同時(shí)可以查詢和修改各自的信息，以便學(xué)校管理。2運(yùn)行環(huán)境：（1）以Windows98 以上/ME/2000/XP作為學(xué)生選課管理系統(tǒng)的后臺(tái)操作系統(tǒng)。（2）前臺(tái)開發(fā)程序?yàn)镈ELPHI，SQL Server 2008。（3）后臺(tái)數(shù)據(jù)SQL Ser

6、ver 2008。（4）主要硬件設(shè)備：PC機(jī)一臺(tái)。3技術(shù)可行性:本系統(tǒng)僅僅簡(jiǎn)單的實(shí)現(xiàn)了教務(wù)管理系統(tǒng)的基本功能和需求，具有一定的實(shí)用性。但真正意義上的大型信息管理存儲(chǔ)還是不太現(xiàn)實(shí)。對(duì)于大量信息的維護(hù)也不具有很強(qiáng)的穩(wěn)定性。但是操作簡(jiǎn)單，適合小型的學(xué)生信息管理，維護(hù)也更為方便。技術(shù)要求也不是很高，有一點(diǎn)delphi和SQL server 技術(shù)基礎(chǔ)就行了。4.總體分析：成本低，出錯(cuò)率低，使學(xué)校實(shí)現(xiàn)現(xiàn)代化網(wǎng)絡(luò)教學(xué)管理。第三章 系統(tǒng)設(shè)計(jì)根據(jù)該系統(tǒng)的需求，數(shù)據(jù)庫采用Microsoft SQL Server 2008 ，它完全設(shè)和本系統(tǒng)的工作需求，它所支持的字段數(shù)據(jù)類型包括數(shù)值、字符、日期時(shí)間及二進(jìn)制和圖片等

7、類型，是當(dāng)前的主流數(shù)據(jù)庫產(chǎn)品之一。它還具有性能穩(wěn)定、便于操作維護(hù)和具有較好的安全可靠性等特點(diǎn)，是作為服務(wù)器端數(shù)據(jù)庫平臺(tái)的理想選擇。根據(jù)系統(tǒng)的需求，系統(tǒng)用到的各種數(shù)據(jù)表如下圖所示。學(xué)生信息表 教師信息表 課程信息表 管理信息表 教師課程表成績(jī)信息表表與表之間的關(guān)系如下圖所示： 成績(jī)?cè)u(píng)定查詢成績(jī)查詢課程查詢新增刪除修改查詢查詢修改密碼修改密碼修改密碼個(gè)人信息個(gè)人信息個(gè)人信息網(wǎng)上選課開通選課修改新增刪除修改新增刪除管理員教職工學(xué)生 E-R 關(guān)系圖第四章 系統(tǒng)功能1. 學(xué)生模塊此模塊為學(xué)生操作模塊。學(xué)生可以通過此模塊實(shí)現(xiàn)查看個(gè)人信息、修改密碼、查看課程信息、才查看成績(jī)信息、網(wǎng)上選課（在管理員開通選課前

8、提下）諸多功能。2. 教職工模塊此模塊為教職工操作模塊。教職工可以通過此模塊實(shí)現(xiàn)查看個(gè)人信息、修改密碼、查看課程信息、輸入學(xué)生平時(shí)成績(jī)和期末成績(jī)諸多功能。3. 系統(tǒng)管理員模塊此模塊為系統(tǒng)管理員操作模塊。系統(tǒng)管理員可以通過此模塊實(shí)現(xiàn)查看管理員信息、修改密碼、查看、新增、修改、刪除學(xué)生信息、查看、新增、刪除、修改教職工信息、查看、新增、刪除、修改課程信息、開通、關(guān)閉選課諸多功能。第五章 系統(tǒng)實(shí)現(xiàn)1.主界面2.登陸界面3.學(xué)生界面（1）查看個(gè)人信息（2）修改密碼（3）成績(jī)查詢（4）課程查詢（5）網(wǎng)上選課 選課提示選課界面已選提示 成功提示 刪除提示4. 教職工界面（1） 個(gè)人信息（同學(xué)生界面）（2）

9、 修改密碼（同學(xué)生界面）（3） 課程查詢（同學(xué)生界面）（4） 成績(jī)?cè)u(píng)定5. 管理員界面（1） 個(gè)人信息（同學(xué)生界面）（2） 修改密碼（同學(xué)生界面）（3） 學(xué)生查詢管理 （4） 學(xué)生信息修改（5） 教師信息查詢（6） 教師信息修改（7） 課程信息查詢（8） 課程信息修改（9） 成績(jī)查詢第六章 源程序附錄unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Unit2, jpeg, DB, ADOD

10、B;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Panel1: TPanel; Image1: TImage; Label1: TLabel; Label2: TLabel; ADOConnection1: TADOConnection; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); p

11、rivate Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);begin Form2.ManualDock(Form1.Panel1,nil,alNone); Form2.Show; Panel1.Visible :=True;end;procedure TForm1.Button2Click(Sender: TObject);begin if MessageDlg(

12、'確認(rèn)退出整個(gè)系統(tǒng)嗎？',mtConfirmation,mbYes,mbNo,0)=mrYes then begin Application.Terminate; end;end;procedure TForm1.Timer1Timer(Sender: TObject);begin Label2.Caption:=DateTimeToStr(Now);end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs

13、, StdCtrls, DB, ADODB,Unit3;type TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; ComboBox1: TComboBox; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; Label4: TLabel; Button3: TButton; Label5: TLabel; Edit3:

14、TEdit; procedure ComboBox1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject); private Private declarations public Public declara

15、tions end;var Form2: TForm2;implementation uses Unit1,Unit8,Unit12;$R *.dfmprocedure TForm2.ComboBox1Change(Sender: TObject);begin case ComboBox1.ItemIndex of 0:Label2.Caption:='賬 號(hào) ' 1:Label2.Caption:='工 號(hào) ' else Label2.Caption:='學(xué) 號(hào) 'end; end;procedure TForm2.Button1Click(S

16、ender: TObject);begin if Edit3.Text=Label4.Caption then begin case ComboBox1.ItemIndex of 0:begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 管理信息表 where 賬號(hào)='''+Edit1.Text+''' AND 密碼='''+Edit2.Text+''' AND 用戶名=''

17、;'+ComboBox1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('用戶名或密碼錯(cuò)誤，請(qǐng)重新登錄'); end else begin Form12.Show; Form2.Close; Form1.Panel1.Visible:=False; end; end; 1:begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from

18、 管理信息表 where 賬號(hào)='''+Edit1.Text+'''and 密碼 ='''+Edit2.Text+'''and 用戶名 ='''+ComboBox1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('用戶名或密碼錯(cuò)誤，請(qǐng)重新登錄'); end else begin Form8.Show; Form2.Close

19、; Form1.Panel1.Visible:=False; end; end; 2:begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 管理信息表 where 賬號(hào)='''+Edit1.Text+'''and 密碼 ='''+Edit2.Text+'''and 用戶名 ='''+ComboBox1.Text+'''' ADOQue

20、ry1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('用戶名或密碼錯(cuò)誤，請(qǐng)重新登陸'); end else begin Form3.Show; Form2.Close; Form1.Panel1.Visible:=False; end; end; else ShowMessage('請(qǐng)選擇身份'); end; end else ShowMessage('驗(yàn)證碼錯(cuò)誤'); end;procedure TForm2.Button2Click(Sender: TObject);begi

21、n Form2.Close; Form1.Panel1.Visible:=False;end;procedure TForm2.FormCreate(Sender: TObject); begin Randomize;end;procedure TForm2.Button3Click(Sender: TObject); var i,j:Integer; c:Char;begin Label4.Caption:='' /這個(gè)是標(biāo)簽 for j:=0 to 3 do /隨機(jī)生成4個(gè)a到z的字符串 begin i:=Random(24); c:=chr(ord('a'

22、) + i); Label4.Caption:=Label4.Caption + c; end; begin Randomize;end;end;procedure TForm2.FormShow(Sender: TObject); var i,j:Integer; c:Char;begin Label4.Caption:='' /這個(gè)是標(biāo)簽 for j:=0 to 3 do /隨機(jī)生成4個(gè)a到z的字符串 begin i:=Random(24); c:=chr(ord('a') + i); Label4.Caption:=Label4.Caption + c;

23、end;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, DB, ADODB, DBCtrls;type TForm3 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Panel1: TPanel; Image1: TImage; DBT

24、ext1: TDBText; DataSource1: TDataSource; ADOQuery1: TADOQuery; ADOConnection1: TADOConnection; Label1: TLabel; Timer1: TTimer; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TOb

25、ject); procedure Image1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private Private declarations public Public declarations end;var Form3: TForm3;implementation uses Unit4,Unit5,Unit6,Unit7,Unit19,Unit2;$R *.dfmprocedure TForm3.Button1Click(Sender: TObject);begin Form5.Close; Form

26、6.Close; Form7.Close; Form4.ManualDock(Form3.Panel1,nil,alNone); Form4.Show; Panel1.Visible:=True;end;procedure TForm3.Button3Click(Sender: TObject);begin Form4.Close; Form6.Close; Form7.Close; Form5.ManualDock(Form3.Panel1,nil,alNone); Form5.Show; Panel1.Visible:=True;end;procedure TForm3.Button2Cl

27、ick(Sender: TObject);begin Form4.Close; Form5.Close; Form7.Close; Form6.ManualDock(Form3.Panel1,nil,alNone); Form6.Show; Panel1.Visible:=True;end;procedure TForm3.Button4Click(Sender: TObject);begin if Form19.Label11.Caption='已開通選課 ' then begin Form4.Close; Form5.Close; Form6.Close; Form7.Ma

28、nualDock(Form3.Panel1,nil,alNone); Form7.Show; Panel1.Visible:=True; end else ShowMessage('選課系統(tǒng)已關(guān)閉！'); end;procedure TForm3.Image1Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select 姓名 from 學(xué)生信息表 where 學(xué)號(hào)='''+Form2.Edit1.Text+''

29、;''); ADOQuery1.Open;end;procedure TForm3.Timer1Timer(Sender: TObject);begin Label1.Caption:=DateTimeToStr(Now);end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;type TForm4 = class(TForm)

30、DBGrid1: TDBGrid; ADOQuery1: TADOQuery; DataSource1: TDataSource; Button1: TButton; Button2: TButton; Button3: TButton; GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label5: TLabel; Button4: TButton; Butt

31、on5: TButton; Button6: TButton; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure GroupBox1Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Cli

32、ck(Sender: TObject); private Private declarations public Public declarations end;var Form4: TForm4;implementation uses Unit2;$R *.dfmprocedure TForm4.Button1Click(Sender: TObject);begin GroupBox1.Visible:=False; DBGrid1.Visible:=True; ADOQuery1.Close; ADOQuery1.SQL.Clear; begin ADOQuery1.SQL.Add(

33、9;select * from 學(xué)生信息表 where 學(xué)號(hào)='''+Form2.Edit1.Text+''''); ADOQuery1.Open; end;end;procedure TForm4.Button3Click(Sender: TObject);begin ADOQuery1.Close; DBGrid1.Visible:=False; GroupBox1.Visible:=False; end;procedure TForm4.Button2Click(Sender: TObject);begin DBGrid1.Visi

34、ble:=False; GroupBox1.Visible:=True;end;procedure TForm4.GroupBox1Click(Sender: TObject);var i,j:Integer; c:Char;begin Label5.Caption:='' /這個(gè)是標(biāo)簽 for j:=0 to 3 do /隨機(jī)生成4個(gè)a到z的字符串 begin i:=Random(24); c:=chr(ord('a') + i); Label5.Caption:=Label5.Caption + c; end; begin Randomize; end;en

35、d;procedure TForm4.Button6Click(Sender: TObject);begin GroupBox1.Visible:=False;end;procedure TForm4.Button4Click(Sender: TObject); var i,j:Integer; c:Char;begin Label5.Caption:='' /這個(gè)是標(biāo)簽 for j:=0 to 3 do /隨機(jī)生成4個(gè)a到z的字符串 begin i:=Random(24); c:=chr(ord('a') + i); Label5.Caption:=Label

36、5.Caption + c; end; begin Randomize; end;end;procedure TForm4.Button5Click(Sender: TObject);begin if MessageDlg('確認(rèn)修改嗎？',mtConfirmation,mbYes,mbNO,0)=mrYes then begin if Edit4.Text=Label5.Caption then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 管理信息表 wh

37、ere 賬號(hào)='''+Form2.Edit1.Text+'''and 密碼 ='''+Edit1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=1 then begin if Edit2.Text=Edit3.Text then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Update 管理信息表 SET 密碼=:A where 賬號(hào)='&

38、#39;'+Form2.Edit1.Text+''''); ADOQuery1.Parameters.ParamByName('A').Value:=Edit2.Text; ADOQuery1.ExecSQL; ShowMessage('修改成功'); end else ShowMessage('新密碼不一致') end else ShowMessage('原密碼錯(cuò)誤'); end else ShowMessage('驗(yàn)證碼錯(cuò)誤'); end; Edit1.Text:=

39、9;' Edit2.Text:='' Edit3.Text:='' Edit4.Text:=''end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;type TForm5 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Button2:

40、 TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form5: TForm5;implementation uses Unit2;$R *.dfmprocedure TForm5.Button1Click(Sender: TObject);b

41、egin DBGrid1.Visible:=True; ADOQuery1.Close; ADOQuery1.SQL.Clear; begin ADOQuery1.SQL.Add('select * from 成績(jī)信息表 where 學(xué)號(hào)='''+Form2.Edit1.Text+''''); ADOQuery1.Open; end;end;procedure TForm5.Button2Click(Sender: TObject);begin ADOQuery1.Close; DBGrid1.Visible:=False; en

42、d;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;type TForm6 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; procedure Button1Cli

43、ck(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form6: TForm6;implementation uses Unit2;$R *.dfmprocedure TForm6.Button1Click(Sender: TObject);begin DBGrid1.Visible:=True; ADOQuery1.Close; ADOQuery1.SQL.Clear; begin ADOQue

44、ry1.SQL.Add('select * from 課程信息表 where 學(xué)號(hào)='''+Form2.Edit1.Text+''''); ADOQuery1.Open; end;end;procedure TForm6.Button2Click(Sender: TObject);begin ADOQuery1.Close; DBGrid1.Visible:=False;end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes,

45、Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type TForm7 = class(TForm) Button1: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; Edit1: TEdit; Button2: TButton; Button3: TButton; DBGrid2: TDBGrid; Button4: TButton; ADOQuery2: TADO

46、Query; ADOQuery3: TADOQuery; ADOQuery4: TADOQuery; DataSource2: TDataSource; ADOQuery5: TADOQuery; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public P

47、ublic declarations end;var Form7: TForm7;implementation uses Unit2;$R *.dfmprocedure TForm7.Button1Click(Sender: TObject);begin ADOQuery3.Close; ADOQuery3.SQL.Clear; ADOQuery3.SQL.Add('select * from 教師課程表'); ADOQuery3.Open;end;procedure TForm7.Button2Click(Sender: TObject);begin ADOQuery1.Cl

48、ose; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 教師課程表 where 課程號(hào)='''+Edit1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordCount=0 then begin ShowMessage('此課程不存在'); end else ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from 課程信息表 where 課程號(hào)='''+Edit1.Text+'''and 學(xué)號(hào)='''+Form2.Edit1.Text+'''' ADOQuery1.Open; if ADOQuery1.RecordC