vb課程設計--銀行存取款管理系統(tǒng)

1、<p>　　可視化編程技術 課程設計（論文）</p><p>　　題目： 銀行存取款管理系統(tǒng) </p><p>　　院（系）： 軟件學院 </p><p>　　專業(yè)班級： </p><p>　　學 號： </p>&l

2、t;p>　　學生姓名： </p><p>　　指導教師： </p><p>　　教師職稱： 助 教 </p><p>　　起止時間：2012.11.26至2012.12.9 </p><p>　　課程設計（論文）任務及評語</p><p>

3、;　　院（系）：軟件學院 教研室：軟件教研窒</p><p><b>　　目 錄</b></p><p>　　第1章 課程設計目的與要求1</p><p>　　1.1 課程設計目的1</p><p>　　1.2 課程設計的實驗環(huán)境1<

4、;/p><p>　　1.3 課程設計的預備知識1</p><p>　　1.4 課程設計要求1</p><p>　　第2章 課程設計內(nèi)容2</p><p>　　2.1 系統(tǒng)功能設計2</p><p>　　2.2 系統(tǒng)詳細設計</p><p>　　2.3 系統(tǒng)運行與測試</p>

5、<p>　　第3章 課程設計總結</p><p><b>　　參考文獻</b></p><p><b>　　課程設計目的與要求</b></p><p>　　1.1 課程設計目的</p><p>　　本課程的課程設計實際是學生學習完《可視化編程技術》課程后，進行的一次全面的綜合訓練，其

6、目的在于加深對可視化編程技術基本知識的理解，掌握運用VB開發(fā)應用程序的基本方法及基本技巧。</p><p>　　1.2 課程設計的實驗環(huán)境</p><p>　　硬件要求能運行Windows 9.X操作系統(tǒng)的微機系統(tǒng)。</p><p>　　軟件：Microsoft Visual Basic 6.0</p><p>　　Microsoft Acc

7、ess 2003</p><p>　　1.3 課程設計的預備知識</p><p>　　熟悉Visual Basic 6.0程序設計的基本語法知識及常用技巧。</p><p>　　1.4 課程設計要求</p><p>　　按課程設計指導書提供的課題，每個小組設計一個完整的管理系統(tǒng)應用程序。要求根據(jù)規(guī)定設計系統(tǒng)的具體要求，按照應用程序的設計步驟和

8、VB的基本知識應用程序的分析與實現(xiàn)。應根據(jù)基本學時分配合理安排設計時間，并獨立完成各方面的設計。選擇同一題目的同學，可以共同協(xié)作完成一個應用程序的開發(fā)任務。要求書寫詳細的設計說明書，對有復雜的代碼段和程序段的部分，應畫出程序流程圖，寫出全部的代碼。在界面設計中，需畫出每個窗體的布局，進行屬性說明，杜絕雷同。</p><p><b>　　課程設計內(nèi)容</b></p><p&

9、gt;<b>　　2.1系統(tǒng)功能設計</b></p><p>　　2.1.1 系統(tǒng)功能以VB+Access組合，實現(xiàn)銀行系統(tǒng)活期存取款管理，要按現(xiàn)有的實際利率計算利息，儲戶數(shù)據(jù)表至少應包括：帳號、用戶名稱、身份證號、密碼、存取款日期、支出或存入金額(存入為正，支出為負，初值為0)、結余金額(初值為0)等，限在取款時才計算利息并轉(zhuǎn)入存款本金。在數(shù)據(jù)表中每一次存取款都重新生成一條新記錄，這樣數(shù)據(jù)

10、表中保存著歷史存取款信息，可供查詢。</p><p><b>　　分析</b></p><p>　　模擬銀行銀行存取款管路程序，主要有“添加刪除儲戶信息”，“查詢修改出乎信息”，“錄入用戶存取款記錄”，“計算儲戶利息”共四項。系統(tǒng)可在用戶取款時計算其活期存款利息（每天按0.2%計算利息）。</p><p><b>　　要求：</

11、b></p><p>　?。?）在Access中創(chuàng)建“儲戶信息”表，由所有儲戶信息構成，此表結構定義如下：賬號，用戶名稱，身份證號，密碼，結余金額，存取款日期，存入金額，取出金額。</p><p>　?。?）能隨時添加新儲戶或刪除原有儲戶。</p><p>　　（3）能隨時修改已存入儲戶的信息。</p><p>　　（4）能隨時查看指定

