【正文】 ere(學(xué)號(hào) =39。 39。) End If (strr, tablename) Dim count As Integer = If count = 0 Then MsgBox(不存在該學(xué)生的成績信息！ , + , information...) Exit Sub End If Try Dim cbuilder As New () = = = (, tablename) MsgBox(修改成功！ , + , informaton...) Catch ex As Exception MsgBox(修改失敗！ amp。) Else strr = select * from 學(xué)生成績表 where(姓名 =39。 , + , information...) End Try If currentrow = 0 Then Try (currentrow).Delete() Dim cbuild As New () = = = If MsgBox(確定刪除該記錄嗎？ , + , information...) = Then (, tablename) MsgBox(刪除成功！ , + , information...) () datashow() = = = End If Catch ex As Exception MsgBox() End Try End If 成績錄入 成績錄入界面如圖（ ）所示： 圖 成績錄入代碼： If = Then MsgBox(請先選擇課程！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入學(xué)號(hào)！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入姓名！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入性別！ , + , information...) () Exit Sub End If If = Then MsgBox(請輸入分?jǐn)?shù)！ , + , information...) () Exit Sub End If Dim tablename As String = 學(xué)生成績表 Dim strr As String strr = select * from 學(xué)生成績表 Try (strr, tablename) Dim addrow As DataRow = (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (addrow) = New () (, tablename) MsgBox(成績錄入成功！ , + , information...) Catch ex As Exception MsgBox() End Try = = = = End Sub 成績查詢 —— 個(gè)人成績查詢 、班級(jí)成績查詢 個(gè)人成績查詢查詢主界面分別如圖（ ） （ ） 示： 圖 個(gè)人成績查詢 圖 班級(jí)成績查詢 個(gè)人成績查詢代碼： If = (0) Then strr = select * from 學(xué)生成績表 where(學(xué)號(hào) =39。 amp。 年 amp。 amp。 \) = New Icon(str amp。 amp。用戶輸入正確的用戶名和密碼，系統(tǒng)會(huì)根據(jù)用戶的身份進(jìn)行相應(yīng)權(quán)限劃分；如果登錄信息有錯(cuò)誤，則系統(tǒng)提示登入錯(cuò)誤的信息，并且禁止系統(tǒng)用戶進(jìn)行任何操作。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了 許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。由于采用統(tǒng)一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它信息的，使信息快速高效運(yùn)行。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。針對這樣的情況，采用讓數(shù)據(jù)的查詢變得簡單化，數(shù)據(jù)變的更讓每個(gè)人都在任何時(shí)刻都可以了解到。 ⒍班級(jí)管理信息的修改。 ⒉學(xué)生信息的查詢，包括查詢學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績等。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。與網(wǎng)絡(luò)技術(shù)相結(jié)合的新型辦學(xué)模式具有對于教育、教學(xué)過程來說極 為寶貴的特性，可以為新型辦學(xué)模式 的建構(gòu)提供理想的環(huán)境。 Inter技術(shù)持續(xù)迅猛的發(fā)展，也給傳統(tǒng)的辦學(xué)提出了新的模式 。 dbgrid 控件（可能是你說的列表框吧）的 datasource 屬性中設(shè)置成第 3 步中datasource 控件的名稱。連到你要修改的數(shù)據(jù)庫， active 屬性改成true,說明數(shù)據(jù)庫連接成功 2. 添加 adotable 控件， connection 屬性填上第 1 步中的 adoconnection 名稱。 (10)為了便于維護(hù)程序， Delphi 將數(shù)據(jù)訪問與業(yè)務(wù)規(guī)則從程序中分離出來，集中存儲(chǔ)在數(shù)據(jù)模型對象中，當(dāng)業(yè)務(wù)規(guī)則需要修改 時(shí)，只需在數(shù)據(jù)模型級(jí)進(jìn)行修改。 （ 6） Delphi 采用 3 層數(shù)據(jù)管理模式 (數(shù)據(jù)層、對象層、應(yīng)用程序?qū)?)，把諸如數(shù)據(jù)模型、業(yè)務(wù)規(guī)則、窗體、對象 等集中存儲(chǔ)在對象存儲(chǔ)庫中。 （ 2） Delphi 的編譯器是目前世界上最快的 32 位本地代碼編譯器。而對于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。數(shù)據(jù)庫技術(shù)是一種計(jì)算機(jī)輔助管理數(shù)據(jù)的方法，它研究如何組織和存儲(chǔ)數(shù)據(jù)，如何高效地獲取和處理數(shù)據(jù)。 作為計(jì)算 機(jī)應(yīng)用的一個(gè)重要部分，信息 管理 系統(tǒng)是一個(gè)由用戶和計(jì)算機(jī)組成的進(jìn)行信息管理、信息收集、存儲(chǔ)處理、傳遞使用和維護(hù)的軟件系統(tǒng)。利用其提供的集成開發(fā)環(huán)境及各種控件，尤其是對數(shù)據(jù)庫的支持完成對數(shù)據(jù)庫的各種操作，達(dá)到對學(xué)生成績管理的目的。 隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。學(xué)生信息管理信息系統(tǒng)是一個(gè) 不斷發(fā)展的新型學(xué)科，任何一個(gè)學(xué)校要生存和發(fā)展， 就 要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來， 本系統(tǒng)論文主要是管理學(xué)生的資料。 基于 DELPHI 的學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 【摘要】 隨著科學(xué)技術(shù) 和信息技術(shù) 的發(fā)展，計(jì)算機(jī)領(lǐng)域不斷取得新的研究成果。 為此，學(xué)校不得不建立信息化的學(xué)生信息管理系統(tǒng)。主要是以五大功能進(jìn)行系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)。本系統(tǒng)主要采用 Delphi 7做為開發(fā)工具 ,應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法進(jìn)行開發(fā)與設(shè)計(jì)的。 隨著科學(xué)技術(shù)的不斷進(jìn)步，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。因此，開發(fā) 學(xué)生信息管理 系統(tǒng)成為很有必要的事情。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。 Delphi 的主要特點(diǎn)體現(xiàn)在以下幾個(gè)方面： （ 1） Delphi 為 32 位應(yīng)用程序，因此其性臺(tái)就像裝上了渦輪引擎一樣 強(qiáng)勁有力，使用它可開發(fā)出功能強(qiáng)大的應(yīng)用程序。 （ 5） Delphi 是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，因此可做到可視窗體的繼承。 (9)使用 Delphi 提供的數(shù)據(jù)庫瀏覽器，則可使用用戶在 Delphi 的集成開發(fā)環(huán)境中，方便瀏覽、修改、索引數(shù)據(jù)庫。 最簡單的方法是： 1. 在 DELPHI 中添加 adoconnection 控件。 dataset 屬性設(shè)置成你第 2 步中的 adotable 或adoquery 控件名 稱。 第二章 設(shè)計(jì)的目的與需求分析 設(shè)計(jì)的目的 隨著計(jì)算機(jī)技術(shù)的發(fā)展和互聯(lián)網(wǎng)時(shí)代的到來和飛速發(fā)展，我們已經(jīng)進(jìn)入了信息時(shí)代，也有人稱為數(shù) 字化時(shí)代，在這數(shù)字化的時(shí)代里，學(xué)校傳統(tǒng)的管理方法和辦學(xué)水平都受到了極大的挑戰(zhàn)。以現(xiàn)代計(jì)算技術(shù)、網(wǎng)絡(luò)技術(shù)為基礎(chǔ)的數(shù)字化教學(xué)主要是朝著信息化、網(wǎng)絡(luò)化、現(xiàn)代化的目標(biāo)邁進(jìn)。 需求分析 用戶的需求具體體現(xiàn)在各種信息的錄入、修改、刪除 和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。本系統(tǒng)需要完成的功能有： ⒈有關(guān)學(xué)籍等信息的輸入，包括輸入學(xué)生基本信息、所在班級(jí)、所學(xué)課程和成績等。 ⒌班級(jí)管理信息的查詢。 第三章 學(xué)生信息管理系統(tǒng)的總體設(shè)計(jì) 模塊的設(shè)計(jì)分析 本次設(shè)計(jì)主要分為四個(gè)模塊：管理員模塊、學(xué)生模塊、教師模塊、訪客模塊，詳細(xì)情況如下圖所示： 可行性分析 登陸界面 管理員 學(xué)生 教師 訪客 用戶管理 新生注冊 課程班級(jí)信息 成績錄入 成績查詢 學(xué)生獎(jiǎng)罰信息 個(gè)人信息查詢 添加用戶 刪除用戶 修改用戶密碼 數(shù)據(jù)庫文件備份 退 出 課程設(shè)置 班級(jí)輔導(dǎo)員信息 個(gè)人成績查詢 班級(jí)成績查詢 學(xué)生信息 課程信息 重新登陸 退 出 修改個(gè)人信息 必修課查詢 選修課查詢 學(xué)生信息，作為一個(gè)學(xué)校，就有一定的工作量存在，而學(xué)生信息，它的工作量可能是其它信息工作量的幾倍，班級(jí)的增加、班級(jí)的查找、班級(jí)的修改；學(xué)生檔案；課程管理；成績管 理；繳費(fèi)管理；統(tǒng)計(jì)等等，每個(gè)信息的數(shù)據(jù)都在不斷地變化著，如果采用人工的方式進(jìn)行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。通過本系統(tǒng)，把本校內(nèi)部查詢用戶管理信息、學(xué)生信息、老師信息各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制 。 采用本系統(tǒng)，能夠使整個(gè)系統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。 程序設(shè)計(jì) 登錄模塊程序設(shè)計(jì) 本 模塊主要是用戶通過 學(xué)生信息 管理系統(tǒng)的首頁登錄進(jìn)入該系統(tǒng)。 代碼如下： If = Then If = 訪客 Then Shell( 1)