數據庫程序設計報告

莊學院信息科學與工程學院課程設計任務書題目： 學生管理系統 學 號 姓 名 專 業(yè) 計算機科學與技術 課 程 delphi指導教師職稱完成時間：年月年月信息科學與工程學院隨著學校學生的增加，原來的采用人工記錄的方式已經不能滿足學生管理的需要。這是用為人工的管理模式存在著很大的缺陷，如維護性差，出錯后不容易修改；不方便查詢學生的情況，工作效率低；學生選課是麻煩，費時費力等。隨著信息技術的發(fā)展，有必要對原來的教務管理模式進行改進，是指便于學生信息的查詢和維護，便于學生選課。由此提出建立一個教務管理信息系統，建立數據庫存儲學生信息和所有的課程信息，通過客戶端程序訪問數據庫，實現教務信息的管理。本系統采用客戶機/服務器結構。數據庫服務器采用SqlServer2000數據庫系統，將學生基本信息的管理、課程的設置情況、學生選課結果和課程成績等數據存儲到數據庫中，客戶機程序采用Delphi7.0作為開發(fā)平臺，實現對數據庫中信息的訪問。關鍵詞：Delphi，數據庫，學生管理系統AbstractAlongwithschoolstudent'sincrease,theusemanualrecord'swayoriginallyalreadycouldnotmeettheneedswhichthestudentmanages.Thisiswithhastheverybigflawforthemanualmanagementpattern,ifthemaintenancedifference,aftermakingamistake,isnoteasytorevise;Itisnotconvenientinquiresstudent'ssituation,theworkingefficiencyislow;Thestudentelects,butistroublesome,takesthetroubletime-consumingandsoon.Alongwithinformationtechnologydevelopment,itisnecessarytomaketheimprovementtotheoriginaleducationaladministrationmanagementpattern,isreferstoisadvantageousforthestudentinformationtheinquiryandthemaintenance,isadvantageousforthestudenttochoosetheclass.Fromthisproposedthatestablishesaneducationaladministrationmanagementinformationsystem,establishesthedatabasetosavethestudentinformationandallcurriculuminformation,throughtheclientsideprocedurevisitdatabase,realizestheeducationaladministrationinformationmanagement.Thesystemusesclient/serverarchitecture.SqlServer2000databaseserversusingthedatabasesystem,thecourseswillbesetup,theresultsofstudentsclassesandcourses,suchasperformancedatastoragetothedatabase,theclientproceduresadoptedDelphiasadevelopmentplatform,andtheaccesstotheinformationinthedatabase.Keywords:SQLsever2000;PremisesInformationManagement;Database目錄TOC\o"1-5"\h\z\o"CurrentDocument"第一章概述 .1\o"CurrentDocument"第二章學生管理的需求分析 2\o"CurrentDocument"2.1系統運行環(huán)境 2\o"CurrentDocument"2.2系統功能需求 3\o"CurrentDocument"2.3系統性能需求 3\o"CurrentDocument"2.4系統技術需求 4\o"CurrentDocument"第三章學生信息管理設計 6\o"CurrentDocument"3.1系統功能模塊設計 63.2系統數據庫設計 8\o"CurrentDocument"3.3系統安全保密設計 9\o"CurrentDocument"3.4數據庫結構的實現 9\o"CurrentDocument"3.5初始數據的輸入 10\o"CurrentDocument"第四章學生管理系統的測試與維護 11\o"CurrentDocument"4.1系統測試 11\o"CurrentDocument"4.2系統維護 11\o"CurrentDocument"總結 13\o"CurrentDocument"參考文獻 14第一章概述學生管理系統減少老師和教務處工作人員的工作量，同時也方便了同學對選課、成績的查詢、各種通知的瀏覽。本學生管理系統主要包括學生基本信息的管理、課程設置、教學安排、學生選課、課程管理、成績查詢等功能。本系統采用客戶機/服務器結構。數據庫服務器采用SqlServer2000數據庫系統，將學生的基本情況、課程的設置情況、學生選課情況和課程成績等數據存儲到數據庫中，客戶機程序采用Delphi作為開發(fā)平臺，實現對數據庫中信息的訪問。在數據庫訪問方面，利用SqlServer2000數據庫組件管理應用程序與數據庫之間的通信聯系；在數據記錄查詢方面，采用TQuery組件查詢和TTable組件查詢相結合的方法，進行了多個數據表的組合查詢和數據結果統計。本教務管理系統可以說是一個綜合性的學校學生管理系統，這它集成了教師課程管理子系統、學生課程管理子系統、教務課程調度子系統等多種功能，因而具有較強的簡便、使用、易于維護。第二章學生管理的需求分析2.1系統運行環(huán)境為了保證系統運行的效率和可靠性，系統服務器端應具有較高的軟硬件配置，客戶端的要求不是很高。此應用程序可廣泛運行于國際互聯網即Internet，也可適用于內部的局域網。其運行要求如下：I、軟件環(huán)境客戶端：□操作系統：Windows2000/XP□網絡協議：TCP/IP□瀏覽器：InternetExplorer5.0□數據庫：MicrosoftSqlServer2000服務器端：□操作系統：Windows2000/XP□網絡協議：TCP/IP□WEB服務器：InternetInformation5.0□數據庫：MicrosoftSqlServer2000瓜硬件環(huán)境：□服務器CPU:PIII500以上，內存:256M□客戶機CPU:P200MMX以上，內存：32M以上2.2系統功能需求學生管理系統主要提供網上的教務信息管理平臺。通過前端（客戶端）瀏覽器和后臺數據庫向用教師、學生展示信息，方便的實現了學生信息的維護和更新，使管理員更快，更好的了解信息。以“教師管理子系統”模塊為例，管理員將所有教師課程信息數據存入數據庫相應的表中，當客戶端發(fā)出瀏覽該動態(tài)頁面的請求時，服務器就會執(zhí)行相應的腳本代碼，從數據庫中查詢出符合條件的信息，生成相關頁面發(fā)送到客戶端瀏覽器上?？蛻舳怂@示的內容是隨著后臺管理數據庫的變化而動態(tài)顯示的，因此，客戶端可以獲得學生信息最新動態(tài)信息。2.3系統性能需求通過調查,要求系統需要有以下功能：通用性：可以增加學院、系、專業(yè)、班級、學生;可以增加學期、課程。易用性：成績的錄入、修改要方便。普通課程以班級、課程、學期為錄入條件。選修和重修要特殊考慮。學籍管理：獎懲、退學、轉專業(yè)。學生、課程基本信息管理：學號、姓名、所在班級、性別、課程號、名稱、學期、學分、課程性質。權限控制：有些用戶可以錄入修改，有些用戶只能查詢。成績排名：既可以按專業(yè)也可以按班級；既可以是某個學期也可以是所有學期。2.4系統技術需求2.4.1技術可行性分析由于本系統管理的對象單一，都是在校學生，且每個數據內容具有較強的關聯性，涉及的計算過程不是很復雜。因此，比較適合于采用數據庫管理。且學校用于學生管理的微機都是PIII以上的機器，在存儲量、速度方面都能滿足數據庫運行的要求。在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網上資料，特別是參考其它程序的功能，因此完全可以實現。2.4.2Delphi語言Delphi是Inprise公司（即原Borland）推出的基于真正面向對象語言ObjectPascal語言的可視化編程工具，是當今世界上最快的編譯器。能大大提高編程效率。面向對象的程序設計（Object-OrientedProgramming，簡寫為OOP）是現在最成功的高級語言程序設計方法，面向對象的程序設計的目的是創(chuàng)建可重用代碼，通過把屬性和方法封裝進“對象”中，以更好地模擬現實世界“真正的程序員用c,聰明的程序員用Delphi”，這句話是對Delphi最經典、最實在的描述。Delphi6是“第四代編程語言”的杰出代表，它是一個完全導向的、高度可視化的集成開發(fā)環(huán)境IDE(IntegratedDevelopmentEnvironment)，非常人性化。具有簡單、高效、功能強大的特點。和VC相比，Delphi更簡單、更易于掌握，而在功能上卻絲毫不遜色；和VB相比，Delphi則功能更強大、更實用。它一直是程序員全愛的編程工具。2.4.3數據庫技術SQL全稱是“結構化查詢語言(StructuredQueryLanguage)”，最早是IBM的圣約瑟研究實驗室為其關系數據庫管理系統SYSTEMR開發(fā)的一種查詢語言，它的前身是SQUARE語言。SQL語言結構簡潔，功能強大，簡單易學，所以自從IBM公司1981年推出以來，SQL語言得到了廣泛的應用。目前，SQL語言已被確定為關系數據庫系統的國際標準，被絕大多數商品化關系數據庫系統采用，如Oracle、Sybase、DB2、Informix、SQLServer這些數據庫管理系統都支持SQL語言作為查詢語言。結構化查詢語言SQL是一種介于關系代數與關系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的功能極強的關系數據庫標準語言。在SQL語言中不需要告訴SQL如何訪問數據庫，只要告訴SQL需要數據庫做什么。第三章學生信息管理設計3.1系統功能模塊設計根據系統所要實現的功能要求，按用戶身份的不同，本系統分為4個部分：數據錄入、查詢、用戶管理。數據錄入部分是提供給老師及教務人員用來進行課程的設置和管理的，查詢部分是學生可以對自己的基本信息、成績查詢，用戶管理部分事教務人員對用戶管理部分。具體各功能塊完成的任務如下：數據錄入模塊