12、儲戶的信息（包括其存取款記錄）</p><p>　?。?）能將儲戶當前存款金額加入儲戶本金。</p><p>　?。?）能在儲戶取款時計算利息并存入本金。</p><p>　　2.1.2 系統(tǒng)功能模塊設計</p><p>　　圖2.1系統(tǒng)功能模塊圖</p><p><b>　　2.2系統(tǒng)詳細設計</b&

13、gt;</p><p>　　2.2.1銀行存取款管理系統(tǒng)模塊設計</p><p>　　1.界面設計（1）基本原理:建立程序設計與Access數(shù)據(jù)庫連接，用SQL語句實現(xiàn)程序?qū)?shù)據(jù)庫查找，添加，刪除，更改。</p><p>　　查找：調(diào)用ADO控件的RecrodSource屬性，確定具體可訪問數(shù)據(jù)來源，用select語句進行查找。</p><p&g

14、t;　　添加：調(diào)用AddNew方法，在記錄集中加入一條新數(shù)據(jù)，再用Update方法更新修改。</p><p>　　刪除：調(diào)用Delete方法，刪除記錄集中已選定的一條數(shù)據(jù)。</p><p>　　修改：用ADO控件將命令文本與數(shù)據(jù)庫中其對應的數(shù)據(jù)綁定，在文本框中修改，并用Update更新，對數(shù)據(jù)庫數(shù)據(jù)進行修改。</p><p><b>　?。?）總體設計：&

15、lt;/b></p><p><b>　　2.代碼設計</b></p><p>　　Private Sub chaxun_Click() '查詢信息</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　

16、　Private Sub chuhu_Click() '添加新儲戶</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cunkuan_Click() '存取款</p><p>　　Form5.Show</p>

17、;<p><b>　　End Sub</b></p><p>　　Private Sub tuichu_Click() '退出</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Privat

18、e Sub xiugai_Click() '修改儲戶信息</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p><p>　　2.2.2銀行存取款管理系統(tǒng)模塊設計</p><p><b>　　1.界面設計</b></p><p

19、>　　1）使程序與數(shù)據(jù)庫連接，實現(xiàn)程序?qū)?shù)據(jù)庫的修改與查詢：</p><p>　　利用ADO控件建立聯(lián)系，通過修改命令文本框的DataSource和DataField屬性，使命令文本框與數(shù)據(jù)庫綁定；通過修改DataGrid的DataSource屬性，使數(shù)據(jù)庫的所有信息顯示在窗體中。</p><p>　　（2）通過對主窗體菜單的Click打開“添加刪除新儲戶”、“儲戶信息”、“存款與取

20、款”窗體。</p><p><b>　　2.代碼設計</b></p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　Dim ask As Integer</p><p>　　Select Case Index</p><p&g

21、t;　　Case 0 '添加</p><p>　　Adodc1.Recordset.AddNew '添加新用戶</p><p>　　Case 1 '刪除</p><p>　　ask = MsgBox("是否刪除已有儲戶信息！", vbYesNo)</p><p>　　If ask = 6 Then&

22、lt;/p><p>　　Adodc1.Recordset.Delete '刪除當前數(shù)據(jù)</p><p>　　Adodc1.Recordset.MoveNext '下一條記錄</p><p>　　If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast '如果讀 到數(shù)據(jù)尾部，指針

23、定義到最后一條記錄</p><p><b>　　End If</b></p><p>　　Case 2 '更新</p><p>　　Adodc1.Recordset.Update '確定當前修改并保存到數(shù)據(jù)源</p><p>　　Case 3 '放棄</p><p>　　A

24、dodc1.Recordset.CancelUpdate '取消Update對記錄的修改</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click(Index As Integer)</p><p>　　

25、Select Case Index</p><p>　　Case 0 '首記錄</p><p>　　Adodc1.Recordset.MoveFirst '讀取數(shù)據(jù)庫首記錄</p><p>　　Case 1 '上一條</p><p>　　Adodc1.Recordset.MovePrevious</p>

26、<p>　　If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst '讀取上一條記錄</p><p>　　Case 2 '下一條</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then Ado

