1、基于delphi的學生信息管理系統的設計與實現【摘要】隨著科學技術和信息技術的發展，計算機領域不斷取得新的研究成果。大家都知道，在學校工作中學生的信息管理是一項重要的內容。無論是農村學校還是城市學校、無論是小學還是初中，隨著信息技術在管理上越來越深入而廣泛的應用，在學校里，要處理大量的學生數據信息顯得尤為的重要。為此，學校不得不建立信息化的學生信息管理系統。學生信息管理信息系統是一個不斷發展的新型學科，任何一個學校要生存和發展，就要高效率地把內部活動有機地組織起來，本系統論文主要是管理學生的資料。重點介紹其功能：學生信息管理、學籍管理、成績管理、獎懲管理、系統管理。使用delphi設計程序進行

2、管理操作，并用access進行后臺數據庫的連接設計。主要是以五大功能進行系統的設計和實現。隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統的實施在技術上已逐步成熟。管理信息系統是一個不斷發展的新型學科，任何一個單位要生存要發展，要高效率地把內部活動有機地組織起來，就必須建立與自身特點相適應的管理信息系統。在計算機技術的迅速發展的前提下,為了加快學校學籍管理,開發一套學籍管理系統迫在眉捷。本系統主要采用delphi 7做為開發工具,應用面向對象的程序設計方法進行開發與設計的。利用其提供的集成開發環境及各種控件，尤其是對數據庫的支持完成對數據庫的各種操作，達到對學生成績管理的目的。本系統使

3、用ado連接數據庫access2003，提出了權限管理模塊的具體實現方法，并完成了相關軟件的設計任務。最終系統能夠完成信息的輸入、輸出,數據的修改、查詢和統計等功能，使用戶操作起來簡便快捷。隨著科學技術的不斷進步，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發揮著越來越重要的作用。作為計算機應用的一個重要部分，信息管理系統是一個由用戶和計算機組成的進行信息管理、信息收集、存儲處理、傳遞使用和維護的軟件系統。學生信息管理系統是學校地方管理工作過程中不可缺少的部分，對學生信息管理工作，具有著手工管理所無法比擬的優點，檢索迅速、查找方便、可靠性高、存儲量大等。這些優

4、點能夠極大地提高日常查詢的效率。因此，開發學生信息管理系統成為很有必要的事情。數據庫技術是一種計算機輔助管理數據的方法，它研究如何組織和存儲數據，如何高效地獲取和處理數據。而在互聯網日益發展、壯大的背景下，在因特網普及浪潮持續高漲的情況下，如何讓原來在單機中使用的數據庫可供多機使用，也成了必然的趨勢。學生信息管理系統是典型的信息管理系統 (mis)，其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。經過分析，我們使用microsoft公司的visual basic開發工具

5、，利用其提供的各種面向對象的開發工具，尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象，首先在短時間內建立系統應用原型，然后，對初始原型系統進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統。【關鍵詞】管理信息系統、學生管理、delphi應用一、 delphi 概述1.1 delphi 語言的特點 delphi是基于object pascal語言的面象對象的開發工具，使用其集成開發環境可以快速地建立應用程序，即可開發本地類型的軟件，又可開發客房/服務器類型的程序，并提供了豐富的數據庫管理工具，在開發數據庫應用程序方面具有獨特的優勢。delphi的主要特點體現在以下幾個方面：（1）de

6、lphi為32位應用程序，因此其性臺就像裝上了渦輪引擎一樣強勁有力，使用它可開發出功能強大的應用程序。（2）delphi的編譯器是目前世界上最快的32位本地代碼編譯器。使用這種編譯器產生的運行文件exe是獨立的，不需要鏈接運行時的解釋器dll.（3）delphi可充分發揮windwos95/98/2000/xp/2003的強大功能。（4）delphi提供了多種32位可視組件庫。（5）delphi是一種面向對象的程序設計語言，因此可做到可視窗體的繼承。（6）delphi采用3層數據管理模式(數據層、對象層、應用程序層)，把諸如數據模型、業務規則、窗體、對象等集中存儲在對象存儲庫中。（7）應用程序

