【文章內(nèi)容簡介】 的表中修改數(shù)據(jù)時(shí)，它開始生效。觸發(fā)器可以查詢其它表，并且可以包括復(fù)雜的 SQL 語句。它們對(duì)于實(shí)施復(fù)雜業(yè)務(wù)規(guī)則或需求是非常有用的。例如，您可以控制在某個(gè)客戶的當(dāng)前帳號(hào)狀態(tài)下，是否允許插入一個(gè)訂單。 14 觸發(fā)器對(duì)于實(shí)施參照完整性也很有用，參照完整性保留了當(dāng)添加、更新、或者刪除一些表中的行時(shí)，這些表之間的定義關(guān)系。然而，實(shí)施參照完整性的最好方法是在相關(guān)的表中定義主鍵和外部鍵約束。如果使用數(shù)據(jù)庫圖表，可以創(chuàng)建表之間的一個(gè)關(guān)系來自動(dòng)創(chuàng)建一個(gè)外部鍵約束。 觸發(fā)器在以下方面非常有用： 觸發(fā)器是自動(dòng)的：表中的數(shù)據(jù)經(jīng)過任何修改，無論是手工輸入或應(yīng)用程序的動(dòng)作引起的數(shù)據(jù)修改，它們都立刻被激活。觸發(fā)器能夠通過數(shù)據(jù)庫的相關(guān)表引起連鎖更改。例如，可以對(duì) titles 表的 title_id 列寫一個(gè)刪除觸發(fā)器，而引起刪除其它表中的匹配行。該觸發(fā)器使用 title_id 列作為一個(gè)唯一鍵，在 titleauthor、 sales 和 roysched 表中定位匹配的行。 觸發(fā)器可以實(shí)施那些比用檢查約束定義 的約束復(fù)雜很多的約束。與檢查約束不同，觸發(fā)器可以引用其它表中的列。例如，如果某個(gè)更新企圖對(duì)價(jià)格低于 $10 的書（儲(chǔ)存在 titles 表中）打折扣（儲(chǔ)存在 discounts 表中），那么觸發(fā)器可以回卷該更新。 VB 中 SQL 屬性 : SQL 屬性包含結(jié)構(gòu)查詢語言語句，用以確定當(dāng)運(yùn)行查詢時(shí)如何對(duì)行進(jìn)行選擇、分組、和排序?？梢允褂靡粋€(gè)包括在 rdoResultset 對(duì)象中的選擇行的查詢。也可以定義動(dòng)作查詢修改數(shù)據(jù)而不返回行。 在設(shè)計(jì)時(shí)不能為 SQL 屬性提供表名。不過，可以使用象 SELECT * FROM table 那樣的簡單查詢，也可以在運(yùn)行時(shí)移居 rdoTables 集合和使用返回在集合中的一個(gè)表名。只要 rdoTables 集合與一個(gè)活動(dòng)的連接相關(guān)并被引用，它馬上就被移居。 在查詢中使用的 SQL 語法必須適合由數(shù)據(jù)源查詢處理器定義的 SQL 語言。由 ODBC 接口支持的該 SQL 語言是由 X/Open 標(biāo)準(zhǔn)定義的。一般來說，驅(qū)動(dòng)程序掃描一個(gè) SQL 語句，尋找指定的轉(zhuǎn)義代碼 序列，該換碼序列用于標(biāo)識(shí)象時(shí)間標(biāo)記的文字和函數(shù)那樣的非標(biāo)準(zhǔn)的操作對(duì)象。 15 當(dāng)需要從查詢中返回行時(shí)，一般在 SQL 屬性中提供一 個(gè) SELECT 語句。該 SELECT 語句指定： 要返回的每個(gè)列的名字或者 *，以用來指示被指定表的所有列都要被返回。必須包含必要的表名來對(duì)混淆的列名進(jìn)行定位。也可以指定集合表達(dá)式對(duì)所選的那些列進(jìn)行算術(shù)或其它函數(shù)的操作。需要用于搜索信息的每個(gè)表的名稱。如果指定一個(gè)以上的表，就必須指定一個(gè) WHERE 子句來指出哪些列是用于表中的交叉引用信息。一般來說，這些列具有相同的名稱和含義。例如，也許要引用 Customers 表和 Orders 表中的 CustomerID 列。（是可選的）一個(gè) WHERE 子句指定如何聯(lián)結(jié)指定的表和如何限制或過濾返回行的數(shù)目及類型?？梢允褂? WHERE 子句中的參數(shù)指定從查詢到查詢的不同的信息集。（是可選的）其它子句，諸如對(duì)行設(shè)置特定的順序的 ORDER BY 子句，或結(jié)構(gòu)化在相關(guān)集中的行的 GROUP BY 子句。 如果查詢的 SQL 語句中包含有問號(hào)參數(shù)標(biāo)記（？），那么在運(yùn)行該查詢之前必須先提供這些參數(shù)。在重新設(shè)置這些參數(shù)之前，每次執(zhí)行該查詢都提供相同的參數(shù)值。為了使用 rdoParameters 集合以管理 SQL 查詢參數(shù)，必須在 SQL 語句中包括“ ?”參數(shù)標(biāo)記。輸入、輸 出、輸入 /輸出以及返回值參數(shù)都必須按這種方式標(biāo)識(shí)。在某些情況下，必須使用 Direction 屬性指定如何使用該參數(shù)。 所有由 Jet 查詢處理器來執(zhí)行的查詢都必須按照 Jet SQL 語法來書寫。但是 Jet 的 SQL 語法與服務(wù)器使用的 SQL 語法并不總是完全相同的。不管將要訪問什么樣的數(shù)據(jù)庫， Jet 的 SQL 語言總是一致的。這一特性極大地提高了代碼的可移植性和無縫地訪問異種數(shù)據(jù)的能力。按照缺省規(guī)定，一旦執(zhí)行 DAO 查詢就調(diào)用 Jet 查詢處理器。也 就 是 說 ， 除 非 使 用 Execute 或 OpenRecordset 方法的 dbSQLPassThrough 選項(xiàng)，或者創(chuàng)建 SQLPassThrough QueryDef 對(duì)象，否則 Jet 查詢處理器就會(huì)進(jìn)行語法分析并執(zhí)行該查詢的 SQL 語法，并要執(zhí)行在工作站和遠(yuǎn)程服務(wù)器上完成該查詢所要求的所有操作。 SQL 屬性示例 例如，運(yùn)行一個(gè)過程，它接受兩個(gè)輸入?yún)?shù)，返回一個(gè)返回值及 16 一個(gè)輸出參數(shù)，可以使用下列代碼。該例創(chuàng)建一個(gè) rdoQuery 對(duì)象，其 SQL 屬性被置為由 QSQL$ 指定的字符串。該查詢接受兩個(gè)輸入?yún)?shù)，調(diào)用一個(gè)存儲(chǔ)過程，返回一個(gè)返回狀 態(tài)，及一個(gè)輸出參數(shù)。 Dim Cqy as new rdoQuery Dim MyRs as rdoResultset = { ? = call sp_MyProc (?, ?, ?) } Cqy(0).Direction = rdReturnValue Cqy(1).Direction = rdParamInput Cqy(2).Direction = rdParamInput Cqy(3).Direction = rdParamOutput Cqy(1) = Victoria Cqy(0) = 21 Set MyRs = (rdOpenForwardOnly) 17 系統(tǒng)流程圖 N Y N Y 程序開始 用戶登錄 登錄驗(yàn)證 程序 主界面 退出程序 數(shù)據(jù)維護(hù) 數(shù)據(jù)添加 數(shù)據(jù)編輯 數(shù)據(jù)刪除 刪除確認(rèn) 數(shù)據(jù)查詢 收入支出 收支類型 轉(zhuǎn)入轉(zhuǎn)出 發(fā)生金額 發(fā)生日期 錄入日期 數(shù)據(jù)打印 數(shù)據(jù)導(dǎo)入 圖表分析 18 系統(tǒng)功能結(jié)構(gòu)圖 用戶登錄 退出 主界面 系 統(tǒng) 設(shè)置 用戶設(shè)置 收入類型設(shè)置 支出類型設(shè)置 記事本 計(jì)算器 退出 數(shù) 據(jù) 添加數(shù)據(jù) 刪除數(shù)據(jù) 編輯數(shù)據(jù) 數(shù)據(jù)導(dǎo)入 收支數(shù)據(jù)導(dǎo)入 轉(zhuǎn)賬數(shù)據(jù)導(dǎo)入 數(shù)據(jù)圖表分析 搜索 收入支出搜索 轉(zhuǎn)入轉(zhuǎn)出搜索 收支類型搜索 按發(fā)生金額 按發(fā)生日期 按錄入日期 打印數(shù)據(jù) 關(guān)于 19 數(shù)據(jù)庫 ER 圖 收支明細(xì)表 ER 圖 轉(zhuǎn)賬明細(xì) ER 圖 用戶表 ER 圖 數(shù)據(jù)表字段設(shè)置表 1. 收支明細(xì)表 序號(hào) 字段名 數(shù)據(jù)類型 寬 度 1 序號(hào) 文本 5 2 收入支出 文本 6 3 收支類型 文本 12 4 收支說明 文本 40 5 發(fā)生金額 數(shù)字 單精度型 6 發(fā)生日期 日期 /時(shí)間 7 錄入日期 日期 /時(shí)間 8 備注 文本 50 2. 收入類型表 序號(hào) 字段名 數(shù)據(jù)類型 寬 度 1 項(xiàng)目 文本 12 收支明細(xì) 序號(hào) 收入 /支出 收支類型 收支 說明 發(fā)生日期 發(fā)生金額 錄入日期 備 注 轉(zhuǎn)賬明細(xì) 序號(hào) 轉(zhuǎn)入 /轉(zhuǎn)出 轉(zhuǎn)賬金額 轉(zhuǎn)賬說明 轉(zhuǎn)賬日期 錄入日期 備注 用戶 登錄名 登錄密碼 姓名 電話號(hào)碼 性別 年齡 地址 20 3. 轉(zhuǎn)賬明細(xì)表 序號(hào) 字段名 數(shù)據(jù)類型 寬 度 1 序號(hào) 文本 5 2 轉(zhuǎn)入轉(zhuǎn)出 文本 6 3 轉(zhuǎn)賬金額 數(shù)字 單精度型 4 轉(zhuǎn)賬說明 文本 40 5 轉(zhuǎn)賬日期 日期 /時(shí)間 6 錄入日期 日期 /時(shí)間 7 備注 文本 50 4. 支出類型表 序號(hào) 字段名 數(shù) 據(jù)類型 寬 度 1 項(xiàng)目 文本 12 5. 用戶表 序號(hào) 字段名 數(shù)據(jù)類型 寬 度 1 Username 文本 12 2 userPWD 文本 16 3 姓名 文本 10 4 性別 文本 4 5 年齡 文本 3 6 電話號(hào)碼 文本 14 7 地址 文本 50 21 初始化模塊文件設(shè)計(jì) 初始化文件 初始化主界面中兩個(gè) DataGrid 控件列顯示寬度。 Public Sub dg1() ?收支明細(xì)數(shù)據(jù)顯示網(wǎng)格 (0).Width = 500 (1).Width = 800 (2).Width = 900 (3).Width = 1700 (4).Width = 1100 (5).Width = 900 (6).Width = 1100 (7).Width = 1800 End Sub Public Sub dg2() ‘轉(zhuǎn)賬明細(xì)數(shù)據(jù)顯示網(wǎng)格 (0).Width = 500 (1).Width = 900 (2).Width = 1000 (3).Width = 2021 (4).Width = 1100 (5).Width = 1100 (6).Width = 2100 End Sub 22 登錄界面與主界面設(shè)計(jì) ，一個(gè)系統(tǒng)僅供一個(gè)用戶使用。登 錄界面截圖如下： 點(diǎn)擊“確定”按鈕對(duì)用戶所輸入的用戶名和密碼進(jìn)行驗(yàn)證，首先打開數(shù)據(jù)庫中存有用戶資料的數(shù)據(jù)表，對(duì)數(shù)據(jù)庫中用戶名，密碼和用戶輸入的進(jìn)行比較，如果一致則載入主窗體，否則彈出對(duì)話框提示密碼或用戶名錯(cuò)誤，登錄失敗，并清空用戶名和密碼文本框。 實(shí)現(xiàn)代碼如下： Set db = OpenDatabase( amp。 \) ?連接數(shù)據(jù)庫 Set re = (user) ?打開用戶數(shù)據(jù)表 If = (0) And = (1) Then Unload Me Load Form_main Else MsgBox 對(duì)不起 ,用戶名或密碼不正確 !, 16, 錯(cuò)誤 = = End If 23 輸入框檢測是否按回車確認(rèn)，該功能是為方便操作設(shè) 計(jì)，代碼如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1_Click End Sub 2. 主界面設(shè)計(jì)，即主要操作界面，工作區(qū)。 主界面截圖如下： 主窗體的載入需對(duì)該系統(tǒng)進(jìn)行初始化，包括數(shù)據(jù)庫中數(shù)據(jù)的統(tǒng)計(jì)及信息的顯示等，初始顯示全部數(shù)據(jù)庫中數(shù)據(jù)記錄，對(duì)資金合計(jì)，收支統(tǒng)計(jì)值顯示在主窗體左側(cè)的統(tǒng)計(jì)數(shù)據(jù)區(qū)。并在左下載顯示系統(tǒng)當(dāng)前的詳細(xì)時(shí)間，利用時(shí)間控件實(shí)現(xiàn)時(shí)間以秒為單位變化。 實(shí)初始化主窗體代碼如下： Call CheckExist(Me) ‘調(diào)用子函數(shù)用于判斷該系統(tǒng)是否已經(jīng)運(yùn)行 = False Set db = OpenDatabase( amp。 \) Set re = (szmx) i = 1 Do While Not ‘檢查更新數(shù)據(jù)序號(hào) 24 (0) = i i = i + 1 Loop If (1) = 收入 Then ‘統(tǒng)計(jì)收入支出總額開始 szmx_in = (5) Else: If (1) = 支出 Then szmx_out = (5) szmx_in = 0 End If Do While Not