27、dc1.Recordset.MoveLast '讀取下一條記錄</p><p>　　Case 3 '尾記錄</p><p>　　Adodc1.Recordset.MoveLast '讀取數(shù)據(jù)庫尾記錄</p><p>　　End Select</p><p><b>　　End Sub</b><

28、;/p><p>　　Private Sub Command3_Click() '結束</p><p>　　Unload Me '結束當前窗體</p><p>　　Form1.Show '返回主窗體</p><p><b>　　End Sub</b></p><p>　　窗體-儲

29、戶添加與刪除：</p><p>　?。?）查詢儲戶信息是SQL語句在數(shù)據(jù)庫中按用戶名稱查詢其身份信息和存取款信息。</p><p>　　Select<字段名表>From<表名>Where<條件></p><p><b>　　程序段如下：</b></p><p>　　Private Su

30、b Command1_Click() '查詢</p><p>　　If Text1 > "" Then '設置數(shù)據(jù)源</p><p>　　Adodc1.RecordSource = "Select * From 儲戶信息 Where 用戶名稱 ='" & Text1 & "'&quo

31、t; '確定訪問數(shù)據(jù)來源，并選擇出用戶名為文本框中名稱的所有數(shù)據(jù)</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "Select * From 儲戶信息" '對于未指定信息查詢</p><p><b>　　End If</b>

32、</p><p>　　Adodc1.Refresh '刷新ADO控件的連接屬性并重新建立記錄集對象</p><p><b>　　End Sub</b></p><p><b>　　窗體-查詢：</b></p><p>　?。?）修改儲戶信息是對數(shù)據(jù)庫中儲戶的身份信息進行修改。</p&g

33、t;<p><b>　　程序段如下：</b></p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　Select Case Index</p><p>　　Case 0 '首記錄</p><p>　　Adodc1.Recor

34、dset.MoveFirst '讀取數(shù)據(jù)庫第一條記錄</p><p>　　Case 1 '上一條</p><p>　　Adodc1.Recordset.MovePrevious '讀取上一條記錄</p><p>　　If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst '如果當

35、前為數(shù)據(jù)源開始，指針定義到第一條數(shù)據(jù)</p><p>　　Case 2 '下一條</p><p>　　Adodc1.Recordset.MoveNext '讀取下一條記錄</p><p>　　If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast '如果當前為數(shù)據(jù)源尾部，指針定義到最后一條

36、數(shù)據(jù)</p><p>　　Case 3 '尾記錄</p><p>　　Adodc1.Recordset.MoveLast '讀取數(shù)據(jù)庫最后一條記錄</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Su

37、b Command2_Click() '更新</p><p>　　Adodc1.Recordset.Update '確定修改并保存到數(shù)據(jù)源</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click() '返回</p><p>　　

38、Unload Me '關閉當前窗體</p><p>　　Form1.Show '返回主窗體</p><p><b>　　End Sub</b></p><p>　　窗體-修改儲戶信息：</p><p>　?。?）存款與取款是新加一條關于當前儲戶的一條存款或取款信息。</p><p>

39、;<b>　　程序段如下：</b></p><p>　　Private Sub Command1_Click() '確定</p><p>　　Adodc1.Recordset.Update '保存修改</p><p><b>　　End Sub</b></p><p>　　Priva

40、te Sub Command2_Click() '返回</p><p>　　Unload Me '關閉當前窗體</p><p>　　Form1.Show '返回主窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()

41、'輸入</p><p>　　Adodc1.Recordset.AddNew '添加新數(shù)據(jù)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click() '存入</p><p>　　Dim a, b As Long, c% '

42、;定義a、b為長整型</p><p>　　b = Text1.Text '將賬號賦值到b</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Adodc1.Recordset.Find "賬號='" & b & "'" '從記錄首部開始查

43、找賬號為b的那一條數(shù)據(jù)</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　MsgBox "無此賬號！", , "提示" '如果查找到記錄尾部還是沒有此賬號，則彈出提示窗口</p><p><b>　　Else</b></p><p

44、>　　a = Adodc1.Recordset.Fields("結余金額") '在已找到那條數(shù)據(jù)中找到結余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給a</p><p>　　Text8.Text = Val(Text5.Text) + a '當前存入金額加此賬戶上一次的結余金額計算出新的結余金額</p><p><b>　　End If</b>

45、</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click() '取出</p><p>　　Dim x, y, z, m&, e, f As Long</p><p>　　Dim n As Date '定義n、p為日期，形式為“Y

