modulecomm.bas

用VB实现连接oracle817数据月报数输入并统计

Attribute VB_Name = "ModuleComm"
Option Explicit
Global Const gstrDateFormat = "YYYY-MM-DD"
Global Const MSGPROMPT As String = "提示信息"
Global Const S_C As String = "给您的提示"
Global Const S_W As String = "警告"
Global Const S_E As String = "错误"

Public Function SM(TempMessage As String, _
                 Optional TempStyle As Long = 0) As Long
  '----------显示信息-------------------
  'TempMessage:信息内容
  'TempStyle:类型
  '       0:消息提示
  '       1:警告
  '       2:错误
  '       3:程序逻辑错误
  '-------------------------------------
  If TempStyle < 0 Or TempStyle > 3 Then Exit Function
  Select Case TempStyle
    Case 0    '消息提示
      Beep
      SM = MsgBox(TempMessage, vbInformation, S_C)
    Case 1    '警告
      Beep
      Beep
      SM = MsgBox(TempMessage, vbExclamation, S_W)
    Case 2    '错误
      Beep
      Beep
      Beep
      SM = MsgBox(TempMessage, vbCritical, S_E)
    Case 3    '程序逻辑错误
      Beep
      Beep
      Beep
      Beep
      TempMessage = TempMessage & Chr(13) & Chr(10) & _
        "程序逻辑错误。"
      SM = MsgBox(TempMessage, vbCritical, S_E)
  End Select
End Function


Public Function gDateVal(ByVal tmpDate As Variant) As Date

    
    If IsNull(tmpDate) Then
        gDateVal = #1/1/1900#
    ElseIf tmpDate < #1/1/1900# Then
        gDateVal = #1/1/1900#
    Else
        gDateVal = tmpDate
    End If
End Function

Public Function gCharVal(ByVal tmpStr As Variant) As String
 
    If IsNull(tmpStr) Then
        gCharVal = ""
    Else
        gCharVal = Trim(tmpStr)
    End If

End Function


Public Function gNumVal(ByVal tmpNum As Variant) As Double

On Error GoTo errorHandle
  
    If IsNull(tmpNum) Then
        gNumVal = 0
    Else
        gNumVal = tmpNum
    End If
Exit Function

errorHandle:

End Function

Public Function gNumLongVal(ByVal tmpNum As Variant) As Long

On Error GoTo errorHandle

    If IsNull(tmpNum) Then
        gNumLongVal = 0
    Else
        gNumLongVal = tmpNum
    End If

Exit Function

errorHandle:
    
End Function