7、可通過在delphi中使用borland公司提供的數據引擎(bde)功能，可以毫無障礙地使用多種數據庫，不論是大型數據庫還是pc機中的數據庫。（8）delphi中的數據庫感知功能，可使用戶在開發應用程序時就可看到數據庫的動態變化。(9)使用delphi提供的數據庫瀏覽器，則可使用用戶在delphi的集成開發環境中，方便瀏覽、修改、索引數據庫。(10)為了便于維護程序，delphi將數據訪問與業務規則從程序中分離出來，集中存儲在數據模型對象中，當業務規則需要修改時，只需在數據模型級進行修改。程序運行調用這些數據模型時，修改的結果會自動反映在應用程序中。此外，在delphi中，為用戶免費提供了2個

8、用戶許可的本地interbase(數據庫管理系統).1.2 delphi的常用組件：（1） delphi的常用組件有tlable,tedit,tcombox,tmemo,tbutton,tcheckbox,tradiobutoon,等連數據庫的控件會在下面連接數據庫時用到。最簡單的方法是：1. 在delphi中添加adoconnection 控件。連到你要修改的數據庫，active屬性改成true,說明數據庫連接成功2. 添加adotable控件，connection 屬性填上第1步中的adoconnection 名稱。tablename填上你要修改的表，active屬性改成true,說明數據

9、表連接成功或添加adoquery控件，設置與adotable稍有不同，就是沒有tablename屬性，需要在sql屬性中輸入你連接表的sql語句。3.添加data access 中的 datasource控件。dataset屬性設置成你第2步中的adotable或adoquery控件名稱。4.在dbgrid控件（可能是你說的列表框吧）的datasource屬性中設置成第3步中datasource控件的名稱。這時，數據表中的數據已經顯示到了dbgrid中。5. 查看以上用到的adotable和dbgrid的readonly屬性，全部改成false(默認false)6. 這時，你修改列表框中的值后

10、，鼠標點另一行后，數據會自動保存到oracle表。 第二章 設計的目的與需求分析2.1 設計的目的隨著計算機技術的發展和互聯網時代的到來和飛速發展，我們已經進入了信息時代，也有人稱為數字化時代，在這數字化的時代里，學校傳統的管理方法和辦學水平都受到了極大的挑戰。internet技術持續迅猛的發展，也給傳統的辦學提出了新的模式。絕大部分大學和學院都已接入互聯網并建成校園網，各校的硬件設施已經比較完善。通過設計和建設網絡拓撲架構、網絡安全系統、數據庫基礎結構、信息共享與管理、信息的發布與管理，從而方便管理者、老師和學生間信息發布、信息交流和信息共享。以現代計算技術、網絡技術為基礎的數字化教學主要是

11、朝著信息化、網絡化、現代化的目標邁進。與網絡技術相結合的新型辦學模式具有對于教育、教學過程來說極為寶貴的特性，可以為新型辦學模式的建構提供理想的環境。通過設計達到熟練掌握.net基本結構以及visual basic語言的基本知識和技能；基本掌握面向對象程序開發的基本思路和方法；掌握acess數據庫開發基本知識；能夠利用所學的基本知識和技能，進行簡單數據庫應用程序設計。根據題目的要求，給出解決問題的方案，通過分析問題、分解問題來解決問題，最終達到熟練掌握visual basic語言的運用和visual studio2008工具的使用。2.2 需求分析用戶的需求具體體現在各種信息的錄入、修改、刪除