13回區(qū)此模塊是教務人員及院系管理員系部、專業(yè)、班級的錄入，學生基本信息的數據錄A（X）查詢用戶管理母）13回區(qū)此模塊是教務人員及院系管理員系部、專業(yè)、班級的錄入，學生基本信息的數據錄A（X）查詢用戶管理母）苣生纓］學生基本信息查詢成績查詢學生基本信息修改成績信息修改系別I 3專業(yè)I班級I 學號r姓宅| 開始查找學生管理系統查詢模塊系統管理員、院系管理員、學生都可以通過此模塊來進行成績的查詢。用戶管理模塊 課程信息維護模塊位于查詢菜單下的課程信息查詢菜單下、主要用于對課程的管理，包括該課程的課程編號、課程名稱、課程簡稱、拼音碼、教師、開課系別、學分、是否是本學期課程等等相關信息的查詢。學生信息維護模塊該功能模塊是提供給學生進行選課，包括學生信息、已選課程和課程信息3部分。學生信息包括學號、姓名、班級等基本信息。一選課程包括學號、課序號、課程名稱、教師、開課系別、上課時間天數、上課時間節(jié)數、上課地點等。課程

信息包括課序號、課程編號、課程名稱、教師、開課系別、拼音碼、上課時間天數、上課時間節(jié)數和上課地點等。成績錄入模塊該選課的所有學生名單，教師對各個學生的成績輸入，并保存，最終提交之前還可以進行修改。最終提交是指老師提交該門課所有學生的最終成績，提交后的成績不可以進行修改，課程拼音和名稱是模糊查詢，課程編號必須輸入準確，實際中由教師登錄時的名稱查詢得到。管理人員和教師，每個學生都需要登錄到選課系統進行課程的選擇。因此，需要對不同的登錄人員進行密碼認證和權限的限制，防止出現越權行為。用戶名、密碼、和權限單獨保存在1個數據表中。另外需要一個表格保存各記錄號的計數值和一個課程狀態(tài)的代碼表。1.用戶信息表該表用于記錄用戶的密碼和權限，包括用戶名、密碼、權限。其結構如下表所示。字段名數據類型說明是否為主鍵是否為空IDCHAR(6)用戶名是NOTNULLPASSWDVARCHAR(15)密碼否NOTNULLAUTHORITYCHAR(1)權限否NOTNULL2.成績信息表