46、YYY-MM-DD”</p><p>　　Dim p As Date</p><p>　　m = Text1.Text '將賬號賦值到m</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Adodc1.Recordset.Find "賬號='" & m &

47、amp; "'" '從記錄首部開始查找賬號為m的那一條數(shù)據(jù)</p><p>　　n = Adodc1.Recordset.Fields("存取款日期") '在已找到那條數(shù)據(jù)中找到存取從記錄首部開始查找賬號為m的那一條數(shù)據(jù)</p><p>　　p = Text7.Text '將當前取款日期賦值給p</p&g

48、t;<p>　　z = DateDiff("d", n, p) '計算當前取款日期與上一次存取款日期的天數(shù)之差</p><p>　　Adodc1.Recordset.Find "賬號='" & m & "'" '從記錄首部開始查找賬號為m的那一條數(shù)據(jù)</p><p>

49、　　f = Adodc1.Recordset.Fields("結余金額") '在已找到那條數(shù)據(jù)中找到結余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給f</p><p>　　x = Val(Text6.Text) '將當前取出金額賦值給x，將文本框中的數(shù)字字符串改為數(shù)值</p><p>　　y = f * 0.0002 * z + f - x '計算利息并將利息假如

50、本金再減去取出金額計算出此次取款的結余金額，將結余金額賦值給y</p><p>　　Text8.Text = y '將y值寫入到第八個文本框</p><p><b>　　End Sub</b></p><p><b>　　窗體-存款與取款：</b></p><p><b>　　完整

51、的源程序</b></p><p>　　Form1：（主窗體）</p><p>　　Private Sub chaxun_Click() </p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub chuhu

52、_Click()</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cunkuan_Click() </p><p>　　Form5.Show</p><p><b>　　End Sub</b&

53、gt;</p><p>　　Private Sub tuichu_Click() </p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub xiugai_Click()</p><p>　　F

54、orm4.Show</p><p><b>　　End Sub</b></p><p>　　Form2：（添加刪除儲戶）</p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　Dim ask As Integer</p><p

55、>　　Select Case Index</p><p><b>　　Case 0</b></p><p>　　Adodc1.Recordset.AddNew </p><p><b>　　Case 1</b></p><p>　　ask = MsgBox("是否刪除已有儲戶信息！&

56、quot;, vbYesNo)</p><p>　　If ask = 6 Then</p><p>　　Adodc1.Recordset.Delete </p><p>　　Adodc1.Recordset.MoveNext </p><p>　　If Adodc1.Recordset.EOF Then Adodc1.Recordset.Mo

57、veLast </p><p><b>　　End If</b></p><p><b>　　Case 2</b></p><p>　　Adodc1.Recordset.Update </p><p>　　Case 3 '放棄</p><p>　　Adodc1.Rec

58、ordset.CancelUpdate </p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click(Index As Integer)</p><p>　　Select Case Index</p>

59、<p>　　Case 0 </p><p>　　Adodc1.Recordset.MoveFirst</p><p><b>　　Case 1</b></p><p>　　Adodc1.Recordset.MovePrevious</p><p>　　If Adodc1.Recordset.BO

60、F Then Adodc1.Recordset.MoveFirst </p><p><b>　　Case 2</b></p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast </p>

61、<p><b>　　Case 3</b></p><p>　　Adodc1.Recordset.MoveLast </p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click() &

62、lt;/p><p>　　Unload Me </p><p>　　Form1.Show </p><p><b>　　End Sub</b></p><p>　　Form3：（查詢）</p><p>　　Private Sub Command1_Click() </p><p&

63、gt;　　If Text1 > "" Then </p><p>　　Adodc1.RecordSource = "Select * From 儲戶信息 Where 用戶名稱 ='" & Text1 & "'" </p><p><b>　　Else</b><

64、/p><p>　　Adodc1.RecordSource = "Select * From 儲戶信息" </p><p><b>　　End If</b></p><p>　　Adodc1.RefreshEnd Sub</p><p>　　Form4：（修改）</p><p>　　

65、Private Sub Command1_Click(Index As Integer)</p><p>　　Select Case Index</p><p><b>　　Case 0 </b></p><p>　　Adodc1.Recordset.MoveFirst</p><p><b>　　Case 1

