delphi學(xué)生管理!!(整理)

1、課程設(shè)計(jì)任務(wù)書題目：學(xué)生管理系統(tǒng)學(xué)號(hào) 200812220253姓名專 業(yè)計(jì)算機(jī)科學(xué)與技術(shù)課 程 Dilphi 程序設(shè)計(jì)指導(dǎo)教師職稱講師完成時(shí)間：2010 年 11 月-2010 年 12 月棗莊學(xué)院計(jì)算機(jī)科學(xué)系制課程設(shè)計(jì)任務(wù)書及成績評(píng)定課程設(shè)計(jì)的任務(wù)和具體要求1.學(xué)會(huì)應(yīng)用所學(xué)的知識(shí)做一個(gè)學(xué)生管理系統(tǒng)2.會(huì)靈活應(yīng)用所學(xué)的知識(shí)3.本系統(tǒng)由SQL語言編寫，在Dilphi軟件環(huán)境下可以正常運(yùn)行指導(dǎo)教師簽字：日期：指導(dǎo)教師評(píng)語成績：指導(dǎo)教師簽字:日期:課程設(shè)計(jì)所需軟件、硬件等Xp系統(tǒng)Dilphi軟件課程設(shè)計(jì)進(jìn)度計(jì)劃起至日期工作內(nèi)容備注2010.12.20- 2010.12.252010.12.25- 2

2、010.12.30先做一個(gè)簡單的界面，會(huì)應(yīng)用所學(xué)的知 識(shí)的對(duì)所做的系統(tǒng)加以更改，使系統(tǒng)更加完 善，功能更加強(qiáng)大參考文獻(xiàn)、資料索引序號(hào)文獻(xiàn)、資料名稱編著者出版單位1（美）steveteixeira,xavierpacheco.Delphi6開發(fā)人員指南M.北京：電子工業(yè)出版社，2005.2Ned Snell.中文版Microsoft Office 97自學(xué)通M.北京：機(jī)械工業(yè)出版社,2001.3Craig Eddy Timothy Buchanan.中文Access 2000 24學(xué)時(shí)教程M.北京：機(jī)械工業(yè)出 版社,2003.4王春紅.Delphi7程序設(shè)計(jì)M.北京：清華大學(xué)出版社,北京交通大學(xué)

3、出版社,2004.夏邦貴，郭勝.Delphi數(shù)據(jù)庫開發(fā)入門與范例解讀M.北京:機(jī)械工業(yè)出版社,2004.6尹立民.Delphi6數(shù)據(jù)庫開發(fā)典型實(shí)例M.北京:電子工業(yè)出版社,2002.7東方人華.Delphi7入門與提高M(jìn).北京:清華大學(xué)出版社,2003.8蔣方帥.Delphi程序設(shè)計(jì)M.北京:清華大學(xué)出版社,2002.、八、刖言學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說 都至關(guān)重要，所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但?直以來人們使用傳統(tǒng)人工的方式管理文件信息，這種管理方式存在著許多缺點(diǎn)，如：效率低、保密性差，另外時(shí)間一

4、長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來了不少的 困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已 進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)學(xué)生信息信息進(jìn)行管理，具有著手工管理所無法比擬的優(yōu)點(diǎn)例如:檢索迅速、查找方便、可 靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理 的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。因此，開發(fā)這樣一套管理 軟件成為很有必要的事情。無論學(xué)校大小，每個(gè)學(xué)校手里總是會(huì)有很多很多的學(xué)生信息，而 且隨著一年一年的累積，學(xué)校規(guī)模的逐

5、漸擴(kuò)大，學(xué)生信息信息是越來越多?，F(xiàn)在隨著中國加 入了WTO很多的企業(yè)為了能夠加強(qiáng)自己的競爭力，都不約而同的在工作效率和管理的規(guī)范 性方面下功夫。現(xiàn)在計(jì)算機(jī)化管理已經(jīng)不知不覺中滲透到了各行各業(yè)，并且提高了這些行業(yè) 的效率。學(xué)校雖然不算是一個(gè)純粹的企業(yè)，但是學(xué)校的管理一樣需要信息化，而且現(xiàn)在的學(xué)校逐漸的往大規(guī)模的方向發(fā)展，信息化對(duì)于學(xué)校就顯的更加的重要了。以前的手工管理，已經(jīng)越來越不適應(yīng)學(xué)校的發(fā)展要求了。針對(duì)這種情況下，我設(shè)計(jì)了這么一個(gè)簡單的學(xué)生信息管理 系統(tǒng)，雖然很小，但是呢，還是有一定的使用價(jià)值的?？蚣茉O(shè)計(jì)系統(tǒng)流程圖模塊主要由劉龍洋同學(xué)設(shè)計(jì)，而系統(tǒng)的功能設(shè)計(jì)主要由李江濱同學(xué)完 成,我主要負(fù)責(zé)程

