【正文】 () If = 已售 Or = 預(yù)留 Then txtFields(5).Enabled = True = True txtFields(5) = DateValue(Now) Else txtFields(5).Enabled = False = False End IfEnd SubPrivate Sub bSale_LostFocus() If = 已售 Or = 預(yù)留 Then txtFields(5).Enabled = True = True txtFields(5) = DateValue(Now) Else txtFields(5).Enabled = False = False End IfEnd SubPrivate Sub dbGarageNo_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call SearchGarage End IfEnd SubPrivate Sub dbGarageNo_LostFocus() Call SearchGarageEnd SubPrivate Sub Form_Load()39。 Set = (ChildCMD).UnderlyingValue ( ) / 2, ( ) / 2 1200End SubPrivate Sub Form_Unload(Cancel As Integer) Call cmdUpdate_Click 39。提示保存 = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。錯誤處理程序代碼置于此處 39。想要忽略錯誤，注釋掉下一行 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。 DescriptionEnd SubPrivate Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗(yàn)證代碼置于此處 39。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Dim i As Integer Static del, add As Boolean Select Case adReason Case adRsnAddNew: add = True Case adRsnClose Case adRsnDelete: del = True Case adRsnFirstChange: change = True Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate If del Or add Then del = False: add = False Exit Sub End If If change Then i = MsgBox(數(shù)據(jù)被修改,保存嗎？, vbInformation + vbYesNo, 車庫信息) If i = vbNo Then adAffectCurrent change = False End If End Select If bCancel Then adStatus = adStatusCancelEnd SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr 39。繼承輸入 If 0 Then 39。If Not Then Dim s(2 To 5), sCkh, sType As String Dim i As Integer sCkh = txtFields(1) 39。?處理 sType = bType For i = 2 To 4 s(i) = txtFields(i) Next change = True If = 1 Then txtFields(1) = sCkh amp。 1 bType = sType For i = 2 To 4 txtFields(i) = s(i) Next Else txtFields(1) = sCkh amp。 1 End If Else change = True39。 txtFields(1) = 001 End If Exit SubAddErr: MsgBox End SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr If = 0 Then Exit Sub With Dim i As Integer i = MsgBox(確定要刪除嗎？, vbExclamation + vbYesNo, 車庫信息) If i = vbYes Then .Delete 39。.MoveNext If .EOF Then .MoveLast End If End With Exit SubDeleteErr: MsgBox End SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr If change Then change = False Dim i As Integer i = MsgBox(數(shù)據(jù)已修改，保存嗎？, vbInformation + vbYesNo, 車庫信息) If i = vbYes Then adAffectAll 39。? ElseIf i = vbNo Then adAffectAll End If End If Exit SubUpdateErr: MsgBox End SubPrivate Sub cmdClose_Click() Call cmdUpdate_Click 39。提示保存 Unload MeEnd SubPrivate Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date) txtFields(5) = = FalseEnd SubPrivate Sub MonthView1_LostFocus() = FalseEnd SubPrivate Sub MonthView1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) txtFields(5) = End SubPrivate Sub upArea_DownClick(Index As Integer) If Trim(txtFields(Index)) = Then txtFields(Index) = 0 Else If CInt(txtFields(Index)) 0 Then txtFields(Index) = CSng(txtFields(Index)) 1 End IfEnd SubPrivate Sub upArea_UpClick(Index As Integer) If Trim(txtFields(Index)) = Then txtFields(Index) = 1 Else txtFields(Index) = CSng(txtFields(Index)) + 1 End IfEnd Sub戶型信息Option ExplicitDim change As Boolean 39。修改標(biāo)志?Private Sub cmdZl_Click()39。戶型的編號整理 On Error Resume Next Dim i As Integer ZLtag = True If 0 Then For i = 1 To If Len(i) 3 Then txtFields(0) = 0 amp。 i Else txtFields(0) = i End If If Not Then Next End IfEnd SubPrivate Sub Form_Load() 39。 Set = (ChildCMD).UnderlyingValue ( ) / 2, ( ) / 2 1200End SubPrivate Sub Form_Unload(Cancel As Integer) Call cmdUpdate_Click 39。提示保存 = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。錯誤處理程序代碼置于此處 39。想要忽略錯誤，注釋掉下一行 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。 DescriptionEnd SubPrivate Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。為這個 recordset 顯示當(dāng)前記錄位置 39。 = Record: amp。 CStr()End SubPrivate Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗(yàn)證代碼置于此處 39。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Dim i As Integer Static del, add As Boolean Select Case adReason Case adRsnAddNew: add = True Case adRsnClose Case adRsnDelete: del = True Case adRsnFirstChange: change = True Case adRsnMove Case adRsnRequery Case adRsnResynch