房屋租賃管理系統(tǒng)源代碼-在線瀏覽
2025-06-04 14:03本頁(yè)面
【正文】 Sub End If 39。刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 39。如果沒(méi)有到記錄首則顯示該記錄 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。如果刪除的不是首尾記錄，則顯示當(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è)置除主鍵之外的text框可寫(xiě) For i = 1 To 7 Text1(i).Enabled = True Next i = True add = 0End SubPrivate Sub cmdFirst_Click() 39。同時(shí)需要設(shè)置相應(yīng)按鈕為不可用和不可用 = False = False = True = True 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檢索按鈕的源代碼：1．2 客戶資料管理模塊的設(shè)計(jì)1．2．1租戶基本資料的設(shè)計(jì)運(yùn)行效果圖如下所示:在租戶基本資料中，我們重點(diǎn)分析查找家庭租戶功能的源碼，如下:Private Sub cmdQuery_Click() If = Then MsgBox 查詢條件不可為空！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。 amp。 39。 amp。 39。檢測(cè)數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 求租客戶編號(hào)不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 求租客戶姓名不可為空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(2).Text = Then MsgBox 求租客戶電話不可為空！, vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub ElseIf Not Text1(4).Text = And IsNumeric(Text1(4).Text) = False Then MsgBox 面積要求不為空則應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Not Text1(6).Text = And IsNumeric(Text1(6).Text) = False Then MsgBox 意向價(jià)位不為空則應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(6).SetFocus Exit Sub ElseIf Not Text1(7).Text = And IsNumeric(Text1(7).Text) = False Then MsgBox 意向租期不為空則應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(7).SetFocus Exit Sub End If 39。 amp。 39。添加數(shù)據(jù)后保存 If add = 1 Then 39。 amp。 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 9 (i) = Text1(i).Text Next i 39。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 39。先檢查輸入數(shù)據(jù)完整性 For i = 0 To 2 If Text1(i).Text = Then MsgBox 除備注外的所有項(xiàng)不可為空！, vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i For i = 3 To 4 If Text1(i).Text = Or IsDate(Text1(i).Text) = False ThenMsgBox 日期應(yīng)為這樣的格式：2003715！, vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i If Text1(6).Text = Or IsNumeric(Text1(6).Text) = False Then MsgBox 月租金應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(6).SetFocus Exit Sub End If If Text1(8).Text = Or IsNumeric(Text1(8).Text) = False Then MsgBox 押金應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If If Text1(9).
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1