vb課程設(shè)計(jì)--銀行存取款管理系統(tǒng)-文庫吧資料
2024-11-24 16:29本頁面
【正文】 k = MsgBox(是否刪除已有儲(chǔ)戶信息！ , vbYesNo) If ask = 6 Then If Then End If Case 2 Case 3 39。將當(dāng)前取出金額賦值給 x，將文本框中的數(shù)字字符串改為數(shù)值 y = f * * z + f x 39。從記錄首部開始查找賬號(hào)為 m的那一條數(shù)據(jù) f = (結(jié)余金額 ) 39。 39。 amp。將當(dāng)前取款日期賦值給 p z = DateDiff(d, n, p) 39。從記錄首部開始查找賬號(hào)為 m的那一條數(shù)據(jù) n = (存取款日期 ) 39。 39。 amp。定義 n、 p 為日期，形式為“ YYYYMMDD” Dim p As Date m = 39。取出 Dim x, y, z, mamp。在已找到那條數(shù)據(jù) 中找到結(jié)余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給 a = Val() + a 39。從記錄首部開始查找賬號(hào)為 b的那一條數(shù)據(jù) If Then MsgBox 無此賬號(hào)！ , , 提示 39。 39。 amp。定義 a、 b為長整型 b = 39。添加新數(shù)據(jù) End Sub Private Sub Command4_Click() 39。返回主窗體 End Sub Private Sub Command3_Click() 39。返回 Unload Me 39。確定 39。返回主窗體 End Sub 窗體 修改儲(chǔ)戶信息： （ 6）存款與取款是新加一條關(guān)于當(dāng)前儲(chǔ)戶的一條存款或取款信息。返回 Unload Me 39。更新 39。尾記錄 39。讀取下一條記錄 If Then 39。如果當(dāng)前為數(shù)據(jù)源開始，指針定義到第一條數(shù)據(jù) Case 2 39。上一條 39。首記錄 39。刷新 ADO 控件的連接屬性并重新建立記錄集對(duì)象 End Sub 窗體 查詢： 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 8 （ 5）修改儲(chǔ)戶信息是對(duì)數(shù)據(jù)庫中儲(chǔ)戶的身份信息進(jìn)行修改。確定訪問數(shù)據(jù)來源，并選擇出用戶名為文本框 中名稱的所有數(shù)據(jù) Else = Select * From 儲(chǔ)戶信息 39。 39。 amp。查詢 If Text1 Then 39。返回主窗體 End Sub 窗 體 儲(chǔ)戶添加與刪除： 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 7 （ 4）查詢儲(chǔ)戶信息是 SQL 語句在數(shù)據(jù)庫中按用戶名稱查詢其身份信息和存取款信息。結(jié)束 Unload Me 39。尾記錄 39。下一條 If Then 39。上一條 If Then 39。首記錄 39。放棄 39。更新 39。下一條記錄 If Then 39。刪除 ask = MsgBox(是否刪除已有儲(chǔ)戶信息！ , vbYesNo) 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 6 If ask = 6 Then 39。添加 39。 （ 2）通過對(duì)主窗體菜單的 Click 打開“添加刪除新儲(chǔ)戶”、“儲(chǔ)戶信息”、“存款與取款”窗體。退出 End End Sub Private Sub xiugai_Click() 39。添加新儲(chǔ)戶 End Sub Private Sub cunkuan_Click() 39。 （ 2）總體設(shè)計(jì)： Private Sub chaxun_Click() 39。 開始 連接數(shù)據(jù)庫 添加刪除數(shù)據(jù) 查詢數(shù)據(jù) 更改數(shù)據(jù) 新建儲(chǔ)戶 刪除儲(chǔ)戶 添加儲(chǔ)戶存款取款信息 顯示儲(chǔ)戶存取款信息 修改儲(chǔ)戶身份信息 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 4 刪除：調(diào)用 Delete 方法，刪除記錄集中已選定的一條數(shù)據(jù)。 查找：調(diào)用 ADO 控件的 RecrodSource 屬性，確定具體可訪問數(shù)據(jù)來源，用select 語句進(jìn)行查找。 （ 6）能在儲(chǔ)戶取款時(shí)計(jì)算利息并存入本金。 （ 3）能隨時(shí)修改已存入儲(chǔ)戶的信息。 要求： （ 1）在 Access 中創(chuàng)建“儲(chǔ)戶信息”表，由所有儲(chǔ)戶信息構(gòu)成，此表結(jié)構(gòu)定義如下：賬號(hào)，用戶名稱，身份證號(hào)，密碼，結(jié)余金額，存取款日期，存入金額，取出金額。 分析 模擬銀行銀行存取款管路程序，主要有“添加刪除儲(chǔ)戶信息”，“查詢修改出乎信息”，“錄入用戶存取款記錄”，“計(jì)算儲(chǔ)戶利息”共四項(xiàng)。 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 2 第 2章 課程設(shè)計(jì)內(nèi)容 系統(tǒng)功能設(shè)計(jì) 系統(tǒng)功能 以 VB+Access 組合，實(shí)現(xiàn)銀行系統(tǒng)活期存取款管理，要按現(xiàn)有的實(shí)際利率計(jì)算利息，儲(chǔ)戶數(shù)據(jù)表至少應(yīng)包括：帳號(hào)、用戶名稱、身份證號(hào)、密碼、存取款日期、支出或存入金額 (存入為正，支出為負(fù)，初值為 0)、結(jié)余金額 (初值為 0)等，限在取款時(shí)才計(jì)算利息并轉(zhuǎn)入存款本金。要求書寫詳細(xì)的設(shè)計(jì)說明書，對(duì)有復(fù)雜的代碼段和程序段的部分， 應(yīng)畫出程序流程圖， 寫出全部的代碼。應(yīng)根據(jù)基本學(xué)時(shí)分配合理安排設(shè)計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。 課程設(shè)計(jì)要求 按課程設(shè)計(jì)指導(dǎo)書提供的課題， 每個(gè)小組設(shè)計(jì)一個(gè)完整的 管理系統(tǒng) 應(yīng)用程序。 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境 硬件要求能
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1