vb課程設(shè)計--銀行存取款管理

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：14 大小：287.00KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩13頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　課程設(shè)計任務(wù)書　　學院：機電工程學院專業(yè)：機械設(shè)計制造及其自動化班級：　　學號：題目：銀行存取款管理　　一、課程設(shè)計時間　　2012年3月5日~9日

2、（第1周），共計1周。　　二、課程設(shè)計內(nèi)容　　以VB+Access組合，實現(xiàn)銀行系統(tǒng)儲戶存取款管理。要求考慮存款類型：活期、定期，要按現(xiàn)有的實際利率計算，儲戶數(shù)據(jù)表至少應(yīng)包括：編號、用戶名稱、身份證號、密碼、存款日期、存款金額、取款日期、利息等，只有在取款時才計算利息。　　用

3、戶界面中的菜單至少應(yīng)包括“建立新儲戶”、“存款”、“取款”、“退出”4項。　　三、課程設(shè)計要求　　程序質(zhì)量：　　貫徹事件驅(qū)動的程序設(shè)計思想。　　用戶界面友好，功能明確，操作方便；可以加以其它功能或

4、修飾。　　代碼應(yīng)適當縮進，并給出必要的注釋，以增強程序的可讀性。　　課程設(shè)計說明書：　　課設(shè)結(jié)束后，上交課程設(shè)計說明書和源程序。課程設(shè)計說明書的內(nèi)容參見提供的模板。　　四、指導教師和學生簽字

5、　指導教師：________ 學生簽名：________　　五、成績　　六、教師評語　　目錄　　需求分析4

6、　　設(shè)計分析4　　關(guān)鍵技術(shù)5　　總結(jié)9　　完整的源程序10<b&

7、gt;　　參考文獻13　　需求分析　　以VB+Access組合，實現(xiàn)銀行系統(tǒng)儲戶存取款管理。要求：　　考慮存款類型：活期、定期。　　要按現(xiàn)有的實際利率計算。　　儲戶數(shù)據(jù)表

8、至少應(yīng)包括：編號、用戶名稱、身份證號、密碼、存款日期、存款金額、取款日期、利息等，只有在取款時才計算利息。　　用戶界面中的菜單至少應(yīng)包括“建立新儲戶”、“存款”、“取款”、“退出”4項。　　設(shè)計分析　　基本原理：建立程序設(shè)計與數(shù)據(jù)庫的連接，用SQL語句在數(shù)據(jù)庫中查找，添加和更

9、改數(shù)據(jù)。　　總體設(shè)計：　?。?）詳細設(shè)計：　　關(guān)鍵技術(shù)　　1建立與數(shù)據(jù)庫的連接代碼如下　　Private Sub F

10、orm_Load()　　Dim mpath$, mlink$ '用代碼設(shè)置ADO控件的Connectionstring屬性和Commangtype屬性　　mpath = App.Path '獲取程序所在的路徑　　I

11、f Right(mpath, 1) <> "\" Then mpath = mpath + "\" '判斷是否為子目錄　　mlink = "Provider=Microsoft.Jet.OLEDB.4.0;" '指定提供者　　mlink = mlink

12、 + "Data Source=" + mpath + "儲戶信息.mdb" '在數(shù)據(jù)庫文件名前插入路徑　　Adodc1.ConnectionString = mlink '設(shè)置連接屬性　　Adodc1.CommandType = adCmdUnknown

13、 '指定命令類型　　End Sub　　2新建儲戶是添加數(shù)據(jù)到數(shù)據(jù)庫中　　代碼如下　　Private Sub a_Click()　　Adodc1

14、.Recordset.AddNew　　End Sub　　界面如下　　圖一建立新儲戶　　3 刷新設(shè)置

15、　　代碼如下　　Private Sub Command1_Click()　　If Text2 > "" Then　　Adodc1.RecordSource = "Select * From 儲戶信息 Where 身份證

16、號 = '" & Text2 & "'"　　Else　　Adodc1.RecordSource = "Select * From 儲戶信息"　　End If

17、　　Adodc1.Refresh　　End Sub　　Private Sub Command2_Click() '菜單—刷新　　Me.Refresh<

18、;p>　　Adodc1.RecordSource = "select * from 儲戶信息"　　Adodc1.Refresh　　End Sub　　Private Sub d_Click()

19、　　End　　End Sub　　Private Sub f_Click() '刪除　　Adodc1.Recordset.Delete　　Adodc1.Recordset.MoveNext

