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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：20 大?。?.23MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩19頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　信息科學(xué)與工程學(xué)院　　課程設(shè)計任務(wù)書　　題目：學(xué)生成績信息管理系統(tǒng) 　　姓名： XXX 　　學(xué) 號： XXXXX

2、XXXX 　　專業(yè)：計算機應(yīng)用技術(shù) 　　課程： Delphi應(yīng)用程序設(shè)計 　　課程設(shè)計任務(wù)書及成績評定　　目錄　　一．前言………………………

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

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

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

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

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

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

9、　　uses　　Forms,　　sysutils,　　Unit1 in 'Unit1.pas' {Form1},　　Unit2 in 'Unit2.pa

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

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

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

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

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

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

16、>　　if edit1.Text='' then showmessage('請輸入用戶名')　　else if edit2.Text='' then showmessage('請輸入密碼')　　else

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

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

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

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

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

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

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

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

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

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

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

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

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

30、(self);　　form4.Show;　　form2.Hide;　　end;　　procedure TForm2.Label5Click(Sender: TObject);

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

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

33、: TObject);　　begin　　begin　　if edit1.Text='' then showmessage('請輸入學(xué)號')　　else if ed

34、it2.Text='' then showmessage('請輸入姓名')　　else if edit3.Text='' then showmessage('請輸入性別')　　else if edit4.Text='' then showmessage('請輸入年齡&

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

36、],0)=mrok then　　begin　　Table1.Edit;　　Table1.Append;　　Table1.FieldByName('學(xué)號').asstring:=edit1.text;

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

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

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

40、t;　　else　　begin　　showmessage('添加失敗');　　edit1.clear;　　edit2.clear;　　ed

41、it3.clear;　　edit4.clear;　　edit5.clear;　　Table1.Append;　　end;　　end;

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

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

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

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

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

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

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

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

50、ject);　　begin　　begin　　if edit1.Text='' then showmessage('請輸入學(xué)號')　　else if edit2.Te

51、xt='' then showmessage('請輸入姓名')　　else if edit15.Text='' then showmessage('請輸入科目')　　else if edit16.Text='' then showmessage('請輸入成績'

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

53、gt;　　begin　　Table2.Edit;　　Table2.Append;　　Table2.FieldByName('學(xué)號').asstring:=edit1.text;　　Table2.FieldByName('姓名&#

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

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

56、Append;　　end　　else　　begin　　showmessage('添加失敗');　　T

57、able2.Append;　　end;　　end;　　end;　　end;

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

59、wmessage('請輸入要刪除學(xué)生的學(xué)號')　　else if table2.Locate('學(xué)號',edit3.Text,[]) then　　begin　　if messagedlg('確實要刪除該學(xué)生？',mtwarnin

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

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

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

63、: TObject);　　begin　　application.Terminate;　　end;　　procedure TForm9.SpeedButton2Click(Sender: TObje

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

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

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

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

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載