delphi課程設(shè)計(jì)--學(xué)生成績(jī)信息管理系統(tǒng)

1、<p><b>　　信息科學(xué)與工程學(xué)院</b></p><p><b>　　課程設(shè)計(jì)任務(wù)書(shū)</b></p><p>　　題目： 學(xué)生成績(jī)信息管理系統(tǒng) </p><p>　　姓 名： XXX </p><p>　　學(xué) 號(hào)： XXXXX

2、XXXX </p><p>　　專(zhuān) 業(yè)： 計(jì)算機(jī)應(yīng)用技術(shù) </p><p>　　課 程： Delphi應(yīng)用程序設(shè)計(jì) </p><p>　　課程設(shè)計(jì)任務(wù)書(shū)及成績(jī)?cè)u(píng)定</p><p><b>　　目錄</b></p><p>　　一．前言………………………

3、………………………………4</p><p>　　二．設(shè)計(jì)目的…………………………………………………4</p><p>　　三．設(shè)計(jì)流程…………………………………………………4</p><p>　　四．表結(jié)構(gòu)……………………………………………………5</p><p>　　五．具體步驟…………………………………………………9</p>

4、<p>　　六. 心得體會(huì)…………………………………………………18</p><p><b>　　一．前言：</b></p><p>　　隨著信息技術(shù)在管理上越來(lái)越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái)，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系

5、統(tǒng)。目前，在學(xué)校里，隨著高校規(guī)模的不斷擴(kuò)大和招生人數(shù)的不斷增加，需要處理大量的學(xué)生數(shù)據(jù)信息。如何更好的組織學(xué)生信息，更加快捷的管理學(xué)生信息顯得尤為的重要。 作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理,有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率,也是學(xué)校的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。我們?yōu)榇碎_(kāi)發(fā)了一套學(xué)生

6、信息管理系統(tǒng)，本系統(tǒng)面向?qū)W校的教務(wù)人員，目的是為學(xué)校辦公管理提供一個(gè)快速、簡(jiǎn)單規(guī)范的管理平臺(tái)，使學(xué)院在學(xué)生信息管理方面更加規(guī)范化,快捷化。</p><p><b>　　二．設(shè)計(jì)目的：</b></p><p>　　a) 要求學(xué)生熟練掌握Delphi高級(jí)編程語(yǔ)言的基本知識(shí)和基本的編程技能； b) 掌握結(jié)構(gòu)化和面向?qū)ο蟪绦蛟O(shè)計(jì)的基本思路和方法； c) 能夠熟練應(yīng)用常用的

7、Delphi的組件，實(shí)現(xiàn)應(yīng)用程序的編寫(xiě)、編譯和發(fā)行。</p><p><b>　　三.設(shè)計(jì)流程：</b></p><p><b>　　（1）</b></p><p><b>　?。?）</b></p><p><b>　　四.表結(jié)構(gòu)：</b></p

8、><p><b>　　五.具體步驟：</b></p><p>　　1.新建一個(gè)application。新建aboutbox1。在project1中編寫(xiě)相應(yīng)的代碼。</p><p>　　Project1中的代碼：</p><p>　　program Project1;</p><p><b>

9、　　uses</b></p><p><b>　　Forms,</b></p><p><b>　　sysutils,</b></p><p>　　Unit1 in 'Unit1.pas' {Form1},</p><p>　　Unit2 in 'Unit2.pa

10、s' {Form2},</p><p>　　Unit3 in 'Unit3.pas' {Form3},</p><p>　　Unit4 in 'Unit4.pas' {Form4},</p><p>　　Unit7 in 'Unit7.pas' {AboutBox},</p><p>　

11、　Unit9 in 'Unit9.pas' {Form9},</p><p>　　Unit8 in 'Unit8.pas' {Form8},</p><p>　　Unit10 in 'Unit10.pas' {Form10};</p><p>　　{$R *.res}</p><p><b

12、>　　begin</b></p><p>　　Application.Initialize;</p><p>　　aboutbox:=taboutbox.Create(application);</p><p>　　aboutbox.Show;</p><p>　　aboutbox.update;</p>&l

13、t;p>　　sleep(2000);</p><p>　　Application.CreateForm(TForm1, Form1);</p><p>　　AboutBox.Free;</p><p>　　Application.Run;</p><p><b>　　end.</b></p><

