vb課程設計--銀行存取款管理系統(tǒng)(編輯修改稿)
2024-12-22 16:29 本頁面
【文章內容簡介】 te Sub Command1_Click() 39。查詢 If Text1 Then 39。設置數(shù)據(jù)源 = Select * From 儲戶信息 Where 用戶名稱 =39。 amp。 Text1 amp。 39。 39。確定訪問數(shù)據(jù)來源，并選擇出用戶名為文本框 中名稱的所有數(shù)據(jù) Else = Select * From 儲戶信息 39。對于未指定信息查詢 End If 39。刷新 ADO 控件的連接屬性并重新建立記錄集對象 End Sub 窗體 查詢： 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 8 （ 5）修改儲戶信息是對數(shù)據(jù)庫中儲戶的身份信息進行修改。 程序段如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 39。首記錄 39。讀取數(shù)據(jù)庫第一條記錄 Case 1 39。上一條 39。讀取上一條記錄 If Then 39。如果當前為數(shù)據(jù)源開始，指針定義到第一條數(shù)據(jù) Case 2 39。下一條 39。讀取下一條記錄 If Then 39。如果當前為數(shù)據(jù)源尾部，指針定義到最后一條數(shù)據(jù) Case 3 39。尾記錄 39。讀取數(shù)據(jù)庫最后一條記錄 End Select End Sub Private Sub Command2_Click() 39。更新 39。確定修改并保存到數(shù)據(jù)源 End Sub Private Sub Command3_Click() 39。返回 Unload Me 39。關閉當前窗體 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 9 39。返回主窗體 End Sub 窗體 修改儲戶信息： （ 6）存款與取款是新加一條關于當前儲戶的一條存款或取款信息。 程序段如下： Private Sub Command1_Click() 39。確定 39。保存修改 End Sub Private Sub Command2_Click() 39。返回 Unload Me 39。關閉當前窗體 39。返回主窗體 End Sub Private Sub Command3_Click() 39。輸入 39。添加新數(shù)據(jù) End Sub Private Sub Command4_Click() 39。存入 Dim a, b As Long, c% 39。定義 a、 b為長整型 b = 39。將賬號賦值到 b 賬號 =39。 amp。 b amp。 39。 39。從記錄首部開始查找賬號為 b的那一條數(shù)據(jù) If Then MsgBox 無此賬號！ , , 提示 39。如果查找到記錄尾部還是沒有此賬號，則彈出提示窗口 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 10 Else a = (結余金額 ) 39。在已找到那條數(shù)據(jù) 中找到結余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給 a = Val() + a 39。當前存入金額加此賬戶上一次的結余金額計算出新的結余金額 End If End Sub Private Sub Command5_Click() 39。取出 Dim x, y, z, mamp。, e, f As Long Dim n As Date 39。定義 n、 p 為日期，形式為“ YYYYMMDD” Dim p As Date m = 39。將賬號賦值到 m 賬號 =39。 amp。 m amp。 39。 39。從記錄首部開始查找賬號為 m的那一條數(shù)據(jù) n = (存取款日期 ) 39。在已找到那條數(shù)據(jù)中找到存取從記錄首部開始查找賬號為 m 的那一條數(shù)據(jù) p = 39。將當前取款日期賦值給 p z = DateDiff(d, n, p) 39。計算當前取款日期與上 一次存取款日期的天數(shù)之差 賬號 =39。 amp。 m amp。 39。 39。從記錄首部開始查找賬號為 m的那一條數(shù)據(jù) f = (結余金額 ) 39。在已找到那條數(shù)據(jù)中找到結余金額數(shù)據(jù)，并將此數(shù)據(jù)賦值給 f x = Val() 39。將當前取出金額賦值給 x，將文本框中的數(shù)字字符串改為數(shù)值 y = f * * z + f x 39。計算利息并將利息假如本金再減去取出金額計算出此次 取款的結余金額，將結余金額賦值給 y = y 39。將 y 值寫入到第八個文本框 End Sub 窗體 存款與取款： 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 11 完整的源程序 Form1：（主窗體） Private Sub chaxun_Click() End Sub Private Sub chuhu_Click() End Sub Private Sub cunkuan_Click() End Sub Private Sub tuichu_Click() End End Sub Private Sub xiugai_Click() End Sub Form2：（添加刪除儲戶） Private Sub Command1_Click(Index As Integer) Dim ask As Integer 遼 寧 工 業(yè) 大 學 課 程 設 計 說 明 書（論 文） 12 Select Case Index
環(huán)評公示相關推薦
鄂ICP備17016276號-1