房屋租賃管理系統(tǒng)-資料下載頁
2025-04-14 22:05本頁面
【正文】 ] Jin Hgun Son, International Journal On Digital Libraries［J］.Database Management,2006，Vol2(9):3439. 附錄（部分程序清單）部分源程序：在此重點(diǎn)分析房屋與客戶中新增,修改,刪除,保存四個(gè)命令按鈕的源代碼設(shè)計(jì)：新增按鈕源碼:Private Sub cmdAdd_Click() 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。需要清空所有text框，并且設(shè)置它們可寫 For i = 0 To 7 Text1(i).Text = Text1(i).Enabled = True Next i = True 39。add變量用于保存時(shí)判斷是從添加還是修改后保存 add = 1 Text1(0).SetFocus End SubPrivate Sub cmdCancel_Click() 39。取消按鈕用于用戶添加或修改過程中放棄添加或修改操作 = False = False = True = True 39。如果是從添加后取消 If add = 1 Then 39。如果當(dāng)前House表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If = True = True = True = True = True = True 39。如果沒有數(shù)據(jù)，則顯示空 Else For i = 0 To 7 Text1(i).Text = Next i = False = False = False = False = False = False End If 39。如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf add = 0 Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If End If 39。開始時(shí)設(shè)置各個(gè)text框不可寫 For i = 0 To 7 Text1(i).Enabled = False Next i 39。先設(shè)置ComboBox的默認(rèn)值及不可改 = FalseEnd SubPrivate Sub cmdClose_Click() Unload MeEnd Sub刪除按鈕的源代碼：Private Sub cmdDel_Click() 39。當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶 Dim answer As String answer = MsgBox(確定要?jiǎng)h除嗎？, vbYesNo, ) 39。確實(shí)刪除 If answer = vbYes Then 39。刪除當(dāng)前記錄 39。更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, Else Exit Sub End If 39。刪除之后，顯示總信息條數(shù)需要減 1 = Val() 1 39。刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 39。先移動(dòng)rs_house記錄到后一條 If Then 39。如果沒有到記錄首則顯示該記錄 If Not Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If 39。如果到記錄首，則表格已經(jīng)為空，置所有text框顯示為空 ElseIf Then For i = 0 To 7 Text1(i).Text = Next i = False = False = False = False End If 39。如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可 Else For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If End IfEnd Sub保存按鈕的源代碼：Private Sub cmdEdit_Click() 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。需要設(shè)置除主鍵之外的text框可寫 For i = 1 To 7 Text1(i).Enabled = True Next i = True add = 0End SubPrivate Sub cmdFirst_Click() 39。先移動(dòng)rs_house記錄到第一條 39。同時(shí)需要設(shè)置相應(yīng)按鈕為不可用和不可用 = False = False = True = True 39。如果已經(jīng)是第一條記錄，則提示用戶 If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If End IfEnd SubPREV
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1