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

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

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

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

文檔簡(jiǎn)介

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

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

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

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

5、　指導(dǎo)教師：________ 學(xué)生簽名：________　　五、成績(jī)　　六、教師評(píng)語(yǔ)　　目錄　　需求分析4

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

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

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

9、改數(shù)據(jù)。　　總體設(shè)計(jì)：　?。?）詳細(xì)設(shè)計(jì)：　　關(guān)鍵技術(shù)　　1建立與數(shù)據(jù)庫(kù)的連接代碼如下　　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 + "儲(chǔ)戶信息.mdb" '在數(shù)據(jù)庫(kù)文件名前插入路徑　　Adodc1.ConnectionString = mlink '設(shè)置連接屬性　　Adodc1.CommandType = adCmdUnknown

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

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

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

16、號(hào) = '" & Text2 & "'"　　Else　　Adodc1.RecordSource = "Select * From 儲(chǔ)戶信息"　　End If

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

18、;p>　　Adodc1.RecordSource = "select * from 儲(chǔ)戶信息"　　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存款或者取款時(shí)利用SQL語(yǔ)句在數(shù)據(jù)庫(kù)中查找對(duì)應(yīng)儲(chǔ)戶信息&l

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

22、j = Val(Text4.Text) 'j指存款金額　　a = Adodc1.Recordset.AbsolutePosition '記錄指針?biāo)谖恢?lt;/p>　　i = Val(MsgBox("確認(rèn)存款 " & " ？"

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("請(qǐng)輸入密碼")　　If b <> Adodc1.Recordset.Fields("密碼") Then　　MsgBox "密碼錯(cuò)誤"<p&

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

29、"活期" Then '根據(jù)取款類型計(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 '記錄指針?biāo)谖恢?lt;/p>　　i = (MsgBox("確認(rèn)取款 " & " ？", 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計(jì)算儲(chǔ)戶利息<

35、;p>　　根據(jù)存取款時(shí)間差，存款類型計(jì)算對(duì)應(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ù)取款類型計(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 '記錄指針?biāo)谖恢?lt;/p>　　圖三利息計(jì)算　　存款界面</

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

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

41、　同時(shí)我也明白學(xué)好VB是社會(huì)發(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 '記錄指針?biāo)谖恢?lt;/p>　　i = Val(MsgBox("確認(rèn)存款 " & " ？", 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("請(qǐng)輸入密碼")　　If b <> Adodc1.Recordset.Fields("密碼") Then　　MsgBox "密碼錯(cuò)誤"　　Else

49、　　If Text7.Text > Text4.Text Then　　MsgBox "您的余額已不足"　　Else　　If Combo1.Text = "活期" Then '根據(jù)取款類型計(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 '記錄指針?biāo)谖恢?lt;/p>　　i = (MsgBox("確認(rèn)取款 " & " ？", 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 儲(chǔ)戶信息 Where 身份

57、證號(hào) = '" & Text2 & "'"　　Else　　Adodc1.RecordSource = "Select * From 儲(chǔ)戶信息"　　End If

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

59、p>　　Adodc1.RecordSource = "select * from 儲(chǔ)戶信息"　　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 + "儲(chǔ)戶信息.mdb" '在數(shù)據(jù)庫(kù)文件名前插入路徑　　Adodc1.ConnectionString = mli

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

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

溫馨提示

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

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載