【正文】 引 言 課題介紹 高校學(xué)生信息的管理是一項(xiàng)既重要又繁瑣的工作。 課題目 的及意義 由于現(xiàn)今的 學(xué)生信息 管理非常繁瑣，行政人員付出大量的工作時(shí)間，得到的效率很低。 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能有了長(zhǎng)足的進(jìn)步。 為 了解決傳統(tǒng)學(xué)生信息的管理正面臨著的這些問(wèn)題，我所設(shè)計(jì)的學(xué)生信息管 理系統(tǒng)也就應(yīng)運(yùn)而生了。 現(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展，對(duì)學(xué)習(xí)活動(dòng)產(chǎn)生了具有深遠(yuǎn)意義的沖擊，人們可以選擇或者設(shè)計(jì)適合其學(xué)習(xí)特點(diǎn)的信息采集、加工與重組方式。 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 2 第二章 開發(fā) 環(huán)境、工具介紹 該軟件是在 Windows XP Professional + Visual Basic + SQL Server 2021的環(huán)境下完成的。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)相對(duì)較好的選擇。 利用 Visual Basic 語(yǔ)言編程有以下幾個(gè)特點(diǎn)： 1）、可視化程序設(shè)計(jì) 在 Visual Basic 中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時(shí)由用戶為開發(fā)圖形 界面添加的代碼真是少而又少，因?yàn)樵谠O(shè)計(jì)圖形界面的過(guò)程中只需設(shè)置 ActiveX 控件的屬性即可。 3）、其他特性 在 Visual Basic以前的版本中，由于仍然 擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。 當(dāng)然在 Visual Basic 中還有其它特性，例如： 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 3 ? 面向?qū)ο蟮木幊陶Z(yǔ)言； ? 結(jié)構(gòu)化程序設(shè)計(jì)； ? 事件驅(qū)動(dòng)的程序設(shè)計(jì)： 在傳統(tǒng)的或“過(guò)程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。 在事件驅(qū)動(dòng)的應(yīng)用程序中，代碼不是按預(yù)定的路徑執(zhí)行，而是在響不同的事件時(shí)執(zhí)行不同的代碼片段。這些事件的順序，決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過(guò)的路徑都是不同的。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時(shí)才會(huì)調(diào)用過(guò)程。事件可以由用戶操作觸發(fā)、也可以由來(lái)自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)、甚至由應(yīng)用程序本身的消息觸發(fā)。 ? 支持動(dòng)態(tài)鏈接庫(kù)； ? 應(yīng)用程序之間的資源共享 vb 支持的數(shù)據(jù)庫(kù)系統(tǒng) VB 支持對(duì)多格式的數(shù)據(jù)庫(kù)的訪問(wèn)和維護(hù)，無(wú)論是 Access 還是 Foxpro 中創(chuàng)建的數(shù)據(jù)庫(kù)，都可以用 VB 打開，對(duì)其進(jìn)行查詢、修改和刪除等操作。 VB 可以訪問(wèn)的數(shù)據(jù)庫(kù)可以簡(jiǎn)單的分為三類，即： Microsoft Access 格式數(shù)據(jù)庫(kù)，外部數(shù)據(jù)庫(kù)和 ODBC 數(shù)據(jù)庫(kù)。 數(shù)據(jù)庫(kù)開發(fā)中的三大工具 Visual Basic 在數(shù)據(jù)庫(kù)應(yīng)用程序的開發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（ DataManager），數(shù)據(jù)控件（ Data Control）以及數(shù)據(jù)編程對(duì)象（數(shù)據(jù)訪問(wèn)對(duì)象貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 4 （ DAO）、 遠(yuǎn)程數(shù)據(jù)對(duì)象（ RDO）和 ActiveX數(shù)據(jù)對(duì)象（ ADO））等功能強(qiáng)大的工具，協(xié)助設(shè)計(jì)人員輕松的連接數(shù)據(jù)庫(kù)文件，并訪問(wèn)其中的數(shù)據(jù)，在功能方面與其他一些專業(yè)數(shù)據(jù)庫(kù)軟件（如 FoxPro， Micosoft Access 等）不相上下。 數(shù)據(jù)控件是 VB 所提 供的基本控件成員之一。數(shù)據(jù)控件可以通過(guò)一些屬性的設(shè)置去鏈接某個(gè)數(shù)據(jù)庫(kù)文件，但是它本身并無(wú)法顯示數(shù)據(jù)庫(kù)各個(gè)記錄的內(nèi)容，必須在搭配其他具有數(shù)據(jù)感知（ Data Aware）功能的控件對(duì)應(yīng)并顯示一個(gè)字段內(nèi)容，以方便地進(jìn)行記錄的瀏覽及編輯工作。借助程序代碼編寫，直接控制 Jet數(shù)據(jù)庫(kù)引擎，配合數(shù)據(jù)庫(kù)控件，能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。使用 RDO 可以不用本地的查詢機(jī)就能訪問(wèn) ODBC 數(shù)據(jù)源，這無(wú)疑將大大提高應(yīng)用程序的性能。 ADO 更易于使用。 SQL Server 2021 簡(jiǎn)介 SQL Server 2021 是微軟公司最新版的大型數(shù)據(jù)庫(kù)服務(wù)器，其性能指 標(biāo)在各方面都有趕超 Oracle 數(shù)據(jù)庫(kù)的趨勢(shì)。通過(guò)對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為 WEB 站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在 Inter 商業(yè)領(lǐng)域快速建立并應(yīng)用。支持基于角色的安全并擁有安全審計(jì)工具。記得在以前各 種關(guān)于 SQL Server 的文章，都會(huì)將其定位成中小型應(yīng)用方面，這種感覺(jué)被大家自然的延續(xù)到了 2021 版之中。在過(guò)去的很長(zhǎng)一段時(shí)間中，微軟公 司聘請(qǐng) 了世界上最優(yōu)秀的數(shù)據(jù)庫(kù)專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵(lì)精圖治，就是為了摘掉扣在自己頭上的這頂帽子。這其 實(shí)對(duì)于開發(fā)真正的數(shù)據(jù)庫(kù)應(yīng)用并沒(méi)有直接的幫助作用，只能使大家停留在應(yīng)用的初級(jí)階段。另外， SQL Server 2021 可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比 Access 強(qiáng)大的伸縮性。 1）、 豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。此外， SQL Server 2021 還提供了 SQL 事件探查器、 SQL 查詢分析器、 SQL Server 服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡(jiǎn)化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。即使 SQL Server 數(shù)據(jù)庫(kù)管理員不做任何設(shè)置，SQL Server 也能夠在運(yùn)行過(guò)程中根據(jù)環(huán)境配置和用戶訪問(wèn)情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最 優(yōu)性能，從而減輕管理員工作。 Inter 網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道， SQL Server 增強(qiáng)了對(duì) Inter 技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫(kù) Web 出版工具“ Web助手”外，還增強(qiáng)了對(duì) XML和 HTTP 技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過(guò) XML 等訪問(wèn) SQL Server 數(shù)據(jù)庫(kù)系統(tǒng)，也擴(kuò)展了SQL Server 在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。SQL Server提供了 TransactSQL、 DBLibrary for C、嵌入式 SQL（ ESQL）等開發(fā)工具， TransactSQL 與工業(yè)標(biāo)準(zhǔn) SQL 語(yǔ)言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。 5）、 具有很好的伸縮性和可靠性。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。 SQL Server 2021 與 Microsoft Windows 2021 有機(jī)集成，所以可以使用 Windows 2021 的活動(dòng)目錄（ Active Directory）功能對(duì) SQL Server貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 6 進(jìn)行集中管理，大大簡(jiǎn)化大型企業(yè)中的系統(tǒng)管理工作。 ADO 對(duì)象概述 ADO 對(duì)象能夠存取到數(shù)據(jù)庫(kù)的內(nèi)容，首先要求數(shù)據(jù)庫(kù)的驅(qū)動(dòng)程序 ( ODBC 驅(qū)動(dòng)程序與 OLE DB 驅(qū)動(dòng)程序 )必須安裝上，否則， ADO對(duì)象是無(wú)法存取數(shù)據(jù)庫(kù)中內(nèi)容，其原理示意圖如 下 圖所 示： 請(qǐng)注意：上圖中的“各種數(shù)據(jù)庫(kù)所對(duì)應(yīng)的驅(qū)動(dòng)程序”即 ODBC 驅(qū)動(dòng)程序與OLE DB 驅(qū)動(dòng)程序?？砂阉c ASP 結(jié)合起來(lái)，建立提供數(shù)據(jù)庫(kù)信息的網(wǎng)頁(yè)內(nèi)容，對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時(shí)更新顯示”的最新 Web 數(shù)據(jù)庫(kù)技術(shù)。 利用 ADO 開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序有以下幾個(gè)優(yōu)點(diǎn)： 1）、支持客戶機(jī) /服務(wù)器結(jié)構(gòu)（ Client/Server）與 Web 系統(tǒng)開發(fā)技術(shù)。 3）、支持分批修改數(shù)據(jù)庫(kù)內(nèi)容。 5）、先進(jìn)的 Recordset 數(shù)據(jù)高速緩存管理功能。 客戶端 客戶端 客戶端 ADO 對(duì)象 各種數(shù)據(jù)庫(kù)所對(duì)應(yīng)的驅(qū)動(dòng)程序 各種數(shù)據(jù)庫(kù) (如 Access、 SQL Server以及 Oracle 等 ) 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 7 7）、 ADO 屬于 Free_threaded 對(duì)象，利用它可以開發(fā)出更有效的 Web 應(yīng)用程序。 2）、 Command 對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。 Recordset 對(duì)象的 LockType 屬性的設(shè)置值 如下表所示 ： 常量 值 說(shuō)明 adLockReadOnly 1 默認(rèn)值，只讀。提供者執(zhí)行必要的操作確保成功編輯記錄，通常 采用立即鎖定數(shù)據(jù)源的記錄的方式。提供者使用開放式鎖定，只在調(diào)用 Updata 方法時(shí)鎖定記錄。用于與立即更新模式相反 的批更新模式。 6）、 Property 對(duì)象：?jiǎn)为?dú)的一個(gè) Property 對(duì)象，提供屬性功能。 使用 ADO 對(duì)象可以建立和管理數(shù)據(jù)庫(kù)的連接，按數(shù)據(jù)庫(kù)服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取 ODBC 的錯(cuò)誤信息等。 SQL 命令主要分成兩部分： DDL(Data Definition Language)和 DML(Data Manipulation Language),其中 DDL 是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而 DML 則是操作數(shù)據(jù)庫(kù)記錄的指令群，如數(shù)據(jù)庫(kù)記錄的添 加、更新、刪除、和查詢等。 1）、篩選及排序記錄的 Select 指令 基本句型一： Select 字段串列 From 數(shù)據(jù)表 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 8 基本句型二： Select ? From ? Where 篩選條件 基本句型三： Select ? From ? Order By 字段串列 Select Top：限定選取數(shù)據(jù)的條數(shù) 2）、刪除數(shù)據(jù)記錄的 Delete 指令 基本語(yǔ)法： Delete From 數(shù)據(jù)表 Where 條件式 3）、更新數(shù)據(jù)記錄的 Update 指令 基本語(yǔ)法： Update 數(shù)據(jù)表 Set 表達(dá)式 4）、增加數(shù)據(jù)記錄的 Insert Into 指令 基本句型一： Insert Into 數(shù)據(jù)表 (字段串列 ) Values (字段串列 ) 基本句型二： Insert Into 數(shù)據(jù)表 (字段 1,字段 2,? ,字段 n) Select ? 5）、建立新數(shù)據(jù)表的 Select Into 指令 該指令與“ Insert Into ? Select ?”指令的區(qū)別是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而 Insert Into 是增加數(shù)據(jù)記錄到“現(xiàn)存 的”數(shù)據(jù)表中。server= localhost。pwd=。而對(duì)于 Access 數(shù)據(jù)庫(kù)，連接語(yǔ)句為 Provider=。 + \ 3）、設(shè)定 SQL 語(yǔ)句，使用“ Execute”命令，即可開始執(zhí)行訪問(wèn)數(shù)據(jù)庫(kù)的動(dòng)作 4）、關(guān)閉結(jié)果集對(duì)象，斷開與數(shù)據(jù)庫(kù)的連接 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 9 第三章 系統(tǒng) 分析與設(shè)計(jì) 系統(tǒng)功能分析 隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。 通過(guò)這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。本數(shù)據(jù)庫(kù)采用 SQL Server 2021 來(lái)構(gòu)造，共使用了 3 個(gè)表，它們分別是用戶信息表（ admin）、學(xué)生基本情況表（ student）、學(xué)生成績(jī)表（ grade）。該部分主要包括一些公共變量的定義、 main 過(guò)程定義以及自動(dòng)把備份的數(shù)據(jù)庫(kù)文件還原到 SQL Server 2021 中的代碼設(shè)計(jì)。獲取 主機(jī)名的定義 Public Aname, Asort As String 39。新建連接對(duì)象 Public reco As New 39。=====定 義一個(gè) main 過(guò)程，從 main 過(guò)程啟動(dòng)程序，同時(shí)連接到數(shù)據(jù)庫(kù) === Public Sub Main() = adUseClient = adUseClient conn_str1 = Provider=。Persist Security Info=False。Data Source= amp。Integrated Security=SSPI。Initial Catalog=master。 GetPcName() DB_ADD39。連接到數(shù)據(jù)庫(kù) 39。==================此函數(shù)用來(lái)獲取主機(jī)名！ ================== Public Function GetPcName() As String Dim pname As String, retval As Long pname = Space(255) 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 13 retval = GetComputerName(pname, 255) pname = Left(pname, InStr(pname, vbNullChar) 1) GetPcName = pname End Function 39。此過(guò)程用來(lái)在啟動(dòng)軟件的時(shí)候把 maokeyang 數(shù)據(jù)庫(kù)添加到 SQL Server 2021 中 Public Sub DB_ADD() Dim s As String