VB課程設(shè)計(jì)--銀行存取款管理系統(tǒng)

1、遼 寧 工 業(yè) 大 學(xué) 可視化編程技術(shù) 課程設(shè)計(jì)（論文）題目： 銀行存取款管理系統(tǒng) 院（系）： 軟件學(xué)院 專業(yè)班級(jí)： 學(xué) 號(hào)： 學(xué)生姓名： 指導(dǎo)教師： 教師職稱： 助 教 起止時(shí)間：2012.11.26至2012.12.9 課程設(shè)計(jì)（論文）任務(wù)及評(píng)語(yǔ)院（系）：軟件學(xué)院 教研室：軟件教研窒學(xué) 號(hào)學(xué)生姓名專業(yè)班級(jí)課程設(shè)計(jì)（論文）題目銀行存取款管理系統(tǒng)課程設(shè)計(jì)（論文）任務(wù)課程設(shè)計(jì)任務(wù)及要求：1、掌握VB程序設(shè)計(jì)語(yǔ)言的基礎(chǔ)知識(shí)。2、設(shè)計(jì)所選擇的題目，對(duì)具體功能進(jìn)行詳細(xì)的分析，根據(jù)系統(tǒng)的要求在VB中設(shè)計(jì)窗體界面，使其合理化。3、了解VB與數(shù)據(jù)庫(kù)的連接方法。4、編寫代碼，實(shí)現(xiàn)系統(tǒng)的功能。5、通過(guò)調(diào)試程序，

2、加深對(duì)VB編程的基本技巧及方法的理解。課程設(shè)計(jì)過(guò)程中，要嚴(yán)格遵守實(shí)踐環(huán)節(jié)的時(shí)間安排，聽(tīng)從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，記錄實(shí)習(xí)日記，規(guī)范完整地撰寫出課程設(shè)計(jì)論文。指導(dǎo)教師評(píng)語(yǔ)及成績(jī)成績(jī)： 指導(dǎo)教師簽字： 2012 年 12 月 13日目 錄第1章 課程設(shè)計(jì)目的與要求11.1 課程設(shè)計(jì)目的1 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境1 課程設(shè)計(jì)的預(yù)備知識(shí)1 課程設(shè)計(jì)要求1第2章 課程設(shè)計(jì)內(nèi)容2 系統(tǒng)功能設(shè)計(jì)22.2 系統(tǒng)詳細(xì)設(shè)計(jì)2.3 系統(tǒng)運(yùn)行與測(cè)試第3章 課程設(shè)計(jì)總結(jié)參考文獻(xiàn)課程設(shè)計(jì)目的與要求1.1 課程設(shè)計(jì)目的本課程的課程設(shè)計(jì)實(shí)際是學(xué)生學(xué)習(xí)完可視化編程技術(shù)課程后，進(jìn)行的一次全面的綜合訓(xùn)練，其目的在于加深對(duì)可

3、視化編程技術(shù)基本知識(shí)的理解，掌握運(yùn)用VB開(kāi)發(fā)應(yīng)用程序的基本方法及基本技巧。 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境硬件要求能運(yùn)行Windows 9.X操作系統(tǒng)的微機(jī)系統(tǒng)。軟件：Microsoft Microsoft Access 2003 課程設(shè)計(jì)的預(yù)備知識(shí)熟悉的基本語(yǔ)法知識(shí)及常用技巧。 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書(shū)提供的課題，每個(gè)小組設(shè)計(jì)一個(gè)完整的管理系統(tǒng)應(yīng)用程序。要求根據(jù)規(guī)定設(shè)計(jì)系統(tǒng)的具體要求，按照應(yīng)用程序的設(shè)計(jì)步驟和VB的基本知識(shí)應(yīng)用程序的分析與實(shí)現(xiàn)。應(yīng)根據(jù)基本學(xué)時(shí)分配合理安排設(shè)計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。選擇同一題目的同學(xué)，可以共同協(xié)作完成一個(gè)應(yīng)用程序的開(kāi)發(fā)任務(wù)。要求書(shū)寫詳細(xì)的設(shè)計(jì)說(shuō)明書(shū)，對(duì)有復(fù)雜的代