6、序主要功能界面的設(shè)計(jì)，下面是部分流程圖：開始用戶登陸耳界面2.登錄界面unit Unit2。in terfaceusesWindows. Messages, SysUtils, Variants, Classes,Graphics, Con trols, Forms,Dialogs, StdCtrls, jpeg, ExtCtrls。typeTForm2 = class(TForm)Image1: Tlmage。Label1: TLabel。Edit1: TEdit 。Label2: TLabel。Label3: TLabel。Edit2: TEdit 。Button1: TButton。Bu

7、tton2: TButton。procedure Button1Click(Sender: TObject)。procedure Butt on 2Click(Se nder: TObject)。private Private declarations public Public declarati ons end。varForm2: TForm2impleme ntati on$R *.dfmuses unit3。procedure TForm2.Butto n1Click(Se nder: TObject)varm1,m2:stri ng。beginm1:=岳耀強(qiáng)。m2:=123456。i

8、f comparestr(m1,edit1.Text)=0 the n beginif comparestr(m2,edit2.Text)=0 the nbegin form3:=Tform3.Create(self)。form3.Show。form2.Hide。endelseshowmessage(密碼錯(cuò)誤，請重新輸入)。endelseshowmessage(用戶名錯(cuò)誤，請重新輸入)。endprocedure TForm2.Butt on 2Click(Se nder: TObject)beginform2.Freeenden d.3.主界面unit Unit3。in terfaceuses

9、幫助系統(tǒng)維護(hù)版權(quán)所有報(bào)表瀏覽查詢1 開機(jī)畫面詳維護(hù)表.記錄更改口令I(lǐng)mage1: TImage。Image2: TImage。Image3: TImage。Image4: TImage。Image5: TImage。Image6: TImage。Image7: TImage。Image8: TImage。Image9: TImage。Image10: TImage。Image11: TImage。Image12: TImage。procedure N6Click(Sender: TObject)。procedure N8Click(Sender: TObject)。procedure N10C

10、lick(Sender: TObject)。procedure N3Click(Sender: TObject)。procedure N2Click(Sender: TObject)。procedure N15Click(Sender: TObject)。procedure N16Click(Sender: TObject)。procedure N17Click(Sender: TObject)。procedure N18Click(Sender: TObject)。procedure N19Click(Sender: TObject)。procedureN20Click(Sender:TOb

11、ject)。Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls, Forms,Dialogs, ExtCtrls, Menus, ComCtrls, Grids, DBGrids,DB, ADODB,unit5, jpeg,unit9,unit11 。typeTForm3 = class(TForm)Mai nMen u1: TMai nM enuN1: TMenuItem。N2: TMenuItem。N3: TMenuItem。N4: TMenuItem。N5: TMenuItem。N6: TMenuItem。N

12、7: TMenuItem。N9: TMenuItem。N10: TMenuItem。N11: TMenuItem。N12: TMenuItem。N13: TMenuItem。N15: TMenuItem。N16: TMenuItem。N17: TMenuItem。N18: TMenuItem。N19: TMenuItem。N20: TMenuItem。procedure N11Click(Sender: TObject) 。procedure N7Click(Sender: TObject)。privateprocedure TForm3.N3Click(Se nder: TObject) P

13、rivate declarations public Public declarations end。varForm3: TForm。implementation$R *.dfmuses unit4, unit6,unit7 。procedure TForm3.N6Click(Se nder: TObject)beginform4:=tform4.Create(self) 。form4.Show。end。procedure TForm3.N8Click(Se nder: TObject)beginform6:=Tform6.Create(self)cform6.Showcendcprocedu

