vb課程設(shè)計(jì)--銀行存取款管理-文庫(kù)吧
2024-12-28 04:45 本頁(yè)面
【正文】 關(guān)鍵技術(shù) 1 建立與數(shù)據(jù)庫(kù)的連接代碼如下 Private Sub Form_Load() Dim mpath$, mlink$ 39。用代碼設(shè)置 ADO控件的Connectionstring屬性和 Commangtype屬性 mpath = 39。獲取程序所在的路徑 If Right(mpath, 1) \ Then mpath = mpath + \ 39。判斷是否為子目錄 mlink = Provider=。 39。指定提供者 mlink = mlink + Data Source= + mpath + 儲(chǔ)戶信息 .mdb 39。在數(shù)據(jù)庫(kù)文件名前插入路徑 = mlink 39。設(shè)置連接屬性 開始 連接數(shù)據(jù)庫(kù) 添加數(shù)據(jù) 編輯數(shù)據(jù) 新建儲(chǔ)戶 存款 取款 查找數(shù)據(jù) 第 6 頁(yè)，共 13 頁(yè) = adCmdUnknown 39。指定命令類型 End Sub 2 新建儲(chǔ)戶是添加數(shù)據(jù)到數(shù)據(jù)庫(kù)中 代碼如下 Private Sub a_Click() End Sub 界面如下 圖一 建立新儲(chǔ)戶 3 刷新設(shè)置 代碼如下 Private Sub Command1_Click() If Text2 Then = Select * From 儲(chǔ)戶信息 Where 身份證號(hào) = 39。 amp。 Text2 amp。 39。 Else = Select * From 儲(chǔ)戶信息 End If 第 7 頁(yè)，共 13 頁(yè) End Sub Private Sub Command2_Click() 39。菜單 —刷新 = select * from 儲(chǔ)戶信息 End Sub Private Sub d_Click() End End Sub Private Sub f_Click() 39。刪除 End Sud 刷新后的界面 圖二 刷新界面 4存款或者取款時(shí)利用 SQL語(yǔ)句 在數(shù)據(jù)庫(kù)中查找對(duì)應(yīng)儲(chǔ)戶信息 第 8 頁(yè)，共 13 頁(yè) 程序段如下： Private Sub b_Click() 39。菜單 —存款 Dim a% Dim j As Integer j = Val() 39。j指存款金額 a = 39。記錄指針?biāo)谖恢? i = Val(MsgBox(確認(rèn)存款 amp。 ？ , vbYesNo)) If i = 6 Then MsgBox (您存了 amp。 amp。 元 ) (存款金額 ) = (存款金額 )
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1