4、碼段和程序段的部分，應(yīng)畫(huà)出程序流程圖，寫出全部的代碼。在界面設(shè)計(jì)中，需畫(huà)出每個(gè)窗體的布局，進(jìn)行屬性說(shuō)明，杜絕雷同。課程設(shè)計(jì)內(nèi)容系統(tǒng)功能設(shè)計(jì) 系統(tǒng)功能以VB+Access組合，實(shí)現(xiàn)銀行系統(tǒng)活期存取款管理，要按現(xiàn)有的實(shí)際利率計(jì)算利息，儲(chǔ)戶數(shù)據(jù)表至少應(yīng)包括：帳號(hào)、用戶名稱、身份證號(hào)、密碼、存取款日期、支出或存入金額(存入為正，支出為負(fù)，初值為0)、結(jié)余金額(初值為0)等，限在取款時(shí)才計(jì)算利息并轉(zhuǎn)入存款本金。在數(shù)據(jù)表中每一次存取款都重新生成一條新記錄，這樣數(shù)據(jù)表中保存著歷史存取款信息，可供查詢。分析模擬銀行銀行存取款管路程序，主要有“添加刪除儲(chǔ)戶信息”，“查詢修改出乎信息”，“錄入用戶存取款記錄”，“

5、計(jì)算儲(chǔ)戶利息”共四項(xiàng)。系統(tǒng)可在用戶取款時(shí)計(jì)算其活期存款利息（每天按0.2%計(jì)算利息）。要求：（1）在Access中創(chuàng)建“儲(chǔ)戶信息”表，由所有儲(chǔ)戶信息構(gòu)成，此表結(jié)構(gòu)定義如下：賬號(hào)，用戶名稱，身份證號(hào)，密碼，結(jié)余金額，存取款日期，存入金額，取出金額。（2）能隨時(shí)添加新儲(chǔ)戶或刪除原有儲(chǔ)戶。（3）能隨時(shí)修改已存入儲(chǔ)戶的信息。（4）能隨時(shí)查看指定儲(chǔ)戶的信息（包括其存取款記錄）（5）能將儲(chǔ)戶當(dāng)前存款金額加入儲(chǔ)戶本金。（6）能在儲(chǔ)戶取款時(shí)計(jì)算利息并存入本金。 系統(tǒng)功能模塊設(shè)計(jì)開(kāi)始連接數(shù)據(jù)庫(kù)添加刪除數(shù)據(jù)查詢數(shù)據(jù)更改數(shù)據(jù)新建儲(chǔ)戶刪除儲(chǔ)戶添加儲(chǔ)戶存款取款信息顯示儲(chǔ)戶存取款信息修改儲(chǔ)戶身份信息圖2.1系統(tǒng)功能模塊圖

6、系統(tǒng)詳細(xì)設(shè)計(jì)銀行存取款管理系統(tǒng)模塊設(shè)計(jì)（1）基本原理:建立程序設(shè)計(jì)與Access數(shù)據(jù)庫(kù)連接，用SQL語(yǔ)句實(shí)現(xiàn)程序?qū)?shù)據(jù)庫(kù)查找，添加，刪除，更改。查找：調(diào)用ADO控件的RecrodSource屬性，確定具體可訪問(wèn)數(shù)據(jù)來(lái)源，用select語(yǔ)句進(jìn)行查找。添加：調(diào)用AddNew方法，在記錄集中加入一條新數(shù)據(jù)，再用Update方法更新修改。刪除：調(diào)用Delete方法，刪除記錄集中已選定的一條數(shù)據(jù)。修改：用ADO控件將命令文本與數(shù)據(jù)庫(kù)中其對(duì)應(yīng)的數(shù)據(jù)綁定，在文本框中修改，并用Update更新，對(duì)數(shù)據(jù)庫(kù)數(shù)據(jù)進(jìn)行修改。 （2）總體設(shè)計(jì)：ADO控件連接Access數(shù)據(jù)庫(kù)SQL語(yǔ)言實(shí)現(xiàn)修改Private Sub c

7、haxun_Click() 查詢信息End SubPrivate Sub chuhu_Click() 添加新儲(chǔ)戶End SubPrivate Sub cunkuan_Click() 存取款End SubPrivate Sub tuichu_Click() 退出 EndEnd SubPrivate Sub xiugai_Click() 修改儲(chǔ)戶信息End Sub 銀行存取款管理系統(tǒng)模塊設(shè)計(jì)1）使程序與數(shù)據(jù)庫(kù)連接，實(shí)現(xiàn)程序?qū)?shù)據(jù)庫(kù)的修改與查詢： 利用ADO控件建立聯(lián)系，通過(guò)修改命令文本框的DataSource和DataField屬性，使命令文本框與數(shù)據(jù)庫(kù)綁定；通過(guò)修改DataGrid的DataSo

