mduglobal.bas

用vb编程实现对交通拍照的交通控制管理

Attribute VB_Name = "mduGlobal"
Option Explicit

Public Function GetAppPath() As String
    If Right(App.Path, 1) = "\" Then
        GetAppPath = App.Path
    Else
        GetAppPath = App.Path & "\"
    End If
End Function

'获取打印编号
Public Function GetPrintID() As Long

End Function

'格式化打印编号
Public Function FormatPrintNo(ByVal pID As Long) As String
Const sNo = "No 0000000"
Dim s As String
    s = Format(pID)
    FormatPrintNo = Left(sNo, Len(sNo) - Len(s)) & s
End Function