【正文】 老師；備注：無 。 ）雜項信息：學(xué)號：013101207； 獎學(xué)金：2022 年一等 ；助學(xué)貸款：否；勤工儉學(xué)：否。其功能基本符合用戶需求，能夠完成學(xué)生學(xué)籍的存儲,班級信息的管理，成績的管理，轉(zhuǎn)學(xué)、退學(xué)、降級的管理和管理員的管理功能以及其他一些功能。對于數(shù)據(jù)的一致性的問題也基本通過程序進(jìn)行了有效的解決。這些都有待進(jìn)一步改善。 目標(biāo)理想地說，數(shù)據(jù)庫語言允許用戶：● 建立數(shù)據(jù)庫和關(guān)系結(jié)構(gòu)● 完成基本數(shù)據(jù)管理任務(wù)，諸如從關(guān)系中插入、修改和刪除操作數(shù)據(jù)。數(shù)據(jù)庫語言必須功能豐富、結(jié)構(gòu)簡潔、易學(xué)易用。SQL 語言滿足這些要求。作為語言，國際標(biāo)準(zhǔn)化組織（ISO）發(fā)布的 SQL 標(biāo)準(zhǔn)包括兩個主要部分：● 數(shù)據(jù)定義語言（Data Definition Language,DDL）,定義數(shù)據(jù)庫結(jié)構(gòu)和數(shù)據(jù)的訪問控制。SQL3 出現(xiàn)以前，SQL 僅包括數(shù)據(jù)定義和數(shù)據(jù)操作命令，不包括控制流命令，如 IF…THEN…ELSE，GO TO 或 DO…WHILE。由于缺乏計算完整性，僅能用如下兩種方式使用 SQL。另一種方法是，將 SQL 語句嵌入到過程化語言中，這將在第 21 章詳細(xì)討論。SQL 語言相對易學(xué)表現(xiàn)在：● 非過程化語言：用戶只需描述所需的信息，不需給出獲取該信息的具體過程?！?SQL 和大多數(shù)現(xiàn)代語言一樣，是自由格式，這意味著語句的每一部分不必固定在屏幕上的特定位置。例如：■ CREATE TABLE Staff(staffNo VARCHAR(5),1Name VARCHAR(15),salary DECIMAL(7,2))?！?SELECT staffNo,1Name,salaryFROM StaffWHERE salary10000。現(xiàn)在，國際性的 SQL 語言標(biāo)準(zhǔn)已成為定義和操作關(guān)系數(shù)據(jù)庫名義上和事實上的標(biāo)準(zhǔn)（ISO，1992，1999a） 。1974年，該研究室的 D. Chamberlin 定義了一種稱為 SQL 的結(jié)構(gòu)化英語查東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －3－詢語言，或稱為 SEQUEL。Chamberlin et al.,1976)。IBM 在 SEQUEL/2 的基礎(chǔ)上推出了稱為 System R 的 DBMS 原型，用于驗證關(guān)系模型的可行性。但是 SQL 的最初起源應(yīng)當(dāng)追溯到 System R 前期的SQUARE（Specifying Queries As Relational Expression）語言，它是一種用英語句子表示關(guān)系代數(shù)的研究語言。不久，又出現(xiàn)了基于 QUEL 查詢語言的 INGRES 數(shù)據(jù)庫系統(tǒng)，QUEL 語言和 SQL 語言相比，結(jié)構(gòu)化特性更強(qiáng)，但與英語不大類似。1981 年和 1982 年，IBM 公司分別在 DOS/VSE 和 VM/CMS 環(huán)境下推出了第一個商業(yè) RDBMS——SQL/DS 數(shù)據(jù)庫系統(tǒng)。1982 年，美國國家標(biāo)準(zhǔn)組織基于 IBM 公司提交的一份概論性建議文件開始著手制定關(guān)系數(shù)據(jù)庫語言（RDL）的標(biāo)準(zhǔn)。1987 年，ISO 組織最公布的標(biāo)準(zhǔn)受到有關(guān)人士的嚴(yán)厲批評。他還指出，該語言嚴(yán)重冗余，換句話說可用多種方法寫相同的查詢語句東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －4－（Date,1996,1997a,1990） 。然而組織認(rèn)為，更重要的是盡早公布標(biāo)準(zhǔn)，為語言和實現(xiàn)的發(fā)展奠定基礎(chǔ)，而不是等待人們定義和認(rèn)同所有特性。1992 年，對 ISO標(biāo)準(zhǔn)進(jìn)行了第一次比較大的修改，稱為 SQL2 或 SQL92（ISO，1992） 。直到 1999 年，標(biāo)準(zhǔn)的一個新版本形成，通常稱為 SQL3（ISO，1999a） 。供應(yīng)商基于標(biāo)準(zhǔn)之上提供的特性稱為擴(kuò)展。許多實現(xiàn)以不同的方式擴(kuò)展了這個數(shù)據(jù)類型表。沒有兩種方言完全相同，當(dāng)前也沒有方言和 ISO 標(biāo)準(zhǔn)完全匹配。但是 SQL 語言的核心部分還是越來越標(biāo)準(zhǔn)化了。時至今日，成百個基于 SQL 的產(chǎn)品得到應(yīng)用，而且新產(chǎn)品還在不斷涌現(xiàn)。另一個數(shù)據(jù)庫標(biāo)準(zhǔn)語言，即基于 CODASYL 網(wǎng)絡(luò)模型的網(wǎng)絡(luò)數(shù)據(jù)庫語言（Network Database Language,NDL）,只有很少認(rèn)同者。供應(yīng)商和用戶都在 SQL 語言上進(jìn)行了大量的投資。SQL 也成為許多大型的、有影響的組織的戰(zhàn)略性選擇，如支持 UNIX 標(biāo)準(zhǔn)的 X/OPEN 聯(lián)盟。供應(yīng)商的國際聯(lián)盟 SQL 訪問組（SQL Access Group）為 SQL 定義了一組增強(qiáng)特性以支持異構(gòu)系統(tǒng)的互操作。比如，ISO 的信息資源目錄系統(tǒng)（Information Resource Dictionary System,IRDS）標(biāo)準(zhǔn)和遠(yuǎn)程數(shù)據(jù)訪問（Remote Data Access,RDA）標(biāo)準(zhǔn)。SQL 面向新的市場，比如在聯(lián)機(jī)分析處理（Online Analytical Processing,OLAP）領(lǐng)域，而專門設(shè)計的實現(xiàn)也已出現(xiàn)。使用中，通常用 ISO 的術(shù)語表示 SQL 語句。例如，SQL 允許 SELECT 語句產(chǎn)生的結(jié)果表中包含重復(fù)行，它按列進(jìn)行排序并且允許用戶對表中的行進(jìn)行排序。 \ End If 東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －7－ strAppPath = strAppPath amp。DBQ= amp。 。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查詢到 amp。 條記錄 End If東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －8－End FunctionEnd Sub…………………………………登陸界面主要代碼…………………………………Private Sub Form_Load() Dim i As Integer i = 0 txtSQL = select * from 管理 Set Mrc = ExecuteSQL(txtSQL, Msgtext) With txtUserName Do While Not i = i + 1 .AddItem Trim(Mrc!管理員) Loop .ListIndex = i 1 End With OK = False miCount = 0End SubPrivate Sub cmdOK_Click()txtSQL = select * from 管理 where 管理員 = 39。 amp。東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －9－ Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名!, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True = True = True UserName = Trim() Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then End If東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －10－ Exit SubEnd Sub…………………………………基本信息添加主要代碼Private Sub Command1_Click() …………………………………txtSQL = select * from 基本信息 where 學(xué)號=39。 Trim(Text1) amp。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = False Then MsgBox 此學(xué)號已存在!, vbOKOnly, 警告 Exit Sub End If txtSQL = select * from 基本信息 Set Mrc = ExecuteSQL(txtSQL, Msgtext) (0) = Trim(Text1) (1) = Trim(Text2) ……………………………………… = = 東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －11－ = = = 19821013 …………………………………………… MsgBox 信息添加成功!, vbOKOnly, 提示 End SubPrivate Sub Command2_Click() = = …………………………………End Sub…………………………………基本信息的修改和刪除代碼Private Sub Command1_Click() ………………………………… txtSQL = delete from 基本信息 where 學(xué)號=39。 Trim(Text1) amp。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) txtSQL = select * from 基本信息 Set Mrc = ExecuteSQL(txtSQL, Msgtext) (0) = Trim(Text1) (1) = Trim(Text2) …………………………………………………… 東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －12－ = = 19821013 ……………………………………………………MsgBox 信息修改成功!, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub ShowData() Dim txSQL As String Dim Mrcc As txSQL = select * from 基本信息 Set Mrcc = ExecuteSQL(txSQL, Msgtext) With MSFlexGrid1 .ColWidth(0) = 2022 .ColWidth(1) = 1200………………………………… .TextMatrix(0, 0) = 學(xué)號 .TextMatrix(0, 1) = 系名 .TextMatrix(0, 2) = 專業(yè) .TextMatrix(0, 3) = 班號 ………………………………… Do While Not .Rows = .Rows + 1 For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。 amp。 39。 amp。 39。amp。 39。 Next i Loop End With End SubPrivate Sub ShowData() Dim txSQL As String Dim Mrcc As txSQL = select * from 基本信息 Set Mrcc = ExecuteSQL(txSQL, Msgtext) With MSFlexGrid1 .ColWidth(0) = 2022 .ColWidth(1) = 1200 ………………………………… .TextMatrix(0, 0) = 學(xué)號 .TextMatrix(0, 1) = 系名 ………………………………… Do While Not .Rows = .Rows + 1東北大學(xué)本科生畢業(yè)設(shè)計（論文）專用紙 －17－ For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。 amp。 39。 amp。 39。 amp。 39。 amp