modpublic.bas

ERP合同变更ERP合同变更ERP合同变更ERP合同变更

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