學生信息管理系統(tǒng)的設(shè)計與實現(xiàn)

學生信息管理系統(tǒng)一課題名稱學生管理信息系統(tǒng)主要功能：學籍信息管理班級信息管理課程信息管理成績信息管理系統(tǒng)管理二、學校學生管理信息系統(tǒng)的簡介學校學生管理信息系統(tǒng)是針對學校人事處的大量業(yè)務處理工作而開發(fā)的管理軟件，是典型的管理信息系統(tǒng)(ManagementInformationSystem)。它是一個教育單位不可缺少的部分，它的內(nèi)容對于學校的決策者和管理者來說都至關(guān)重要，它能夠為用戶提供充足的信息和快捷的查詢手段。能有效的幫助學校和老師掌握學生的情況，為學生提供成績跟課程方面的查詢。功能基本符合根據(jù)張波爾老師的要求。學生用戶通過輸入學生基本信息、課程基本信息等由系統(tǒng)自行生成相應的數(shù)據(jù)以供學生查詢，另外人事處的管理用戶還可以對這些基本信息進行更新和刪除，學校學生管理信息系統(tǒng)力求給用戶方便快捷的途徑去管理這些繁瑣的數(shù)據(jù)。具體系統(tǒng)功能需求描述如下：學籍信息管理每年的大量新生入學，老生畢業(yè)都需要處理大量的學生信息。通過這一模塊，可以實現(xiàn)學生基本情況的添加、刪除、更新。還能查詢各個學生的情況，姓名、家庭電話、家庭住址、學號等各個消息班級信息管理實現(xiàn)班級的添加、刪除、更新。查詢班級的所在系別，輔導員等。課程信息管理每個學期都會增加一些新的科目，通過本模塊可以輕松的添加以及更新課程。可以根據(jù)學期條件或者班級條件的選擇，也可根據(jù)課程名、課程號或者班級的選擇，并對值的輸入，可以看到數(shù)據(jù)集中顯示符合條件的課程數(shù)據(jù)信息，而且可以根據(jù)教工的修改要求進行數(shù)據(jù)的添加、刪除、修改的操作。該項管理對課程的屬性進行了具體化的分類，比如可以分辨是考試科還是考察課，而且根據(jù)條件的選擇大大得提高了對各學期課程數(shù)據(jù)的記錄操作，很大得幫助了教工們工作效率的提高。成績信息管理本模塊實現(xiàn)了成績的輸入、刪除、更新。還能查詢到平均成績以及單科最高最低成績以及個人成績。把成績統(tǒng)計這個繁瑣的工作簡單化，為學生成績的管理方面提高工作效率。系統(tǒng)管理因為本系統(tǒng)是供多人一起使用的，必須對某一些人進行限制。于是設(shè)置了管理員，非管理員只能進行查詢操作，不能進行更改。三、學校學生管理信息系統(tǒng)的分析和設(shè)計開發(fā)環(huán)境的簡介設(shè)計平臺：DELPHI6.0Delphi是一個對象導向設(shè)計的應用程序語言，是開發(fā)數(shù)據(jù)庫前端的優(yōu)秀工具，它的編程語言簡潔明快、組件功能強大和編程環(huán)境靈活方便。采用Delphi來開發(fā)數(shù)據(jù)庫應用程序具有更大的靈活性和可擴展性。數(shù)據(jù)庫：MicrosoftAccessAccess是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。Access是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。Access多用于中小型企業(yè)來設(shè)計中小型數(shù)據(jù)庫，一般的學校教務系統(tǒng)的數(shù)據(jù)庫用Access來設(shè)計完全能達到要求。由于考慮到本系統(tǒng)是應用在單機系統(tǒng)上，只建立起一個數(shù)據(jù)庫。數(shù)據(jù)庫訪問方式：ADOADO(ActiveDataObjects)實際是一種提供訪問各種數(shù)據(jù)類型的連接機制。ADO設(shè)計為一種極簡單的格式，通過ODBC的方法同數(shù)據(jù)庫接口?？梢允褂萌魏我环NODBC數(shù)據(jù)源，即不止適合于SQLServer.Oracle、Access等數(shù)據(jù)庫應用程序，也適合于Excel表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。ADO是基于OLE-DB之上的技術(shù)，因此ADO通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。其主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。學校學生管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計由于考慮到本系統(tǒng)是應用在單機系統(tǒng)上，另外根據(jù)學校人員規(guī)模，我只建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起如下八個基本表:學生：學號，姓名，出生年月，性別，籍貫，聯(lián)系地址，聯(lián)系電話，班級班級：系名，班級，主要教室，輔導員，班長系表：系名，系辦公室，聯(lián)系電話課程表：課程號，課程號，班級，類別，學時，學名平均成績表：班級，學號，姓名，平均成績單科成績表：學號，姓名，課程表，課程名，成績選課表：班級，課程號，學期用戶名：用戶，密碼(3)窗體設(shè)計：班級管理(banjigl.dfm)班級查詢(banjicx.dfm)學籍管理(xuejigl.dfm)學籍查詢(xuejicha.dfm)課程管理(kechenggl.dfm)課程查詢(kechengcha.dfm)成績管理(chengjigl.dfm)成績查詢(chengjicha.dfm)(4)系統(tǒng)流程圖(DataFlowDiagram)：學生信息管理系統(tǒng)成績查詢班級查詢班級更新課系程統(tǒng)管管理理成績更新課程查詢課程更新（5）數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(6)數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計學生基本情況表：字段名數(shù)據(jù)類型是否可空說明班級文本否外關(guān)鍵字學號文本否主關(guān)鍵字

姓名文本否無性別文本否無出生年月日期否無籍貫文本否無聯(lián)系電話文本是無聯(lián)系地址文本是無班級情況表:系名文本否外關(guān)鍵字班級文本否關(guān)鍵字主要教室文本是無輔導員文本是無系名文本否外關(guān)鍵字班級文本否關(guān)鍵字系表:系名文本否關(guān)鍵字系辦公室文本是無聯(lián)系電話文本是無課程表:課程號文本否關(guān)鍵字課程名文本否無班級文本是外關(guān)鍵字類別文本是無

