【正文】 ………………Private Sub MSFlexGrid1_Click() Text1 = Trim((, 0)) Text2 = Trim((, 1))…………………………………End Sub基本信息查詢的代碼Dim Mrc As Dim txtSQL As StringDim Msgtext As StringPrivate Sub Command2_Click() If = True Then If Not IsNumeric(Text1) Then MsgBox 學(xué)號(hào)輸入有誤!, vbOKOnly + vbExclamation, 提示 Exit Sub End If東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －14－ txtSQL = select * from 基本信息 where 學(xué)號(hào)=39。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 無此專業(yè)！, vbOKOnly + vbExclamation, 提示 Exit Sub東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －15－ End If Else If = Then MsgBox 班號(hào)不能為空!, vbOKOnly + vbExclamation, 提示 Exit Sub End If txtSQL = select * from 基本信息 where 班號(hào)=39。 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －18－Trim() amp。 Trim() amp。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 無此學(xué)生記錄！, vbOKOnly + vbExclamation, 提示 Exit Sub End If (0) = 2022 …………………………………。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = False Then MsgBox 學(xué)生的記錄已存在！, vbOKOnly + vbExclamation, 提示 msg = MsgBox(是否替換！, vbYesNo, 提示) If msg = vbYes Then ChangeADD MsgBox 添加成功!, vbOKOnly, 提示 = = = Exit Sub Else…………………………………東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －19－ End If End If ChangeADD MsgBox 添加成功!, vbOKOnly, 提示 = = = End SubPrivate Sub ChangeADD() Dim Mrrcc As Dim txxtSQL As String txxtSQL = delete from 學(xué)籍變動(dòng) where 學(xué)號(hào)=39。 Next i Loop End With End SubPrivate Sub Form_Load() ShowDataEnd Sub………………………………學(xué)籍變動(dòng)模塊的代碼Dim Mrc As Dim Msgtext As StringDim txtSQL As StringPrivate Sub Command1_Click() If Not IsNumeric(Text3) Then MsgBox 學(xué)號(hào)輸入有誤！, vbOKOnly + vbExclamation, 提示 Exit Sub End If txtSQL = select * from 基本信息 where 學(xué)號(hào)=39。 Trim() amp。 39。 39。 strAppPath amp。 術(shù)語ISO 組織公布的 SQL 標(biāo)準(zhǔn)并未使用形式化的術(shù)語，如關(guān)系、屬性和元組，而使用通用的術(shù)語如表、列和行。SQL 已成為應(yīng)用體系結(jié)構(gòu)的一部分，如 IBM 的系統(tǒng)應(yīng)用體系結(jié)構(gòu)（System Application Architecture,SAA） 。而且當(dāng)數(shù)據(jù)庫(kù)供應(yīng)商引進(jìn)新的功能時(shí)，他們還擴(kuò)展他們的 SQL 方言，使其離標(biāo)準(zhǔn)更遠(yuǎn)。盡管一些特性是第一次在標(biāo)準(zhǔn)中提及，但實(shí)質(zhì)上，它們已在 SQL 許多實(shí)現(xiàn)的一個(gè)或多個(gè)版本中以部分或類似的形式得體現(xiàn)。1983 年，ISO 參與這一工作，并共同制定了 SQL 標(biāo)準(zhǔn)（名稱 RDL 從 1984 年不再使用，標(biāo)準(zhǔn)的草稿轉(zhuǎn)變?yōu)榕c已有的各種 SQL 實(shí)現(xiàn)更加類似的形式） 。除了其他方面的成果外，最重要的成果是開發(fā)了 SQL?！?SQL 能被數(shù)據(jù)庫(kù)管理員、管理人員、應(yīng)用程序開發(fā)者等各類終端用戶廣泛使用。第 27 章將討論已于 1999 年成為規(guī)范的SQL3。SQL 語言是面向轉(zhuǎn)換語言的實(shí)例，將輸入的關(guān)系轉(zhuǎn)換為所需的輸出。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔沒有實(shí)現(xiàn)，打印功能沒有實(shí)現(xiàn)，學(xué)籍變動(dòng)信息和其他信息管理模塊中的一些功能沒有實(shí)現(xiàn)，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。在系統(tǒng)連接以后，運(yùn)用了黑盒測(cè)試和白盒測(cè)試的手段，設(shè)計(jì)了一系列的測(cè)試用例，對(duì)系統(tǒng)進(jìn)行了邊界測(cè)試，壓迫測(cè)試等，對(duì)系統(tǒng)的健壯性、強(qiáng)壯性等進(jìn)行了比較完善的測(cè)試，一組測(cè)試用例如下：基本信息：（學(xué)號(hào)：0131101208；姓名：陳磊；性別:男；曾用名：無；出生日期：1982－10－13；政治面貌：黨員；家庭出生：工人；家庭電話：0315－9999999；家庭郵編：066000；民族：漢；班號(hào)：1012 家庭住址：河北省唐山市；考生來源：河北省唐山市；系名：網(wǎng)院；專業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)；本人成分：學(xué)生；籍貫：河北省唐山市；備注：無。東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －30－圖 學(xué)籍變動(dòng)查詢窗體 School registers change inquiry’ window 輸入學(xué)號(hào)點(diǎn)擊查詢按鈕，顯示相應(yīng)的信息。 基本信息管理模塊窗體的實(shí)現(xiàn)圖 基本信息模塊菜單內(nèi)容 Basic information’s menu 進(jìn)入基本信息管理模塊選擇相應(yīng)的操作包括：檔案錄入，檔案刪除，檔案修改，檔案查詢，如圖 。 strAppPath amp。是一種戰(zhàn)略性的，高層次的，獨(dú)立于編程語言的，可以訪問任何種類數(shù)據(jù)源的數(shù)據(jù)訪問接口。第一步，在 Access 窗口中單擊 “文件(F)”菜單，在下拉菜單中選擇 “新建”項(xiàng)；第二步，雙擊 “數(shù)據(jù)庫(kù)” 圖標(biāo)，即會(huì)顯示 “文件新建數(shù)據(jù)庫(kù)” 對(duì)話框；第三步，在文件名文本框中輸入要保存數(shù)據(jù)庫(kù)的文件夾及新建的數(shù)據(jù)庫(kù)名，如 “D:\DataMassage” ，然后選擇 “確定” 。Access 是一個(gè)典型的開放式數(shù)據(jù)庫(kù)管理系統(tǒng)。 給數(shù)據(jù)庫(kù)下了一個(gè)比較完整的定義：數(shù)據(jù)庫(kù)是存儲(chǔ)在一起的相關(guān)數(shù)據(jù)的集合，這些數(shù)據(jù)是結(jié)構(gòu)化的，無有害的或不必要的冗余，并為多種應(yīng)用服務(wù)；數(shù)據(jù)的存儲(chǔ)獨(dú)立于使用它的程序；對(duì)數(shù)據(jù)庫(kù)插入新數(shù)據(jù)，修改和檢索原有數(shù)據(jù)均能按一種公用的和可控制的方式進(jìn)行。例如，在前面所舉的例子中，將學(xué)生表中的涉及同一學(xué)生的信息就包含在一東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －12－條記錄中。在一個(gè)數(shù)據(jù)表中，常?？梢园凑招谢蛄械母袷浇M織數(shù)據(jù)。另外，Access 允許創(chuàng)建自定義報(bào)表東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －10－用于打印或輸出數(shù)據(jù)庫(kù)中的信息。支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪問 ：利用數(shù)據(jù)控件可訪問的數(shù)據(jù)庫(kù)系統(tǒng)有：Microsoft Access、Btrieve、dBASE、Microsoft FoxPro 和Paradox 等，也可訪問 Microsoft Excel，Lotusl23 等多種電子表格。結(jié)構(gòu)化的程序設(shè)計(jì)語言：VB 具有豐富的數(shù)據(jù)類型和結(jié)構(gòu)化程序結(jié)構(gòu)，而且簡(jiǎn)單易學(xué)。因此，實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)相對(duì)較好的選擇。VB 是可視化設(shè)計(jì)具有“所見即所得”的功能。 管理員管理功能：管理員添加：為了有新的管理人員加入工作而設(shè)計(jì)的功能。 成績(jī)信息管理功能：成績(jī)添加：為了每次考試后都可以把學(xué)生的考試信息裝進(jìn)數(shù)據(jù)庫(kù)中。東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －4－第 2 章 系統(tǒng)分析 需求分析本系統(tǒng)的主要任務(wù)是實(shí)現(xiàn)學(xué)校學(xué)生信息管理部門對(duì)學(xué)生的基本信息管理、成績(jī)管理、班級(jí)管理、學(xué)籍變動(dòng)管理、其它信息管理，管理員管理及系統(tǒng)管理。對(duì)于前者要求建立起數(shù)據(jù)一致性強(qiáng)和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫(kù)。在課題的實(shí)現(xiàn)過程中，課題小組先后多次同學(xué)生處的老師進(jìn)行溝通，逐步明確所要實(shí)現(xiàn)的目標(biāo),從而正確的進(jìn)行設(shè)計(jì)，并實(shí)現(xiàn)了所要達(dá)到的功能,本系統(tǒng)能夠極大地提高學(xué)生信息管理的效率,也是學(xué)校的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。本學(xué)生信息管理系統(tǒng)的設(shè)計(jì)是為適應(yīng)信息化的要求，使學(xué)生信息管理部門管理學(xué)生信息提高到計(jì)算機(jī)化的水平而設(shè)計(jì)的。其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。第七章結(jié)論，總結(jié)整篇論文和畢業(yè)設(shè)計(jì)所作的工作，對(duì)系統(tǒng)的不足之處做東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －3－了相應(yīng)的說明，對(duì)以后的體統(tǒng)完善做了基本介紹。班級(jí)刪除：當(dāng)學(xué)生畢業(yè)后，這些信息也就沒有用了就需要?jiǎng)h除。其它信息查詢：對(duì)雜項(xiàng)庫(kù)中記錄的信息進(jìn)行的查詢。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。 ） 是一種 32 位的開發(fā)工具， 以前的開發(fā)工具很多是在DOS 和 Window3x 下使用的，因而它們基本上是 16 位的開發(fā)工具，是運(yùn)行在 Windows9x 或 WindowNT 操作系統(tǒng)下的，因此它是典型的 32位開發(fā)工具。提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境： 在 VB 集成開發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可執(zhí)行文件在 Windows 中運(yùn)行，使用戶在友好的開發(fā)環(huán)境中工作。 具有完善的運(yùn)行出錯(cuò)處理。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。（2）數(shù)據(jù)表數(shù)據(jù)表（Table）可以比喻成一個(gè)存放原始數(shù)據(jù)的特定容器，是一種有關(guān)特定實(shí)體的數(shù)據(jù)集合。每一個(gè)信息行都可以設(shè)想為一個(gè)單獨(dú)的實(shí)體，它可以根據(jù)需要進(jìn)行存取或排列。而每個(gè)數(shù)據(jù)值的字段和記錄卻是唯一的，字段可以用字段名來識(shí)別，記錄則通常通過記錄的某些唯一的特征符號(hào)來識(shí)別。Access 是一個(gè)同時(shí)面向數(shù)據(jù)庫(kù)最終用戶和數(shù)據(jù)庫(kù)開發(fā)人員的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)。本系統(tǒng)采用了第一種方法設(shè)計(jì)數(shù)據(jù)庫(kù)。 VB 與 Access 的連接（ADO）ADO（ActiveX Data Objects）中文名叫 ActiveX 數(shù)據(jù)對(duì)象。DBQ= amp。 系統(tǒng)功能設(shè)計(jì) 登錄模塊登陸模塊流程圖如圖 ER figure東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －19－三次密碼錯(cuò)誤 The land module flow chart圖 登陸模塊流程圖開 始是否是管理員是否密碼是否 正確是進(jìn)入主界面否否進(jìn)入權(quán)限受限主界面結(jié)束是 總模塊管理員總模塊流程圖如圖 用戶總模塊流程圖如圖 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －20－ The main module flow chart出口進(jìn)入基本信息管理班級(jí)信息管理成績(jī)管理圖 總模塊流程圖成績(jī)登記成績(jī)修改成績(jī)刪除成績(jī)查詢雜項(xiàng)管理學(xué)籍變動(dòng)管理管理員管理系統(tǒng)管理檔案錄入檔案修改檔案刪除檔案查詢班級(jí)錄入班級(jí)修改班級(jí)刪除其它添加其它修改其它刪除其它查詢學(xué)籍變動(dòng)添加學(xué)籍變動(dòng)修改學(xué)