66、</b></p><p>　　Adodc1.Recordset.MovePrevious </p><p>　　If Adodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirs</p><p>　　Case 2 Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Th

67、en Adodc1.Recordset.MoveLast </p><p><b>　　Case 3</b></p><p>　　Adodc1.Recordset.MoveLast </p><p>　　End Select</p><p><b>　　End Sub</b></p

68、><p>　　Private Sub Command2_Click() </p><p>　　Adodc1.Recordset.Update </p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click() </p><p><b

69、>　　Unload Me</b></p><p>　　Form1.Show </p><p><b>　　End Sub</b></p><p>　　Form5：（存款與取款）</p><p>　　Private Sub Command1_Click()</p><p>　　Ad

70、odc1.Recordset.Update</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p>　　Form1.Show</p><

71、;p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Private Sub Comma

72、nd4_Click()</p><p>　　Dim a, b As Long, c%</p><p>　　b = Text1.Text</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Adodc1.Recordset.Find "賬號='" & b &

73、"'"</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　MsgBox "無此賬號！", , "提示"</p><p><b>　　Else</b></p><p>　　a = Adodc1.Records

74、et.Fields("結余金額")</p><p>　　Text8.Text = Val(Text5.Text) + a</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Comman

75、d5_Click()</p><p>　　Dim x, y, z, m&, e, f As Long</p><p>　　Dim n As Date</p><p>　　Dim p As Date</p><p>　　m = Text1.Text</p><p>　　Adodc1.Recordset.MoveF

76、irst</p><p>　　Adodc1.Recordset.Find "賬號='" & m & "'"</p><p>　　n = Adodc1.Recordset.Fields("存取款日期")</p><p>　　p = Text7.Text</p>&

77、lt;p>　　z = DateDiff("d", n, p)</p><p>　　Adodc1.Recordset.Find "賬號='" & m & "'"</p><p>　　f = Adodc1.Recordset.Fields("結余金額")</p>

78、<p>　　x = Val(Text6.Text)</p><p>　　y = f * 0.0002 * z + f - x</p><p>　　Text8.Text = y</p><p><b>　　End Sub</b></p><p>　　2.2.3 數(shù)據(jù)庫訪問技術</p><p&

79、gt;　　在ASP中可以通過三種方式訪問數(shù)據(jù)庫：</p><p>　　1、IDC（Internet Database Connector）方式；</p><p>　　2、ADO（ActiveX Data Objects）方式；</p><p>　　3、RDS（Remote Data Service）方式。</p><p>　　這三種訪問方式對

80、數(shù)據(jù)庫的訪問都是由Internet Information Server完成的。通過Web瀏覽器用HTTP協(xié)議向IIS（Internet信息服務器）發(fā)送請求，IIS執(zhí)行對數(shù)據(jù)庫的訪問，并返回一個HTML格式的文檔響應。下面分別說明：</p><p>　　1、IDC（Internet數(shù)據(jù)庫接口）</p><p>　　IDC是一個傳統(tǒng)的數(shù)據(jù)庫查詢工具，用來定義和執(zhí)行數(shù)據(jù)庫查詢的SQL命令，并向

81、瀏覽器返回一個指定數(shù)據(jù)格式的頁面。使用IDC訪問數(shù)據(jù)庫最大的特點是簡單，幾乎不需要編程就能實現(xiàn)對數(shù)據(jù)庫的訪問。</p><p>　　IDC使用兩種文件來控制如何訪問數(shù)據(jù)庫以及如何創(chuàng)建返回的Web頁面：IDC (.idc)文件和HTML擴展(.htx)文件。.idc文件必須包括ODBC數(shù)據(jù)源（Datasource）、HTML擴展文件的文件名（Template）以及要執(zhí)行的SQL語句（SQLStatement）。此外

82、還有許多可選字段，可以根據(jù)需要選用。</p><p>　　.htx文件是帶有用<%%>或<!--%%-->括起來的附加標記的HTML文檔，IDC用這些標記將動態(tài)數(shù)據(jù)添加到文檔中。在.htx文件中有六個關鍵字（begindetail、enddetail、if、else、endif和"%z"），用來控制數(shù)據(jù)庫中的數(shù)據(jù)怎樣和.htx文件中HTML格式進行合并。數(shù)據(jù)庫列名說明H