12、和查詢，這就要求數據庫結構能充分滿足各種信息的輸出和輸入。收集基本數據、數據結構以及數據處理的流程，組成一份詳盡的數據字典，為后面的具體設計打下基礎。更重要的是數據庫設計經驗在今后其他項目的開發過程中同樣有著很重要的借鑒作用。學生管理系統的開發目的是為了實現學生課程、學籍的信息化管理。本系統需要完成的功能有： 有關學籍等信息的輸入，包括輸入學生基本信息、所在班級、所學課程和成績等。學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和成績等。學生信息的修改。班級管理信息的輸入，包括輸入班級設置、年級信息等。班級管理信息的查詢。班級管理信息的修改。學生課程的設置和修改。8.學生獎罰情況的查詢

13、。第三章 學生信息管理系統的總體設計3.1模塊的設計分析本次設計主要分為四個模塊：管理員模塊、學生模塊、教師模塊、訪客模塊，詳細情況如下圖所示：登陸界面管理員學生教師訪客用戶管理新生注冊課程班級信息成績錄入成績查詢學生獎罰信息個人信息查詢添加用戶刪除用戶修改用戶密碼數據庫文件備份退出課程設置班級輔導員信息個人成績查詢班級成績查詢學生信息課程信息重新登陸退出修改個人信息必修課查詢選修課查詢 3.2可行性分析學生信息，作為一個學校，就有一定的工作量存在，而學生信息，它的工作量可能是其它信息工作量的幾倍，班級的增加、班級的查找、班級的修改；學生檔案；課程管理；成績管理；繳費管理；統計等等，每個信息的

14、數據都在不斷地變化著，如果采用人工的方式進行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。針對這樣的情況，采用讓數據的查詢變得簡單化，數據變的更讓每個人都在任何時刻都可以了解到。學生信息管理系統是為本校開發的，本系統所采用的語言是visual basic，用microsoft access 2003數據庫完成。該系統總體有三部分組成，包括用戶管理信息、學生信息、老師信息。通過本系統，把本校內部查詢用戶管理信息、學生信息、老師信息各個環節進行有效地計劃、組織和控制。通過本校內部的信息，依據統一數據信息進行管理，把任何一塊信息所產生的數據變動及時地反映給其它相關信息，做到數據共享。本系統

15、主要信息流程為：管理員維護接受學生的信息，學生信息查詢根據管理員維護的學生信息做出對所接收的信息合理性進行判斷，并交于信息維護進行相應的修改，再把信息存入數據庫中。學生信息是對學生進行相應地修改自己的個人信息。采用本系統，能夠使整個系統內部所有信息的工作簡化，提高工作效益。由于采用統一的數據信息，使相關資料能夠快速地查詢所需的數據、資料及其它信息的，使信息快速高效運行。本系統中使用到的數據表主要有學生信息表、登陸信息表、課程表、必修課、選修課成績表、班級輔導員信息表、學生獎罰信息表，由這七個表，組成了名為student的數據庫（如圖一）。其中學生信息表是本系統主要的一張表（圖一）3.3關系型數

16、據庫的實現access2000就是關系數據庫開發工具，數據庫能匯集各種信息以供查詢、存儲和檢索。access的優點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于excel的電子表格，可以使數據庫一目了然。另外，access允許創建自定義報表用于打印或輸出數據庫中的信息。access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他用戶共享數據庫。access 是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述，access作為關系數據庫開發具備了許多優點，可以在一個數據包同時擁有桌面數據庫的便利和關系數據庫的強大功能。數

17、據庫與vb的連接：本系統的數據鏈接采用的是ado方法，打開控制面板，打開odbc數據源圖標，選擇“系統dsn”標簽，點擊“添加”按鈕，在彈出的“創建新數據源”對話框中選擇名稱為“microsoft access drive（*.mdb）”，點擊“完成”按鈕，在odbc microsoft access 安裝對話框中在數據源名中輸入信息，在數據庫這個框中， 單擊“選擇”按鈕，在彈出的選擇數據庫這一對話框架中，在驅動器下拉列表框中選擇本系統數據庫所在驅動器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“access數據庫（*.mdb）”，在數據庫名中選擇本系統的數據庫，點擊“確定”按鈕即完成數據

