vb課程設(shè)計--銀行存取款管理-wenkub.com
2024-11-12 16:29 本頁面
【正文】 在數(shù)據(jù)庫文件名前插入路徑 = mlink 39。獲取程序所在的路徑 If Right(mpath, 1) \ Then mpath = mpath + \ 39。 Else = Select * From 儲戶信息 End If 第 14 頁，共 13 頁 End Sub Private Sub Command2_Click() 39。 元 ) (存款金額 ) = (存款金額 ) 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 儲戶信息 Where 身份證號 = 39。根據(jù)取款類型計算相應(yīng)利息 Text6 = (c * / 100) * k / 365 ElseIf = 定期一年 Then Text6 = (c * / 100) * k / 365 ElseIf = 定期兩年 Then Text6 = (c * / 100) * k / 365 End If l = Val() a = 39。 amp。菜單 —存款 Dim a% Dim j As Integer j = Val() 39。 在課設(shè)中我逐漸體會了仔細(xì)對編寫程序的人員的重要性， 很多代碼的編寫都必須在 VB 語言下進(jìn)行，絕不能想當(dāng)然。 程序段如下： k = (Year(Text5) Year(Text3)) * 365 + (Month(Text5) Month(Text3)) * 30 + (Day(Text3) Day(Text5)) 39。記錄指針?biāo)谖恢? i = (MsgBox(確認(rèn)取款 amp。 元 ) (存款金額 ) = (存款金額 ) + j Else End If End Sub Private Sub c_Click() 39。j指存款金額 a = 39。 Else = Select * From 儲戶信息 第 7 頁，共 13 頁 End If End Sub
法律信息相關(guān)推薦
鄂ICP備17016276號-1