平均成績表:班級文本否外關(guān)鍵字學號文本否關(guān)鍵字姓名文本是無平均成績長整型是無單科成績表:學號文本否關(guān)鍵字姓名文本否無課程號文本否外關(guān)鍵字課程名文本否無成績長整型是無班級選課表:班級文本否組合關(guān)鍵字課程號文本否組合關(guān)鍵字課程名文本是無學期文本否組合關(guān)鍵字(6課程管理部分的代碼:選課管理：beginComboBox1.Items.Append(adoquery1.FieldValues['系名']);//ComboBoxl連到系表的系名字段adoquery1.Next;end;end;procedureTForm11.ComboBox1Select(Sender:TObject);beginadoquery2.Close;adoquery2.SQL.Clear;adoquery2.SQL.Add('select*fromclasswhere系名='+””+ComboBox1.Text+””);//查詢系名是否符合adoquery2.ExecSQL;adoquery2.Open;whilenotadoquery2.EofdobeginComboBox2.Items.Append(adoquery2.FieldValues[班級']);//符合就調(diào)用班級表的字段班級adoquery2.Next;end;end;procedureTForm11.ComboBox2Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班級='+””+ComboBox2.Text+””);//查詢課程表中字段班級是否符合，符合就調(diào)到adoquery4.ExecSQL;//DBgiid1adoquery4.Open;end;procedureTForm11.ComboBox3Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班級='+''''+ComboBox2.Text+'''and學期='+''''+ComboBox3.Text+'''');〃判斷學期是否符合adoquery4.ExecSQL;adoquery4.Open;procedureTForm11.SpeedButton1Click(Sender:TObject);beginwhilenotadoquery4.Eofdobeginif(adoquery4.FieldValues['課程號']=adoquery3.FieldValues['課程號'])and(adoquery4.FieldValues['班級']=Combobox2.Text)and(adoquery4.FieldValues[學期']=Combobox3.Text)thenbreak;adoquery4.Next;end;ifadoquery4.Eofthenbeginadoquery4.Insert;//把選課內(nèi)容添加到選課表中。adoquery4.FieldValues[課程號']:=adoquery3.FieldValues[課程號'];adoquery4.FieldValues[班級']:=Combobox2.Text;adoquery4.FieldValues[課程名']:=adoquery3.FieldValues[課程名'];adoquery4.FieldValues[學期']:=Combobox3.Text;adoquery4.Post;endelsebeginshowmessage（'本課程此班級已經(jīng)選過'）;〃如果已經(jīng)選過，彈出對話框“本課程此班級已經(jīng)選過”end;end;procedureTForm11.SpeedButton2Click(Sender:TObject);beginifnotadoquery4.Eofthenadoquery4.Delete;end;end.課程管理：procedureTForm9.FormCreate(Sender:TObject);beginADOQuery3.Close;//關(guān)閉數(shù)據(jù)庫ADOQuery3.SQL.Clear;〃清空ADOQuery3.SQL.Add('select*fromkechengbiao');ADOQuery3.ExecSQL;ADOQuery3.Open;dbedit1.DataField:='課程號'；dbedit2.DataField:='課程名';dbedit3.DataField:='課時';dbedit4.DataField:='學分'；//DBComboBox1.DataField:='學期'；DBComboBox2.DataField:='類型'；end;procedureTForm9.SpeedButton1Click(Sender:TObject);beginifSpeedButton1.Caption='添加'thenbeginadoquery3.Insert;//添加到課程表SpeedButton1.Caption:='確定';SpeedButton4.Enabled:=true;SpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;endelseifSpeedButton1.Caption='確定'thenbeginifdbedit1.Text=''thenbeginshowmessage（'請輸入課程號！’）；〃如果課程號沒輸入，彈出對話框endelsebeginadoquery3.Post;SpeedButton1.Caption:='添加'；SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;end;end;end;procedureTForm9.SpeedButton2Click(Sender:TObject);beginifadoquery3.EofthenbeginSpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;end;ifSpeedButton2.Caption='刪除'thenbeginSpeedButton2.Caption:='確定'；SpeedButton4.Enabled:=true;SpeedButton1.Enabled:=false;SpeedButton3.Enabled:=false;endelsebeginadoquery3.Delete;//從數(shù)據(jù)表中刪掉所選記錄SpeedButton2.Caption:='刪除'；SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton3.Enabled:=true;end;end;procedureTForm9.SpeedButton4Click(Sender:TObject);beginadoquery3.Cancel;SpeedButton1.Caption:='添加'；SpeedButton2.Caption:='刪除'；SpeedButton3.Caption:='修改'；SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;end;procedureTForm9.SpeedButton3Click(Sender:TObject);beginifSpeedButton3.Caption='修改'thenbeginadoquery3.Edit;〃修改課程表中的記錄SpeedButton3.Caption:='確定'；SpeedButton4.Enabled:=true;SpeedButton2.Enabled:=false;SpeedButton1.Enabled:=false;endelsebeginadoquery3.Post;SpeedButton3.Caption:='修改'；SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton1.Enabled:=true;end;end;procedureTForm9.Label1DblClick(Sender:TObject);beginform11:=tform11.Create(application);form11.ShowModal;end;end.課程查詢部分：procedureTform4.ComboBox1Select(Sender:TObject);beginedit1.Text:='';button1.Enabled:=false;end;procedureTform4.Button1Click(Sender:TObject);beginifCheckBox1.Checked=truethenbeginADOQueryl.Close;〃先將數(shù)據(jù)庫關(guān)閉ADOQueryl.SQL.Clear;//清空ADOQuery1內(nèi)的SQL值清空ADOQuery1.SQL.Add('select*fromkechengwhere'+ComboBox1.text+'='+''''+edit1.Text+'''and學期='+''''+ComboBox2.Text+'''');//合并查詢，符合的話在DBGrid中顯示出來ADOQuery1.ExecSQL;ADOQuery1.Open;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromkechengwhere'+ComboBox1.text+'='+""+edit1.Text+"");//單個條件查詢ADOQuery1.ExecSQL;ADOQuery1.Open;end;end;procedureTform4.N2Click(Sender:TObject);begin〃開啟其他管理界面form2.show;form4.Close;end;procedureTform4.N3Click(Sender:TObject);beginform3.show;form4.Close;end;procedureTform4.N4Click(Sender:TObject);beginform5.show;form4.Close;end;procedureTform4.N6Click(Sender:TObject);beginform1.show;form4.Close;end;procedureTform4.N7Click(Sender:TObject);beginform4.Close;end;procedureTform4.Edit1KeyPress(Sender:TObject;varKey:Char);beginbutton1.Enabled:=true;〃當輸入條件后，“確定”按鈕為有效狀態(tài)end;procedureTform4.CheckBox1Click(Sender:TObject);beginComboBox2.Enabled:=CheckBox1.Checked;//把查詢到的數(shù)據(jù)放在DBGrid上顯示出來end;end.四、學校學生管理信息系統(tǒng)的使用說明本系統(tǒng)分為學生用戶和管理用戶，如果你不是管理員，那只能進行查詢，對數(shù)據(jù)沒有修改權(quán)力。只能進行查詢，里面有各個方面的，如成績查詢，課程查詢，班級查詢，學籍查詢。各個界面都簡單明了，只要輸入你所需要的條件，系統(tǒng)自動調(diào)出數(shù)據(jù)。管理員登陸點系統(tǒng)，點系統(tǒng)，輸入管理員用戶及密碼，跟數(shù)據(jù)庫的用戶表比較。如果通過則能進行課程，學籍，成績，班級的管理。五、結(jié)束語學生信息管理系統(tǒng)有利于學校對學生資料的查詢，具有可使用性和可維護性，利于學校在需要之時快速了解學生的情況。并可以讓具有最高權(quán)限的管理員更新、修改信息，已經(jīng)具備了一定的功能。但由于時間關(guān)系和其它原因，本系統(tǒng)還有些不足之處，如本系統(tǒng)沒有實現(xiàn)報表打印的功能等等，還有待于完善。在張波爾老師的指導下，經(jīng)過一段時間的討論和上機的不斷調(diào)試，我順利的完成了開發(fā)任務。在開發(fā)過程中，我不僅增強了自學的能力和開發(fā)軟件的能力。對一些軟件開發(fā)模式有了更加深刻的認識，對應用軟件的熟練程度有所提高，已經(jīng)能運用這項開發(fā)過程，學會了如何進行小組式的開發(fā)一個綜合系統(tǒng)。還從張老師身上學到了很多東西。張老師認真負責的態(tài)度嚴謹治治學精神都使我收益非淺。在此我特向給了很多指導和提供我們開發(fā)小組寶貴意見的張波爾老師表示感謝！因為本系統(tǒng)所涉及的內(nèi)容非常廣泛并且比較復雜，加上時間的倉促，盡管我竭盡全力來保證系統(tǒng)的可靠性，但是肯定還有不足之處，懇請用戶批評指正。謝謝！參考文獻：(1)Delphi6數(shù)據(jù)庫系統(tǒng)開發(fā)實例子導航人民郵電出版社程序設(shè)計從入門到精通科學出版社Delphi6.0程序設(shè)計教程冶金工業(yè)出版社Delphi數(shù)據(jù)庫開發(fā)自學教程人民郵電出版社各模塊主要代碼1、成績管理模塊⑴成績管理procedureTForm8.Button1Click(Sender:TObject);vari:boolean;begini:=false;ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*frompjcjwhere'+edit2.Text+'');ADOQuery2.ExecSQL;ADOQuery2.Open;ifnotADOQuery2.Eofthen(判斷是否數(shù)據(jù)庫最后一項)i:=true;ifithenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromdkcjwhere學號='+''''+ADOQuery2.FieldValues['學號']+'''');（使用SQL進行查詢）ADOQueryl.ExecSQL;ADOQueryl.Open;button1.Enabled:=false;endelsebeginshowmessage（'沒有符合查詢條件的記錄!!'）；（如果沒有符合條ComboBox1.Text:=";ComboBox2.Text:='';件的，顯示該語句）ComboBox3.Text:='';edit1.Text:='';edit2.Text:='';adoquery1.Close;adoquery2.Close;ComboBox1.Enabled:=true;end;dbedit6.DataField:='學號'；dbedit7.DataField:='姓名'；dbedit8.DataField:='班級';dbedit1.DataField:='學號';dbedit2.DataField:='姓名'；dbedit3.DataField:='課程號'；dbedit4.DataField:='課程名';dbedit5.DataField:='成績'；end;(2)成績查詢procedureTform3.Button1Click(Sender:TObject);vari:boolean;begini:=false;ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*frompjcjwhere'+edit2.Text+'');ADOQuery2.ExecSQL;(根據(jù)SQL進查詢)ADOQuery2.Open;ifnotADOQuery2.Eoftheni:=true;ifithenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;fromdkcjwhere學號ADOQuery1.SQL.Add('select='+''''+ADOQuery2.FieldValues[學號']+''''）;ADOQueryl.ExecSQL;ADOQueryl.Open;button1.Enabled:=false;endelsebeginshowmessage（'沒有符合查詢條件的記錄!!'）；ComboBox1.Text:='';（當沒有符合條件的記錄，自動ComboBox2.Text:='';清空選擇框里的查詢條件）ComboBox3.Text:='';edit1.Text:='';edit2.Text:='';adoquery1.Close;adoquery2.Close;ComboBox1.Enabled:=true;end;fromdkcjwhere學號varstr:string;beginstr:=ADOQuery2.FieldValues[學號'];ADOQueryl.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromdkcjwhere學號='+''''+str+'''');ADOQuery1.ExecSQL;ADOQuery1.Open;end;procedureTform3.N4Click(Sender:TObject);(管理界面的切換)beginform5.show;form3.Close;end;procedureTform3.N6Click(Sender:TObject);beginform1.show;form3.Close;procedureTform3.Edit1Exit(Sender:TObject);beginifComboBox1.Text='平均成績'then(根據(jù)平均成績查詢)beginedit2.Text:=edit2.Text+edit1.Text;endelsebeginedit2.Text:=edit2.Text+#39;edit2.Text:=edit2.Text+edit1.Text;edit2.Text:=edit2.Text+#39;end;end;procedureTform3.Button2Click(Sender:TObject);begin(本段為對查詢條件的刷新，進ComboBox1.Text:='';行不同條件的輸入)ComboBox2.Text:='';ComboBox3.Text:='';edit1.Text:='';edit2.Text:='';adoquery1.Close;adoquery2.Close;buttonl.Enabled:二false;ComboBoxl.Enabled:二true;end;2、班級管理模塊（1）班級管理procedureTForm9.ComboBox1Select（Sender:TObject）;beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add（'select*fromclasswhere系名=，+，，，，+ComboBox1.Text+，，，，）;ADOQuery1.ExecSQL;ADOQuery1.Open;（根據(jù)系別顯示班級信息）dbedit1.DataField系名，；（這五項為表的數(shù)據(jù)項名）dbedit2.DataFiel（班級，；dbedit3.DataFiel（輔!導員，；dbedit4.DataField班長，；dbedit5.DataField專業(yè)，；button1.Enabled:二true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;end;procedureTForm9.Button2Click(Sender:TObject);(記錄的刪除操作)《修改與添加操作與這類似》beginifbutton2.Caption=刪除'thenbeginbutton2.Caption:='確定'；button1.Enabled:=false;button3.Enabled:=false;button4.Enabled:=true;end(2)班級查詢procedureTForm5.Button1Click(Sender:TObject);beginifRadioButton1.CheckedthenbeginADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*fromclasswhere班級='+''''+edit1.Text+'''');ADOQuery2.ExecSQL;ADOQuery2.Open;end;ifRadioButton2.CheckedthenbeginADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*fromclasswhere專業(yè)'+''''+edit2.Text+'''');ADOQuery2.ExecSQL;ADOQuery2.Open;end;ifADOQuery2.FieldValues[系名']<>''thenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromxiwhere系名'+''''+ADOQuery2.FieldValues[系名']+'''');ADOQuery1.ExecSQL;ADOQuery1.Open;3、學籍管理模塊(1)學籍管理procedureTForm7.FormCreate(Sender:TObject);beginADOQuery3.Close;ADOQuery3.SQL.Clear;ADOQuery3.SQL.Add('select*fromxi');ADOQuery3.ExecSQL;ADOQuery3.Open;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromclasswhere系名='+''''+ComboBox1.Text+'''');ADOQuery1.ExecSQL;ADOQuery1.Open;ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*fromstudentwhere班級='+''''+ADOQuery1.FieldValues[班級']+'''');(根據(jù)班級條件列出該班學生學籍情況)ADOQuery2.ExecSQL;ADOQuery2.Open;DBEdit1.DataField:二'學號'；(表的數(shù)據(jù)項，以及學生學籍信息)DBEdit2.DataField:='班級'；DBEdit3.DataField:二'姓名';DBEdit4.DataField:二'出生年月'；DBEdit5.DataField:二'籍貫';DBEdit6.DataField:二'聯(lián)系電話'；DBEdit7.DataField:二'聯(lián)系地址'；DBComboBox1.DataField:='性別'；whilenotADOQuery3.EofdobeginComboBox1.Items.Append(ADOQuery3.FieldValues[系名']);ADOQuery3.Next;end；(2)學籍查詢procedureTform2.Button1Click(Sender:TObject);vartf:boolean;begintf:=false;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromstudent');ifCheckBoxl.CheckedorCheckBox2.CheckedorCheckBox3.CheckedorCheckBox4.CheckedthenADOQueryl.SQL.Append('where');ifCheckBox1.CheckedthenbeginADOQuery1.SQL.Add("+CheckBox1.Caption+'='+""+edit1.Text+'''');tf:=true;end;ifCheckBox2.CheckedthenbeginiftfthenADOQuery1.SQL.Append('and');ADOQuery1.SQL.Append(''+CheckBox2.Caption+'='+''''+edit2.Text+'''');tf:=true;end;ifCheckBox3.CheckedthenbeginiftfthenADOQuery1.SQL.Append('and');ADOQuery1.SQL.Append(''+CheckBox3.Caption+'='+''''+edit3.Text+'''');tf:=true;ifCheckBox4.CheckedthenbeginiftfthenADOQueryl.SQL.Append('and');ADOQuery1.SQL.Append("+CheckBox4.Caption+'='+""+edit4.Text+'''');tf:=true;end;ADOQuery1.ExecSQL;ADOQuery1.Open;end;(4)課程管理部分的代碼：選課管理：beginComboBox1.Items.Append(adoquery1.FieldValues['系名']);//ComboBox1連到系表的系名字段adoquery1.Next;end;end;procedureTForm11.ComboBox1Select(Sender:TObject);beginadoquery2.Close;adoquery2.SQL.Clear;adoquery2.SQL.Add('select*fromclasswhere系名='+””+ComboBox1.Text+””);//查詢系名是否符合adoquery2.ExecSQL;adoquery2.Open;whilenotadoquery2.EofdobeginComboBox2.Items.Append(adoquery2.FieldValues[班級']);//符合就調(diào)用班級表的字段班級adoquery2.Next;end;end;procedureTForm11.ComboBox2Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班級='+””+ComboBox2.Text+””);//查詢課程表中字段班級是否符合，符合就調(diào)到adoquery4.ExecSQL;//DBgiid1adoquery4.Open;end;procedureTForm11.ComboBox3Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班級='+””+ComboBox2.Text+”'and學期='+””+ComboBox3.Text+””)；〃判斷學期是否符合adoquery4.ExecSQL;adoquery4.Open;end;procedureTForm11.SpeedButton1Click(Sender:TObject);beginwhilenotadoquery4.Eofdobeginif(adoquery4.FieldValues['課程號']=adoquery3.FieldValues['課程號'])and(adoquery4.FieldValues['班級']=Combobox2.Text)and(adoquery4.FieldValues[學期']=Combobox3.Text)thenbreak;adoquery4.Next;end;ifadoquery4.Eofthenbeginadoquery4.Insert;//把選課內(nèi)容添加到選課表中。adoquery4.FieldValues[課程號']:=adoquery3.FieldValues[課程號'];adoquery4.FieldValues[班級']:=Combobox2.Text;adoquery4.FieldValues[課程名']:=adoquery3.FieldValues[課程名'];adoquery4.FieldValues[學期']:=Combobox3.Text;adoquery4.Post;endelsebeginshowmessage('本課程此班級已經(jīng)選過');〃如果已經(jīng)選過，彈出對話框“本課程此班級已經(jīng)選過”end;end;procedureTForm11.SpeedButton2Click(Sender:TObject);beginifnotadoquery4.Eofthenadoquery4.Delete;end;end.課程管理:procedureTForm9.FormCreate(Sender:TObject);beginADOQuery3.Close;//關(guān)閉數(shù)據(jù)庫ADOQuery3.SQL.Clear;〃清空ADOQuery3.SQL.Add('select*fromkechengbiao');ADOQuery3.ExecSQL;ADOQuery3.Open;dbedit1.DataField:='課程號'；dbedit2.DataField:='課程名';dbedit3.DataField:='課時';dbedit4.DataField:='學分'；//DBComboBox1.DataField:='學期'；DBComboBox2.DataField:='類型'；end;procedureTForm9.SpeedButton1Click(Sender:TObject);beginifSpeedButton1.Caption='添加'thenbeginadoquery3.Insert;//添加到課程表SpeedButton1.Caption:='確定';SpeedButton4.Enabled:=true;SpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;endelseifSpeedButton1.Caption='確定'thenbeginifdbedit1.Text=''thenbeginshowmessage（'請輸入課程號！’）；〃如果課程號沒輸入，彈出對話框endelsebeginadoquery3.Post;SpeedButton1.Caption:='添加'；SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;end;end;procedureTForm9.SpeedButton2Click(Sender:TObject);beginifadoquery3.EofthenbeginSpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;end;ifSpeedButton2.Caption='刪除'thenbeginSpeedButton2.Caption:='確定'；SpeedButton4.Enabled:=true;SpeedButton1.Enabled:=false;SpeedButton3.Enabled:=false;endelsebeginadoquery3.Delete;//從數(shù)據(jù)表中刪掉所選記錄SpeedButton2.Caption:='刪除'；SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton3.Enabled:=true;end;end;procedureTForm9.SpeedButton4Click(Sender:TObject);beginadoquery3.Cancel;SpeedButton1.Caption:='添加'；SpeedButton2.Caption:='刪除'；SpeedButton3.Caption:='修改'；SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;end;procedureTForm9.SpeedButton3Click(Sender:TObject);beginifSpeedButton3.Caption='修改'thenbeginadoquery3.Edit;//修改課程表中的記錄SpeedButton3.Caption:='確定'；SpeedButton4.Enabled:=true;SpeedButton2.Enabled:=false;SpeedButton1.Enabled:=false;endelsebeginadoquery3.Post;SpeedButton3.Caption:='修改'；SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton1.Enabled:=true;end;end;procedureTForm9.Label1DblClick(Sender:TObject);beginform11:=tform11.Create(application);form11.ShowModal;end.課程查詢部分：procedureTform4.ComboBox1Select(Sender:TObject);beginedit1.Text:='';button1.Enabled:=false;end;procedureTform4.Button1Click(Sender:TObject);beginifCheckBox1.Checked=truethenbeginADOQuery1.Close;〃先將數(shù)據(jù)庫關(guān)閉ADOQuery1.SQL.Clear;〃清空ADOQuery1內(nèi)的SQL值清空ADOQuery1.SQL.Add('select*fromkechengwhere'+ComboBox1.text+'='+''''+edit1.Text+'''and學期='+''''+ComboBox2.Text+'''');//合并查詢，符合的話在DBGrid中顯示出來ADOQuery1.ExecSQL;ADOQuery1.Open;elsebeginADOQueryl.Close;ADOQueryl.SQL.Clear;ADOQuery1.SQL.Add('select*fromkechengwhere'+ComboBox1.text+'='+""+edit1.Text+"");//單個條件查詢ADOQuery1.ExecSQL;ADOQuery1.Open;end;end;procedureTform4.N2Click(Sender:TObject);begin〃開啟其他管理界面form2.show;form4.Close;end;procedureTform4.N3Click(Sender:TObject);beginform3.show;form4.Close;procedureTform4.N4Click(Sender:TObject);beginform5.show;form4.Close;end;procedureTform4.N6Click(Sender:TObject);beginform1.show;form4.Close;end;procedureTform4.N7Click(Sender:TObject);beginform4.Close;end;procedureTform4.Edit1KeyPress(Sender:TObject;varKey:Char);beginbutton1.Enabled:=true;〃當輸入條件后，“確定”按鈕為有效狀態(tài)end;procedureTform4.CheckBox1Click(Sender:TObject);beginComboBox2.Enabled:=CheckBox1.Checked;//把查詢到的數(shù)據(jù)放在DBGrid上顯示出來end;end.學生信息管理系統(tǒng)一課題名稱學生管理信息系統(tǒng)主要功能：學籍信息管理班級信息管理課程信息管理成績信息管理系統(tǒng)管理二、學校學生管理信息系統(tǒng)的簡介學校學生管理信息系統(tǒng)是針對學校人事處的大量業(yè)務處理工作而開發(fā)的管理軟件，是典型的管理信息系統(tǒng)(ManagementInformationSystem)。它是一個教育單位不可缺少的部分，它的內(nèi)容對于學校的決策者和管理者來說都至關(guān)重要，它能夠為用戶提供充足的信息和快捷的查詢手段。能有效的幫助學校和老師掌握學生的情況，為學生提供成績跟課程方面的查詢。功能基本符合根據(jù)張波爾老師的要求。學生用戶通過輸入學生基本信息、課程基本信息等由系統(tǒng)自行生成相應的數(shù)據(jù)以供學生查詢，另外人事處的管理用戶還可以對這些基本信息進行更新和刪除，學校學生管理信息系統(tǒng)力求給用戶方便快捷的途徑去管理這些繁瑣的數(shù)據(jù)。具體系統(tǒng)功能需求描述如下：學籍信息管理每年的大量新生入學，老生畢業(yè)都需要處理大量的學生信息。通過這一模塊，可以實現(xiàn)學生基本情況的添加、刪除、更新。還能查詢各個學生的情況，姓名、家庭電話、家庭住址、學號等各個消息班級信息管理實現(xiàn)班級的添加、刪除、更新。查詢班級的所在系別，輔導員等。課程信息管理每個學期都會增加一些新的科目，通過本模塊可以輕松的添加以及更新課程?？梢愿鶕?jù)學期條件或者班級條件的選擇，也可根據(jù)課程名、課程號或者班級的選擇，并對值的輸入，可以看到數(shù)據(jù)集中顯示符合條件的課程數(shù)據(jù)信息，而且可以根據(jù)教工的修改要求進行數(shù)據(jù)的添加、刪除、修改的操作。該項管理對課程的屬性進行了具體化的分類，比如可以分辨是考試科還是考察課，而且根據(jù)條件的選擇大大得提高了對各學期課程數(shù)據(jù)的記錄操作，很大得幫助了教工們工作效率的提高。成績信息管理本模塊實現(xiàn)了成績的輸入、刪除、更新。還能查詢到平均成績以及單科最高最低成績以及個人成績。把成績統(tǒng)計這個繁瑣的工作簡單化，為學生成績的管理方面提高工作效率。系統(tǒng)管理因為本系統(tǒng)是供多人一起使用的，必須對某一些人進行限制。于是設(shè)置了管理員，非管理員只能進行查詢操作，不能進行更改。三、學校學生管理信息系統(tǒng)的分析和設(shè)計開發(fā)環(huán)境的簡介設(shè)計平臺：DELPHI6.0Delphi是一個對象導向設(shè)計的應用程序語言，是開發(fā)數(shù)據(jù)庫前端的優(yōu)秀工具，它的編程語言簡潔明快、組件功能強大和編程環(huán)境靈活方便。采用Delphi來開發(fā)數(shù)據(jù)庫應用程序具有更大的靈活性和可擴展性。數(shù)據(jù)庫：MicrosoftAccessAccess是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。Access是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。Access多用于中小型企業(yè)來設(shè)計中小型數(shù)據(jù)庫，一般的學校教務系統(tǒng)的數(shù)據(jù)庫用Access來設(shè)計完全能達到要求。由于考慮到本系統(tǒng)是應用在單機系統(tǒng)上，只建立起一個數(shù)據(jù)庫。數(shù)據(jù)庫訪問方式：ADOADO(ActiveDataObjects)實際是一種提供訪問各種數(shù)據(jù)類型的連接機制。ADO設(shè)計為一種極簡單的格式，通過ODBC的方法同數(shù)據(jù)庫接口?？梢允褂萌魏我环NODBC數(shù)據(jù)源，即不止適合于SQLServer.Oracle、Access等數(shù)據(jù)庫應用程序，也適合于Excel表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。ADO是基于OLE-DB之上的技術(shù)，因此ADO通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。其主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。學校學生管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計由于考慮到本系統(tǒng)是應用在單機系統(tǒng)上，另外根據(jù)學校人員規(guī)模，我只建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起如下八個基本表:學生：學號，姓名，出生年月，性別，籍貫，聯(lián)系地址，聯(lián)系電話，班級班級：系名，班級，主要教室，輔導員，班長系表：系名，系辦公室，聯(lián)系電話課程表：課程號，課程號，班級，類別，學時，學名平均成績表：班級，學號，姓名，平均成績單科成績表：學號，姓名，課程表，課程名，成績選課表：班級，課程號，學期用戶名：用戶，密碼(3)窗體設(shè)計：班級管理(banjigl.dfm)班級查詢(banjicx.dfm)學籍管理(xuejigl.dfm)學籍查詢(xuejicha.dfm)課程管理(kechenggl.dfm)課程查詢(kechengcha.dfm)成績管理(chengjigl.dfm)成績查詢(chengjicha.dfm)(4)系統(tǒng)流程圖(DataFlowDiagram)：學生信息管理系統(tǒng)成績查詢班級查詢班級更新課系程統(tǒng)管管理理成績更新課程查詢課程更新（5）數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(6)數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計學生基本情況表：字段名數(shù)據(jù)類型是否可空說明班級文本否外關(guān)鍵字學號文本否主關(guān)鍵字

姓名文本否無性別文本否無出生年月日期否無籍貫文本否無聯(lián)系電話文本是無聯(lián)系地址文本是無班級情況表:系名文本否外關(guān)鍵字班級文本否關(guān)鍵字主要教室文本是無輔導員文本是無系名文本否外關(guān)鍵字班級文本否關(guān)鍵字系表:系名文本否關(guān)鍵字系辦公室文本是無聯(lián)系電話文本是無課程表:課程號文本否關(guān)鍵字課程名文本否無班級文本是外關(guān)鍵字類別文本是無

平均成績表:班級文本否外關(guān)鍵字學號文本否關(guān)鍵字姓名文本是無平均成績長整型是無單科成績表:學號文本否關(guān)鍵字姓名文本否無課程號文本否外關(guān)鍵字課程名文本否無成績長整型是無班級選課表:班級文本否組合關(guān)鍵字課程號文本否組合關(guān)鍵字課程名文本是無學期文本否組合關(guān)鍵字(6課程管理部分的代碼:選課管理：beginComboBox1.Items.Append(adoquery1.FieldValues['系名']);//ComboBoxl連到系表的系名字段adoquery1.Next;end;end;procedureTForm11.ComboBox1Select(Sender:TObject);beginadoquery2.Close;adoquery2.SQL.Clear;adoquery2.SQL.Add('select*fromclasswhere系名='+””+ComboBox1.Text+””);//查詢系名是否符合adoquery2.ExecSQL;adoquery2.Open;whilenotadoquery2.EofdobeginComboBox2.Items.Append(adoquery2.FieldValues[班級']);//符合就調(diào)用班級表的字段班級adoquery2.Next;end;end;procedureTForm11.ComboBox2Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班級='+””+ComboBox2.Text+””);//查詢課程表中字段班級是否符合，符合就調(diào)到adoquery4.ExecSQL;//DBgiid1adoquery4.Open;end;procedureTForm11.ComboBox3Select(Sender:TObject);beginadoquery4.Close;adoquery4.SQL.Clear;adoquery4.SQL.Add('select*fromkechengwhere班級='+''''+ComboBox2.Text+'''and學期='+''''+ComboBox3.Text+'''');〃判斷學期是否符合adoquery4.ExecSQL;adoquery4.Open;procedureTForm11.SpeedButton1Click(Sender:TObject);beginwhilenotadoquery4.Eofdobeginif(adoquery4.FieldValues['課程號']=adoquery3.FieldValues['課程號'])and(adoquery4.FieldValues['班級']=Combobox2.Text)and(adoquery4.FieldValues[學期']=Combobox3.Text)thenbreak;adoquery4.Next;end;ifadoquery4.Eofthenbeginadoquery4.Insert;//把選課內(nèi)容添加到選課表中。adoquery4.FieldValues[課程號']:=adoquery3.FieldValues[課程號'];adoquery4.FieldValues[班級']:=Combobox2.Text;adoquery4.FieldValues[課程名']:=adoquery3.FieldValues[課程名'];adoquery4.FieldValues[學期']:=Combobox3.Text;adoquery4.Post;endelsebeginshowmessage（'本課程此班級已經(jīng)選過'）;〃如果已經(jīng)選過，彈出對話框“本課程此班級已經(jīng)選過”end;end;procedureTForm11.SpeedButton2Click(Sender:TObject);beginifnotadoquery4.Eofthenadoquery4.Delete;end;end.課程管理：procedureTForm9.FormCreate(Sender:TObject);beginADOQuery3.Close;〃關(guān)閉數(shù)據(jù)庫ADOQuery3.SQL.Clear;〃清空ADOQuery3.SQL.Add('select*fromkechengbiao');ADOQuery3.ExecSQL;ADOQuery3.Open;dbedit1.DataField:='課程號'；dbedit2.DataField:='課程名';dbedit3.DataField:='課時';dbedit4.DataField:='學分'；//DBComboBox1.DataField:='學期'；DBComboBox2.DataField:='類型'；end;procedureTForm9.SpeedButton1Click(Sender:TObject);beginifSpeedButton1.Caption='添加'thenbeginadoquery3.Insert;//添加到課程表SpeedButton1.Caption:='確定';SpeedButton4.Enabled:=true;SpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;endelseifSpeedButton1.Caption='確定'thenbeginifdbedit1.Text=''thenbeginshowmessage（'請輸入課程號！’）；〃如果課程號沒輸入，彈出對話框endelsebeginadoquery3.Post;SpeedButton1.Caption:='添加'；SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;end;end;end;procedureTForm9.SpeedButton2Click(Sender:TObject);beginifadoquery3.EofthenbeginSpeedButton2.Enabled:=false;SpeedButton3.Enabled:=false;end;ifSpeedButton2.Caption='刪除'thenbeginSpeedButton2.Caption:='確定'；SpeedButton4.Enabled:=true;SpeedButton1.Enabled:=false;SpeedButton3.Enabled:=false;endelsebeginadoquery3.Delete;//從數(shù)據(jù)表中刪掉所選記錄SpeedButton2.Caption:='刪除'；SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton3.Enabled:=true;end;end;procedureTForm9.SpeedButton4Click(Sender:TObject);beginadoquery3.Cancel;SpeedButton1.Caption:='添加'；SpeedButton2.Caption:='刪除'；SpeedButton3.Caption:='修改'；SpeedButton4.Enabled:=false;SpeedButton1.Enabled:=true;SpeedButton2.Enabled:=true;SpeedButton3.Enabled:=true;end;procedureTForm9.SpeedButton3Click(Sender:TObject);beginifSpeedButton3.Caption='修改'thenbeginadoquery3.Edit;//修改課程表中的記錄SpeedButton3.Caption:='確定'；SpeedButton4.Enabled:=true;SpeedButton2.Enabled:=false;SpeedButton1.Enabled:=false;endelsebeginadoquery3.Post;SpeedButton3.Caption:='修改'；SpeedButton4.Enabled:=false;SpeedButton2.Enabled:=true;SpeedButton1.Enabled:=true;end;end;procedureTForm9.Label1DblClick(Sender:TObject);beginform11:=tform11.Create(application);form11.ShowModal;end;end.課程查詢部分：procedureTform4.ComboBox1Select(Sender:TObject);beginedit1.Text:='';button1.Enabled:=false;end;procedureTform4.Button1Click(Sender:TObject);beginifCheckBox1.Checked=truethenbeginADOQueryl.Close;〃先將數(shù)據(jù)庫關(guān)閉ADOQueryl.SQL.Clear;//清空ADOQuery1內(nèi)的SQL值清空ADOQuery1.SQL.Add('select*fromkechengwhere'+ComboBox1.text+'='+''''+edit1.Text+'''and學期='+''''+ComboBox2.Text+'''');//合并查詢，符合的話在DBGrid中顯示出來ADOQuery1.ExecSQL;ADOQuery1.Open;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromkechengwhere'+ComboBox1.text+'='+""+edit1.Text+"");//單個條件查詢ADOQuery1.ExecSQL;ADOQuery1.Open;end;end;procedureTform4.N2Click(Sender:TObject);begin〃開啟其他管理界面form2.show;form4.Close;end;procedureTform4.N3Click(Sender:TObject);beginform3.show;form4.Close;end;procedureTform4.N4Click(Sender:TObject);beginform5.show;form4.Close;end;procedureTform4.N6Click(Sender:TObject);beginform1.show;form4.Close;end;procedureTform4.N7Click(Sender:TObject);beginform4.Close;end;procedureTform4.Edit1KeyPress(Sender:TObject;varKey:Char);beginbutton1.Enabled:=true;〃當輸入條件后，“確定”按鈕為有效狀態(tài)end;procedureTform4.CheckBox1Click(Sender:TObject);beginComboBox2.Enabled:=CheckBox1.Checked;//把查詢到的數(shù)據(jù)放在DBGrid上顯示出來end;end.四、學校學生管理信息系統(tǒng)的使用說明本系統(tǒng)分為學生用戶和管理用戶，如果你不是管理員，那只能進行查詢，對數(shù)據(jù)沒有修改權(quán)力。只能進行查詢，里面有各個方面的，如成績查詢，課程查詢，班級查詢，學籍查詢。各個界面都簡單明了，只要輸入你所需要的條件，系統(tǒng)自動調(diào)出數(shù)據(jù)。管理員登陸點系統(tǒng)，點系統(tǒng)，輸入管理員用戶及密碼，跟數(shù)據(jù)庫的用戶表比較。如果通過則能進行課程，學籍，成績，班級的管理。五、結(jié)束語學生信息管理系統(tǒng)有利于學校對學生資料的查詢，具有可使用性和可維護性，利于學校在需要之時快速了解學生的情況。并可以讓具有最高權(quán)限的管理員更新、修改信息，已經(jīng)具備了一定的功能。但由于時間關(guān)系和其它原因，本系統(tǒng)還有些不足之處，如本系統(tǒng)沒有實現(xiàn)報表打印的功能等等，還有待于完善。在張波爾老師的指導下，經(jīng)過一段時間的討論和上機的不斷調(diào)試，我順利的完成了開發(fā)任務。在開發(fā)過程中，我不僅增強了自學的能力和開發(fā)軟件的能力。對一些軟件開發(fā)模式有了更加深刻的認識，對應用軟件的熟練程度有所提高，已經(jīng)能運用這項開發(fā)過程，學會了如何進行小組式的開發(fā)一個綜合系統(tǒng)。還從張老師身上學到了很多東西。張老師認真負責的態(tài)度嚴謹治治學精神都使我收益非淺。在此我特向給了很多指導和提供我們開發(fā)小組寶貴意見的張波爾老師表示感謝！因為本系統(tǒng)所涉及的內(nèi)容非常廣泛并且比較復雜，加上時間的倉促，盡管我竭盡全力來保證系統(tǒng)的可靠性，但是肯定還有不足之處，懇請用戶批評指正。謝謝！參考文獻：(1)Delphi6數(shù)據(jù)庫系統(tǒng)開發(fā)實例子導航人民郵電出版社程序設(shè)計從入門到精通科學出版社Delphi6.0程序設(shè)計教程冶金工業(yè)出版社Delphi數(shù)據(jù)庫開發(fā)自學教程人民郵電出版社各模塊主要代碼1、成績管理模塊⑴成績管理procedureTForm8.Button1Click(Sender:TObject);vari:boolean;begini:=false;ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*frompjcjwhere'+edit2.Text+'');ADOQuery2.ExecSQL;ADOQuery2.Open;ifnotADOQuery2.Eofthen(判斷是否數(shù)據(jù)庫最后一項)i:=true;ifithenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromdkcjwhere學號='+''''+ADOQuery2.FieldValues['學號']+'''');（使用SQL進行查詢）ADOQueryl.ExecSQL;ADOQueryl.Open;button1.Enabled:=false;endelsebeginshowmessage（'沒有符合查詢條件的記錄!!'）；（如果沒有符合條ComboBox1.Text:=";ComboBox2.Text:='';件的，顯示該語句）ComboBox3.Text:='';edit1.Text:='';edit2.Text:='';adoquery1.Close;adoquery2.Close;ComboBox1.Enabled:=true;end;dbedit6.DataField:='學號'；dbedit7.DataField:='姓名'；dbedit8.DataField:='班級';dbedit1.DataField:='學號';dbedit2.DataField:='姓名'；dbedit3.DataField:='課程號'；dbedit4.DataField:='課程名';dbedit5.DataField:='成績'；end;(2)成績查詢procedureTform3.Button1Click(Sender:TObject);vari:boolean;begini:=false;ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add('select*frompjcjwhere'+edit2.Text+'');ADOQuery2.ExecSQL;(根據(jù)SQL進查詢)ADOQuery2.Open;ifnotADOQuery2.Eoftheni:=true;ifithenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;fromdkcjwhere學號ADOQuery1.SQL.Add('select='+''''+ADOQuery2.FieldValues[學號']+''''）;ADOQueryl.ExecSQL;ADOQueryl.Open;button1.Enabled:=false;endel