83、TML文檔中什么數(shù)據(jù)被返回。</p><p>　　要執(zhí)行IDC查詢，通常的做法是在HTML文件中嵌入一個.idc文件的連接。例如，我們可用下面的HTML語句向Web服務器發(fā)出請求，要求執(zhí)行idctest.idc文件：</p><p>　　<A HREF="http://LocalHost/idctest/idctest/idctest.idc">查詢<

84、/A> 　　當Web服務器接到請求后，就調(diào)用Httpodbc.dll（IDC），與一定的數(shù)據(jù)源相連并把SQL命令傳給數(shù)據(jù)庫。當SQL語句被執(zhí)行后，IDC把返回的數(shù)據(jù)融入到.htx文件中。IDC再把這個文檔返回給Web服務器，Web服務器再返回給瀏覽器。</p><p>　　2、ADO（ActiveX數(shù)據(jù)對象） 　　ADO訪問數(shù)據(jù)庫，更像編寫數(shù)據(jù)庫應用程序。它把絕大部分的數(shù)據(jù)庫操作封裝在七個對象中，在AS

85、P頁面中編程調(diào)用這些對象執(zhí)行相應的數(shù)據(jù)庫操作。</p><p>　　ADO是ASP技術的核心之一，它集中體現(xiàn)了ASP技術豐富而靈活的數(shù)據(jù)庫訪問功能。ADO建立了基于Web方式訪問數(shù)據(jù)庫的腳本編寫模型，不僅支持任何大型數(shù)據(jù)庫的核心功能，而且支持許多數(shù)據(jù)庫所專有的特性。</p><p>　　ADO使用本機數(shù)據(jù)源，通過ODBC訪問數(shù)據(jù)庫。這些數(shù)據(jù)庫可以是關系型數(shù)據(jù)庫、文本型數(shù)據(jù)庫、層次型數(shù)據(jù)庫或

86、者任何支持ODBC的數(shù)據(jù)庫。主要優(yōu)點是易用、高速、占用內(nèi)存和磁盤空間少，所以非常適合于作為服務器端的數(shù)據(jù)庫訪問技術。相對于訪問數(shù)據(jù)庫的CGI程序而言，它是多線程的，在出現(xiàn)大量并發(fā)請求時，也同樣可以保持服務器的運行效率，并且通過連接池（Connection Pool）技術以及對數(shù)據(jù)庫連接資源的完全控制，提供與遠程數(shù)據(jù)庫的高效連接與訪問，同時它還支持事務處理（Transaction），以開發(fā)高效率、高可靠性的數(shù)據(jù)庫應用程序。 　　一般使用

87、ADO訪問數(shù)據(jù)庫的ASP腳本程序應該使用Connection對象建立并管理與遠程數(shù)據(jù)庫的連接，用Command對象提供靈活的查詢，用Recordset對象訪問數(shù)據(jù)庫查詢所返回的結果。這三者是ADO的最核心的對象。</p><p>　　與IDC一樣，運行該數(shù)據(jù)庫訪問腳本的通常做法是在HTML文件中嵌入一個.asp文件的連接。如，用HTML語句向Web服務器發(fā)出請求，要求執(zhí)行intels.asp文件：</p&g

88、t;<p>　　<A HREF="http://LocalHost/idctest/ado/intels.asp">查詢</A>     3、RDS（遠程數(shù)據(jù)服務） 　　RDS在IIS 4.0中，與ADO集成到一起，使用同樣的編程模型，提供訪問遠程數(shù)據(jù)庫的功能。ADO雖然能夠提供非常強大的數(shù)據(jù)庫訪問功能，但是它不支持數(shù)據(jù)遠程操作（Data Rem

89、oting）。它只能執(zhí)行查詢并返回數(shù)據(jù)庫查詢的結果，這種結果是靜態(tài)的，服務器上的數(shù)據(jù)庫與客戶端看到的數(shù)據(jù)沒有活的連接關系。如果用戶端需要修改數(shù)據(jù)庫，就必須構造修改數(shù)據(jù)的SQL語句，并執(zhí)行相應的查詢。而RDS支持數(shù)據(jù)遠程操作。它不僅能執(zhí)行查詢并返回數(shù)據(jù)庫查詢結果，而且可以把服務器端的數(shù)據(jù)“搬到”用戶端修改，并調(diào)用一個數(shù)據(jù)庫更新命令，將用戶端修改的數(shù)據(jù)寫回數(shù)據(jù)庫，象使用本地數(shù)據(jù)庫一樣。</p><p>　　RDS的底

