學(xué)生成績(jī)信息管理系統(tǒng)_課程設(shè)計(jì)-資料下載頁(yè)
【導(dǎo)讀】隨著全球一體化的到來(lái)，我們將面對(duì)快節(jié)奏的時(shí)代步伐，面臨世界各國(guó)的經(jīng)濟(jì)的挑戰(zhàn)，隨著電腦技術(shù)已經(jīng)深入我們的生活，他給我們帶來(lái)的效率有目共睹。數(shù)據(jù)庫(kù)技術(shù)體現(xiàn)了當(dāng)代先進(jìn)的數(shù)據(jù)管理方法，使計(jì)算機(jī)的應(yīng)用真正滲透到國(guó)民經(jīng)濟(jì)各個(gè)。部門(mén)，在數(shù)據(jù)處理領(lǐng)域發(fā)揮著越來(lái)越大的作用。傳統(tǒng)的手工方式，所有的工作幾乎還是手工操作來(lái)完成。特別是在西部貧困地區(qū)，學(xué)校的管理工作依然。由手工操作來(lái)完成，效率極低，成本很大，而且極異出錯(cuò)。隨著社會(huì)的發(fā)展，信息化是社會(huì)進(jìn)程的必然。趨勢(shì)，學(xué)校管理充分發(fā)揮其價(jià)值。學(xué)生成績(jī)信息管理內(nèi)容交復(fù)雜，數(shù)據(jù)量交大，手工記錄方式對(duì)現(xiàn)代的我們已經(jīng)過(guò)時(shí)，高效及統(tǒng)計(jì)數(shù)據(jù)的準(zhǔn)確性，從而提高管理效率。據(jù)容易丟失，在統(tǒng)計(jì)時(shí)易發(fā)生錯(cuò)誤，速度慢。在計(jì)算機(jī)聯(lián)網(wǎng)后，數(shù)據(jù)在網(wǎng)上傳遞，可以實(shí)現(xiàn)數(shù)據(jù)共享，避免。生成績(jī)信息管理系統(tǒng)。力，為以后能進(jìn)行數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)、開(kāi)發(fā)與維護(hù)打下良好的基礎(chǔ)。
【正文】 《 Delphi 實(shí)戰(zhàn)演練》 人民郵電出版社 肖永順 《 Delphi 程序設(shè)計(jì)》 人民郵電 Delphi 數(shù)據(jù)庫(kù)開(kāi)發(fā)自學(xué)教程 人民郵電出版社 17 附錄 上文沒(méi)提到的程序： 用戶進(jìn)入程序： var Form1: TForm1。 implementation uses Unit2。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 (39。select * from 用戶 where 用戶名 =39。39。39。++39。39。39。 and 密碼 =39。39。39。++39。39。39。39。)。 。 if()then begin ShowMessage(39。用戶名或密碼錯(cuò)誤！ 39。)。 end else begin 。 end end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin end。 end. 進(jìn)入各功能模塊程序 ： var 18 Form2: TForm2。 implementation uses Unit5, Unit7, Unit6, Unit10, Unit3, Unit4, Unit8, Unit9, Unit11, Unit12, Unit13。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 19 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 20 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 end. 統(tǒng)計(jì)程序 ： var Form10: TForm10。 implementation {$R *.dfm} procedure (Sender: TObject)。 begin 。 (39。select count(學(xué)號(hào) ) as 總?cè)藬?shù) from 學(xué)生 39。)。 。 end。 procedure (Sender: TObject)。 begin 。 (39。select count(學(xué)號(hào) ) from 成績(jī) where 成績(jī) 6039。)。 。 end。 procedure (Sender: TObject)。 begin 。 (39。select count(專業(yè) ) as 專業(yè)數(shù) from 學(xué)生 39。)。 。 end。 procedure (Sender: TObject)。 begin 。 (39。select count(學(xué)號(hào) ) from 成績(jī) where 成績(jī) 6039。)。 。 end。 end.
鄂ICP備17016276號(hào)-1