rl_newbooksmanage.frm

图书管理软件,基本功能已具备

    Me.MousePointer = vbDefault
    
    '---正确返回值设置
    Data_Del = True
    
    Exit Function
Data_Del:
    Me.MousePointer = vbDefault
    MsgBox "Data_Del()---出错", vbCritical, "错误"
    '--- 返回值：异常终了设定
    Data_Del = False
End Function

'***************************************************************
'*  txt_BooksID获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_BooksID_GotFocus()
    On Error GoTo txt_BooksID_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_BooksID)
    
    Exit Sub
txt_BooksID_GotFocus:
    MsgBox "txt_BooksID_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_BooksID失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_BooksID_LostFocus()
    On Error GoTo txt_BooksID_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_BooksID)
    
    Exit Sub
txt_BooksID_LostFocus:
    MsgBox "txt_BooksID_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_ISBN获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_ISBN_GotFocus()
    On Error GoTo txt_ISBN_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_ISBN)
    
    Exit Sub
txt_ISBN_GotFocus:
    MsgBox "txt_ISBN_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_ISBN失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_ISBN_LostFocus()
    On Error GoTo txt_ISBN_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_ISBN)
    
    Exit Sub
txt_ISBN_LostFocus:
    MsgBox "txt_ISBN_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_Writer获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_Writer_GotFocus()
    On Error GoTo txt_Writer_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_Writer)
    
    Exit Sub
txt_Writer_GotFocus:
    MsgBox "txt_Writer_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_Writer失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_Writer_LostFocus()
    On Error GoTo txt_Writer_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_Writer)
    
    Exit Sub
txt_Writer_LostFocus:
    MsgBox "txt_Writer_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_BooksName获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_BooksName_GotFocus()
    On Error GoTo txt_BooksName_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_BooksName)
    
    Exit Sub
txt_BooksName_GotFocus:
    MsgBox "txt_BooksName_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_BooksName失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_BooksName_LostFocus()
    On Error GoTo txt_BooksName_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_BooksName)
    
    Exit Sub
txt_BooksName_LostFocus:
    MsgBox "txt_BooksName_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_BarCode获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_BarCode_GotFocus()
    On Error GoTo txt_BarCode_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_BarCode)
    
    Exit Sub
txt_BarCode_GotFocus:
    MsgBox "txt_BarCode_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_BarCode失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_BarCode_LostFocus()
    On Error GoTo txt_BarCode_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_BarCode)
    
    Exit Sub
txt_BarCode_LostFocus:
    MsgBox "txt_BarCode_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_Remarks获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_Remarks_GotFocus()
    On Error GoTo txt_Remarks_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_Remarks)
    
    Exit Sub
txt_Remarks_GotFocus:
    MsgBox "txt_Remarks_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_Remarks失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_Remarks_LostFocus()
    On Error GoTo txt_Remarks_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_Remarks)
    
    Exit Sub
txt_Remarks_LostFocus:
    MsgBox "txt_Remarks_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sBooksID获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sBooksID_GotFocus()
    On Error GoTo txt_sBooksID_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_sBooksID)
    
    Exit Sub
txt_sBooksID_GotFocus:
    MsgBox "txt_sBooksID_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sBooksID失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sBooksID_LostFocus()
    On Error GoTo txt_sBooksID_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_sBooksID)
    
    Exit Sub
txt_sBooksID_LostFocus:
    MsgBox "txt_sBooksID_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sWriter获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sWriter_GotFocus()
    On Error GoTo txt_sWriter_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_sWriter)
    
    Exit Sub
txt_sWriter_GotFocus:
    MsgBox "txt_sWriter_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sWriter失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sWriter_LostFocus()
    On Error GoTo txt_sWriter_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_sWriter)
    
    Exit Sub
txt_sWriter_LostFocus:
    MsgBox "txt_sWriter_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sBooksName获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sBooksName_GotFocus()
    On Error GoTo txt_sBooksName_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_sBooksName)
    
    Exit Sub
txt_sBooksName_GotFocus:
    MsgBox "txt_sBooksName_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sBooksName失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sBooksName_LostFocus()
    On Error GoTo txt_sBooksName_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_sBooksName)
    
    Exit Sub
txt_sBooksName_LostFocus:
    MsgBox "txt_sBooksName_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sBarCode获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sBarCode_GotFocus()
    On Error GoTo txt_sBarCode_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_sBarCode)
    
    Exit Sub
txt_sBarCode_GotFocus:
    MsgBox "txt_sBarCode_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sBarCode失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sBarCode_LostFocus()
    On Error GoTo txt_sBarCode_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_sBarCode)
    
    Exit Sub
txt_sBarCode_LostFocus:
    MsgBox "txt_sBarCode_LostFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sRemarks获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sRemarks_GotFocus()
    On Error GoTo txt_sRemarks_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_sRemarks)
    
    Exit Sub
txt_sRemarks_GotFocus:
    MsgBox "txt_sRemarks_GotFocus()---出错", vbCritical, "错误"
End Sub

'***************************************************************
'*  txt_sRemarks失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sRemarks_LostFocus()
    On Error GoTo txt_sRemarks_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_sRemarks)
    
    Exit Sub
txt_sRemarks_LostFocus:
    MsgBox "txt_sRemarks_LostFocus()---出错", vbCritical, "错误"
End Sub