mdlpublicvariants.bas

一个用VB写的财务软件源码

Attribute VB_Name = "mdlPublicVariants"
Option Explicit
'----------------------------------------------------------
' The module contains all public variants.
'----------------------------------------------------------

'Public Const g_FLAT = "ORACLE"
Public Const g_FLAT = "SQL"

Public Const g_SHPZ = 0            '使用上海公司的凭证
Public Const g_CH = 0

Public Const g_SYSDBNAME = "YkcwSysDB"
Public Const g_SYSPASSWORD = "horse"



'未记账凭证的前景和背景颜色
Public Const lBackColour = &HC0FFC0
Public Const lForeColour = &H80000005

'提示信息
Public Const e_MSG_SQLVALID = "输入中包含非法字符！如单撇号(')。"
Public Const e_MSG_LONG10 = "输入超长！最长为10个字符(即5个汉字)。"
Public Const e_MSG_LONG20 = "输入超长！最长为20个字符(即10个汉字)。"
Public Const e_MSG_LONG50 = "输入超长！最长为50个字符(即25个汉字)。"
Public Const e_MSG_LONG100 = "输入超长！最长为100个字符(即50个汉字)。"

Public Const e_MSG_ASK_DELETE = "确实要删除该记录吗？"

Public Const e_MSG_ERR_DELETE = "该记录已被使用，不能删除！"
Public Const e_MSG_ERR_APPEND = "添加记录时发生错误！"
Public Const e_MSG_ERR_MODIFY = "修改记录时发生错误！"

'格式化字符串 ( Format() 函数使用 )
Public Const e_FMT_AMOUNT = "#,##0.000"
Public Const e_FMT_DATE = "yyyy-MM-dd"
Public Const e_FMT_MONEY = "#,##0.00"
Public Const e_FMT_MONEY2 = "#0.00"
Public Const e_FMT_TIME = "hh:mm:ss"

' TreeView 控件使用
Public Const e_ROOT_KEY = "R"
Public Const e_ROOT_IMAGE_SEL = "Root"
Public Const e_ROOT_IMAGE_UNSEL = "Root"
Public Const e_NODE_IMAGE_SEL = "Selected"
Public Const e_NODE_IMAGE_UNSEL = "UnSelected"
Public Const e_NODE_KEY_PREFIX = "k"
Public Const e_STR_LINK = "="


'在注册之前即已有值的系统全程变量
Public Type GlobalUDTsys
    sServer As String           ' SQL Server 服务器名称/Oracle 主机字符串
    sUser As String             '系统用户名
    sPassword As String         '系统用户的密码
    cnnSYS As ADODB.Connection  '与 YkcwSysDB 的连接
    sDateType As String         '建表语句中针对SQL、ORACLE的不同的日期数据类型名称
    sSubSysID As String         '当前子系统的代号
End Type

Public gloSys As GlobalUDTsys

'成功注册之后才有值的全程变量
Public Type GlobalUDT
'----------------------------------------------------------
' These variants are same among subsystems
    sAccountID As String            '当前打开的账套号
    sAccountName As String          '当前打开的账套名称
    cnnMain As ADODB.Connection     '当前账套的数据连接
    sUserID As String               '当前登录用户的代号
    sUserName As String             '当前登录用户的名称
    sOperateYear As String          '当前登录操作的会计年度
    sOperateDate As String          '当前登录操作的日期
    iOperatePeriod As Integer       '当前登录操作的会计期号
    sUnEarlierDate As String        '系统内可以进行新业务的最早日期
    sBeginYear As String            '当前所打开账套的启用年份
    sBeginMonth As String           '当前所打开账套的启用月份
    sSeparateSubject As String      '0代表定长、其它字符代表科目代码分隔符号
    bSeparateSubject As Boolean     '科目名称之间是否用分隔符进行分隔
    lManageID As Long               '系统本次运行时在系统管理表(tSYS_Manage)中相应记录的ID号
    detailPrintMode As String       '明细账打印的模式（套打、实打）
'----------------------------------------------------------
' The following variants used by subsystem different
    zy_wh_xr As Boolean             '摘要维护和选入状态，True：表示进入摘要维护，False：表示进入摘要选入状态
    Complete_Ruler As Double
    frmKmHelp As frmUSU_KmHelp
    frmProg As frmProgress2
    
    nCellFile As String             '普通凭证套打文件
    fCellFile As String             '外币凭证套打文件
End Type
Public glo As GlobalUDT

Public m_Mutex As New Mutex.clsMutexManage     '20020625

Public VoucherTempSave As clsVoucher
Public s As Object