18、鏈接。所有信息都是根據這張學生檔案進行有關的操作，主要的字段有如下表所示：字段代號字段類型字段長度是否可以為空備注學號char10否學生編號姓名char10否學生姓名性別char10是學生性別出生年月char10是民族char1000是籍貫char1000是家庭住址char100是電話char10否入學年份char10否班名char10否專業名char10否班治面貌char10是職務char10是宿舍住址char10否班內序號char10是學校char10否 各表間關系如圖所示：e-r圖：學生信息表民 族出生年月性 別姓 名學 號政治面貌專業名班 名入學年份電 話家庭住址籍 貫職 務宿舍住址學

19、 校班內序號關聯關聯關聯登陸信息表用戶名密碼身份選修課成績表必修課成績表課程表id必修課程選修課程id學號姓名專業學期課程成績id學號專業學期課程成績姓名第一章 程序設計與編碼 4.1 開發平臺與工具本次系統設計，是在windows xp系統下，基于visual studio 2008環境下，使用visual basic語言進行編程，通過與acess 2003數據庫連接，使整個系統能更加完美的得以實現。4.2 程序設計4.2.1 登錄模塊程序設計本模塊主要是用戶通過學生信息管理系統的首頁登錄進入該系統。用戶輸入正確的用戶名和密碼，系統會根據用戶的身份進行相應權限劃分；如果登錄信息有錯誤，則系統

20、提示登入錯誤的信息，并且禁止系統用戶進行任何操作。學生信息管理系統的登錄主頁面如圖4.1所示。 圖4.1 學生信息管理系統登錄首頁用戶在登錄頁面寫好用戶名和密碼，選擇登錄，登錄成功則跳轉到系統的首頁，否則提示錯誤信息。代碼如下：if frm1.dialogresult = windows.forms.dialogresult.ok then if frm1.shenfen.text = 訪客 then shell(explorer.exe 1) me.close() exit sub elseif frm1.shenfen.text = 學生 then studentlogin.show()

