Attribute VB_Name = "ModPublic"
'-------------------思源電器
Public Const gstrProduct = "誠志軟件"
Public Const gstrCompanyTel = "15051110679"
Public Const gstrServer = "提供各種ERP軟件銷售、實施服務"
Public Const gstrVersion = "10.4"
Public Const gstrExtModel = ""                                  '//修改此處的擴展BOS業務單據名稱
Public Const gstrCopyRight = ""                                 '//修改此處的擴展BOS業務單據所有權單位名稱

'復制行信息類型
Public Enum CopyRowType
    FirstRow = 1            '復制第一行信息，可能用/或者\表示
    FirstRow1 = 2
    BeforeRow = 3          '復制上一行信息，可以用..來表示
End Enum

'4.替代msg函數(指定統一的Title；其它同于msg)
'入口： MsgStr As String 消息字符串(同于msg)
'      MsgStyle As VbmsgStyle 消息框樣式(枚舉類型,同于msg)
'返回：(同于msg)

Public Function Msg(MsgStr As String, Optional msgStyle As VbMsgBoxStyle) As VbMsgBoxResult
    Msg = MsgBox(MsgStr, msgStyle, gstrProduct)
End Function

'------------------------------------------------------------------------
'函數：SplitChar
'描述：給字符串增加“'”符號，返回相應的字符串信息，一般用戶SQL查詢時對于字符串的處理
'入口：
'       @strBillNo 字符型變量,如:apple
'返回：字符型數據
'示例：
'       入口SplitChar("apple")
'       返回'apple'
'------------------------------------------------------------------------
Public Function SplitChar(ByVal strBillNo As String) As String
    If Len(Trim(strBillNo)) = 0 Then SplitChar = "''": Exit Function
    strBillNo = "'" & Trim(strBillNo) & "'"
    SplitChar = strBillNo
End Function

'---------------------------------------------------------------------------------------------------------------------------------------
'增加關于菜單，提高公司知名度
'---------------------------------------------------------------------------------------------------------------------------------------
Public Sub About()
     Msg "公司名稱：" & gstrProduct & vbCrLf & _
         "聯系電話：" & gstrCompanyTel & vbCrLf & _
         "服務內容：" & gstrServer & vbCrLf & _
         "擴展模塊：" & gstrExtModel & vbCrLf & _
         "版權所有：" & gstrCopyRight, vbInformation
End Sub