14、p>　　2.新建form1，做成登陸界面，通過(guò)用戶名和密碼進(jìn)入系統(tǒng)。 </p><p>　　Form1（登陸界面）</p><p><b>　　var</b></p><p>　　Form1: TForm1;</p><p>　　implementation</p><p>　　uses U

15、nit2, Unit9;</p><p>　　{$R *.dfm}</p><p>　　procedure TForm1.SpeedButton1Click(Sender: TObject);</p><p><b>　　begin</b></p><p><b>　　begin</b></p

16、><p>　　if edit1.Text='' then showmessage('請(qǐng)輸入用戶名')</p><p>　　else if edit2.Text='' then showmessage('請(qǐng)輸入密碼')</p><p><b>　　else</b></p>

17、<p><b>　　begin</b></p><p>　　table1.Open;</p><p>　　if table1.Locate('Username;Pwd',vararrayof([edit1.Text,edit2.Text]),[]) then</p><p><b>　　begin</b

18、></p><p>　　if not assigned(form2) then</p><p>　　form2:=tform2.Create(self);</p><p>　　form2.Show;</p><p>　　form1.Hide;</p><p><b>　　end</b><

19、;/p><p><b>　　else</b></p><p>　　showmessage('用戶名或密碼不正確，請(qǐng)重新輸入！');</p><p>　　edit1.Clear;</p><p>　　edit2.Clear;</p><p><b>　　end;</b&g

20、t;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure TForm1.SpeedButton2Click(Sender: TObject);</p><p><b>　　begin</b><

21、/p><p>　　application.Terminate;</p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　3.新建form2，通過(guò)代碼調(diào)用其他的窗體。</p><p><b>　　Form2</

22、b></p><p>　　procedure TForm2.Label3MouseDown(Sender: TObject; Button: TMouseButton;</p><p>　　Shift: TShiftState; X, Y: Integer);</p><p><b>　　begin</b></p><

23、p>　　if not assigned(form10) then</p><p>　　form10:=tform10.Create(self);</p><p>　　form10.Show;</p><p>　　form2.Hide;</p><p><b>　　end;</b></p><p&

24、gt;　　procedure TForm2.Label2MouseDown(Sender: TObject; Button: TMouseButton;</p><p>　　Shift: TShiftState; X, Y: Integer);</p><p><b>　　begin</b></p><p>　　if not assigned(

25、form8) then</p><p>　　form8:=tform8.Create(self);</p><p>　　form8.Show;</p><p>　　form2.Hide;</p><p><b>　　end;</b></p><p>　　procedure TForm2.Timer

26、1Timer(Sender: TObject);</p><p><b>　　begin</b></p><p>　　label4.caption:=datetimetostr(now);</p><p><b>　　end;</b></p><p>　　procedure TForm2.Label

27、6MouseDown(Sender: TObject; Button: TMouseButton;</p><p>　　Shift: TShiftState; X, Y: Integer);</p><p><b>　　begin</b></p><p>　　if not assigned(form3) then</p><

28、p>　　form3:=tform3.Create(self);</p><p>　　form3.Show;</p><p>　　form2.Hide;</p><p><b>　　end;</b></p><p>　　procedure TForm2.Label7MouseDown(Sender: TObject;

29、 Button: TMouseButton;</p><p>　　Shift: TShiftState; X, Y: Integer);</p><p><b>　　begin</b></p><p>　　if not assigned(form4) then</p><p>　　form4:=tform4.Create

30、(self);</p><p>　　form4.Show;</p><p>　　form2.Hide;</p><p><b>　　end;</b></p><p>　　procedure TForm2.Label5Click(Sender: TObject);</p><p><b>

31、　　begin</b></p><p>　　if not assigned(form9) then</p><p>　　form9:=tform9.Create(self);</p><p>　　form9.Show;</p><p>　　form2.Hide;</p><p><b>　　end

32、;</b></p><p><b>　　end.</b></p><p>　　4.新建form8，編寫(xiě)代碼，可以快速輸入學(xué)生的信息，也可以很方便的刪除學(xué)生的信息。</p><p>　　Form8（信息輸入）</p><p>　　procedure TForm8.SpeedButton1Click(Sender

33、: TObject);</p><p><b>　　begin</b></p><p><b>　　begin</b></p><p>　　if edit1.Text='' then showmessage('請(qǐng)輸入學(xué)號(hào)')</p><p>　　else if ed