21、exit sub elseif frm1.txtusername.text = then msgbox(用戶名不能為空！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub elseif frm1.txtpassword.text = then msgbox(密碼不能為空！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub elseif frm1.shenfen.te

22、xt = 請選擇 then msgbox(請選擇身份！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub end if dim tablename as string = 登錄信息表 dim strr as string strr = select 用戶名,密碼,身份from 登錄信息表where(用戶名= & frm1.txtusername.text & ) try commonmodule.sqlopera(strr, tablename) if (commonmodule

23、.myrow.item(1) = frm1.txtpassword.text) and (commonmodule.myrow.item(2) = frm1.shenfen.text) then dim str as string str = application.startuppath() me.backgroundimage = drawing.image.fromfile(str & 8.jpg) me.icon = new icon(str & 1.ico) timer1.start() timer2.start() me.show() elseif (commonmodule.my

24、row.item(1) = frm1.txtpassword.text) then msgbox(身份錯誤！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login()exit sub elseif (commonmodule.myrow.item(2) = frm1.shenfen.text) then msgbox(密碼錯誤！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub else m

25、sgbox(身份或密碼錯誤！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub end if catch ex as exception msgbox(沒有該用戶！, msgboxstyle.exclamation + msgboxstyle.okonly, information.) show_login() exit sub end try elseif frm1.dialogresult = windows.forms.dialogresult.cancel then if

26、 messagebox.show(你真的不登錄學生信息管理系統嗎?, 退出系統提示信息, _ messageboxbuttons.yesno, messageboxicon.information) = msgboxresult.yes then application.exit() end if end if4.2.2 管理員功能模塊設計本模塊中最主要的是管理系統用戶,設置用戶信息等操作,其中管理系統用戶包括對他們進行添加,修改,刪除及查詢操作。其中系統管理員對系統用戶進行管理的操作頁面如下圖（4.2）所示： 圖4.2管理員管理用戶操作界面 用戶管理添加用戶、刪除用戶、修改用戶

27、密碼添加用戶是管理員的專有權限，其操作頁面如下圖（4.3）圖（4.4）圖（4.5）所示： 圖4.3 圖4.4 圖4.5添加代碼如下：dim tablename as string = 登錄信息表 dim strr as string strr = select 用戶名,密碼 from 登錄信息表 try if textbox1.text = then msgbox(請輸入用戶名！, msgboxstyle.okonly + msgboxstyle.information, information.) textbox1.focus() exit sub end if if textbox1.te

28、xt = then msgbox(請輸入密碼！, msgboxstyle.okonly + msgboxstyle.information, information.) textbox2.focus() exit sub end if if textbox2.text = textbox3.text then commonmodule.sqlopera(strr, tablename) dim addrow as datarow = commonmodule.mytable.newrow addrow.item(0) = trim(textbox1.text) addrow.item(1) =

29、 trim(textbox2.text) mytable.rows.add(addrow) commonmodule.mycmdbuilder = new oledb.oledbcommandbuilder(commonmodule.mydap) commonmodule.mydap.update(commonmodule.mydataset, tablename) msgbox(添加成功！, msgboxstyle.okonly + msgboxstyle.information, information.) textbox1.text = textbox2.text = textbox3.

30、text = else msgbox(兩次輸入的密碼不匹配，請重新輸入！, msgboxstyle.okonly + msgboxstyle.information, information.) textbox3.focus() end if catch ex as exception msgbox(err.description, msgboxstyle.okonly + msgboxstyle.exclamation, information.) end try刪除用戶代碼如下：if commonmodule.myrow.item(1) = textbox1.text then try d

31、im str as string str = select * from 登錄信息表 commonmodule.sqlopera(str, tablename) commonmodule.mytable.rows(currentrow).delete() if msgbox(確定刪除該用戶嗎？, msgboxstyle.question + msgboxstyle.okcancel + msgboxstyle.defaultbutton2, information.) = msgboxresult.ok then dim cbuild as new oledb.oledbcommandbuil

32、der(commonmodule.mydap) commonmodule.mydap.insertcommand = cbuild.getinsertcommand commonmodule.mydap.deletecommand = cbuild.getdeletecommand commonmodule.mydap.updatecommand = cbuild.getupdatecommand commonmodule.mycmdbuilder = new oledb.oledbcommandbuilder(commonmodule.mydap) commonmodule.mydap.up

33、date(commonmodule.mydataset, 登錄信息表) msgbox(刪除成功！, msgboxstyle.information + msgboxstyle.okonly, infoemation.) combobox1.items.clear() textbox1.text = datashow() end if catch ex as exception msgbox(ex.message) end try else msgbox(密碼錯誤！不能刪除！, msgboxstyle.okonly + msgboxstyle.exclamation, information.)

34、 end if end sub public sub datashow() dim tablename as string = 登錄信息表 dim strr as string strr = select 用戶名 from 登錄信息表 try commonmodule.sqlopera(strr, tablename) dim count as int32 = commonmodule.mytable.rows.count dim i as int32 = 0 for i = 0 to count - 1 combobox1.items.add(commonmodule.mytable.row

35、s.item(i).item(0).tostring() next catch ex as exception msgbox(ex.message) end try修改用戶密碼代碼如下：if textbox2.text = commonmodule.myrow.item(1).tostring then try if textbox3.text = textbox4.text then commonmodule.myrow.item(1) = trim(textbox3.text) msgbox(密碼修改成功！, msgboxstyle.information + msgboxstyle.ok

36、only, information.) dim cbuilder as new oledb.oledbcommandbuilder(commonmodule.mydap) commonmodule.mydap.insertcommand = cbuilder.getinsertcommand commonmodule.mydap.deletecommand = cbuilder.getdeletecommand commonmodule.mydap.updatecommand = cbuilder.getupdatecommand commonmodule.mycmdbuilder = new

37、 oledb.oledbcommandbuilder(commonmodule.mydap) commonmodule.mydap.update(commonmodule.mydataset, 登錄信息表) textbox1.text = textbox2.text = textbox3.text = textbox4.text = textbox1.focus() else msgbox(兩次輸入密碼不相同！請重新輸入！, msgboxstyle.information + msgboxstyle.okonly, information.) textbox2.text = textbox3.

38、text = textbox4.text = textbox2.focus() exit sub end if catch ex as exception msgbox(ex.message) end try elsemsgbox(原密碼輸入錯誤!請重新輸入!, msgboxstyle.information + msgboxstyle.okonly, information.) textbox4.text = textbox2.text = textbox3.text = textbox2.focus() end if 新生注冊這是管理員添加修改新進學生信息的最為重要模塊，如果

39、管理員沒有這個功能，學生信息管理系統就不完美地實現最基本的功能了。新生注冊界面如圖（4.6）所示： 圖4.6 新生注冊界面主代碼如下： dim tablename as string = 學生信息表 dim strr as string strr = select * from 學生信息表 where(學號= & txtid.text & ) try commonmodule.sqlopera(strr, tablename) dim count as integer = commonmodule.mytable.rows.count if count 0 then msgbox(學生信息表中

40、已經存在該學號的學生信息！, msgboxstyle.okonly + msgboxstyle.information, information.) exit sub else datashow() end if catch ex as exception msgbox(ex.message) end try end sub private sub button5_click(byval sender as system.object, byval e as system.eventargs) handles button5.click me.close() end sub public su

41、b datashow() dim tablename as string = 學生信息表 dim strr as string strr = select 學號,姓名,性別,出生年月,民族,籍貫,家庭住址,電話,入學年份,班名,專業名,政治面貌,職務,宿舍住址,班內序號 from 學生信息表 commonmodule.sqlopera(strr, tablename) if txtid.text = then msgbox(請輸入學號！, msgboxstyle.okonly + msgboxstyle.information, information.) txtid.focus() exit

42、 sub end if if txtname.text = then msgbox(請輸入姓名！, msgboxstyle.okonly + msgboxstyle.information, information.) txtname.focus() exit sub end if if txtsex.text = then msgbox(請輸入性別！, msgboxstyle.okonly + msgboxstyle.information, information.) txtsex.focus() exit sub end if if txtbirthyear.text = then ms

43、gbox(請輸入出生年份！, msgboxstyle.okonly + msgboxstyle.information, information.) txtbirthyear.focus() exit sub end if if txtbirthmonth.text = then msgbox(請輸入出生月份！, msgboxstyle.okonly + msgboxstyle.information, information.) txtbirthmonth.focus() exit sub end if if txtnation.text = then msgbox(請輸入民族！, msgb

44、oxstyle.okonly + msgboxstyle.information, information.) txtnation.focus() exit sub end if if txtplace.text = then msgbox(請輸入籍貫！, msgboxstyle.okonly + msgboxstyle.information, information.) txtplace.focus() exit sub end if if txtfamilyaddr.text = then msgbox(請輸入家庭住址！, msgboxstyle.okonly + msgboxstyle

45、.information, information.) txtfamilyaddr.focus() exit sub end if if txtphone.text = then msgbox(請輸入電話號碼！, msgboxstyle.okonly + msgboxstyle.information, information.) txtphone.focus() exit sub end if if txtyear.text = then msgbox(請輸入入學年份！, msgboxstyle.okonly + msgboxstyle.information, information.) txtyear.focus() exit sub end if if txtclass.text = then msgbox(請輸入班級名稱！, msgboxstyle.okonly + msgboxstyle.information, informat