vb課程設(shè)計(jì)--銀行存取款管理-資料下載頁(yè)
2025-01-12 04:45本頁(yè)面
【正文】 期一年 Then Text6 = (c * / 100) * k / 365 ElseIf = 定期兩年 Then Text6 = (c * / 100) * k / 365 End If l = Val() a = 39。記錄指針?biāo)谖?置 i = (MsgBox(確認(rèn)取款 amp。 ？ , vbYesNo)) If i = 6 Then MsgBox (您取了 amp。 amp。 元 ) (存款金額 ) = (存款金額 ) l + Val() (取款金額 ) = (取款金額 ) + l Else End If End If End If End Sub Private Sub a_Click() End Sub Private Sub Command1_Click() If Text2 Then = Select * From 儲(chǔ)戶信息 Where 身份證號(hào) = 39。 amp。 Text2 amp。 39。 Else = Select * From 儲(chǔ)戶信息 End If 第 14 頁(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 Sub 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è)置連接屬性 = adCmdUnknown 39。指定命令類型 End Sub 參考文獻(xiàn) 龔沛曾 楊志強(qiáng)．《 Visual Basic 程序設(shè)計(jì)教程》．高等教育出版社， 202
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1