【導(dǎo)讀】的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型應(yīng)。組織起來(lái)，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。成績(jī)信息等進(jìn)行統(tǒng)一管理，便于查詢(xún)、修改和打印。結(jié)合VB的面向?qū)ο缶幊痰奶攸c(diǎn)，應(yīng)用VB的。示但不可遺出父窗體。本系統(tǒng)界面友好，功能完善，操作簡(jiǎn)單，比較實(shí)用。

　　

【正文】 標(biāo)準(zhǔn)（名稱(chēng) RDL 從 1984年不再使用，標(biāo)準(zhǔn)的草稿轉(zhuǎn)變?yōu)榕c已有的各種 SQL 實(shí)現(xiàn)更加類(lèi)似的形式）。 1987 年， ISO 組織最公布的標(biāo)準(zhǔn)受到有關(guān)人士的嚴(yán)厲批評(píng)。該領(lǐng)域內(nèi)一位很有影響的研究員 Date 聲稱(chēng)，諸如引 用完整性規(guī)則和某些關(guān)系運(yùn)算符等一些重要的特性被忽略掉了。他還指出，該語(yǔ)言嚴(yán)重冗余，換句話(huà)說(shuō)可用多種方法寫(xiě)相同的查詢(xún)語(yǔ)句（ Date,1996,1997a,1990）。許多批評(píng)是正確的，并且在標(biāo)準(zhǔn)公布之前就已為標(biāo)準(zhǔn)組織所了解。然而組織認(rèn)為，更重要的是盡早公布標(biāo)準(zhǔn)，為語(yǔ)言和實(shí)現(xiàn)的發(fā)展奠定基礎(chǔ)，而不是等待人們定義和認(rèn)同所有特性。 1989 年， ISO 組織公布了名為“完整性增強(qiáng)特性”（ Integrity 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 4－ Enhancement Feature）的補(bǔ)充文件（ ISO， 1989）。 1992 年，對(duì) ISO 標(biāo)準(zhǔn)進(jìn)行了第一次比較大的 修改，稱(chēng)為 SQL2 或 SQL92（ ISO， 1992）。盡管一些特性是第一次在標(biāo)準(zhǔn)中提及，但實(shí)質(zhì)上，它們已在 SQL 許多實(shí)現(xiàn)的一個(gè)或多個(gè)版本中以部分或類(lèi)似的形式得體現(xiàn)。直到 1999 年，標(biāo)準(zhǔn)的一個(gè)新版本形成，通常稱(chēng)為 SQL3（ ISO， 1999a）。這個(gè)版本附加了包括支持面向?qū)ο髷?shù)據(jù)管理等特性，將在本書(shū) 節(jié)討論。 供應(yīng)商基于標(biāo)準(zhǔn)之上提供的特性稱(chēng)為擴(kuò)展。比如標(biāo)準(zhǔn)僅為 SQL 數(shù)據(jù)庫(kù)中的數(shù)據(jù)確定了六種不同的數(shù)據(jù)類(lèi)型。許多實(shí)現(xiàn)以不同的方式擴(kuò)展了這個(gè)數(shù)據(jù)類(lèi)型表。 SQL 的每個(gè)實(shí)現(xiàn)稱(chēng)為一種“方言”。沒(méi)有兩種方言完全相同，當(dāng)前 也沒(méi)有方言和 ISO 標(biāo)準(zhǔn)完全匹配。而且當(dāng)數(shù)據(jù)庫(kù)供應(yīng)商引進(jìn)新的功能時(shí)，他們還擴(kuò)展他們的 SQL 方言，使其離標(biāo)準(zhǔn)更遠(yuǎn)。但是 SQL 語(yǔ)言的核心部分還是越來(lái)越標(biāo)準(zhǔn)化了。 雖然， SQL 源于 IBM 公司的建議，但是它的重要性很快就激發(fā)了其他供應(yīng)商建立了自己的實(shí)現(xiàn)系統(tǒng)。時(shí)至今日，成百個(gè)基于 SQL 的產(chǎn)品得到應(yīng)用，而且新產(chǎn)品還在不斷涌現(xiàn)。 SQL 的重要性 SQL 是第一個(gè)也是惟一一個(gè)得到普通認(rèn)可的數(shù)據(jù)庫(kù)標(biāo)準(zhǔn)語(yǔ)言。另一個(gè)數(shù)據(jù)庫(kù)標(biāo)準(zhǔn)語(yǔ)言，即基于 CODASYL 網(wǎng)絡(luò)模型的網(wǎng)絡(luò)數(shù)據(jù)庫(kù)語(yǔ)言（ Network Database Language,NDL） ,只有很少認(rèn)同者。近來(lái)大的供應(yīng)商開(kāi)發(fā)數(shù)據(jù)庫(kù)產(chǎn)品都是基于 SQL 或是 SQL 接口的，這些供應(yīng)商大多數(shù)都是標(biāo)準(zhǔn)制定組織的成員。供應(yīng)商和用戶(hù)都在 SQL 語(yǔ)言上進(jìn)行了大量的投資。 SQL 已成為應(yīng)用體系結(jié)構(gòu)的一部分，如 IBM的系統(tǒng)應(yīng)用體系結(jié)構(gòu)（ System Application Architecture,SAA）。 SQL也成為許多大型的、有影響的組織的戰(zhàn)略性選擇，如支持 UNIX 標(biāo)準(zhǔn)的 X/OPEN 聯(lián)盟。東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 5－ SQL 也成為美國(guó)聯(lián)邦信息處理標(biāo)準(zhǔn)（ Federal Information Processing Standard,FIPS） ,銷(xiāo)售給美國(guó)政府的所有數(shù)據(jù)庫(kù)產(chǎn)品都需滿(mǎn)足該標(biāo)準(zhǔn)。供應(yīng)商的國(guó)際聯(lián)盟 SQL 訪(fǎng)問(wèn)組（ SQL Access Group）為 SQL 定義了一組增強(qiáng)特性以支持異構(gòu)系統(tǒng)的互操作。 SQL 也被其他標(biāo)準(zhǔn)所使用，甚至作為一種定義工具影響了其他標(biāo)準(zhǔn)的發(fā)展。比如， ISO 的信息資源目錄系統(tǒng)（ Information Resource Dictionary System,IRDS）標(biāo)準(zhǔn)和 遠(yuǎn)程數(shù)據(jù) 訪(fǎng)問(wèn)（ Remote Data Access,RDA）標(biāo)準(zhǔn)。該語(yǔ)言的開(kāi)發(fā)等到學(xué)術(shù)界的關(guān)注，它們提供了該語(yǔ)言的理論基礎(chǔ)以及順利實(shí)現(xiàn)所需 的技術(shù)，特別是在查詢(xún)優(yōu)化、數(shù)據(jù)分布和安全領(lǐng)域。 SQL 面向新的市場(chǎng)，比如在聯(lián)機(jī)分析處理（ Online Analytical Processing,OLAP）領(lǐng)域，而專(zhuān)門(mén)設(shè)計(jì)的實(shí)現(xiàn)也已出現(xiàn)。 術(shù)語(yǔ) ISO 組織公布的 SQL 標(biāo)準(zhǔn)并未使用形式化的術(shù)語(yǔ)，如關(guān)系、屬性和元組，而使用通用的術(shù)語(yǔ)如表、列和行。使用中，通常用 ISO 的術(shù)語(yǔ)表示 SQL 語(yǔ)句。注意， SQL 并不嚴(yán)格支持第 3章所描述的關(guān)系模型的定義。例如， SQL 允許 SELECT 語(yǔ)句產(chǎn)生的結(jié)果表中包含重復(fù)行，它按列進(jìn)行排序并且允許用戶(hù)對(duì)表中的行進(jìn)行排序。 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 6－ 附錄 3:學(xué)生信息管理系統(tǒng)的主要代碼 模塊 主要 代碼 Public UserName As String Sub Main() Dim fLogin As New FormLanding vbModal If Not Then End End If Unload fLogin Set fMainForm = New MDIFormMain End Sub Public Function ConnectString() As String Dim strAppPath As String strAppPath = If Right(strAppPath, 1) \ Then strAppPath = strAppPath amp。 \ End If strAppPath = strAppPath amp。 ConnectString = DRIVER=Microsoft Access Driver (*.mdb)。DBQ= amp。 strAppPath amp。 。PWD=NEUQ End Function Public Function ExecuteSQL(ByVal SQL As String, MsgString As 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 7－ String) As Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New ConnectString If InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查詢(xún)到 amp。 amp。 條記錄 End If End Function End Sub ????????????? 登陸界面 主要 代碼 ????????????? 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 8－ 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 = 0 End Sub Private Sub cmdOK_Click() txtSQL = select * from 管理 where 管理員 = 39。 amp。 amp。 39。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名 !, vbOKOnly + vbExclamation, 警告 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 9－ Else If Trim((1)) = Trim() Then OK = True = True = True UserName = Trim() Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then End If Exit Sub End Sub ????????????? 基本信息添加 主要 代碼 Private Sub Command1_Click() 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 10－ ??????? ?????? txtSQL = select * from 基本信息 where 學(xué)號(hào) =39。 amp。 Trim(Text1) amp。 39。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = False Then MsgBox 此學(xué)號(hào)已存在 !, vbOKOnly, 警告 Exit Sub End If txtSQL = select * from 基本信息 Set Mrc = ExecuteSQL(txtSQL, Msgtext) (0) = Trim(Text1) (1) = Trim(Text2) ??????????????? = = = = = 19821013 ????????????????? MsgBox 信息添加成功 !, vbOKOnly, 提示 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 11－ End Sub Private Sub Command2_Click() = = ????????????? End Sub ????????????? 基本信息的 修改和刪除代碼 Private Sub Command1_Click() ????????????? txtSQL = delete from 基本信息 where 學(xué)號(hào) =39。 amp。 Trim(Text1) amp。 39。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) txtSQL = select * from 基本信息 Set Mrc = ExecuteSQL(txtSQL, Msgtext) (0) = Trim(Text1) (1) = Trim(Text2) ???????????????????? = = 19821013 ???????????????????? MsgBox 信息修改成功 !, vbOKOnly, 提示 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專(zhuān)用紙 － 12－ ShowData End Sub Private Sub ShowData() Dim txSQL As String Dim Mrcc As txSQL = select * from 基本信息 Set Mrcc = ExecuteSQL(txSQL, Msgtext) With MSFlexGrid1 .ColWidth(0) = 2021 .ColWidth(1) = 1200 ????????????? .TextMatrix(0, 0) = 學(xué)號(hào)