vb課程設(shè)計(jì)--銀行存取款管理-在線(xiàn)瀏覽
2025-01-19 16:29本頁(yè)面
【正文】 建立新儲(chǔ)戶(hù) 3 刷新設(shè)置 代碼如下 Private Sub Command1_Click() If Text2 Then = Select * From 儲(chǔ)戶(hù)信息 Where 身份證號(hào) = 39。 Text2 amp。 Else = Select * From 儲(chǔ)戶(hù)信息 第 7 頁(yè)，共 13 頁(yè) End If End Sub Private Sub Command2_Click() 39。刪除 End Sud 刷新后的界面 圖二 刷新界面 4存款或者取款時(shí)利用 SQL語(yǔ)句 在數(shù)據(jù)庫(kù)中查找對(duì)應(yīng)儲(chǔ)戶(hù)信 第 8 頁(yè)，共 13 頁(yè) 息 程序段如下： Private Sub b_Click() 39。j指存款金額 a = 39。 ？ , vbYesNo)) If i = 6 Then MsgBox (您存了 amp。 元 ) (存款金額 ) = (存款金額 ) + j Else End If End Sub Private Sub c_Click() 39。天數(shù) b = InputBox(請(qǐng)輸入密碼 ) If b (密碼 ) Then MsgBox 密碼錯(cuò)誤 Else If Then MsgBox 您的余額已不足 Else If = 活期 Then 39。記錄指針?biāo)谖恢? i = (MsgBox(確認(rèn)取款 amp。 amp。 程序段如下： k = (Year(Text5) Year(Text3)) * 365 + (Month(Text5) Month(Text3)) * 30 + (Day(Text3) Day(Text5)) 39。根據(jù)取款類(lèi)型計(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。 在課設(shè)中我逐漸體會(huì)了仔細(xì)對(duì)編寫(xiě)程序的人員的重要性， 很多代碼的編寫(xiě)都必須在 VB 語(yǔ)言下進(jìn)行，絕不能想當(dāng)然。 第 12 頁(yè)，共 13 頁(yè) 同時(shí)我也明白學(xué)好 VB 是社會(huì)發(fā)展的需要。菜單 —存款 Dim a% Dim j As I
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1