14、re TForm3.N10Click(Sender: TObjecct)beginaboutbox:=taboutbox.Create(self)caboutbox.Showcendcbeginform5:=Tform5.Create(self)cform5.ADOQuery1.Active:=truecform5.ADOQuery2.Active:=falsecform5.ADOQuery3.Active:=falsecform5.ADOQuery4.Active:=falsecform5.ADOQuery5.Active:=falsecform5.ADOQuery6.Active:=fal

15、secform5.ADOQuery6.Active:=falsecform5.ADOQuery7.Active:=falsecform5.ADOQuery8.Active:=falsecform5.DBGrid1.Visible:=truecform5.DBGrid2.Visible:=falsecform5.DBGrid3.Visible:=falsecform5.DBGrid4.Visible:=falsecform5.DBGrid5.Visible:=falsecform5.DBGrid6.Visible:=falsecform5.DBGrid7.Visible:=falsecform5

16、.DBGrid8.Visible:=falsecform5.DBGrid9.Visible:=falsecform5.Showcendcform5.Free 。form5.ADOQuery1.Active:=false。procedure TForm3.N2Click(Sender: TObjecct)beginend。procedure TForm3.N15Click(Se nder: TObject)beginform5.ADOQuery1.Active:=false。form5.ADOQuery2.Active:=true。form5.ADOQuery3.Active:=false。fo

17、rm5.ADOQuery4.Active:=false。form5.ADOQuery5.Active:=false。form5.ADOQuery6.Active:=false。form5.ADOQuery6.Active:=false。form5.ADOQuery7.Active:=false。form5.ADOQuery8.Active:=false。form5.DBGrid1.Visible:=false 。form5.DBGrid2.Visible:=true。form5.DBGrid3.Visible:=false 。form5.DBGrid4.Visible:=false 。form

18、5.DBGrid5.Visible:=false 。form5.DBGrid6.Visible:=false 。form5.DBGrid7.Visible:=false 。form5.DBGrid8.Visible:=false 。form5.DBGrid9.Visible:=false 。end。procedure TForm3.N16Click(Se nder: TObject)beginform5.ADOQuery2.Active:=falsecform5.ADOQuery3.Active:=truceform5.ADOQuery4.Active:=falsecform5.ADOQuer

19、y5.Active:=falsecform5.ADOQuery6.Active:=falsecform5.ADOQuery7.Active:=falsecform5.ADOQuery8.Active:=falsecform5.DBGrid1.Visible:=falsecform5.DBGrid2.Visible:=falsecform5.DBGrid3.Visible:=truecform5.DBGrid4.Visible:=falsecform5.DBGrid5.Visible:=falsecform5.DBGrid6.Visible:=falsecform5.DBGrid7.Visibl

20、e:=falsecform5.DBGrid8.Visible:=falsecform5.DBGrid9.Visible:=falsecendcprocedure TForm3.N17Click(Sender: TObjecct)beginform5.ADOQuery1.Active:=falsecform5.Free 。form5.ADOQuery1.Active:=false。form5.ADOQuery2.Active:=falsecform5.ADOQuery3.Active:=falsecform5.ADOQuery4.Active:=truceform5.ADOQuery5.Acti

21、ve:=falsecform5.ADOQuery6.Active:=false。form5.DBGrid3.Visible:=false 。form5.ADOQuery7.Active:=false。form5.ADOQuery8.Active:=false。form5.DBGrid1.Visible:=false 。form5.DBGrid2.Visible:=false 。form5.DBGrid3.Visible:=false 。form5.DBGrid4.Visible:=true 。form5.DBGrid5.Visible:=false 。form5.DBGrid6.Visible

22、:=false 。form5.DBGrid7.Visible:=false 。form5.DBGrid8.Visible:=false 。form5.DBGrid9.Visible:=false 。end。procedure TForm3.N18Click(Se nder: TObject)beginform5.ADOQuery1.Active:=false。form5.ADOQuery2.Active:=false。form5.ADOQuery3.Active:=false。form5.ADOQuery4.Active:=false。form5.ADOQuery5.Active:=true。

23、form5.ADOQuery6.Active:=false。form5.ADOQuery7.Active:=false。form5.ADOQuery8.Active:=false。form5.DBGrid1.Visible:=false 。form5.DBGrid2.Visible:=false 。form5.DBGrid4.Visible:=false 。form5.DBGrid5.Visible:=true。form5.DBGrid6.Visible:=false 。form5.DBGrid7.Visible:=false 。form5.DBGrid8.Visible:=false 。fo

