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

+）班級：姓名:學(xué)號：指導(dǎo)教師：完成日期：334991學(xué)校學(xué)生管理信息系統(tǒng)是針對學(xué)校人事處的大量業(yè)務(wù)處理工作而開發(fā)的管理軟件，ManagementInformationSystem它是一個(gè)教育單位不可缺少,它能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍Ｄ苡行У膸椭鷮W(xué)校和老師掌握學(xué)生的情況，為學(xué)生提供成績跟課程方面的查詢。本系統(tǒng)是以delphi7編輯用戶界面，以SQLserver2008為數(shù)據(jù)源后臺而成的學(xué)生信息管理系統(tǒng)。本系統(tǒng)是以計(jì)算機(jī)為基礎(chǔ)，由人和計(jì)算機(jī)結(jié)合的對信息進(jìn)行收集、存儲、維護(hù)、加工、傳遞和使用的一種管理系統(tǒng)，其目的是使人流、物流、資金流和信息流處于最佳狀態(tài),教師信息管理模塊、課程信息管理模塊、成績信息管理模塊和系統(tǒng)維護(hù)模塊等部分。在,對于學(xué)校的教育管理、教務(wù)和科研等都有很大的實(shí)用價(jià)值。1、問題定義隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大功能已為人們深刻認(rèn)識，它已進(jìn)入人們生活的各個(gè)領(lǐng)域，并發(fā)揮了越來越重要的作用，針對人工管理的缺點(diǎn)，最應(yīng)用該系統(tǒng)實(shí)現(xiàn)如下功能：1、可隨時(shí)查詢出不同系及各系教師與各系學(xué)生情況,系、教師與學(xué)生各反映如下情況：系:系號、系名、系負(fù)責(zé)人、專業(yè)數(shù)等。教師:工號、姓名、性別、職稱、工齡、出生年月、基本工資等。學(xué)生：學(xué)號、姓名、性別、年齡等.2、為簡單起見教師與學(xué)生區(qū)分系別，而課程不分系,課程需反映如下信息：課程代號、課程名、課時(shí)數(shù)、必修課、學(xué)分.3、學(xué)生入學(xué)時(shí)新生需錄入登記，登記后即可選課學(xué)習(xí)課程（一學(xué)期約204、一門只由一位教師上，一位教師可上多門課，滿30人才開課。5、學(xué)生選每門課有個(gè)成績，若成績不及格則補(bǔ)考后還需記錄補(bǔ)考成績。1）在某數(shù)據(jù)庫管理系統(tǒng)中建立各關(guān)系模式對應(yīng)的庫表,并設(shè)計(jì)所需的視圖、索引等。2)能對各庫表進(jìn)行輸入、修改、刪除、添加、查詢、打印等基本操作。3）新生入校登記后可即時(shí)選課,老生每學(xué)期開始前可選課或作選課調(diào)整，一般要選共約20學(xué)分的若干門課程。4)能明細(xì)查詢某學(xué)生的選課情況及某課程的選修學(xué)生情況。5)能統(tǒng)計(jì)查詢出某學(xué)生的成績單（包括總成績、平均成績、不及格門數(shù)等）及某門課的選課人數(shù)、最高分、最低分、平均成績等統(tǒng)計(jì)信息.6）能分析出某教師的教學(xué)質(zhì)量情況（可根據(jù)該教師所任所有課優(yōu)良數(shù)平均超過一定百7)其他你認(rèn)為子系統(tǒng)應(yīng)有的查詢、統(tǒng)計(jì)功能。8）要求子系統(tǒng)設(shè)計(jì)得界面友好,功能選擇方便合理，并適當(dāng)考慮子系統(tǒng)在其安全性、完整性、備份、恢復(fù)等方面的功能要求22、可行性分析1．項(xiàng)目目標(biāo)：學(xué)生和老師可以方便的進(jìn)行各自所需要的信息管理活動，同時(shí)可以查詢和修改各自的信息,以便學(xué)校管理。2．運(yùn)行環(huán)境：（1）以Windows98/ME/2000/XP作為學(xué)生選課管理系統(tǒng)的后臺操作系統(tǒng).（2)前臺開發(fā)程序?yàn)镈ELPHI，SQLServer2008。（3）后臺數(shù)據(jù)SQLServer。（4）主要硬件設(shè)備：PC3．技術(shù)可行性：本系統(tǒng)僅僅簡單的實(shí)現(xiàn)了教務(wù)管理系統(tǒng)的基本功能和需求,具有一定的對于大量信息的維護(hù)也不具有很強(qiáng)的穩(wěn)定性.但是操作簡單,適合小型的學(xué)生信息管理,維護(hù)也更為方便。技術(shù)要求也不是很高，有一點(diǎn)delphi和SQLserver技術(shù)基礎(chǔ)就行了。4。總體分析:成本低,出錯(cuò)率低，使學(xué)校實(shí)現(xiàn)現(xiàn)代化網(wǎng)絡(luò)教學(xué)管理.第三章系統(tǒng)設(shè)計(jì)根據(jù)該系統(tǒng)的需求，數(shù)據(jù)庫采用MicrosoftSQLServer2008，它完全設(shè)和本系統(tǒng)的工作需求，它所支持的字段數(shù)據(jù)類型包括數(shù)值、字符、日期時(shí)間及二進(jìn)制和圖片等類型，是當(dāng)前的主流數(shù)據(jù)庫產(chǎn)品之一。它還具有性能穩(wěn)定、便于操作維護(hù)和具有較好的安系統(tǒng)用到的各種數(shù)據(jù)表如下圖所示.學(xué)生信息表教師信息表課程信息表管理信息表教師課程表成績信息表表與表之間的關(guān)系如下圖所示：關(guān)系圖第四章系統(tǒng)功能1.學(xué)生模塊此模塊為學(xué)生操作模塊。學(xué)生可以通過此模塊實(shí)現(xiàn)查看個(gè)人信息、修改密碼、查看課程信息、才查看成績信息、網(wǎng)上選課（在管理員開通選課前提下）諸多功能。2.教職工模塊此模塊為教職工操作模塊。教職工可以通過此模塊實(shí)現(xiàn)查看個(gè)人信息、修改密碼、查看課程信息、輸入學(xué)生平時(shí)成績和期末成績諸多功能.3.系統(tǒng)管理員模塊此模塊為系統(tǒng)管理員操作模塊。系統(tǒng)管理員可以通過此模塊實(shí)現(xiàn)查看管理員信息、修改密碼、查看、新增、修改、刪除學(xué)生信息、查看、新增、刪除、修改教職工信息、查看、新增、刪除、修改課程信息、開通、關(guān)閉選課諸多功能.第五章系統(tǒng)實(shí)現(xiàn)。主界面2.登陸界面3。學(xué)生界面（1）查看個(gè)人信息（2)修改密碼（3）成績查詢）課程查詢（5）網(wǎng)上選課選課提示選課界面已選提示成功提示刪除提示4.教職工界面（）個(gè)人信息(同學(xué)生界面）（2）（3）（4）修改密碼（同學(xué)生界面)課程查詢(同學(xué)生界面）成績評定5.管理員界面（1）（2）（3）（4）（5）（6）（7）個(gè)人信息（同學(xué)生界面)修改密碼（同學(xué)生界面）學(xué)生查詢管理學(xué)生信息修改教師信息查詢教師信息修改課程信息查詢4（8）（9）課程信息修改成績查詢第六章源程序附錄Unit1；interfaceusesWindows,，SysUtils，Variants,Classes,Graphics,Controls,Forms，Dialogs，ExtCtrls，，Unit2,jpeg,DB，ADODB；typeTForm1=（TForm)：；：TButton;Panel1:TPanel;Image1：TImage；Label1：TLabel;Label2：TLabel；ADOConnection1：TADOConnection;Timer1:TTimer;procedure（Sender:procedure：；procedureTimer1Timer(Sender:TObject;private｛Privatedeclarations｝public{Publicdeclarations｝end；varForm1:；implementation{$R＊.dfm}procedure。Button1Click（Sender:；beginManualDock（。，nil，alNone）;Form2.Show;Panel1.Visible:=True；end；procedure。Button2Click（Sender：beginifMessageDlg(’確認(rèn)退出整個(gè)系統(tǒng)嗎?’,mtConfirmation，mbNo0）=mrYesthenbeginApplication.Terminate；5end；end;procedure。Timer1Timer(Sender:beginLabel2。end;end。Unit2；interfaceusesWindows，Messages,SysUtils,Variants，Classes，，Controls,Forms,Dialogs，StdCtrls,，ADODBUnit3；typeTForm2=（TForm)Label1：TLabel；Label2:TLabel；Label3:TLabel;ComboBox1:TComboBox;Edit1:；：；：；：；ADOConnection1：；ADOQuery1:；Label4：TLabel;Button3:TButton;Label5：TLabel；：TEdit;procedure（Sender：;procedureButton1Click(Sender:TObject）;procedure（Sender:procedureFormCreate(Sender:TObjectprocedureButton3Click(Sender:TObject）;procedure：;private｛Privatedeclarations}public{Publicdeclarations｝end；var：；implementationuses6Unit1,Unit8,Unit12；{＄R＊.dfm｝procedure（Sender:begincase。ItemIndexof0Label2。Caption:=’賬1:Label2。Caption：’工else號號Label2Caption:=’學(xué)號end;end；procedure。Button1Click（Sender:TObject);beginifEdit3.Text=Label4。Captionthenbegincase。ItemIndexof：beginADOQuery1。；ADOQuery1.SQLClear；ADOQuery1.SQLText=select＊from管理信息表where賬號+Edit1。Text+'AND=。Text+''’AND用戶名='’'+ComboBox1.Text+'’；ADOQuery1.Open；ifADOQuery1.RecordCount=0thenbeginShowMessage（'用戶名或密碼錯(cuò)誤，請重新登;endelsebeginShow;。Close;。。Visible:=False;end；end；：beginADOQuery1.Close;ADOQuery1。；ADOQuery1。。Text=’select*from管理信息表where賬號='’。Text+'and密碼=+Edit2。Text+'and用戶名=’Text+’ADOQuery1.Open；ifADOQuery1.RecordCount=0thenbegin（’用戶名或密碼錯(cuò)誤，請重新登錄）;7endelsebegin。Show；。Close;。：；end;end;：beginADOQuery1。Close;ADOQuery1。。Clear;ADOQuery1SQL.Text:=select＊from管理信息表where賬號=+Edit1.Text+'’'and密碼=’+Edit2Text+and用戶名’’。Text+’;ADOQuery1.Open；ifADOQuery1.RecordCount=0thenbeginShowMessage(’用戶名或密碼錯(cuò)誤，請重新登陸endelsebegin；；。：=False;end；end；elseShowMessage（’請選擇身份’);end；endelseShowMessage（驗(yàn)證碼錯(cuò)誤’)；end；procedure（Sender:TObject);begin。；。Visible:=False;end；procedure。（Sender：beginRandomize;end;procedure。Button3Click（Sender：var8i，；c:Char;begin：=//這個(gè)是標(biāo)簽forj:=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini:=Random24)；c:=chr(ord（’a’）+iLabel4.Caption:=Label4。Caption+c;end；begin；end;end；procedure。FormShow(Sender:TObject);var；c：Char;beginLabel4.Caption=’；//這個(gè)是標(biāo)簽forj:=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini:=Random24）;c=chr（’a’)+i)；Label4。：=Label4.Caption+；end；end；end。Unit3；interfaceusesWindows,Messages,，Variants,，，Controls,Forms,Dialogs,StdCtrls,ExtCtrls,jpeg,DB,，DBCtrls；typeTForm3=（TForm)Button1:；Button2:；Button3:TButton;：；：；Image1:；DBText1：TDBText；：TDataSource;9ADOQuery1：；ADOConnection1:TADOConnection;Label1:TLabel；Timer1：TTimer;Label2:TLabel；procedure：；procedure：）;procedure（Sender：procedure（Sender:;procedure：procedure（Sender:private{Privatedeclarations}public{Publicdeclarations｝end;varForm3:；implementationusesUnit4，Unit5，，Unit7,Unit19,Unit2;｛＄R＊.dfm｝procedureTForm3.Button1Click(Sender:TObject;begin。Close;；。；ManualDock（。Panel1,nil,alNone)；Form4.Show;。；end；procedure。Button3Click(Sender：TObject);begin。；；。；ManualDock（。，nil,alNone)；Form5.Show；：=True;end；procedure。Button2Click(Sender：begin。；。；10；ManualDock(Form3.Panel1，nil,alNone)；。Show;。Visible：=True;end;procedure（Sender:;beginif。Label11。Caption=’已開通選課’thenbeginForm4.Close;。Close;。；ManualDock（。，nil，alNone。；。；endelseShowMessage（選課系統(tǒng)已關(guān)閉！;end；procedure（Sender：beginADOQuery1.Close;ADOQuery1.SQL。Clear;ADOQuery1SQLAdd（'select姓名from學(xué)生信息表where學(xué)號=+Form2。。Text+’’ADOQuery1。；end；procedureTForm3.Timer1Timer（Sender：beginLabel1。（;end；erfaceusesWindows，Messages，SysUtils,Variants，Classes,Graphics,，F(xiàn)orms,Dialogs，Grids,DBGrids,，ADODB，；typeTForm4=）DBGrid1:TDBGrid；ADOQuery1：TADOQuery;DataSource1:；：TButton;11Button2:TButton;：TButton;GroupBox1:TGroupBox；Label1：TLabel；Label2:TLabel;Label3:TLabel；Label4：TLabel;Edit1:TEdit;Edit2:；Edit3:TEdit;：；Label5：TLabel；：TButton;：；Button6:；procedure（Sender:；procedure（Sender：）;procedure（Sender：；procedure（Sender:；procedure（Sender:procedure（Sender：；procedure（Sender：）;private{Privatedeclarations｝public{Publicdeclarations}end；varForm4:；implementationusesUnit2；{$R＊.dfm｝procedure。Button1Click（Sender：TObject);beginGroupBox1.Visible:=False；；ADOQuery1。Close;ADOQuery1.SQL。Clear；beginADOQuery1.SQLAdd（’select＊from學(xué)生信息表where學(xué)號+Form2。。Text+’ADOQuery1。；end；12end；procedure。Button3Click（Sender：beginADOQuery1.Close;DBGrid1.Visible:=False;。Visible:=False;end;procedure：TObject);beginDBGrid1。；GroupBox1.Visible:=True;end；procedure。（Sender：var；c：Char;beginLabel5.Caption:=//這個(gè)是標(biāo)簽for：=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini：=Random24c=chr（'a’）+iLabel5。Caption:=Label5。Caption+c;end；begin；end；end;procedure。Button6Click（Sender:begin=False;end；procedure。Button4Click（Sender：vari，j：；c:Char;beginLabel5。：='//這個(gè)是標(biāo)簽for：=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini:=Random24)；c:=chrord(’a'）+；Label5。：=Label5。Caption+c;end；13beginRandomize;end;end；procedure（Sender:;beginifmbYesmbNO,0=mrYesthenbeginifEdit4.Text=Label5。CaptionthenbeginADOQuery1。Close；ADOQuery1.SQL。Clear；ADOQuery1。SQL.Text：=’select＊from管理信息表where賬號=’''+Form2。Text+’’and密碼。Text+';ADOQuery1.Open；ifADOQuery1.RecordCount=1thenbeginifEdit2.Text=Edit3。TextthenbeginADOQuery1.Close;ADOQuery1.SQL.Clear；ADOQuery1.SQL.Add(Update管理信息表SET密碼=:Awhere賬號='+Form2。Text+'''’);ADOQuery1Text；ADOQuery1ExecSQL;ShowMessage(endelseShowMessageendelseendelse驗(yàn)證碼錯(cuò)誤’);end；。Text:='’;Edit2.Text：=''；。Text：=’';Edit4.Text:='’;end；end.Unit5；14interfaceusesWindows，Messages,SysUtils,Variants，Classes,Graphics,Controls,Forms,Dialogs，DB，ADODB,，Grids，DBGrids;typeTForm5=class(TForm)DBGrid1:TDBGrid;：TButton;：TButton;ADOQuery1：；：；procedure（Sender:procedure（Sender:TObject);private｛Privatedeclarations}public{Publicdeclarations｝end；varForm5:TForm5;implementationusesUnit2；｛＄R。dfm｝procedure。Button1Click（Sender：；beginDBGrid1。Visible:=True;ADOQuery1.Close；ADOQuery1.SQL.Clear；beginADOQuery1。SQL.Add(’select*from成績信息表where學(xué)號+Form2。。Text+;ADOQuery1.Open;end；end;procedure。Button2Click(Sender：）;beginADOQuery1。Close；=False;end;erface15usesWindows，Messages，，，Classes,Graphics,，F(xiàn)orms,Dialogs,，ADODB，StdCtrls,，DBGrids;typeTForm6=（）DBGrid1:TDBGrid；Button1:TButton;：TButton;ADOQuery1：；：；procedure：；procedure：）;private{Privatedeclarations}public{Publicdeclarations}end；var：；implementationusesUnit2；｛＄R*.dfm｝procedure。Button1Click(Sender：TObject);beginDBGrid1。Visible：；ADOQuery1。Close；ADOQuery1。SQL。Clear;beginADOQuery1。SQL.Add(’select*from課程信息表where=+Form2。。Text+’；ADOQuery1.Open;end；end；procedure。Button2Click（Sender：beginADOQuery1。Close;；end;end。Unit7；interfaceuses16Windows,，SysUtils，，Classes，Graphics，Controls，F(xiàn)orms，Dialogs，，，DBGrids,，ADODB;typeTForm7=class(TForm)Button1:；ADOQuery1：；：；DBGrid1：TDBGrid；Label1：TLabel;：TEdit;：；Button3:；DBGrid2：TDBGrid;：；ADOQuery2:；ADOQuery3：TADOQuery;ADOQuery4:；DataSource2:；ADOQuery5:；procedure（Sender：procedure（Sender:;procedure（Sender：procedure（Sender:；private{Privatedeclarations}public{Publicdeclarations｝end；var：；implementationusesUnit2;{＄R*.dfm｝procedure。Button1Click(Sender：）;beginADOQuery3。Close;ADOQuery3。SQL。Clear；ADOQuery3。SQL。Add('select＊from教師課程表ADOQuery3。Open；end;procedure。Button2Click(Sender：）;beginADOQuery1。；17ADOQuery1。。Clear;ADOQuery1.SQL。：=’select＊from教師課程表where課程號=+Edit1.Text+’;ADOQuery1.Open；ifADOQuery1。RecordCount=0thenbegin（此課程不存在’)；endelseADOQuery1。Close;ADOQuery1。。Clear；ADOQuery1。SQL。：='select＊from課程信息表where課程號=’'’+Edit1.Text+’’and=。Text+ADOQuery1.Open；ifADOQuery1.RecordCount=0thenbeginifMessageDlg(mtConfirmationmbNo]=mrYesthenbeginADOQuery2.Close；ADOQuery2。SQL.Clear；ADOQuery2。SQL.Add（'select＊from教師課程表where課程號='+Edit1.Text+'''ADOQuery2。Open；ADOQuery1。Close；ADOQuery1。SQL.Clear；ADOQuery1。SQL.Add(’insertinto課程信息表values(：A,:B，:C,:D,：E,:F:G，，:I)';ADOQuery1。Parameters.ParamByName('A'）：=Form2。Edit1。；ADOQuery1BAsString；ADOQuery1.Parameters。ParamByName（'C.Value：=ADOQuery2。FieldByName(.AsString；ADOQuery1.Parameters。ParamByName（’D’）.Value：=ADOQuery2.FieldByName('學(xué)時(shí)AsString;ADOQuery1.Parameters.ParamByName（'E’）。Value:=ADOQuery2。FieldByName(’學(xué)分’AsString；。Parameters.ParamByName(’ADOQuery1。Parameters。ParamByName(’F’）。Value：=ADOQuery2.FieldByName.AsString;ADOQuery1。Parameters。ParamByName('G’).Value：=ADOQuery2。FieldByName('教師工號。AsString；ADOQuery1。Parameters.ParamByName（'H’)。Value：=ADOQuery2。FieldByName（’教師姓名）.AsString;ADOQuery1.Parameters.ParamByName（’IValue：=ADOQuery2。FieldByName(’備注’AsString;18ADOQuery1。ExecSQL;ADOQuery5.Close；ADOQuery5.SQL.Clear；ADOQuery5.SQL.Add(’select*from學(xué)生信息表where學(xué)號。Edit1.Text+’’；ADOQuery5.Open;ADOQuery1。Close；ADOQuery1。SQL。Clear；ADOQuery1。SQL。Add('insertinto成績信息表valuesK,:L:M，QR:S);ADOQuery1。Parameters.ParamByName(’J’。Edit1.Text;ADOQuery1。Parameters.ParamByName（’K.Value：=ADOQuery5。FieldByName（’姓名’).AsString;ADOQuery1.Parameters.ParamByName'L'Value:=ADOQuery2.FieldByName（’課程號')。AsString;ADOQuery1。Parameters.ParamByName（'M'Value：=ADOQuery2。FieldByName（’課程名。AsString；ADOQuery1.Parameters.ParamByName（’N').Value:=ADOQuery2。FieldByName(’學(xué)時(shí)AsString;ADOQuery1。Parameters。ParamByName(’O'）.Value：=ADOQuery2。FieldByName（AsString；ADOQuery1。（’P'；；（'R’).Value:='';ADOQuery1。Parameters。ParamByName（’S'）：=ADOQuery2。FieldByName(’備注’AsString;ADOQuery1。；ShowMessage('選課成功');Edit1.Text:='';end；endelse（’已選過此課程’；end；procedure。Button4Click(Sender:TObject);beginADOQuery4。Close;ADOQuery4。SQL。Clear；ADOQuery4SQLAdd（’select＊from課程信息表where學(xué)號=''+Form2。。Text+';ADOQuery4。Open;end;procedure。Button3Click(Sender:begin19ADOQuery1.Close；ADOQuery1。SQL.Clear;ADOQuery1.SQL。Text：='select＊from課程信息表where課程號='+Edit1.Text+'';ADOQuery1Open；ifADOQuery1.RecordCount=0thenbegin（未選此課程');endelsebeginifMessageDlg?0)=mrYesthenbeginADOQuery1。Close；ADOQuery1。SQLClear;ADOQuery1。SQL.Add（’DELETEFROM課程信息表where課程號：TADOQuery1Parameters.ParamByName（’T’Value:=Edit1.Text;；ADOQuery1.Close；ADOQuery1.SQL.Clear；ADOQuery1。SQL.Add（'DELETEFROM成績信息表where課程號=:U');ADOQuery1。ParamByName(’U’).Value：。Text;；Text:=’’;ShowMessage（’成功刪除！）;end;end；end;erfaceusesWindows，Messages，SysUtils,Variants,Classes,Graphics,Controls，，Dialogs，，，ExtCtrls,DB，ADODB，DBCtrls；typeTForm8=）Image1：TImage；Button1:；Button2:；：；Panel1:；DBText1：TDBText；20ADOQuery1：；DataSource1:；ADOConnection1：；Label1：TLabel;Timer1：TTimer；procedure：）;procedure（Sender：procedure：procedure（Sender:procedure（Sender：；private{Privatedeclarations｝public｛Publicdeclarations｝end;var：；implementationusesUnit9，Unit10,Unit11，Unit2；｛＄R＊.dfm}procedure。Button1Click（Sender：）;begin；Form11.Close;Form9.ManualDock（。，nil，alNone）;。Show;。；end;procedure。Button2Click(Sender:；begin。Close;Form11.Close;。ManualDock（，nil,alNone；。Visible：；end;procedure：TObject);begin；Form10.Close;Form11.ManualDock（。alNone);。Show;。Visible：=True;21end；procedure。Image1Click（Sender:TObject);beginADOQuery1.Close；ADOQuery1。SQLClear;ADOQuery1。SQL。Add（’select姓名from教師信息表where教師工號=。Text+');ADOQuery1。；end;procedure。Timer1Timer（Sender：；beginLabel1Caption：=DateTimeToStr(Now)；end；erfaceusesWindows，Messages，，Variants,，，Controls,Forms,Dialogs，DB，StdCtrls,，Grids，DBGrids；typeTForm9=）DBGrid1：TDBGrid;ADOQuery1：；：；：；：；DataSource1:；：TGroupBox;Label1：TLabel;Label2:TLabel;Label3：TLabel；Label4：TLabel;：；：；：TEdit;Edit2:TEdit;Edit3:；：TEdit;Label5:TLabel;Button6:TButton;procedure（Sender：procedure（Sender：procedure（Sender:；22procedureButton3Click(Sender:TObject)；procedure（Sender:procedureButton5Click(Sender:TObject);procedure（Sender：private｛Privatedeclarations｝public{Publicdeclarations｝end；var：TForm9;implementationusesUnit2；{＄Rdfm｝procedure：；beginDBGrid1。Visible：；ADOQuery1。Close；ADOQuery1.SQL。Clear;beginADOQuery1。SQL。Add（'select＊from教師信息表where教師工號='+Form2.Edit1.Text+’；ADOQuery1。；end;end；procedure。Button2Click(Sender:；beginADOQuery1.Close;DBGrid1.Visible:=False;end;procedure。（Sender：vari，；c：Char；beginLabel5。Caption:=;//這個(gè)是標(biāo)簽forj:=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini：=Random24c=chr（’a’)+Label5。：=Label5.Caption+c;end;begin23；end;end；procedure。Button3Click（Sender：begin；=True;end；procedure。Button6Click(Sender：vari，j：Integer;c：Char;beginLabel5Caption：=’';這個(gè)是標(biāo)簽for：=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini：=Random24)；c=chrord(’a'）+）;Label5。：=Label5.Caption+c;end;beginRandomize;end；end；procedure。Button5Click（Sender:）;begin。Visible：；end；procedure。Button4Click(Sender：TObject);beginifMessageDlg(’確認(rèn)修改嗎’，0=mrYesthenbeginifEdit4.Text=Label5.CaptionthenbeginADOQuery1。Close；ADOQuery1。SQL。Clear;ADOQuery1。：='select*from管理信息表where賬號='+Form2.Edit1.Text+’''and密碼='+Edit1.Text+'';ADOQuery1.Open;ifADOQuery1.RecordCount=1thenbeginifEdit2.Text=Edit3。TextthenbeginADOQuery1Close;24ADOQuery1。SQLClear；ADOQuery1。SQL.Add（’Update管理信息表SET密碼=：Awhere賬號。Text+''’）;ADOQuery1ParamByName（=Edit2.Text；ADOQuery1.ExecSQL；ShowMessageendelseShowMessage（’新密碼不一致）endelse（;endelseShowMessage;end；。Text：=’’;。Text：=’’;。Text：=’'；。Text：='’;end；end。Unit10；interfaceusesWindows,Messages,SysUtils,Variants,Classes，，Controls,，Dialogs,，DB,ADODB，，DBGrids;typeTForm10=）DBGrid1：TDBGrid;ADOQuery1：；：；Button1:；：；procedure（Sender：；procedureButton2Click(Sender:TObject)；private｛Privatedeclarations｝public｛Publicdeclarations}end；varForm10：；25implementationusesUnit2；｛$R＊。dfm}procedure。（Sender:TObject);beginDBGrid1。；ADOQuery1。；ADOQuery1.SQLClear;beginADOQuery1SQL.Add（’select＊from課程信息表where教師工號=+Form2。Text+)；ADOQuery1。Open；end；end;procedure（Sender:TObject);beginADOQuery1。Close；DBGrid1.Visible:=False;end;erfaceusesWindows，Messages，SysUtils，，Classes，，，F(xiàn)orms,Dialogs,Grids，DBGrids，DB，ADODB,；typeTForm11=（）Button1:TButton;ADOQuery1:；：TDataSource;DBGrid1：TDBGrid；：；Label1:TLabel；Label2:TLabel;Edit2:；Label3：TLabel;：；Label4:TLabel；Edit4:；：；Button3:TButton;procedure（Sender:26procedure（Sender：TObject);procedure（Sender：）;private｛Privatedeclarations｝public｛Publicdeclarations｝end；varForm11：；implementationusesUnit8;{＄R。dfm}procedure。Button1Click(Sender：TObject);begin；ADOQuery1.Close;ADOQuery1。；ADOQuery1SQLAdd（’select＊from成績信息表where課程號='。Text+ADOQuery1。；end;procedure。Button3Click(Sender：TObject);begin。Close；。Visible：；end；procedure。Button2Click(Sender:beginifMessageDlg(’確認(rèn)提交？’mbYesmbNO0)=mrYesthenbeginADOQuery1。；ADOQuery1。SQL。Clear；ADOQuery1。SQL。Add（’Update成績信息表SET平時(shí)成績=：A，期末成績=:Bwhere='’Text+'；（：=Edit3Text;t；end；end;end.Unit12；interface27usesWindows，Messages，，Variants,，Graphics,，F(xiàn)orms,Dialogs，，ExtCtrls,，DB,，StdCtrls;typeTForm12=（）Image1：TImage;MainMenu1:；N1:TMenuItem;N2:TMenuItem；N3：TMenuItem;N4:TMenuItem;N5：TMenuItem；N6：TMenuItem；N7:TMenuItem;N8:TMenuItem；N9：TMenuItem;N10：；N11：；N12:；N13：；N14：；N15：；Panel1:；Label1：TLabel;ADOConnection1：TADOConnection;Timer1：TTimer；procedure（Sender:）;procedure：procedure（Sender：;procedureN3Click(Sender:;procedure（Sender：TObject);procedureSender：;procedureSender：TObject);procedure：;procedureSender：；procedure（Sender:）;procedure：；private｛Privatedeclarations｝public｛Publicdeclarations｝end；varForm12：；28implementationusesUnit13Unit14,Unit15,Unit16Unit17,Unit18，Unit19，Unit20，Unit21;{$R＊.dfm｝procedure。N4Click（Sender：TObject);begin。Close;end;procedure（Sender：；beginPanel1.Visible:=True;ManualDock（Form12.Panel1,nil,alNone)；。Show;。Close;。Close；。Close；。Close;Form19.Close;。Close;；end；procedure。N7Click（Sender:;begin：；Form14.ManualDock（，nilalNone)；。；。Close；。Close；Form16.Close;。Close；。Close;。Close；；。Close；end；procedure：begin。Visible：；。ManualDock（。，nil，alNone)；。Show;。Close;。Close；。Close；。Close；29。Close；。Close;。Close；。Close；end;procedure。N9Click(Sender：）;beginPanel1.Visible:=True；。ManualDock（，nilalNone；；。Close；；。Close；；；。Close;；end;procedure（Sender:begin。Visible:=True;Form17.ManualDock（Form12Panel1,nil,alNone。Close；Form14.Close;Form15.Close;Form16.Close;；。Close;。Close；。Close；。Close；end;procedure。N12Click(Sender:begin；。ManualDock（。，nil，alNone;；。Close;。Close;。Close；。Close；。Show;。Close;30Form20.Close;。Close;end；procedure。N13Click（Sender:begin。Visible：；Form19.ManualDock（Form12Panel1,nil,alNone。Close；；。Close;；Form17.Close;Form19.Show;。Close；。Close;。Close;end;procedure。N15Click（Sender：begin。Visible：；。ManualDock（，nilalNone。Close；Form14.Close;。Close;；；；Form18.Close;Form19.Close;。Close；end;procedure。N2Click（Sender：;begin；Form21.ManualDock(Form12.Panel1，，alNone)；。Close;。Close；。Close;。Close;。Close;Form20.Close;。Close;；。Show;31end;procedure。Timer1Timer(Sender:begin=DateTimeToStr（Nowend；erfaceusesWindows，Messages，SysUtils，，Classes，，，F(xiàn)orms,Dialogs，StdCtrls,，ADODB,，DBGrids；typeTForm13=（）DBGrid1:TDBGrid;：TDataSource;ADOQuery1:；：TRadioButton;：TRadioButton;：；Button2:TButton;：TEdit;：；Button3:；procedure：）;procedure（Sender：；procedure（Sender:;private｛Privatedeclarations｝public｛Publicdeclarations}end；varForm13:；implementationusesUnit12；{＄R＊.dfm｝procedure（Sender：TObject);beginDBGrid1。Visible：；if。CheckedthenbeginADOQuery1.Close;32ADOQuery1.SQL。Clear；ADOQuery1。SQL。Add(’select*from學(xué)生信息表where學(xué)號=’'’+Edit1.Text+ADOQuery1.Open;endelseifRadioButton2.CheckedthenbeginADOQuery1。Close;ADOQuery1。；ADOQuery1。SQL。Add(’select*from學(xué)生信息表where姓名+Edit2。Text+'''’);ADOQuery1.Open；endelse（’請選擇查詢方式')；end；procedure。（Sender：；beginDBGrid1。Visible：=False;ADOQuery1。Close；Form13.Close;；end；procedure（Sender：beginDBGrid1。Visible：；ADOQuery1.Close;ADOQuery1。SQLClear；ADOQuery1.SQL。（’select*from學(xué)生信息表');ADOQuery1。；end;erfaceusesWindows，Messages，SysUtils,Variants，Classes，Graphics,，，Dialogs,StdCtrls,，ADODB,，；typeTForm14=（）：TButton;：；：TButton;：；33：；Label1:TLabel;Label2:TLabel;Label3：TLabel；Label4：TLabel；Edit1:TEdit;：；：；：；Label5：TLabel;Label6:TLabel；Label7：TLabel；：；：；Edit6:；：；Label8:TLabel；Edit7:；ADOQuery1：；Label9：TLabel；：TGroupBox;Label10:；：TEdit;：；：TButton;：；GroupBox3:TGroupBox;DBGrid1:TDBGrid;：TDataSource;Label11：TLabel;：TButton;：TButton;Button11:；Label12:TLabel;Edit9:；Edit10:TEdit;Label13:TLabel;ComboBox2:；Label14：TLabel；：；Label15:；Edit12:TEdit;Label16:；：；34Label17:；：；procedure（Sender:TObject);procedure（Sender：TObject);procedure（Sender:；procedure：；procedure（Sender:；procedure（Sender:；procedure（Sender：TObject);procedure：procedure（Sender：）;procedure（Sender：；procedure（Sender：private{Privatedeclarations}public｛Publicdeclarations｝end；varForm14：；implementationusesUnit12;｛$R＊。dfm}procedure。（Sender：beginForm14Close；Form12。Visible：；end；procedure。Button1Click(Sender:）;begin=True;。Visible：=False;。Visible:=False;end；procedure：beginADOQuery1。Close;ADOQuery1。。Clear；ADOQuery1.SQLText:='select*from學(xué)生信息表where學(xué)號=''+Edit1.Text+''ADOQuery1Open；ifADOQuery1.RecordCount=1thenbeginshowmessage('此學(xué)號已存在')；35endelsebeginifMessageDlg?[mbYesmbNo=mrYesthenbeginADOQuery1.Close;ADOQuery1。；ADOQuery1。SQL.Add（'insertinto學(xué)生信息表values(:A：DEF,：G;ADOQuery1。：=Edit1.Text；ADOQuery1。。Value:=Edit2.Text;ADOQuery1。。Text;（’D').Value:=Edit3.Text;（=Edit4Text；ADOQuery1。（’F’)。：=Edit5.Text；ADOQuery1。（'G’：=Edit7Text；；ADOQuery1。SQL。Clear；ADOQuery1.SQL。Add(’insertinto管理信息表（:H,:I：K)');ADOQuery1。Parameters.ParamByName（）.Value：=Label9。Caption；ADOQuery1。ParamByName('I’).Value：=Edit1Text;（'J’).Value：=Edit6.Text;ADOQuery1。（’K’).Value=Edit7.Text；ADOQuery1。；（提交成功’)；end；end;end；procedure。Button2Click(Sender:begin。；。Visible：；。Visible：；end;procedure。Button6Click(Sender：beginADOQuery1。；ADOQuery1.SQLClear；ADOQuery1SQL.Text=select*from學(xué)生信息表where=''+Edit8Text+’’；ADOQuery1.Open；ifADOQuery1。RecordCount=0thenbeginshowmessage('36endelsebeginifMessageDlg(,確認(rèn)刪除嗎？’,mtConfirmation,mbYesmbNo）=mrYesthenbeginADOQuery1。Close；ADOQuery1.SQL。Clear；ADOQuery1。SQLAdd（’DELETEFROM管理信息表where=L'ADOQuery1Parameters.ParamByName(’L’。Text；ADOQuery1。；ADOQuery1.SQL。Clear；ADOQuery1。SQL.Add（'DELETEFROM學(xué)生信息表where=:O'ADOQuery1Parameters.ParamByName（'O’：。Text；ADOQuery1.ExecSQL;Edit8.Text：=’'；ShowMessage（成功刪除!);end；end；end;procedure。（Sender：;begin=False;end；procedure（Sender:begin。Visible:=False;end；procedure。Button3Click(Sender：）;begin。：；GroupBox1.Visible:=False;=False;end;procedure（Sender：；beginDBGrid1。Visible：=True;ADOQuery1.Close；ADOQuery1。SQLClear；ADOQuery1.SQL.Add（'select*from學(xué)生信息表where=+Edit9.Text+''')；ADOQuery1.Open;end；procedure。Button11Click(Sender：）;begin37：=False;end；procedure：beginADOQuery1.Close；ADOQuery1.SQLClear；ADOQuery1。SQL.Text：=’select＊from學(xué)生信息表where學(xué)號=’''+Edit9。Text+；ADOQuery1.Open；ifADOQuery1.RecordCount=0thenbeginendelsebeginifmbNO=mrYesthenbeginADOQuery1.Close；ADOQuery1。；ADOQuery1。SQL。Add（’Update學(xué)生信息表SET姓名=:P，性別=:Q，出生日期：R,=：，電話=T，備注=:Uwhere學(xué)號=’’+Edit9.Text+’（’P’)。。Text；ADOQuery1。Parameters.ParamByName）.Value：=ComboBox2.Text;（。Text；ADOQuery1。Parameters.ParamByName(’S’=Edit12.Text；（。。Text;ADOQuery1。Parameters.ParamByName(’U’。Text；ADOQuery1。ExecSQL;Edit10.Text：=’’；Edit11Text='’；Edit12Text:=’’；Edit13.Text：；Edit14Text=’’;（;end;end;end;end.Unit15；interfaceusesWindows，Messages,，，Classes，Graphics，Controls，F(xiàn)orms，38Dialogs，，DB,ADODB;typeTForm15=class(TForm)Label1:TLabel；Label2：TLabel;Label3：TLabel；：；：；Label4：TLabel;Edit1:；：；：；：TEdit;Label5：TLabel;：TButton;ADOQuery1：；procedure（Sender:；procedure（Sender：procedure（Sender：；procedure（Sender：）;private｛Privatedeclarations}public{Publicdeclarations｝end;varForm15：；implementationusesUnit12,Unit2；｛$R＊。dfm｝procedure。（Sender：TObject);vari，j：Integer;c：Char；begin;這個(gè)是標(biāo)簽forj:=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini：=Random(24c=chr（’a’）+iLabel5。Caption:=Label5。Caption+c;end；begin39；end；end;procedure。Button2Click(Sender：beginForm15Close;Form12。；end；procedure。（Sender:）;vari，；c:Char；beginLabel5Caption:=';//這個(gè)是標(biāo)簽forj:=0to3do//隨機(jī)生成4個(gè)a到z的字符串begini:=Random(24;c=chr（’a')+：=Label5.Caption+c;end;begin；end；end；procedure（Sender：TObject);beginifMessageDlg（’確認(rèn)修改嗎？mbYesmbNO]0=mrYesthenbeginifEdit4.Text=Label5。CaptionthenbeginADOQuery1.Close;ADOQuery1。SQL。Clear；：=’select*from管理信息表where賬號='。Text+'’'and密碼=+Edit1.Text+ADOQuery1.Open；ifADOQuery1.RecordCount=1thenbeginifEdit2.Text=Edit3.TextthenbeginADOQuery1.Close；ADOQuery1.SQL。Clear;ADOQuery1。SQL.Add（’Update管理信息表SET密碼=:Awhere賬號='。Text+'')；ADOQuery1.Parameters.ParamByName（'A')Text；40ADOQuery1；ShowMessage;endelseShowMessage（’新密碼不一致）endelse（原密碼錯(cuò)誤’；endelseShowMessage（驗(yàn)證碼錯(cuò)誤')；end；。Text：='’;Edit2.Text：=’';。Text:='’;。Text:=’';end；end。Unit16；interfaceusesWindows，Messages,，，Classes,，，F(xiàn)orms,Dialogs,StdCtrls,DB,ADODB,，DBGrids;typeTForm16=（TForm)：；：；Edit1:；Edit2:；DBGrid1：TDBGrid；ADOQuery1：TADOQuery;：；Button1:TButton;：TButton;：TButton;procedureButton1Click(Sender:TObject）;procedure（Sender：）;procedure（Sender：TObject);private｛Privatedeclarations｝public{Publicdeclarations}end；41varForm16：TForm16;implementationusesUnit12;{$R*。dfm｝procedure（Sender：；begin；if。CheckedthenbeginADOQuery1。Close；ADOQuery1。SQL。Clear；ADOQuery1.SQL。（’select*from教師信息表where教師工號=。Text+’''');ADOQuery1。Open；endelseif。CheckedthenbeginADOQuery1。Close;ADOQuery1。；ADOQuery1.SQL.Add（'select＊from教師信息表where姓名='+Edit2.Text+’’)；ADOQuery1Open；endelseShowMessage（請選擇查詢條件end;procedure。（Sender:TObject);beginDBGrid1。；。Close；。。Visible：；end；procedure：；beginDBGrid1.Visible:=True；ADOQuery1。Close；ADOQuery1。SQLClear；ADOQuery1。SQLAdd（'select*from教師信息表’)；ADOQuery1。Open;end；end.Unit17；42interfaceusesWindows，Messages,SysUtils,Variants,Classes，Graphics,，，Dialogs，，，ADODB，Grids，DBGrids；typeTForm17=（）：；Button2:TButton;：；Button4:TButton;GroupBox1:TGroupBox；Label1：TLabel；Label2:TLabel;Label3：TLabel；Label4：TLabel;Label5：TLabel;Label6：TLabel；Label7：TLabel;Label8:TLabel;Label9：TLabel；Label10：TLabel；Edit1:；：TEdit;：TEdit;：TComboBox;：TEdit;Edit5:；Edit6:TEdit;：TEdit;Edit8:；：；Button6:；ADOQuery1:；Label11：TLabel；Edit9:TEdit;GroupBox2:TGroupBox；Label12:；：TEdit;：；：TButton;：TGroupBox;Label13：TLabel;Label14:；Label15:；43Label16：TLabel;Label17：TLabel；：TEdit;Edit12:；Edit13:；：；Label18:TLabel;Label19：TLabel;ComboBox2:TComboBox;Label20：TLabel;Label21：TLabel;：TEdit;：；：TEdit;：TEdit;Button9:；DBGrid1：TDBGrid；DataSource1:；：TButton;Button11:TButton;procedure（Sender:；procedure（Sender:procedure（Sender：；procedure（Sender:TObject);proce