8、urce屬性，使數(shù)據(jù)庫(kù)的所有信息顯示在窗體中。 （2）通過(guò)對(duì)主窗體菜單的Click打開(kāi)“添加刪除新儲(chǔ)戶”、“儲(chǔ)戶信息”、“存款與取款”窗體。Private Sub Command1_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 添加 Adodc1.Recordset.AddNew 添加新用戶 Case 1 刪除 ask = MsgBox(是否刪除已有儲(chǔ)戶信息！, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete 刪除當(dāng)前數(shù)據(jù) Adodc1.Recordset

9、.MoveNext 下一條記錄 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 如果讀 到數(shù)據(jù)尾部，指針定義到最后一條記錄 End If Case 2 更新 Adodc1.Recordset.Update 確定當(dāng)前修改并保存到數(shù)據(jù)源 Case 3 放棄 Adodc1.Recordset.CancelUpdate 取消Update對(duì)記錄的修改 End SelectEnd SubPrivate Sub Command2_Click(Index As Integer) Select Case Index Case 0 首記錄 Adodc1

10、.Recordset.MoveFirst 讀取數(shù)據(jù)庫(kù)首記錄 Case 1 上一條 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst 讀取上一條記錄 Case 2 下一條 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 讀取下一條記錄 Case 3 尾記錄 Adodc1.Recordset.MoveLast 讀取數(shù)據(jù)庫(kù)尾記錄 End SelectEnd SubPrivate Sub Command3_Click() 結(jié)束 Unload Me 結(jié)束當(dāng)前窗體 Form1.Sho

11、w 返回主窗體End Sub窗體-儲(chǔ)戶添加與刪除： （4）查詢儲(chǔ)戶信息是SQL語(yǔ)句在數(shù)據(jù)庫(kù)中按用戶名稱查詢其身份信息和存取款信息。SelectFromWhere程序段如下：Private Sub Command1_Click() 查詢 If Text1 Then 設(shè)置數(shù)據(jù)源 Adodc1.RecordSource = Select * From 儲(chǔ)戶信息 Where 用戶名稱 = & Text1 & 確定訪問(wèn)數(shù)據(jù)來(lái)源，并選擇出用戶名為文本框中名稱的所有數(shù)據(jù) Else Adodc1.RecordSource = Select * From 儲(chǔ)戶信息 對(duì)于未指定信息查詢 End If Adodc1

12、.Refresh 刷新ADO控件的連接屬性并重新建立記錄集對(duì)象End Sub窗體-查詢：（5）修改儲(chǔ)戶信息是對(duì)數(shù)據(jù)庫(kù)中儲(chǔ)戶的身份信息進(jìn)行修改。程序段如下：Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 首記錄 Adodc1.Recordset.MoveFirst 讀取數(shù)據(jù)庫(kù)第一條記錄 Case 1 上一條 Adodc1.Recordset.MovePrevious 讀取上一條記錄 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst 如果當(dāng)前為數(shù)

13、據(jù)源開(kāi)始，指針定義到第一條數(shù)據(jù) Case 2 下一條 Adodc1.Recordset.MoveNext 讀取下一條記錄 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 如果當(dāng)前為數(shù)據(jù)源尾部，指針定義到最后一條數(shù)據(jù) Case 3 尾記錄 Adodc1.Recordset.MoveLast 讀取數(shù)據(jù)庫(kù)最后一條記錄 End SelectEnd SubPrivate Sub Command2_Click() 更新 Adodc1.Recordset.Update 確定修改并保存到數(shù)據(jù)源End SubPrivate Sub Command3_

14、Click() 返回 Unload Me 關(guān)閉當(dāng)前窗體 Form1.Show 返回主窗體End Sub窗體-修改儲(chǔ)戶信息：（6）存款與取款是新加一條關(guān)于當(dāng)前儲(chǔ)戶的一條存款或取款信息。程序段如下：Private Sub Command1_Click() 確定 Adodc1.Recordset.Update 保存修改End SubPrivate Sub Command2_Click() 返回 Unload Me 關(guān)閉當(dāng)前窗體 Form1.Show 返回主窗體End SubPrivate Sub Command3_Click() 輸入 Adodc1.Recordset.AddNew 添加新數(shù)據(jù)End

15、 SubPrivate Sub Command4_Click() 存入 Dim a, b As Long, c% 定義a、b為長(zhǎng)整型 b = Text1.Text 將賬號(hào)賦值到b Adodc1.Recordset.Find 賬號(hào)= & b & 從記錄首部開(kāi)始查找賬號(hào)為b的那一條數(shù)據(jù) If Adodc1.Recordset.EOF Then MsgBox 無(wú)此賬號(hào)！, , 提示 如果查找到記錄尾部還是沒(méi)有此賬號(hào)，則彈出提示窗口 Else a = Adodc1.Recordset.Fields(結(jié)余金額) 在已找到那條數(shù)據(jù)中找到結(jié)余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給a Text8.Text = Val(T

16、ext5.Text) + a 當(dāng)前存入金額加此賬戶上一次的結(jié)余金額計(jì)算出新的結(jié)余金額 End IfEnd SubPrivate Sub Command5_Click() 取出 Dim x, y, z, m&, e, f As Long Dim n As Date 定義n、p為日期，形式為“YYYY-MM-DD” Dim p As Date m = Text1.Text 將賬號(hào)賦值到m Adodc1.Recordset.Find 賬號(hào)= & m & 從記錄首部開(kāi)始查找賬號(hào)為m的那一條數(shù)據(jù) n = Adodc1.Recordset.Fields(存取款日期) 在已找到那條數(shù)據(jù)中找到存取從記錄首部開(kāi)

17、始查找賬號(hào)為m的那一條數(shù)據(jù) p = Text7.Text 將當(dāng)前取款日期賦值給p z = DateDiff(d, n, p) 計(jì)算當(dāng)前取款日期與上一次存取款日期的天數(shù)之差 Adodc1.Recordset.Find 賬號(hào)= & m & 從記錄首部開(kāi)始查找賬號(hào)為m的那一條數(shù)據(jù) f = Adodc1.Recordset.Fields(結(jié)余金額) 在已找到那條數(shù)據(jù)中找到結(jié)余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給f x = Val(Text6.Text) 將當(dāng)前取出金額賦值給x，將文本框中的數(shù)字字符串改為數(shù)值 y = f * 0.0002 * z + f - x 計(jì)算利息并將利息假如本金再減去取出金額計(jì)算出此次取

18、款的結(jié)余金額，將結(jié)余金額賦值給y Text8.Text = y 將y值寫入到第八個(gè)文本框End Sub窗體-存款與取款：完整的源程序Form1：（主窗體）Private Sub chaxun_Click() End SubPrivate Sub chuhu_Click()End SubPrivate Sub cunkuan_Click() End SubPrivate Sub tuichu_Click() EndEnd SubPrivate Sub xiugai_Click()End SubForm2：（添加刪除儲(chǔ)戶）Private Sub Command1_Click(Index As In

19、teger) Dim ask As Integer Select Case Index Case 0 Adodc1.Recordset.AddNew Case 1 ask = MsgBox(是否刪除已有儲(chǔ)戶信息！, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Case 2 Adodc1.Recordset.Update Case 3 放棄 Adodc1.Records

20、et.CancelUpdate End SelectEnd SubPrivate Sub Command2_Click(Index As Integer) Select Case Index Case 0 Case 1 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLast End SelectEnd SubPrivate Sub Command3_C

21、lick() Unload Me Form1.Show End SubForm3：（查詢）Private Sub Command1_Click() If Text1 Then Adodc1.RecordSource = Select * From 儲(chǔ)戶信息 Where 用戶名稱 = & Text1 & Else Adodc1.RecordSource = Select * From 儲(chǔ)戶信息 End IfEnd SubForm4：（修改）Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Case 1 Ad

22、odc1.Recordset.MovePrevious Case 2 Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3 Ado.MoveLast End SelectEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.Update End SubPrivate Sub Command3_Click() Unload Me Form1.Show End SubForm5：（存款與取款）Private Sub Comma

23、nd1_Click()End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click() Dim a, b As Long, c% Adodc1.Recordset.Find 賬號(hào)= & b & If Adodc1.Recordset.EOF Then MsgBox 無(wú)此賬號(hào)！, , 提示 Else a = Adodc1.Recordset.Fields(結(jié)余金額) Text8.Text = Val(Text5.Text) + a

24、End IfEnd SubPrivate Sub Command5_Click() Dim x, y, z, m&, e, f As Long Dim n As Date Dim p As Date Adodc1.Recordset.Find 賬號(hào)= & m & n = Adodc1.Recordset.Fields(存取款日期) z = DateDiff(d, n, p) Adodc1.Recordset.Find 賬號(hào)= & m & f = Adodc1.Recordset.Fields(結(jié)余金額) x = Val(Text6.Text) y = f * 0.0002 * z + f -

25、x Text8.Text = yEnd Sub 數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)在ASP中可以通過(guò)三種方式訪問(wèn)數(shù)據(jù)庫(kù)：1、IDC（Internet Database Connector）方式；2、ADO（ActiveX Data Objects）方式；3、RDS（Remote Data Service）方式。這三種訪問(wèn)方式對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)都是由Internet Information Server完成的。通過(guò)Web瀏覽器用 協(xié)議向IIS（Internet信息服務(wù)器）發(fā)送請(qǐng)求，IIS執(zhí)行對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)，并返回一個(gè)HTML格式的文檔響應(yīng)。下面分別說(shuō)明：1、IDC（Internet數(shù)據(jù)庫(kù)接口）IDC是一個(gè)傳統(tǒng)的數(shù)據(jù)庫(kù)查