90、層是調(diào)用ADO來完成的，同樣具有ADO的易用性，區(qū)別僅在于RDS需要與數(shù)據(jù)綁定控件一同使用，比如Sheridan的ActiveX DataBound Grid控件。</p><p>　　RDS在ADO的基礎上通過綁定的數(shù)據(jù)顯示和操作控件，提供給客戶端更強的數(shù)據(jù)表現(xiàn)力和遠程數(shù)據(jù)操縱功能。可以說RDS是目前基于Web的最好的遠程數(shù)據(jù)庫訪問方式</p><p>　　2.3 系統(tǒng)運行與測試<

91、/p><p>　　黑盒測試：等價類劃分，邊界值分析法，錯誤猜測法，因果圖法，比較測試法等價類劃分：分析規(guī)格說明的基礎上劃分等價類，列出等價類，然后從等價類中選出有代表性的數(shù)據(jù)進行用例測試，如果某一類中的一個用例發(fā)現(xiàn)了錯誤，那么這一類中的其他用例也能發(fā)現(xiàn)同樣的錯誤。有效等價類和無效等價類。效等價類：是由那些對程序規(guī)格說明有意義的、合理的數(shù)據(jù)數(shù)據(jù)所構成的集合；無效等價類：是那些對程序的規(guī)格說明不合理的或無意義的輸入數(shù)據(jù)所

92、構成的集合劃分等價類的依據(jù)：正和反邊界值分析法：其測試用例來自與等價類的邊界，是對等價類劃分方法的補充。錯誤猜測法：猜測被測程序在那些地方容易出錯，然后針對可能的薄弱環(huán)節(jié)設計測試用例。依賴于人們的先驗知識，因此，錯誤猜測法一般作為輔助測試用例設計方法使用。果圖法：有因必有果比較測試：由多個開發(fā)團隊開發(fā)出了更多的軟件版本，比較測試結果。一般用1,2。</p><p>　　白盒測試：邏輯覆蓋：語句覆蓋、判定覆蓋、條件

93、覆蓋、條件組合覆蓋，發(fā)現(xiàn)錯誤的能力從弱到強。</p><p>　　第3章 課程設計總結</p><p>　　這次課設我設計的題目是銀行存取款管理，通過本次課設，我學會了如何編寫VB程序訪問數(shù)據(jù)庫，比如用ADO控件，通過修改命令文本的屬性，是其與它在數(shù)據(jù)庫中相應信息的綁定，通過修改文本框的信息，對數(shù)據(jù)庫直接修改。并應用SQL語言，對指定信息的查詢。調(diào)用AddNew和Delete實現(xiàn)在數(shù)據(jù)庫中

94、添加或刪除信息。</p><p>　　這次收獲最大的是學會了將程序和數(shù)據(jù)庫連接，實現(xiàn)對數(shù)據(jù)庫中信息的修改和查詢。當然，其中不是一帆風順的，最大的是在使用Find語句時出現(xiàn)多次無法找到需要信息的情況，在老師和同學的幫助下，成功解決了問題，實現(xiàn)了利息的自動計算，方便了使用者。但是由于時間和自己對VB的掌握程度有限沒有將程序編寫的很完美使用。</p><p>　　在這次課設中，我在以前學習VB的

95、基礎上，有了新的知識掌握和對以前知識的強化。而且對VB這個編程軟件有了新的認識，可視化的操作使操作更加方便；通過修改控件的屬性可以省略一些程序語言的書寫，方便了編程者，但是在調(diào)試程序時會出現(xiàn)不方便，不能將錯誤直接找的。本次課設崔然已經(jīng)結束，當時在日后還應該加強VB軟件的使用，畢竟還它是一種順應時代的一種工具。</p><p><b>　　參考文獻</b></p><p&g

96、t;　　1．甘雷，《中文Access 2002標準教程》，北京希望電子出版社</p><p>　　2.肖紅.VB《語言程序設計實驗指導與習題解答》.北京:人民郵電出版社</p><p>　　3.Thearon Willis.《VB數(shù)據(jù)庫入門經(jīng)典》. 北京:清華大學出版社 </p><p>　　4.石志國.《VB數(shù)據(jù)庫編程》. 北京:清華大學出版社</p>