20、　　End Sud　　刷新后的界面　　圖二刷新界面　　4存款或者取款時利用SQL語句在數(shù)據(jù)庫中查找對應(yīng)儲戶信息&l

21、t;b>　　程序段如下：　　Private Sub b_Click() '菜單—存款　　Dim a%　　Dim j As Integer

22、j = Val(Text4.Text) 'j指存款金額　　a = Adodc1.Recordset.AbsolutePosition '記錄指針所在位置　　i = Val(MsgBox("確認存款 " & " ？"

23、;, vbYesNo))　　If i = 6 Then　　MsgBox ("您存了" & Text4.Text & "元")　　Adodc1.Recordset.Fields("存款金額") = Adodc1.Recordset.Fiel

24、ds("存款金額") + j　　Adodc1.Recordset.Update　　Else　　End If　　End Sub</p&

25、gt;　　Private Sub c_Click() '菜單—取款　　Dim b As Integer　　Dim c As Integer　　Dim k As Integer　　Dim

26、 l As Integer　　Dim a%　　c = Val(Text4.Text)　　k = (Year(Text5) - Year(Text3)) * 365 + (Month(Text5) - Month(Text3)) * 30 + (Day(Text3) - Day

27、(Text5)) '天數(shù)　　b = InputBox("請輸入密碼")　　If b <> Adodc1.Recordset.Fields("密碼") Then　　MsgBox "密碼錯誤"<p&

28、gt;　　Else　　If Text7.Text > Text4.Text Then　　MsgBox "您的余額已不足"　　Else　　If Combo1.Text =

29、"活期" Then '根據(jù)取款類型計算相應(yīng)利息　　Text6 = (c * 0.5 / 100) * k / 365　　ElseIf Combo1.Text = "定期一年" Then　　Text6 = (c * 3.1 / 100) * k / 365<

30、/p>　　ElseIf Combo1.Text = "定期兩年" Then　　Text6 = (c * 3.5 / 100) * k / 365　　End If　　l = Val(Text7.Text)&

31、lt;p>　　a = Adodc1.Recordset.AbsolutePosition '記錄指針所在位置　　i = (MsgBox("確認取款 " & " ？", vbYesNo))　　If i = 6 Then<

32、;p>　　MsgBox ("您取了" & Text7.Text & "元")　　Adodc1.Recordset.Fields("存款金額") = Adodc1.Recordset.Fields("存款金額") - l + Val(Text6.Text)

33、　　Adodc1.Recordset.Fields("取款金額") = Adodc1.Recordset.Fields("取款金額") + l　　Adodc1.Recordset.Update　　Else　　End I

34、f　　End If　　End If　　End Sub　　5計算儲戶利息<

35、;p>　　根據(jù)存取款時間差，存款類型計算對應(yīng)的利息。　　程序段如下：　　k = (Year(Text5) - Year(Text3)) * 365 + (Month(Text5) - Month(Text3)) * 30 + (Day(Text3) - Day(Text5)) '天數(shù)</

36、p>　　If Combo1.Text = "活期" Then '根據(jù)取款類型計算相應(yīng)利息　　Text6 = (c * 0.5 / 100) * k / 365　　ElseIf Combo1.Text = "定期一年" Then　　Te

37、xt6 = (c * 3.1 / 100) * k / 365　　ElseIf Combo1.Text = "定期兩年" Then　　Text6 = (c * 3.5 / 100) * k / 365　　End If

38、;　　l = Val(Text7.Text)　　a = Adodc1.Recordset.AbsolutePosition '記錄指針所在位置　　圖三利息計算　　存款界面</

39、p>　　圖四存款界面　　取款界面　　圖五取款界面　　總結(jié)　　我的課設(shè)題目是銀行存儲款管理

40、系統(tǒng)，通過課設(shè)我熟悉了VB與數(shù)據(jù)庫之間的聯(lián)系，初步使用ADO技術(shù)使VB與數(shù)據(jù)庫進行聯(lián)系，還應(yīng)用SQL語言查詢和更改數(shù)據(jù)庫中的信息，并能向其中添加新的數(shù)據(jù)。　　在課設(shè)中我逐漸體會了仔細對編寫程序的人員的重要性，很多代碼的編寫都必須在VB語言下進行，絕不能想當然。而且通過自己的努力，掌握了數(shù)據(jù)庫的連接技術(shù)，通過老師的指點和自己查閱資料，我順利的完成了任務(wù)。

