vb課程設(shè)計(jì)--銀行存取款管理系統(tǒng)-在線(xiàn)瀏覽
2025-01-19 16:29本頁(yè)面
【正文】 3 圖 系統(tǒng)詳細(xì) 設(shè)計(jì) 銀行存取款管理系統(tǒng) 模塊 設(shè)計(jì) （ 1）基本原理 :建立程序設(shè)計(jì)與 Access 數(shù)據(jù)庫(kù)連接，用 SQL 語(yǔ)句實(shí)現(xiàn)程序?qū)?shù)據(jù)庫(kù)查找，添加，刪除，更改。 添加：調(diào)用 AddNew 方法，在記錄集中加入一條新數(shù)據(jù)，再用 Update 方法更新修改。 修改：用 ADO 控件將命令文本與數(shù)據(jù)庫(kù)中其對(duì)應(yīng)的數(shù)據(jù)綁定，在文本框中修改，并用 Update 更新，對(duì)數(shù)據(jù)庫(kù)數(shù)據(jù)進(jìn)行修改。查詢(xún)信息 End Sub Private Sub chuhu_Click() 39。存取款 End Sub Private Sub tuichu_Click() 39。修改儲(chǔ)戶(hù)信息 End Sub ADO 控件連接 Access 數(shù)據(jù)庫(kù) SQL 語(yǔ)言實(shí)現(xiàn)修改 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說(shuō) 明 書(shū)（論 文） 5 銀行存取款管理系統(tǒng) 模塊設(shè)計(jì) 1）使程序與數(shù)據(jù)庫(kù)連接，實(shí)現(xiàn)程序?qū)?shù)據(jù)庫(kù)的修改與查詢(xún)： 利用 ADO 控件建立聯(lián)系，通過(guò)修改命令文本框的 DataSource 和DataField 屬性，使命令文本框與數(shù)據(jù)庫(kù)綁定；通過(guò)修改 DataGrid 的DataSource屬性，使數(shù)據(jù)庫(kù)的所有信息顯示在窗體中。 Private Sub Command1_Click(Index As Integer) Dim ask As Integer Select Case Index Case 0 39。添加新用戶(hù) Case 1 39。刪除當(dāng)前數(shù)據(jù) 39。 如果讀 到數(shù)據(jù)尾部，指針定義到最后一條記錄 End If Case 2 39。確定當(dāng)前修改并保存到數(shù)據(jù)源 Case 3 39。取消 Update 對(duì)記錄的修改 End Select End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 39。讀取數(shù)據(jù)庫(kù)首記錄 Case 1 39。讀取上一條記錄 Case 2 39。讀取下一條記錄 Case 3 39。讀取數(shù)據(jù)庫(kù)尾記錄 End Select End Sub Private Sub Command3_Click() 39。結(jié)束當(dāng)前窗體 39。 Select字段名表 From表名 Where條件 程序段如下： Private Sub Command1_Click() 39。設(shè)置數(shù)據(jù)源 = Select * From 儲(chǔ)戶(hù)信息 Where 用戶(hù)名稱(chēng) =39。 Text1 amp。 39。對(duì)于未指定信息查詢(xún) End If 39。 程序段如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 39。讀取數(shù)據(jù)庫(kù)第一條記錄 Case 1 39。讀取上一條記錄 If Then 39。下一條 39。如果當(dāng)前為數(shù)據(jù)源尾部，指針定義到最后一條數(shù)據(jù) Case 3 39。讀取數(shù)據(jù)庫(kù)最后一條記錄 End Select End Sub Private Sub Command2_Click() 39。確定修改并保存到數(shù)據(jù)源 End Sub Private Sub Command3_Click() 39。關(guān)閉當(dāng)前窗體 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說(shuō) 明 書(shū)（論 文） 9 39。 程序段如下： Private Sub Command1_Click() 39。保存修改 End Sub Private Sub Command2_Click() 39。關(guān)閉當(dāng)前窗體 39。輸入 39。存入 Dim a, b As Long, c% 39。將賬號(hào)賦值到 b 賬號(hào) =39。 b amp。 39。如果查找到記錄尾部還是沒(méi)有此賬號(hào)，則彈出提示窗口 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說(shuō) 明 書(shū)（論 文） 10 Else a = (結(jié)余金額 ) 39。當(dāng)前存入金額加此賬戶(hù)上一次的結(jié)余金額計(jì)算出新的結(jié)余金額 End If End Sub Private Sub Command5_Click() 39。, e, f As Long Dim n As Date 39。將賬號(hào)賦值到 m 賬號(hào) =39。 m amp。 39。在已找到那條數(shù)據(jù)中找到存取從記錄首部開(kāi)始查找賬號(hào)為 m 的那一條數(shù)據(jù) p = 39。計(jì)算當(dāng)前取款日期與上 一次存取款日期的天數(shù)之差 賬號(hào) =39。 m amp。 39。在已找到那條數(shù)據(jù)中找到結(jié)余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給 f x = Val() 39。計(jì)算利息并將利息假如本金再減去取出金額計(jì)算出此次 取款的結(jié)余金額，將結(jié)余金額賦值給 y = y 39。放棄 End Select End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 Case 1 If Then Case 2 If Then Case 3 End Select End Sub Private Sub Command3_Click() Unload Me End Sub Form3：（查詢(xún)）
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1