34、it2.Text='' then showmessage('請(qǐng)輸入姓名')</p><p>　　else if edit3.Text='' then showmessage('請(qǐng)輸入性別')</p><p>　　else if edit4.Text='' then showmessage('請(qǐng)輸入年齡&

35、#39;)</p><p>　　else if edit5.Text='' then showmessage('請(qǐng)輸入電話)</p><p><b>　　begin</b></p><p>　　if messagedlg('確實(shí)要添加該學(xué)生信息？',mtinformation,[mbok,mbcancel

36、],0)=mrok then</p><p><b>　　begin</b></p><p>　　Table1.Edit;</p><p>　　Table1.Append;</p><p>　　Table1.FieldByName('學(xué)號(hào)').asstring:=edit1.text;</p>

37、<p>　　Table1.FieldByName('姓名').asstring:=edit2.text;</p><p>　　Table1.FieldByName('性別').asstring:=edit3.text;</p><p>　　Table1.FieldByName('年齡').asstring:=edit4.text

38、;</p><p>　　Table1.FieldByName('電話').asstring:=edit5.text;</p><p>　　Table1.Post;</p><p>　　showmessage('添加成功');</p><p>　　edit1.clear;</p><p>

39、　　edit2.clear;</p><p>　　edit3.clear;</p><p>　　edit4.clear;</p><p>　　edit5.clear;</p><p>　　Table1.Append;</p><p><b>　　end</b></p><p&g

40、t;<b>　　else</b></p><p><b>　　begin</b></p><p>　　showmessage('添加失敗');</p><p>　　edit1.clear;</p><p>　　edit2.clear;</p><p>　　ed

41、it3.clear;</p><p>　　edit4.clear;</p><p>　　edit5.clear;</p><p>　　Table1.Append;</p><p><b>　　end;</b></p><p><b>　　end;</b></p>

42、<p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　procedure TForm8.SpeedButton2Click(Sender: TObject);</p><p><b>　　begin</b></p><p

43、>　　if not assigned(form2) then</p><p>　　form2:=tform2.Create(self);</p><p>　　form2.Show;</p><p>　　form8.Hide;</p><p><b>　　end;</b></p><p>　　

44、procedure TForm8.SpeedButton3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if not assigned(form9) then</p><p>　　form9:=tform9.Create(self);</p><p>

45、　　form9.Show;</p><p>　　form8.Hide;</p><p><b>　　end;</b></p><p>　　procedure TForm8.SpeedButton4Click(Sender: TObject)，</p><p><b>　　end；</b></p

46、><p><b>　　end.</b></p><p>　　5.新建form3，編寫(xiě)代碼，可以快速輸入學(xué)生的成績(jī)，也可以很方便的刪除學(xué)生的成績(jī)。</p><p>　　Form3（成績(jī)輸入）</p><p>　　procedure TForm3.SpeedButton2Click(Sender: TObject);</p

47、><p><b>　　begin</b></p><p>　　if not assigned(form2) then</p><p>　　form2:=tform2.Create(self);</p><p>　　form2.Show;</p><p>　　form3.Hide;</p>

48、<p><b>　　end;</b></p><p>　　procedure TForm3.SpeedButton3Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if not assigned(form9) then</p>&

49、lt;p>　　form9:=tform9.Create(self);</p><p>　　form9.Show;</p><p>　　form3.Hide;</p><p><b>　　end;</b></p><p>　　procedure TForm3.SpeedButton1Click(Sender: TOb

50、ject);</p><p><b>　　begin</b></p><p><b>　　begin</b></p><p>　　if edit1.Text='' then showmessage('請(qǐng)輸入學(xué)號(hào)')</p><p>　　else if edit2.Te

51、xt='' then showmessage('請(qǐng)輸入姓名')</p><p>　　else if edit15.Text='' then showmessage('請(qǐng)輸入科目')</p><p>　　else if edit16.Text='' then showmessage('請(qǐng)輸入成績(jī)'

52、)</p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　if messagedlg('確實(shí)要添加該學(xué)生？',mtinformation,[mbok,mbcancel],0)=mrok then</p><p><b&

53、gt;　　begin</b></p><p>　　Table2.Edit;</p><p>　　Table2.Append;</p><p>　　Table2.FieldByName('學(xué)號(hào)').asstring:=edit1.text;</p><p>　　Table2.FieldByName('姓名&#

54、39;).asstring:=edit2.text;</p><p>　　Table2.FieldByName('科目').asstring:=edit15.text;</p><p>　　Table2.FieldByName('成績(jī)').asstring:=edit16.text;</p><p>　　table2.post;<