26、詢工具，用來(lái)定義和執(zhí)行數(shù)據(jù)庫(kù)查詢的SQL命令，并向?yàn)g覽器返回一個(gè)指定數(shù)據(jù)格式的頁(yè)面。使用IDC訪問(wèn)數(shù)據(jù)庫(kù)最大的特點(diǎn)是簡(jiǎn)單，幾乎不需要編程就能實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)。IDC使用兩種文件來(lái)控制如何訪問(wèn)數(shù)據(jù)庫(kù)以及如何創(chuàng)建返回的Web頁(yè)面：IDC (.idc)文件和HTML擴(kuò)展(.htx)文件。.idc文件必須包括ODBC數(shù)據(jù)源（Datasource）、HTML擴(kuò)展文件的文件名（Template）以及要執(zhí)行的SQL語(yǔ)句（SQLStatement）。此外還有許多可選字段，可以根據(jù)需要選用。.htx文件是帶有用或括起來(lái)的附加標(biāo)記的HTML文檔，IDC用這些標(biāo)記將動(dòng)態(tài)數(shù)據(jù)添加到文檔中。在.htx文件中有六個(gè)關(guān)鍵

27、字（begindetail、enddetail、if、else、endif和%z），用來(lái)控制數(shù)據(jù)庫(kù)中的數(shù)據(jù)怎樣和.htx文件中HTML格式進(jìn)行合并。數(shù)據(jù)庫(kù)列名說(shuō)明HTML文檔中什么數(shù)據(jù)被返回。要執(zhí)行IDC查詢，通常的做法是在HTML文件中嵌入一個(gè).idc文件的連接。例如，我們可用下面的HTML語(yǔ)句向Web服務(wù)器發(fā)出請(qǐng)求，要求執(zhí)行idctest.idc文件：查詢 當(dāng)Web服務(wù)器接到請(qǐng)求后，就調(diào)用 odbc.dll（IDC），與一定的數(shù)據(jù)源相連并把SQL命令傳給數(shù)據(jù)庫(kù)。當(dāng)SQL語(yǔ)句被執(zhí)行后，IDC把返回的數(shù)據(jù)融入到.htx文件中。IDC再把這個(gè)文檔返回給Web服務(wù)器，Web服務(wù)器再返回給瀏覽器。2

