學(xué)籍管理系統(tǒng)課程方案報告

個人資料整理 僅限學(xué)習(xí)使用軟件技術(shù)基礎(chǔ)課程設(shè)計設(shè)計說明書題目：學(xué)生信息管理系統(tǒng)學(xué) 生 姓 名 王鋒剛學(xué) 號 0820014010班 級 電子商務(wù) 081成 績指 導(dǎo) 教 師 楊帆管理系2018年11 月30日軟件技術(shù)基礎(chǔ)課程設(shè)計評閱書題目 學(xué)生信息管理系統(tǒng)學(xué)生姓名 王鋒剛 學(xué)號 0820014010個人資料整理 僅限學(xué)習(xí)使用指導(dǎo)教師評語及成績指導(dǎo)教師簽名：年月日教研室意見室主任簽名：年月日課程設(shè)計任務(wù)書2018—2018學(xué)年第一學(xué)期專業(yè)：電子商務(wù) 學(xué)號：0820014010姓名：王鋒剛課程設(shè)計名稱： 軟件技術(shù)基礎(chǔ)課程設(shè)計設(shè)計題目：學(xué)生信息管理系統(tǒng)完成期限：自年月日至年月日共周設(shè)計依據(jù)、要求及主要內(nèi)容 <可另加附頁）：個人資料整理 僅限學(xué)習(xí)使用通過本課程設(shè)計，使學(xué)生掌握軟件工程的基本思想、原理與程序，掌握程序設(shè)計的技巧，學(xué)會編寫綜合程序，進行系統(tǒng)分析與系統(tǒng)設(shè)計，同時掌握文檔的編寫與維護。培養(yǎng)學(xué)生綜合利用所學(xué)的理論知識分析解決實際問題的能力、利用和查閱資料的能力、獨立工作的能力以及計算機應(yīng)用能力。軟件技術(shù)基礎(chǔ)是非計算機專業(yè)的一門專業(yè)基礎(chǔ)課程，要求學(xué)生在實踐環(huán)節(jié)中提高自身的軟件開發(fā)能力，結(jié)合電子商務(wù)專業(yè)的學(xué)科背景，選擇具有一定難度且適合于管理類電子商務(wù)專業(yè)的小型商務(wù)實用系統(tǒng)開發(fā)作為設(shè)計題目，旨在將學(xué)生的學(xué)科專業(yè)知識與計算機知識結(jié)合起來進行系統(tǒng)設(shè)計，主要內(nèi)容為：綜合運用計算機知識進行數(shù)據(jù)結(jié)構(gòu)、算法、數(shù)據(jù)庫、計算機網(wǎng)絡(luò)、軟件工程等方面的分析與設(shè)計。具體內(nèi)容為：1）進行需求規(guī)劃與分析并收集原始數(shù)據(jù)。2）依據(jù)需求規(guī)劃說明書進行系統(tǒng)設(shè)計，設(shè)計出各個功能模塊，并給出模塊說明書。3）進行數(shù)據(jù)庫、算法與數(shù)據(jù)結(jié)構(gòu)的設(shè)計與實現(xiàn)。4）選定程序設(shè)計放言進行程序編碼。5）進行系統(tǒng)的調(diào)試與維護。同時，要求學(xué)生必須完成如下幾項任務(wù)：1）編寫各類文檔。2）編制科學(xué)完整的課程設(shè)計報告。3）提交應(yīng)用程序及相應(yīng)的數(shù)據(jù)庫。指導(dǎo)教師<簽字）： 教研室主任<簽字）：批準(zhǔn)日期： 年 月 日目錄11222.122.2 22.3 62.4783.183.2E-R 83.3SQL 83.4 9104.1 104.2 114.3 15個人資料整理 僅限學(xué)習(xí)使用前言：目前社會上信息管理系統(tǒng)發(fā)展飛快,各個企事業(yè)單位都引入了信息管理軟件來管理自己日益增長的各種信息,隨著學(xué)校向全國及至世界范圍的持續(xù)擴張，學(xué)生人數(shù)的增加，對于學(xué)生的信息管理也越來越復(fù)雜，要求也越來越高，因此需要一個全面、詳細的信息管理系統(tǒng)，以便完成對學(xué)生信息的管理。學(xué)生信息管理系統(tǒng)，可以用集中的數(shù)據(jù)庫將與人力資源管理相關(guān)的信息全面、有機地聯(lián)系起來，有效地減少了信息更新和查找中的重復(fù)勞動，保證了信息的相容性，從而大大地提高了工作效率，還能使原來不可能提供的分析報告成了可能。在采用和實施學(xué)生信息管理系統(tǒng)之后，就會將依賴于人的過程改為依賴于計算機系統(tǒng)的過程。學(xué)校管理人員只要獲取了相應(yīng)的權(quán)限，就可以隨時進入系統(tǒng)，直接查閱相應(yīng)的信息。采用和實施學(xué)生信息管理系統(tǒng)不僅僅是為了提高工作效率。應(yīng)該看到，在實施學(xué)生信息管理系統(tǒng)后，經(jīng)過整合的、較為全面、準(zhǔn)確、一致和相容的信息不僅可以讓學(xué)校領(lǐng)導(dǎo)對本學(xué)校學(xué)生資源的現(xiàn)狀有一個比較全面和準(zhǔn)確的認識，同時也可以生成綜合的分析報表供學(xué)校領(lǐng)導(dǎo)人在決策時參考。摘要：本次課程設(shè)計采用SQL數(shù)據(jù)庫與Delphi結(jié)合的方式，通過用SQL建立起基本表，然后分析各表之間的聯(lián)系，以及要實現(xiàn)的功能，然后通過Delphi來設(shè)計用戶操作界面，從而完成學(xué)生管理系統(tǒng)的設(shè)計。一、緒論SQL是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括數(shù)據(jù)查詢<query）、數(shù)據(jù)操作<datamanipulation）、數(shù)據(jù)定義<datadefinition）和數(shù)據(jù)控制<datacontrol）四個方面，是一個通用的，功能極強的關(guān)系數(shù)據(jù)庫語言。目前SQL語言已經(jīng)成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言。SQL具有高度統(tǒng)一、高度非過程化、采用面向集合操作方式、支持三級模式結(jié)構(gòu)、具有一種語法、兩種使用方式、結(jié)構(gòu)簡潔、易學(xué)易用的特點，所以為廣大用戶和業(yè)界所接受，成為國際標(biāo)準(zhǔn)。做學(xué)生管理系統(tǒng)是由于現(xiàn)在學(xué)校學(xué)生數(shù)量很多，而學(xué)生信息的管理及其課程管理與選課過程都是一個大量的重復(fù)的工作，且信息散亂，本系統(tǒng)的作用就是使這些散亂的信息具體化、直觀化。二、系統(tǒng)需求分析2.1開發(fā)軟件采用Delphi可視化編譯環(huán)境，開發(fā)windows應(yīng)用程序；采用SQLSever數(shù)據(jù)庫作為支撐，構(gòu)建一套規(guī)范且符合教案管理需求的教案管理系統(tǒng)。個人資料整理 僅限學(xué)習(xí)使用2.2設(shè)計方法采用規(guī)范式設(shè)計法，分為四個階段：需求分析、概念設(shè)計、邏輯設(shè)計、物理設(shè)計。數(shù)據(jù)庫采用基于E-R模型以及基于3NF的設(shè)計方法。2.3數(shù)據(jù)字典數(shù)據(jù)項學(xué)生表<XS）名稱數(shù)據(jù)類型大小約束Xh<主鍵）char10notnullXmchar10notnullXbchar10nullCssjchar10nullZychar10nullZxfchar10nullBzchar10nullKchchar10Notnull課程表<XS_KC）名稱數(shù)據(jù)類型大小約束Xh<主鍵）char10NotnullXchchar100nullCjchar10null性別表<XBM）名稱數(shù)據(jù)類型大小約束XbChar10NotnullXbmChar10Notnull數(shù)據(jù)約束<1）實體完整性約束：基本關(guān)系的所有主鍵的屬性都不能取空值且主鍵作為唯一性標(biāo)識。需要滿足該約束的主鍵：學(xué)生表<XS）.學(xué)號(xh>、課程表<KCB）.課程編號(kch>.<2）參照完整性約束：外鍵的值只能取空值或等于關(guān)聯(lián)主鍵的值。需要滿足該約束的外鍵：學(xué)生表<XS）.學(xué)號與課程表<KCB）課程號外鍵關(guān)聯(lián).<3）用戶定義完整性約束：針對某一具體關(guān)系數(shù)據(jù)庫的約束條件，反映某一具體應(yīng)用所涉及的數(shù)據(jù)必須滿足的語義要求。需要滿足該約束的屬性：學(xué)生表<XS）.學(xué)號，課程表<KCB）.課程編號，.都不能為空，學(xué)生表<XS）.性別只能為男或女。2.4數(shù)據(jù)流圖個人資料整理 僅限學(xué)習(xí)使用課學(xué) 程生學(xué)生信息課程成績錄入查詢數(shù)據(jù)存儲信息XS表：Xh<主鍵）、Xb、Xb、Cssj、Zy、Zxf、Bz、Kch<外鍵）。KC表：Kch<主鍵）、kCM、Cj。XBM表：Xb、Xbm。三、關(guān)系數(shù)據(jù)庫的模型建立3.1系統(tǒng)概念模型3.2學(xué)生信息管理E-R圖學(xué)生管理 學(xué)生信息課程信息 學(xué)生屬于 課程 查詢屬于成績3.3SQL表關(guān)系圖個人資料整理 僅限學(xué)習(xí)使用3.4數(shù)據(jù)庫的物理結(jié)構(gòu)設(shè)計數(shù)據(jù)庫物理模型可以從概念模型轉(zhuǎn)化形成，物理模型設(shè)計產(chǎn)生數(shù)據(jù)庫數(shù)據(jù)庫的物理結(jié)構(gòu)，即將數(shù)據(jù)庫設(shè)計映射到一個具體的類型的物理數(shù)據(jù)庫上。邏輯結(jié)構(gòu)中的實體會形成物理結(jié)構(gòu)中的數(shù)據(jù)表。將該數(shù)據(jù)庫設(shè)計映射到 SQL數(shù)據(jù)庫上，生成學(xué)生管理系統(tǒng)的數(shù)據(jù)庫表 XS、KCB、XBM，如下為這三個表的結(jié)構(gòu)：個人資料整理 僅限學(xué)習(xí)使用四、系統(tǒng)實現(xiàn)4.1數(shù)據(jù)庫建立使用SQL語言在SQLServer2000的查詢分析器中建基本表。具體處理流程如下：創(chuàng)建XS表：個人資料整理 僅限學(xué)習(xí)使用創(chuàng)建XS_KC表：創(chuàng)建XBM表：個人資料整理 僅限學(xué)習(xí)使用4.2各功能模塊實現(xiàn)采用ADO方式連接和訪問數(shù)據(jù)庫。使用ADOConnection組件連接SQLServer數(shù)據(jù)庫連接數(shù)據(jù)庫個人資料整理 僅限學(xué)習(xí)使用個人資料整理 僅限學(xué)習(xí)使用個人資料整理 僅限學(xué)習(xí)使用interfaceusesSysUtils,Classes,DB,ADODB。typeTXSCJDM=class(TDataModule>XSCJADOConnection:TADOConnection 。XSCJADOCommand:TADOCommand 。XSCJADODataSet:TADODataSet 。ADOStoredProc1:TADOStoredProc。XSCJDataSource:TDataSource。private{Privatedeclarations}public{Publicdeclarations}end。varXSCJDM:TXSCJDM 。Implementation{$R*.dfm}end.4.3窗體設(shè)計主界面?zhèn)€人資料整理 僅限學(xué)習(xí)使用usesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,ExtCtrls,jpeg。typeTXSCJGL=class(TForm>Panel1:TPanel。MainMenu1:TMainMenu 。MainMenu2:TMainMenu 。N1:TMenuItem。N3:TMenuItem。Select_Button:TMenuItem。Update_Button:TMenuItem。Delete_Button:TMenuItem。N6:TMenuItem。Insert_Button1:TMenuItem 。Insert_Button2:TMenuItem 。Image1:TImage。Image2:TImage。procedureSelect_ButtonClick(Sender:TObject>。procedureInsert_Button1Click(Sender:TObject> 。procedureUpdate_ButtonClick(Sender:TObject> 。procedureDelete_ButtonClick(Sender:TObject>。private{Privatedeclarations}public{Publicdeclarations}end。varXSCJGL:TXSCJGL 。implementationusesUnit7,Unit8,Unit9,Unit3。{$R*.dfm}procedureTXSCJGL.Select_ButtonClick(Sender:TObject> 。beginXSCJGL.Visible:=false。CX.Show。cedureTXSCJGL.Insert_Button1Click(Sender:TObject> 。beginXSCJGL.Visible:=false。CR1.Show。end。個人資料整理 僅限學(xué)習(xí)使用procedureTXSCJGL.Update_ButtonClick(Sender:TObject> 。beginXSCJGL.Visible:=false。XG.ScedureTXSCJGL.Delete_ButtonClick(Sender:TObject> 。beginXSCJGL.Visible:=false。SC.Show。end。end.查詢界面：interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Grids,StdCtrls,ExtCtrls,DBGrids,jpeg。typeTCX=class(TForm>Panel2:TPanel。Label1:TLabel。Edit1:TEdit。Button1:TButton。Button2:TButton。Panel3:TPanel。DBGrid1:TDBGrid 。Label2:TLabel。Image1:TImage。procedureButton1Click(Sender:TObject>。procedureButton2Click(Sender:TObject>。private{Privatedeclarations}public{Publicdeclarations}end。varCX:TCX。implementation{$R*.dfm}procedureTCX.Button1Click(Sender:TObject> 。VarXh,Sql:String。個人資料整理 僅限學(xué)習(xí)使用beginXh:=Edit1.Text。Sql:='selectXH,XM,XBM,CSSJ,ZY,ZXF,BZfromXS,XBMwhereXH='+''''+XH+'''andXBM.XB=XS.XB'。XSCJDM.XSCJADODataSet.Active:=false 。XSCJDM.XSCJADODataSet.CommandText:=Sql 。XSCJDM.XSCJADODataSet.Active:=true 。if(XSCJDM.XSCJADODataSet.FieldValues['XH']=NULL>thenshowmessage('要查詢的學(xué)生數(shù)據(jù)不存在 !'>。cedureTCX.Button2Click(Sender:TObject> 。beginXSCJGL.Visible:=true。CX.Visible:=false。end。end修改界面：interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls,jpeg。typeTXG=class(TForm>Panel2:TPanel。Label1:TLabel。Edit1:TEdit。Label2:TLabel。Edit2:TEdit。Label3:TLabel。Edit3:TEdit。Label4:TLabel。Edit4:TEdit。Label5:TLabel。RadioButton1:TRadioButton。Label6:TLabel。RadioButton2:TRadioButton。Label7:TLabel。Label8:TLabel。Edit5:TEdit。Edit6:TEdit。Label10:TLabel。Button1:TButton。個人資料整理 僅限學(xué)習(xí)使用Button2:TButton。Button3:TButton。Memo1:TMemo。Label9:TLabel。Label11:TLabel。Image1:TImage。procedureButton2Click(Sender:TObject>。procedureButton3Click(Sender:TObject>。procedureButton1Click(Sender:TObject>。private{Privatedeclarations}public{Publicdeclarations}end。varXG:TXG。implementation{$R*.dfm}procedureTXG.Button1Click(Sender:TObject>。VarXh,Sql:String。beginXh:=Edit1.Text。Sql:='select*fromXSwhereXH='+''''+Xh+'''' 。XSCJDM.XSCJADODataSet.Active:=false 。XSCJDM.XSCJADODataSet.CommandText:=Sql

。XSCJDM.XSCJADODataSet.Active:=true 。if(XSCJDM.XSCJADODataSet.FieldValues['XH']<>NULL>thenbeginEdit2.Text:=XSCJDM.XSCJADODataSet.FieldValues['XH']Edit3.Text:=XSCJDM.XSCJADODataSet.FieldValues['XM']Edit4.Text:=XSCJDM.XSCJADODataSet.FieldValues['CSSJ']

。。。Edit5.Text:=XSCJDM.XSCJADODataSet.FieldValues['ZY']Edit6.Text:=XSCJDM.XSCJADODataSet.FieldValues['ZXF']Memo1.Text:=XSCJDM.XSCJADODataSet.FieldValues['BZ']

。。。if(XSCJDM.XSCJADODataSet.FieldValues['XB']<>0>thenRadioButton1.Checked:=trueelseRadioButton2.Checked:=trueendelseshowmessage('要修改的記錄不存在

'>cedureTXG.Button2Click(Sender:TObject>。VarXh,Xm,Xb,Cssj,Zy,Zxf,Bz,Sql1:string 。beginXh:=Edit2.Text。Xm:=Edit3.Text。ifRadioButton1.Checked=truethenXb:='1'elseXb:='0'。Zy:=Edit5.Text。Cssj:=Edit4.Text。Zxf:=Edit6.Text。Bz:=Memo1.Text。Sql1:='updateXSsetXM='+''''+Xm+''',XB='+''+Xb+',cssj='+''''+cssj+'''whereXH='+''''+Xh+''''XSCJDM.XSCJADOCommand.CommandText:=Sql1 。

。XSCJDM.XSCJADOCommand.Execute

。showmessage('修改成功！

'>cedureTXG.Button3Click(Sender:TObject>begin

。個人資料整理 僅限學(xué)習(xí)使用XSCJGL.Visible:=true。XG.Close。end。插入界面:interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,ExtCtrls,StdCtrls,jpeg。typeTCR1=class(TForm>Panel2:TPanel。Label1:TLabel。Label2:TLabel。Label3:TLabel。Label4:TLabel。Label5:TLabel。Label6:TLabel。Edit1:TEdit。Edit2:TEdit。Edit3:TEdit。Edit4:TEdit。Edit5:TEdit。Label7:TLabel。RadioButton1:TRadioButton。RadioButton2:TRadioButton。Label8:TLabel。Label9:TLabel。Memo1:TMemo。Button1:TButton。Button2:TButton。Label10:TLabel。Image1:TImage。procedureButton1Click(Sender:TObject>。procedureButton2Click(Sender:TObject>。private{Privatedeclarations}public個人資料整理

僅限學(xué)習(xí)使用{Publicdeclarations}end。varCR1:TCR1。implementationusesUnit1,Unit6。{$R*.dfm}procedureTCR1.Button1Click(Sender:TObject> 。VarXh,Xm,Xb,Cssj,Zy,Zxf,Bz,Sql1,Sql2:string 。beginXh:=Edit1.Text。Xm:=Edit2.Text。Xb:='1'elseXb:='0'。Zy:=Edit4.Text。Cssj:=Edit3.Text。Zxf:=Edit5.Text。Bz:=Memo1.Text。Sql1:='selectXHfromXSwhereXH='+''''+Xh+''''XSCJDM.XSCJADODataSet.Active:=false 。XSCJDM.XSCJADODataSet.CommandText:=Sql1

。。XSCJDM.XSCJADODataSet.Active:=true

。if(XSCJDM.XSCJADODataSet.FieldValues['XH']<>NULL>thenshowmessage('該學(xué)生數(shù)據(jù)存在！ '>elsebeginsql2:='Insertvalues('''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''','''+Zy+''','+Zxf+','''+Bz+'''>' 。XSCJDM.XSCJADOCommand.CommandText:=Sql2 。XSCJDM.XSCJADOCommand.Execute 。showmessage('插入數(shù)據(jù)成功 !'>cedureTCR1.