24、rm5.DBGrid9.Visible:=false 。end。procedure TForm3.N19Click(Se nder: TObject)beginform5.ADOQuery1.Active:=falsecform5.ADOQuery2.Active:=falsecform5.ADOQuery3.Active:=falsecform5.ADOQuery4.Active:=falsecform5.ADOQuery5.Active:=falsecform5.ADOQuery6.Active:=truceform5.ADOQuery7.Active:=falsecform5.ADOQu

25、ery8.Active:=falsecform5.DBGrid1.Visible:=falsecform5.DBGrid2.Visible:=falsecform5.DBGrid3.Visible:=falsecform5.DBGrid4.Visible:=falsecform5.DBGrid5.Visible:=falsecform5.DBGrid6.Visible:=truecform5.DBGrid7.Visible:=falsecform5.DBGrid8.Visible:=false 。form5.DBGrid2.Visible:=false。form5.DBGrid9.Visibl

26、e:=false 。end。procedure TForm3.N20Click(Se nder: TObject)beginform5.ADOQuery1.Active:=false 。form5.ADOQuery2.Active:=false。form5.ADOQuery3.Active:=false。form5.ADOQuery4.Active:=false。form5.ADOQuery5.Active:=false。form5.ADOQuery6.Active:=false。form5.ADOQuery7.Active:=true。form5.ADOQuery8.Active:=true

27、。form5.DBGrid1.Visible:=false 。procedure TForm3.N7Click(Se nder: TObject)beginform11:=tform11.Create(self)cform11.Shocwendcend.4插入界面procedure TForm4.Button1Click(Sender: TObjecct)beginform5.ADOTable2.Closceform5.ADOTable2.Opcenform5.DBGrid3.Visible:=falsecform5.DBGrid4.Visible:=falsecform5.DBGrid5.V

28、isible:=falsecform5.DBGrid6.Visible:=falsecform5.DBGrid7.Visible:=truecform5.DBGrid8.Visible:=falsecform5.DBGrid9.Visible:=falsecendcprocedure TForm3.N11Click(Sender: TObjecct)beginform9:=tform9.Create(self)cform9.Showcendcform5.DBGrid1.Visible:=falsecform5.ADOTable2.Active:=truecform5.ADOTable2.Ins

29、erctform5.ADOTable2.FieldByNam 學(xué)號(hào)).AsString:=edit1.Textcform5.DBGrid9.Visible:=truecform5.ADOTab_e2.Fie_dByNam資-).ASS=TingdediN5.Texfform5.ADOTab-e2Fie-dByNamM 型-).ASS=ringdcomboboxl.Textform5.ADOTab-e2Fie-dByNan-).AS-nCDgerdsfrtoinf(edif3.Texu。form5.ADOTab-e2Fie-dByNa殺母肖4-).ASS=ringdedif4.Texfforms

30、.AD0Tab-e2Fie-dByNanwit-).ASS=ringdedif5.Texfforms.ADOTab-e2Fie-dBy之3姦洲-).ASS=ringdcomboboxl.Textform5.ADOTab_e2Fie_dByNan-).ASS=ringdedi65.Texfform5.ADOTab_e2Fie_dByNa禱耶-).AS-nCDgerds50inf(edif9-lexuform5.ADOTab_e2Fie_dByNanm只-).AS-nCDgerdsfrtoinf(ed50.Texu。5a?w或口fypeTForm5Hc-ass(TFOrm)DBGridhTDBGr

31、id。ADOCOnneaion-TADOCOnneaonADOQueryl-TADOOUeryADOQUeryb?TADOQueryADOQUery9?TADOQueryADOQueryaTADOQueryADOQUeryTADOQueryADOQUerypTADOQueryform5ADOTab-e2Fie-dByNa殺髓-).AS-nCDgerds5oinf(edisTexf)。form5ADOTab-e2Fie-dByNa為賓菇A-).AS-nCDgerdsfrtoinf(ed52.Te$)。form5ADOTab-e2Fie-dByNa為賓菇B-).AS-nCDgerdssoinf(ed53Texf)。forms.ADOTab-e2 posfforms.ADOTab-e2.Acnvedfa-seforms.AD0Tab-e2.Acnved=rueformpfree。endprocedureTF0rm4BUs:0