mdlpublicvariants.bas

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

Attribute VB_Name = "mdlPublicVariants"
Option Explicit
Public Const g_FLAT = "SQL"
'Public Const g_FLAT = "ORACLE"

Public Const g_SYSDBNAME = "YkcwSysDB"
Public Const g_SYSPASSWORD = "horse"
Public Const g_SETUPDBNAME = "YkcwInit.MDB"

Public Type GlobalUDTsys
    sDateType As String         ' SQL Server、ORACLE 中日期型数据的保留字
    sServer As String           ' SQL Server 服务器名称/Oracle 主机字符串
    sUser As String             '系统用户名
    sPassword As String         '系统用户的密码
'    sDotSeperate As String     '科目是否用点分隔
    cnnSys As ADODB.Connection  '与 YkcwSysDB 的连接
End Type

Public gloSys As GlobalUDTsys

Public Type GlobalUDT
    sUserID As String
    sUserName As String
    iUserType As Integer
    frmProg As frmProgress2
    sOperateYear As String
    sSeparateSubject As String
    cnnMain As ADODB.Connection
End Type
Public glo As GlobalUDT
Public s As Object                   '加密对象