modbaseinfo.bas

排队分诊管理系统源代码！该代码使用VB6开发环境

ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetTerritoryID"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得片区编号失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetTerritoryID = -1
End Function

'**************************************************************************
' 省份、自治区、直辖市信息相关函数和过程
'**************************************************************************
'''''''''''''''''''''''''''''''''''''''''''''''
' 获得省份、自治区、直辖市名称
Public Function GetStateName(ByVal id As Long) As String
    On Error GoTo ERROR_EXIT
    Dim i As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasState Then GoTo ERROR_EXIT
    If id <= 0 Then GoTo ERROR_EXIT
    For i = LBound(g_StateSet) To UBound(g_StateSet)
        If g_StateSet(i).state_code = id Then
            GetStateName = g_StateSet(i).state_name
            Exit Function
        End If
    Next

ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetStateName"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得省份、自治区、直辖市名称失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetStateName = ""
End Function

'''''''''''''''''''''''''''''''''''''''''''''''
' 获得省份、自治区、直辖市编号
Public Function GetStateID(ByVal strName As String) As Long
    On Error GoTo ERROR_EXIT
    Dim i As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasState Then GoTo ERROR_EXIT
    If strName = "" Then GoTo ERROR_EXIT
    For i = LBound(g_StateSet) To UBound(g_StateSet)
        If g_StateSet(i).state_name = strName Then
            GetStateID = g_StateSet(i).state_code
            Exit Function
        End If
    Next

ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetStateID"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得省份、自治区、直辖市编号失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetStateID = -1
End Function

'''''''''''''''''''''''''''''''''''''''''''''''
' 获得某个省份、自治区、直辖市中的所有城市信息
Public Function GetCityOfState( _
        ByVal state_id As Long, _
        ByRef CitySet() As TYPE_CITY) As Boolean
    On Error GoTo ERROR_EXIT
    Dim i  As Long
    Dim lIndex As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasCity Then GoTo ERROR_EXIT
    If state_id <= 0 Then GoTo ERROR_EXIT
    lIndex = LBound(CitySet)
    For i = LBound(g_CitySet) To UBound(g_CitySet)
        If g_CitySet(i).state_code = state_id Then
            ReDim Preserve CitySet(lIndex)
            CitySet(lIndex) = g_CitySet(i)
            lIndex = lIndex + 1
        End If
    Next
    
    GetCityOfState = True
    Exit Function
ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetCityOfState"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得某个省份、自治区、直辖市中的所有城市信息失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetCityOfState = False
End Function

'**************************************************************************
' 城市信息相关函数和过程
'**************************************************************************
'''''''''''''''''''''''''''''''''''''''''''''''
' 获得城市名称
Public Function GetCityName(ByVal id As Long) As String
    On Error GoTo ERROR_EXIT
    Dim i  As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasCity Then GoTo ERROR_EXIT
    If id <= 0 Then GoTo ERROR_EXIT
    For i = LBound(g_CitySet) To UBound(g_CitySet)
        If g_CitySet(i).city_code = id Then
            GetCityName = g_CitySet(i).city_name
            Exit Function
        End If
    Next

ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetCityName"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得城市名称失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetCityName = ""
End Function

'''''''''''''''''''''''''''''''''''''''''''''''
' 获得城市编号
Public Function GetCityID(ByVal strName As String) As Long
    On Error GoTo ERROR_EXIT
    Dim i  As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasCity Then GoTo ERROR_EXIT
    If strName = "" Then GoTo ERROR_EXIT
    For i = LBound(g_CitySet) To UBound(g_CitySet)
        If g_CitySet(i).city_name = strName Then
            GetCityID = g_CitySet(i).city_code
            Exit Function
        End If
    Next

ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetCityID"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得城市编号失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetCityID = -1
End Function

'**************************************************************************
'           客户级别信息集合相关函数和过程
'**************************************************************************
'''''''''''''''''''''''''''''''''''''''''''''''
' 获得客户级别名称
Public Function GetCustomerClassName(ByVal id As Long) As String
    On Error GoTo ERROR_EXIT
    Dim i  As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasCustomerClass Then GoTo ERROR_EXIT
    If id <= 0 Then GoTo ERROR_EXIT
    For i = LBound(g_CustomerClassSet) To UBound(g_CustomerClassSet)
        If g_CustomerClassSet(i).cust_class_code = id Then
            GetCustomerClassName = g_CustomerClassSet(i).cust_class
            Exit Function
        End If
    Next
ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetCustomerClassName"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得客户级别名称失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetCustomerClassName = ""
End Function
'''''''''''''''''''''''''''''''''''''''''''''''
' 获得客户级别编号
Public Function GetCustomerClassCode(ByVal strName As String) As Long
    On Error GoTo ERROR_EXIT
    Dim i  As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasCustomerClass Then GoTo ERROR_EXIT
    If strName = "" Then GoTo ERROR_EXIT
    For i = LBound(g_CustomerClassSet) To UBound(g_CustomerClassSet)
        If g_CustomerClassSet(i).cust_class = strName Then
            GetCustomerClassCode = g_CustomerClassSet(i).cust_class_code
            Exit Function
        End If
    Next
ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetCustomerClassCode"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得客户级别编号失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetCustomerClassCode = -1
End Function

'**************************************************************************
'           客户类型信息集合相关函数和过程
'**************************************************************************
'''''''''''''''''''''''''''''''''''''''''''''''
' 获得客户类型名称
Public Function GetCustomerTypeName(ByVal id As Long) As String
    On Error GoTo ERROR_EXIT
    Dim i  As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasCustomerType Then GoTo ERROR_EXIT
    If id <= 0 Then GoTo ERROR_EXIT
    For i = LBound(g_CustomerTypeSet) To UBound(g_CustomerTypeSet)
        If g_CustomerTypeSet(i).cust_type_code = id Then
            GetCustomerTypeName = g_CustomerTypeSet(i).cust_type
            Exit Function
        End If
    Next
ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetCustomerTypeName"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得客户类型名称失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetCustomerTypeName = ""
End Function
'''''''''''''''''''''''''''''''''''''''''''''''
' 获得客户类型编号
Public Function GetCustomerTypeCode(ByVal strName As String) As Long
    On Error GoTo ERROR_EXIT
    Dim i  As Long
    
    If Not InitBaseInfoModule Then GoTo ERROR_EXIT    '初始化失败
    If Not g_HasCustomerType Then GoTo ERROR_EXIT
    If strName = "" Then GoTo ERROR_EXIT
    For i = LBound(g_CustomerTypeSet) To UBound(g_CustomerTypeSet)
        If g_CustomerTypeSet(i).cust_type_code = strName Then
            GetCustomerTypeCode = g_CustomerTypeSet(i).cust_type
            Exit Function
        End If
    Next
ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "modBaseInfo"
    m_tagErrInfo.strErrFunc = "GetCustomerTypeCode"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number) & "获得客户类型编号失败。"
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
    
    GetCustomerTypeCode = ""
End Function