vb課程設計--銀行存取款管理(完整版)
【正文】 = Select * From 儲戶信息 Where 身份證號 = 39。 amp。 在課設中我逐漸體會了仔細對編寫程序 的人員的重要性，很多代碼的編寫都必須在 VB 語言下進行，絕不能想當然。記錄指針所在位置 i = (MsgBox(確認取款 amp。j指存款金額 a = 39。指定命令類型 End Sub 2 新建儲戶是添加數(shù)據(jù)到數(shù)據(jù)庫中 代碼如下 Private Sub a_Click() End Sub 界面如下 圖一 建立新儲戶 3 刷新設置 代碼如下 Private Sub Command1_Click() If Text2 Then = Select * From 儲戶信息 Where 身份證號 = 39。 （ 2） 總體設計 ： SQL 語言處理 數(shù)據(jù)庫 ADO 技術連接 第 5 頁，共 13 頁 （ 3）詳細設計 ： 關鍵技術 1 建立與數(shù)據(jù)庫的連接代碼如下 Private Sub Form_Load() Dim mpath$, mlink$ 39。 課程設計說明書： ? 課設結束后，上交課程設計說明書和源程序。課 程 設 計 任 務 書 學院：機電工程學院 專業(yè)：機械設計制造及其自動化 班級： 學號： 題目：銀行存取款管理 一、課程設計時間 2022 年 3 月 5 日 ~9 日（第 1 周），共計 1 周。課程設計說明書的內(nèi)容參見提供的模板。用代碼設置 ADO控件的Connectionstring屬性和 Commangtype屬性 mpath = 39。 amp。記錄指針所在位置 i = Val(MsgBox(確認存款 amp。 ？ , vbYesNo)) If i = 6 Then MsgBox (您取了 amp。而且通過自己的努力，掌握了數(shù)據(jù)庫的連接技術，通過老師的指點和自己查閱資料，我順利的完成了任務。 元 ) (存款金額 ) = (存款金額 ) + j Else End If End Sub Private Sub c_Click() 39。 amp。判斷是否為子目錄 mlink = Provider=。指定提供者 mlink = mlink + Data Source= + mpath + 儲戶信息 .mdb 39。 39。天數(shù) b = InputBox(請輸入密碼 ) If b (密碼 ) Then MsgBox 密碼錯誤 Else If Then 第 13 頁，共 13 頁 MsgBox 您的余額已不足 Else If = 活期 Then 39。 完整的源程序 Private Sub a_Click(
教學教案相關推薦
鄂ICP備17016276號-1