【正文】 但是由于時間和自己對 VB 的掌握程度有限沒有將程序編寫的很完美使用。 果圖法：有因必有果比較測試：由多 個開發(fā)團隊開發(fā)出了更多的軟件版本，比較測試結(jié)果。它不僅能執(zhí)行查詢并返回數(shù)據(jù)庫查詢結(jié)果，而且可以把服務器端的數(shù)據(jù) “ 搬到 ” 用戶端修改，并調(diào)用一個數(shù)據(jù)庫更新命令，將用戶端修改的數(shù)據(jù)寫回數(shù)據(jù)庫，象使用本地數(shù)據(jù)庫一樣。 一般使用 ADO訪問數(shù)據(jù)庫的 ASP腳本程序應該使用 Connection對象建立并管理與遠程數(shù)據(jù)庫的連接，用 Command 對象提供靈活的查詢，用 Recordset 對象訪問數(shù)據(jù)庫查詢所返回的結(jié)果。 ADO（ ActiveX 數(shù)據(jù)對象） ADO 訪問數(shù)據(jù)庫，更像編寫數(shù)據(jù)庫應用程序。此外還有許多可選字段，可以根據(jù)需要選用。 39。 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 14 If Then MsgBox 無此賬號！ , , 提示 Else a = (結(jié)余金額 ) = Val() + a End If End Sub Private Sub Command5_Click() Dim x, y, z, mamp。放棄 End Select End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 Case 1 If Then Case 2 If Then Case 3 End Select End Sub Private Sub Command3_Click() Unload Me End Sub Form3：（查詢） Private Sub Command1_Click() If Text1 Then = Select * From 儲戶信息 Where 用戶名稱 =39。 m amp。 m amp。如果查找到記錄尾部還是沒有此賬號，則彈出提示窗口 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 10 Else a = (結(jié)余金額 ) 39。存入 Dim a, b As Long, c% 39。 程序段如下： Private Sub Command1_Click() 39。如果當前為數(shù)據(jù)源尾部，指針定義到最后一條數(shù)據(jù) Case 3 39。 程序段如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 39。設置數(shù)據(jù)源 = Select * From 儲戶信息 Where 用戶名稱 =39。讀取下一條記錄 Case 3 39。確定當前修改并保存到數(shù)據(jù)源 Case 3 39。 Private Sub Command1_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 39。 修改：用 ADO 控件將命令文本與數(shù)據(jù)庫中其對應的數(shù)據(jù)綁定，在文本框中修改，并用 Update 更新，對數(shù)據(jù)庫數(shù)據(jù)進行修改。 （ 2）能隨時添加新儲戶或刪除原有儲戶。選擇同一題目的同學，可以共同協(xié)作完成一個應用程序的開發(fā)任務。 課程設計過程中，要嚴格遵 守 實踐環(huán)節(jié) 的時間安排，聽從指導教師的指導。 了解 VB與數(shù)據(jù)庫的連接方法 。 課程設計要求 按課程設計指導書提供的課題， 每個小組設計一個完整的 管理系統(tǒng) 應用程序。 分析 模擬銀行銀行存取款管路程序，主要有“添加刪除儲戶信息”，“查詢修改出乎信息”，“錄入用戶存取款記錄”，“計算儲戶利息”共四項。 查找：調(diào)用 ADO 控件的 RecrodSource 屬性，確定具體可訪問數(shù)據(jù)來源，用select 語句進行查找。退出 End End Sub Private Sub xiugai_Click() 39。下一條記錄 If Then 39。上一條 If Then 39。返回主窗體 End Sub 窗 體 儲戶添加與刪除： 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 7 （ 4）查詢儲戶信息是 SQL 語句在數(shù)據(jù)庫中按用戶名稱查詢其身份信息和存取款信息。確定訪問數(shù)據(jù)來源，并選擇出用戶名為文本框 中名稱的所有數(shù)據(jù) Else = Select * From 儲戶信息 39。如果當前為數(shù)據(jù)源開始，指針定義到第一條數(shù)據(jù) Case 2 39。返回 Unload Me 39。返回主窗體 End Sub Private Sub Command3_Click() 39。 39。定義 n、 p 為日期，形式為“ YYYYMMDD” Dim p As Date m = 39。將當前取款日期賦值給 p z = DateDiff(d, n, p) 39。將當前取出金額賦值給 x，將文本框中的數(shù)字字符串改為數(shù)值 y = f * * z + f x 39。 amp。 n = (存取款日期 ) p = z = DateDiff(d, n, p) 賬號 =39。使用 IDC 訪問數(shù)據(jù)庫最大的特點是簡單，幾乎不需要編程就能實現(xiàn)對數(shù)據(jù)庫的訪問。例如，我們可用下面的 HTML 語句向 Web 服務器發(fā)出請求，要求執(zhí)行 文件： A HREF= /A 當 Web 服務器接到請求后，就調(diào)用 （ IDC），與一定的數(shù)據(jù)源相連并把 SQL 命令傳給數(shù)據(jù)庫。這些數(shù)據(jù)庫可以是關系型數(shù)據(jù)庫、文本型