28、、ADO（ActiveX數(shù)據(jù)對(duì)象） ADO訪問(wèn)數(shù)據(jù)庫(kù)，更像編寫數(shù)據(jù)庫(kù)應(yīng)用程序。它把絕大部分的數(shù)據(jù)庫(kù)操作封裝在七個(gè)對(duì)象中，在ASP頁(yè)面中編程調(diào)用這些對(duì)象執(zhí)行相應(yīng)的數(shù)據(jù)庫(kù)操作。ADO是ASP技術(shù)的核心之一，它集中體現(xiàn)了ASP技術(shù)豐富而靈活的數(shù)據(jù)庫(kù)訪問(wèn)功能。ADO建立了基于Web方式訪問(wèn)數(shù)據(jù)庫(kù)的腳本編寫模型，不僅支持任何大型數(shù)據(jù)庫(kù)的核心功能，而且支持許多數(shù)據(jù)庫(kù)所專有的特性。ADO使用本機(jī)數(shù)據(jù)源，通過(guò)ODBC訪問(wèn)數(shù)據(jù)庫(kù)。這些數(shù)據(jù)庫(kù)可以是關(guān)系型數(shù)據(jù)庫(kù)、文本型數(shù)據(jù)庫(kù)、層次型數(shù)據(jù)庫(kù)或者任何支持ODBC的數(shù)據(jù)庫(kù)。主要優(yōu)點(diǎn)是易用、高速、占用內(nèi)存和磁盤空間少，所以非常適合于作為服務(wù)器端的數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)。相對(duì)于訪問(wèn)