41、　同時我也明白學好VB是社會發(fā)展的需要。　　完整的源程序　　Private Sub a_Click()　　Adodc1.Recordset.AddNew　　End Sub&

42、lt;p>　　Private Sub b_Click() '菜單—存款　　Dim a%　　Dim j As Integer　　j = Val(Text4.Text)

43、 'j指存款金額　　a = Adodc1.Recordset.AbsolutePosition '記錄指針所在位置　　i = Val(MsgBox("確認存款 " & " ？", vbYesNo))　　If

44、i = 6 Then　　MsgBox ("您存了" & Text4.Text & "元")　　Adodc1.Recordset.Fields("存款金額") = Adodc1.Recordset.Fields("存款金額") + j&l

45、t;p>　　Adodc1.Recordset.Update　　Else　　End If　　End Sub　　Private Sub c_Click()

46、 '菜單—取款　　Dim b As Integer　　Dim c As Integer　　Dim k As Integer　　Dim l As Integer<

47、b>　　Dim a%　　c = Val(Text4.Text)　　k = (Year(Text5) - Year(Text3)) * 365 + (Month(Text5) - Month(Text3)) * 30 + (Day(Text3) - Day(Text5)) '天數(shù)<p

48、>　　b = InputBox("請輸入密碼")　　If b <> Adodc1.Recordset.Fields("密碼") Then　　MsgBox "密碼錯誤"　　Else

49、　　If Text7.Text > Text4.Text Then　　MsgBox "您的余額已不足"　　Else　　If Combo1.Text = "活期" Then '根據(jù)取款類型計算相應(yīng)利

50、息　　Text6 = (c * 0.5 / 100) * k / 365　　ElseIf Combo1.Text = "定期一年" Then　　Text6 = (c * 3.1 / 100) * k / 365　　ElseIf Combo1.Text

51、= "定期兩年" Then　　Text6 = (c * 3.5 / 100) * k / 365　　End If　　l = Val(Text7.Text)　　a = Adodc1.Recordset.Absolut

52、ePosition '記錄指針所在位置　　i = (MsgBox("確認取款 " & " ？", vbYesNo))　　If i = 6 Then　　MsgBox ("您取了" &

53、Text7.Text & "元")　　Adodc1.Recordset.Fields("存款金額") = Adodc1.Recordset.Fields("存款金額") - l + Val(Text6.Text)　　Adodc1.Recordset.Fields("取款金額&q

54、uot;) = Adodc1.Recordset.Fields("取款金額") + l　　Adodc1.Recordset.Update　　Else　　End If<b&

55、gt;　　End If　　End If　　End Sub　　Private Sub a_Click()　　Adodc1.Recordset.AddNew

56、　　End Sub　　Private Sub Command1_Click()　　If Text2 > "" Then　　Adodc1.RecordSource = "Select * From 儲戶信息 Where 身份

57、證號 = '" & Text2 & "'"　　Else　　Adodc1.RecordSource = "Select * From 儲戶信息"　　End If

58、;　　Adodc1.Refresh　　End Sub　　Private Sub Command2_Click() '菜單—刷新　　Me.Refresh<

59、p>　　Adodc1.RecordSource = "select * from 儲戶信息"　　Adodc1.Refresh　　End Sub　　Private Sub d_Click()

60、　End　　End Sub　　Private Sub f_Click() '刪除　　Adodc1.Recordset.Delete　　Adodc1.Recordset.MoveNext&

61、lt;/p>　　End Sub　　Private Sub Form_Load()　　Dim mpath$, mlink$ '用代碼設(shè)置ADO控件的Connectionstring屬性和Commangtype屬性<p&

62、gt;　　mpath = App.Path '獲取程序所在的路徑　　If Right(mpath, 1) <> "\" Then mpath = mpath + "\" '判斷是否為子目錄　　mlink = "Provider

63、=Microsoft.Jet.OLEDB.4.0;" '指定提供者　　mlink = mlink + "Data Source=" + mpath + "儲戶信息.mdb" '在數(shù)據(jù)庫文件名前插入路徑　　Adodc1.ConnectionString = mli

64、nk '設(shè)置連接屬性　　Adodc1.CommandType = adCmdUnknown '指定命令類型　　End Sub　　參考文獻

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

vb課程設(shè)計--銀行存取款管理

文檔簡介

溫馨提示

最新文檔

評論

vb課程設(shè)計--銀行存取款管理

文檔簡介

溫馨提示

最新文檔

評論

免費下載