【正文】
設(shè)置連接屬性 = adCmdUnknown 39。指定提供者 mlink = mlink + Data Source= + mpath + 儲(chǔ)戶信息 .mdb 39。判斷是否為子目錄 mlink = Provider=。用代碼設(shè)置 ADO控件的Connectionstring屬性和 Commangtype屬性 mpath = 39。菜單 —刷新 = select * from 儲(chǔ)戶信息 End Sub Private Sub d_Click() End End Sub Private Sub f_Click() 39。 39。 amp。 amp。記錄指針?biāo)谖?置 i = (MsgBox(確認(rèn)取款 amp。天數(shù) b = InputBox(請(qǐng)輸入密碼 ) If b (密碼 ) Then MsgBox 密碼錯(cuò)誤 Else If Then 第 13 頁(yè),共 13 頁(yè) MsgBox 您的余額已不足 Else If = 活期 Then 39。 元 ) (存款金額 ) = (存款金額 ) + j Else End If End Sub Private Sub c_Click() 39。 ? , vbYesNo)) If i = 6 Then MsgBox (您存了 amp。j指存款金額 a = 39。 完整的源程序 Private Sub a_Click() End Sub Private Sub b_Click() 39。而且通過(guò)自己的努力,掌握了數(shù)據(jù)庫(kù)的連接技術(shù),通過(guò)老師的指點(diǎn)和自己查閱資料,我順利的完成了任務(wù)。記錄指針?biāo)谖恢? 第 10 頁(yè),共 13 頁(yè) 圖三 利息計(jì)算 存款界面 圖四 存款界面 取款界面 第 11 頁(yè),共 13 頁(yè) 圖五 取款界面 總結(jié) 我的課設(shè)題目是銀行存儲(chǔ)款管理系統(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ù) If = 活期 Then 39。 元 ) ( 存 款 金 額 ) = (存款金額 ) l + Val() ( 取 款 金 額 ) = (取款金額 ) + l Else End If End If End If End Sub 5 計(jì)算儲(chǔ)戶利息 根據(jù)存取款時(shí)間差,存款類型計(jì)算對(duì)應(yīng)的利息。 ? , vbYesNo))