29、數(shù)據(jù)庫(kù)的CGI程序而言，它是多線程的，在出現(xiàn)大量并發(fā)請(qǐng)求時(shí)，也同樣可以保持服務(wù)器的運(yùn)行效率，并且通過(guò)連接池（Connection Pool）技術(shù)以及對(duì)數(shù)據(jù)庫(kù)連接資源的完全控制，提供與遠(yuǎn)程數(shù)據(jù)庫(kù)的高效連接與訪問(wèn)，同時(shí)它還支持事務(wù)處理（Transaction），以開(kāi)發(fā)高效率、高可靠性的數(shù)據(jù)庫(kù)應(yīng)用程序。 一般使用ADO訪問(wèn)數(shù)據(jù)庫(kù)的ASP腳本程序應(yīng)該使用Connection對(duì)象建立并管理與遠(yuǎn)程數(shù)據(jù)庫(kù)的連接，用Command對(duì)象提供靈活的查詢，用Recordset對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)查詢所返回的結(jié)果。這三者是ADO的最核心的對(duì)象。與IDC一樣，運(yùn)行該數(shù)據(jù)庫(kù)訪問(wèn)腳本的通常做法是在HTML文件中嵌入一個(gè).asp文

30、件的連接。如，用HTML語(yǔ)句向Web服務(wù)器發(fā)出請(qǐng)求，要求執(zhí)行intels.asp文件：查詢 3、RDS（遠(yuǎn)程數(shù)據(jù)服務(wù)） RDS在IIS 4.0中，與ADO集成到一起，使用同樣的編程模型，提供訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)的功能。ADO雖然能夠提供非常強(qiáng)大的數(shù)據(jù)庫(kù)訪問(wèn)功能，但是它不支持?jǐn)?shù)據(jù)遠(yuǎn)程操作（Data Remoting）。它只能執(zhí)行查詢并返回?cái)?shù)據(jù)庫(kù)查詢的結(jié)果，這種結(jié)果是靜態(tài)的，服務(wù)器上的數(shù)據(jù)庫(kù)與客戶端看到的數(shù)據(jù)沒(méi)有活的連接關(guān)系。如果用戶端需要修改數(shù)據(jù)庫(kù)，就必須構(gòu)造修改數(shù)據(jù)的SQL語(yǔ)句，并執(zhí)行相應(yīng)的查詢。而RDS支持?jǐn)?shù)據(jù)遠(yuǎn)程操作。它不僅能執(zhí)行查詢并返回?cái)?shù)據(jù)庫(kù)查詢結(jié)果，而且可以把服務(wù)器端的數(shù)據(jù)“搬到”用戶端修改，并調(diào)用一個(gè)數(shù)據(jù)庫(kù)更新命令，將用戶端修改的數(shù)據(jù)寫回?cái)?shù)據(jù)庫(kù)，象使用本地?cái)?shù)據(jù)庫(kù)一樣。RDS的底層是調(diào)用ADO來(lái)完成的，同樣具有ADO的易用性，區(qū)別僅在于RDS需要與數(shù)據(jù)綁定控件一同使用，比如Sheridan的ActiveX DataBound Grid控件。RDS在ADO的基礎(chǔ)上通過(guò)綁定的數(shù)據(jù)顯示和操作控件，提供給客戶端更強(qiáng)的數(shù)據(jù)表現(xiàn)力和遠(yuǎn)程數(shù)據(jù)操縱功能?？梢哉f(shuō)RDS是目前基于Web的最好的遠(yuǎn)程數(shù)據(jù)庫(kù)訪問(wèn)方式2.3 系統(tǒng)運(yùn)行與測(cè)試黑盒測(cè)試：等價(jià)類劃