rl_newreadermanage.frm

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

'***************************************************************
Private Sub txt_CardNumber_LostFocus()
    On Error GoTo txt_CardNumber_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_CardNumber)
    
    Exit Sub
txt_CardNumber_LostFocus:
    MsgBox "txt_CardNumber_LostFocus()---出错", vbCritical, "错误"
End Sub

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

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

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

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

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

'***************************************************************
'*  txt_Address失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_Address_LostFocus()
    On Error GoTo txt_Address_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_Address)
    
    Exit Sub
txt_Address_LostFocus:
    MsgBox "txt_Address_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_sReaderID获得焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sReaderID_GotFocus()
    On Error GoTo txt_sReaderID_GotFocus
    
    Call Cmn_Txt_GotFocus(txt_sReaderID)
    
    Exit Sub
txt_sReaderID_GotFocus:
    MsgBox "txt_sReaderID_GotFocus()---出错", vbCritical, "错误"
End Sub

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

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

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

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

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

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

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

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

'***************************************************************
'*  txt_sTelNumber失去焦点
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Sub txt_sTelNumber_LostFocus()
    On Error GoTo txt_sTelNumber_LostFocus
    
    Call Cmn_Txt_LostFocus(txt_sTelNumber)
    
    Exit Sub
txt_sTelNumber_LostFocus:
    MsgBox "txt_sTelNumber_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

'***************************************************************
'*  Add_Check
'*
'*  [参数]
'*      无
'*  [返回]
'*      无
'***************************************************************
Private Function Add_Check()
    On Error GoTo Add_Check
    
    '---将各个控件值清空
    txt_ReaderID.Enabled = True
    txt_TelNumber.text = ""
    txt_sTelNumber.text = ""
    txt_sRemarks.text = ""
    txt_sReaderName.text = ""
    txt_sReaderID.text = ""
    txt_sDepartment.text = ""
    txt_sCardNumber.text = ""
    txt_RestrictAmmount.text = ""
    txt_Remarks.text = ""
    txt_ReaderName.text = ""
    txt_ReaderID.text = ""
    txt_NonceHoldAmount.text = ""
    txt_GiveBackTime.text = ""
    txt_Department.text = ""
    txt_CardNumber.text = ""
    txt_BorrowTime.text = ""
    txt_AllowContinueTime.text = ""
    txt_AllowBorrowDay.text = ""
    txt_Address.text = ""
    cbo_CardType.ListIndex = 0
    cbo_ReaderType.ListIndex = 0
    cbo_sReaderType.ListIndex = 0
    dtp_ReaderRegisterDate = Date
    
    Exit Function
Add_Check:
    MsgBox "Add_Check()---出错", vbCritical, "错误"
End Function