55、;/p><p>　　showmessage('添加成功');</p><p>　　edit1.Clear;</p><p>　　edit2.Clear;</p><p>　　edit15.Clear;</p><p>　　edit16.Clear;</p><p>　　Table2.

56、Append;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　showmessage('添加失敗');</p><p>　　T

57、able2.Append;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　

58、procedure TForm3.SpeedButton4Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　table2.Active:=true;</p><p>　　if edit3.Text='' then</p><p>　　sho

59、wmessage('請(qǐng)輸入要?jiǎng)h除學(xué)生的學(xué)號(hào)')</p><p>　　else if table2.Locate('學(xué)號(hào)',edit3.Text,[]) then</p><p><b>　　begin</b></p><p>　　if messagedlg('確實(shí)要?jiǎng)h除該學(xué)生？',mtwarnin

60、g,[mbok,mbcancel],0)=mrok then</p><p><b>　　begin</b></p><p>　　table2.Delete;</p><p>　　showmessage('刪除成功');</p><p>　　edit3.Clear;</p><p>

61、;<b>　　end</b></p><p><b>　　else</b></p><p>　　showmessage ('刪除失敗');</p><p>　　edit3.Clear;</p><p><b>　　end;</b></p><

62、p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　6.新建form9，編寫(xiě)代碼，是系統(tǒng)能夠退出。</p><p>　　Form9（退出界面）</p><p>　　procedure TForm9.SpeedButton1Click(Sender

63、: TObject);</p><p><b>　　begin</b></p><p>　　application.Terminate;</p><p><b>　　end;</b></p><p>　　procedure TForm9.SpeedButton2Click(Sender: TObje

64、ct);</p><p><b>　　begin</b></p><p>　　if not assigned(form2) then</p><p>　　form2:=tform2.Create(self);</p><p>　　form2.Show;</p><p>　　form9.Hide;&

65、lt;/p><p><b>　　end;</b></p><p><b>　　end.</b></p><p><b>　　六．心得體會(huì)：</b></p><p>　　時(shí)光似水，歲月如歌。在這次的課程設(shè)計(jì)中不僅檢驗(yàn)了我所學(xué)習(xí)的知識(shí)，也培養(yǎng)了我如何去把握一件事情，如何去做一件事情，又

66、如何完成一件事情。在設(shè)計(jì)過(guò)程中，和同學(xué)們相互探討，相互學(xué)習(xí)，相互監(jiān)督。通過(guò)這次的課設(shè)，我對(duì)Delphi的學(xué)習(xí)有了更深的理解。</p><p>　　這次課程設(shè)計(jì)終于順利完成了，在設(shè)計(jì)中遇到了很多編程問(wèn)題，最后在同學(xué)和同學(xué)們的幫助下并且查閱了很多相關(guān)的資料才得以解決。通過(guò)本次課程設(shè)計(jì)，我進(jìn)一步溫習(xí)和鞏固了課本的理論知識(shí)，增強(qiáng)了理論聯(lián)系實(shí)際的能力。同時(shí)也增強(qiáng)了我通過(guò)檢索資料來(lái)獲取相關(guān)專(zhuān)業(yè)信息以及利用檢索到的信息來(lái)解決面

67、臨問(wèn)題的能力。本次設(shè)計(jì)使我深刻認(rèn)識(shí)到自己軟件編程方面的知識(shí)薄弱。在今后的學(xué)習(xí)我要強(qiáng)軟件編程方面知識(shí)的積累和運(yùn)用。最后，在課設(shè)過(guò)程中，我要感謝幫助過(guò)我的同學(xué)和老師，在此，對(duì)這些同學(xué)和老師表達(dá)誠(chéng)摯的謝意！經(jīng)過(guò)一周的課程設(shè)計(jì)，加強(qiáng)了我關(guān)于理論聯(lián)系實(shí)際、與具體課題項(xiàng)目結(jié)合開(kāi)發(fā)、設(shè)計(jì)系統(tǒng)的能力。既讓我們了解到應(yīng)該怎樣把理論運(yùn)用于實(shí)際，又讓我們了解到在實(shí)踐中遇到問(wèn)題時(shí)要怎樣運(yùn)用所學(xué)知識(shí)理論去解決。 在本次課程設(shè)計(jì)中，我們還需要一些以前沒(méi)有