vb課程設(shè)計--銀行存取款管理-文庫吧在線文庫
【正文】 用戶界面中的菜單至少應(yīng)包括“建立新儲戶”、“存款”、“取款”、“退出” 4 項。 要按現(xiàn)有的實際利率計算。 39。 Else = Select * From 儲戶信息 第 7 頁，共 13 頁 End If End Sub Private Sub Command2_Click() 39。 元 ) (存款金額 ) = (存款金額 ) + j Else End If End Sub Private Sub c_Click() 39。 程序段如下： k = (Year(Text5) Year(Text3)) * 365 + (Month(Text5) Month(Text3)) * 30 + (Day(Text3) Day(Text5)) 39。菜單 —存款 Dim a% Dim j As Integer j = Val() 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。 Else = Select * From 儲戶信息 End If 第 14 頁，共 13 頁 End Sub Private Sub Command2_Click() 39。在數(shù)據(jù)庫文件名前插入路徑 = mlink 39。獲取程序所在的路徑 If Right(mpath, 1) \ Then mpath = mpath + \ 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。 amp。 在課設(shè)中我逐漸
法律信息相關(guān)推薦
鄂ICP備17016276號-1