該表用于記錄學生的課程成績，包括記錄號、學生的學號、課程、成績。其結構如下表所示。字段名數據類型說明是否為主鍵是否為空IDINTEGER記錄號是NOTNULLSTUDENTCHAR(6)學號否NOTNULLCOURSECHAR(10)課程號否NOTNULLSCOREFLOAT成績否NULLNAMECHAR(10)姓名否NOTNULL3.教師個人信息表該表用于記錄教師的個人信息，包括員工號、姓名、所屬院系。其結構如下表所示。字段名數據類型說明是否為主鍵是否為空IDCHAR(6)身份證號是NOTNULLNAMEVARCHAR(10)姓名否NOTNULLDEPARTMENTCHAR(2)院系否NOTNULL4.學生個人信息表該表用于記錄學生的個人信息，包括學號、姓名、班級。其結構如下表所示。字段名數據類型說明是否為主鍵是否為空IDCHAR(6)學號是NOTNULLNAMEVARCHAR(10)姓名否NOTNULLCLASSCHAR(2)班級否NOTNULL5.課程信息表該表用于記錄課程的信息，包括課程號、授課老師、學分、學時、上課時間、上課地點、課程簡介、課程狀態(tài)。其結構如下表所示。字段名數據類型說明是否為主鍵是否為空IDCHAR(10)課程號是NOTNULLNAMEVARCHAR(50)課程名稱否NOTNULLTEACHERCHAR(6)任課老師否NOTNULLCREDIT-HOURSMALLINT學分否NULLPERIODSMALLINT學時否NULLCLASSTIMEVARCHAR(20)上課時間否NULLCLASSROOMVARCHAR(20)上課地點否NULLINTROVARCHAR(40)課程簡介否NULLSTATECHAR(6)課程狀態(tài)否NOTNULL6.選課結果信息表該表用于記錄選課結果信息，包括記錄號、課程號、和選課學生。其結構如下表所示。字段名數據類型說明是否為主鍵是否為空IDINTEGER記錄號是NOTNULLCOURSECHAR(10)課程號否NOTNULLSTUDENTCHAR(6)選課學生否NULL3.3系統安全保密設計在系統安全保密設計中，本系統采用的是對用戶登錄系統時進行身份驗證，只允許合法用戶進入系統并操作。在登錄本系統時，系統首先讓用戶選擇相應的身份，不同的身份有著不同的權限，同時用戶需要輸入用戶名和密碼進行驗證。輸入的信息正確后才能進入相應的頁面。在登錄模塊的設計中，分別在在客戶端和服務器端進行數據驗證。3.4數據庫結構的實現本系統采用SqlServer2000數據庫，數據庫各個表的結構可以在SqlServer2000中用CREATETABLE語句來創(chuàng)建。3.5初始數據的輸入數據表創(chuàng)建成功后，數據庫中還沒有實際的數據。為保證外部鍵能使用，一些代碼數據需提前輸入。第四章學生管理系統的測試與維護4.1系統測試在系統的程序編碼中，測試是很重要的方面，測試的過程也是編碼的更加深入的過程。在此過程中，團結合作也很重要，可以提高測試的效率。系統測試是可以實現計劃并可明確檢驗的一種系統性處理過程。事先可以規(guī)定測試技術和工序，指定一系列的測試步驟。軟件測試是軟件質量保證的關鍵，也是對需求、設計和編碼的最終編碼。為了發(fā)現軟件存留的錯誤，軟件的測試內容以及與需求分析、設計和編碼這3個階段的錯誤相呼應。在教務管理系統中軟件測試是隨時都在進行的，每當一個模塊完成時都分別進行測試。由于本系統并沒有投入到實際應用，數據庫中的內容是不完全的。所以在測試上要注意這些。并且每個功能都進行數據測試，如學生信息搜索，課程查詢等。系統完成后進行系統集成測試，在連接到首頁和數據庫后臺集成后，檢查是否在模塊集成上出現問題。最后在系統完成后進行驗收測試，即按照任務書和需求分析逐步驗證所要求的功能是否能夠實現。在整個系統的生成過程中，也遇到了問題：利用了函數的返回值進行判斷后檢查差錯。例如在祖先窗口的查詢窗口中，輸入了要查詢學生的ID號，在單擊主窗口的查詢事件以后，在查詢條件的傳遞時，在查詢窗口的字段名出現了空格，而不是預想的字段名稱。這樣根據函數的返回值判斷，說明取字段沒有成功，于是將錯誤集中在窗口取值的程序段。結果發(fā)現查詢窗口在取用戶輸入的查詢條件時沒有出現賦值錯誤，問題出在查詢窗口沒有讀取其子窗口的用戶單擊確認健事件，于是主窗口不知道何時讀入用戶輸入的查詢信息。procedureTForm2.SpeedButton1Click（Sender:TObject）;varresults:variant;str1:variant;beginADOTable1.Close;ADOTable1.Open;ADOTable1.Active;str1:=adotable1.Lookup（'用戶類型',combobox1.Text,'用戶名'）;ifstr1=edit1.Textthenbeginresults:二ADOTable1.Lookup（'用戶名'，edit1.text,'密碼'）；｛檢索數據庫中對應用戶名的密碼項｝ifedit1.Text=''thenapplication.MessageBox（'用戶名不能為空！'，'提示',mb_ok）elseifedit2.Text=thenapplication.messagebox（'密碼不能為空！'，'警告',mb_ok）elseifresults二edit2.Textthenbeginapplication.CreateForm（Tform10,form10）;form10.ShowModal;endelseshowmessage（'密碼錯誤或用戶不存在！’）；edit1.Visible:二true;edit2.Visible:二true;edit1.Text:='’；edit2.Text:='’；endelseifstr1<>edit1.Textthenbeginshowmessage（'用戶不存在!'）;end;end;procedureTForm7.DBGrid1CellClick（Column:TColumn）;beginifdbcombobox1.Text='A'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/A.ico');ifdbcombobox1.Text='B'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/B.ico');ifdbcombobox1.Text='C'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/C.ico');ifdbcombobox1.Text='D'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/D.ico');ifdbcombobox1.Text='E'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/E.ico');ifdbcombobox1.Text='F'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/F.ico');ifdbcombobox1.Text='G'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/G.ico');ifdbcombobox1.Text='H'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/H.ico');ifdbcombobox1.Text='I'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/I.ico');ifdbcombobox1.Text='J'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/J.ico');ifdbcombobox1.Text='K'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/K.ico');ifdbcombobox1.Text='L'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/L.ico');ifdbcombobox1.Text='M'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/M.ico');ifdbcombobox1.Text='N'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/N.ico');end;procedureTForm7.FormClick(Sender:TObject);beginifdbcombobox1.Text='A'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/A.ico');ifdbcombobox1.Text='B'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/B.ico');ifdbcombobox1.Text='C'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/C.ico');ifdbcombobox1.Text='D'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/D.ico');ifdbcombobox1.Text='E'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/E.ico');ifdbcombobox1.Text='F'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/F.ico');ifdbcombobox1.Text='G'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/G.ico');ifdbcombobox1.Text='H'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/H.ico');ifdbcombobox1.Text='I'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/I.ico');ifdbcombobox1.Text='J'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/J.ico');ifdbcombobox1.Text='K'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/K.ico');ifdbcombobox1.Text='L'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/L.ico');ifdbcombobox1.Text='M'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/M.ico');ifdbcombobox1.Text='N'thenimage1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'./picture/N.ico');end;procedureTForm7.SpeedButton1Click(Sender:TObject);beginifpagecontrol1.ActivePage=tabsheet1thenbeginifdbgrid1.SelectedIndex>0thenbeginadodataset1.Delete;application.MessageBox('你已刪除該用戶的信息'，'刪除提示'，mb_ok);endelseapplication.MessageBox('沒有用戶可刪除或沒有選定要刪除用戶！’，’刪除提示'，mb_ok);end;ifpagecontrol1.ActivePage=tabsheet2thenbeginifdbgrid2.SelectedIndex>0thenbeginadoquery1.Delete;application.MessageBox('你已刪除該用戶的信息'，'刪除提示'，mb_ok);endelseapplication.MessageBox（'沒有用戶可刪除或沒有選定要刪除用戶！’，’刪除提示'，mb_ok）;end;end;procedureTForm7.N10Click（Sender:TObject）;beginpagecontrol1.ActivePage:=tabsheet1;adodataset1.Refresh;adodataset1.Close;adodataset1.CommandText:='select*from用戶表'；adodataset1.Open;application.MessageBox（'已刷新'，’信息提