【正文】 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 無此學(xué)生記錄！, vbOKOnly + vbExclamation, 提示 Exit Sub End If (0) = 2022 …………………………………。 Trim(Text2) amp。 Set Mrrcc = ExecuteSQL(txxtSQL, Msgtext) txxtSQL = select * from 學(xué)籍變動(dòng) Set Mrrcc = ExecuteSQL(txxtSQL, Msgtext) (0) = Trim() (1) = Trim() (2) = Trim() End Sub…………………………………Private Sub Command5_Click()東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －20－ If Not IsNumeric(Text2) Then MsgBox 學(xué)號(hào)輸入有誤！, vbOKOnly + vbExclamation, 提示 Exit Sub End If txtSQL = select * from 學(xué)籍變動(dòng) where 學(xué)號(hào)=39。 Trim() amp。 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。 Trim() amp。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 不存在此學(xué)號(hào)！, vbOKOnly + vbExclamation, 提示 Exit Sub End If txtSQL = select * from 學(xué)籍變動(dòng) where 學(xué)號(hào)=39。 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －18－Trim() amp。 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。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 無此班級(jí)！, vbOKOnly + vbExclamation, 提示 Exit Sub End If End If End If With MSFlexGrid1 .ColWidth(0) = 2022 ………………………………… .TextMatrix(0, 0) = 學(xué)號(hào) .TextMatrix(0, 1) = 系名 …………………………………東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －16－ Do While Not .Rows = .Rows + 1 For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。 Trim() amp。 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。 Trim() amp。 Set Mrc = ExecuteSQL(txtSQL, Msgtext) If = True Then MsgBox 無此學(xué)號(hào)！, vbOKOnly + vbExclamation, 提示 Exit Sub End If Else If = True Then If = Then MsgBox 專業(yè)不可為空!, vbOKOnly + vbExclamation, 提示 Exit Sub End If txtSQL = select * from 基本信息 where 專業(yè)=39。 Trim() amp。 東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －13－ Next i Loop End With End Sub…………………………………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。 39。 amp。 39。 amp。 39。 amp。 amp。PWD=NEUQEnd FunctionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As 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。 strAppPath amp。 ConnectString = DRIVER=Microsoft Access Driver (*.mdb)。東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －6－附錄 3:學(xué)生信息管理系統(tǒng)的主要代碼模塊主要代碼Public UserName As StringSub Main() Dim fLogin As New FormLanding vbModal If Not Then End End If Unload fLogin Set fMainForm = New MDIFormMain End SubPublic Function ConnectString() As String Dim strAppPath As String strAppPath = If Right(strAppPath, 1) \ Then strAppPath = strAppPath amp。注意，SQL 并不嚴(yán)格支持第 3 章所描述的關(guān)系模型的定義。 術(shù)語ISO 組織公布的 SQL 標(biāo)準(zhǔn)并未使用形式化的術(shù)語，如關(guān)系、屬性和元組，而使用通用的術(shù)語如表、列和行。該語言的開發(fā)等到學(xué)術(shù)界的關(guān)注，它們提供了該語言的理論基礎(chǔ)以及順利實(shí)現(xiàn)所需的技術(shù)，特別是在查詢優(yōu)化、數(shù)據(jù)分布和安全領(lǐng)域。SQL 也被其他標(biāo)準(zhǔn)所使用，甚至作為一種定義工具影響了其他標(biāo)準(zhǔn)的發(fā)展。SQL 也成為美國聯(lián)邦信息處理標(biāo)準(zhǔn)（Federal Information Processing Standard,FIPS）,銷售給美國政府的所有數(shù)據(jù)庫產(chǎn)品都需滿足該標(biāo)準(zhǔn)。SQL 已成為應(yīng)用體系結(jié)構(gòu)的一部分，如 IBM 的系統(tǒng)應(yīng)用體系結(jié)構(gòu)（System Application Architecture,SAA） 。近來大的供東北大學(xué)本科生畢業(yè)設(shè)計(jì)（論文）專用紙 －5－應(yīng)商開發(fā)數(shù)據(jù)庫產(chǎn)品都是基于 SQL 或是 SQL 接口的，這些供應(yīng)商大多數(shù)都是標(biāo)準(zhǔn)制定組織的成員。 SQL 的重要性SQL 是第一個(gè)也是惟一一個(gè)得到普通認(rèn)可的數(shù)據(jù)庫標(biāo)準(zhǔn)語言。雖然，SQL 源于 IBM 公司的建議，但是它的重要性很快就激發(fā)了其他供應(yīng)商建立了自己的實(shí)現(xiàn)系統(tǒng)。而且當(dāng)數(shù)據(jù)庫供應(yīng)商引進(jìn)新的功能時(shí)，他們還擴(kuò)展他們的 SQL 方言，使其離標(biāo)準(zhǔn)更遠(yuǎn)。SQL 的每個(gè)實(shí)現(xiàn)稱為一種“方言” 。比如標(biāo)準(zhǔn)僅為 SQL 數(shù)據(jù)庫中的數(shù)據(jù)確定了六種不同的數(shù)據(jù)類型。這個(gè)版本附加了包括支持面向?qū)ο髷?shù)據(jù)管理等特性，將在本書 節(jié)討論。盡管一些特性是第一次在標(biāo)準(zhǔn)中提及，但實(shí)質(zhì)上，它們已在 SQL 許多實(shí)現(xiàn)的一個(gè)或多個(gè)版本中以部分或類似的形式得體現(xiàn)。1989 年，ISO 組織公布了名為“完整性增強(qiáng)特性” （Integrity Enhancement Feature）的補(bǔ)充文件（ISO，1989 ） 。許多批評(píng)是正確的，并且在標(biāo)準(zhǔn)公布之前就已為標(biāo)準(zhǔn)組織所了解。該領(lǐng)域內(nèi)一位很有影響的研究員 Date 聲稱，諸如引用完整性規(guī)則和某些關(guān)系運(yùn)算符等一些重要的特性被忽略掉了。1983 年，ISO 參與這一工