modules/modGlobal.vb

（开头部分） 23KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Imports Microsoft.International.Converters.PinYinConverter

Public Module modGlobal
    '定义全局常量
    '全局的字符串连接模板
    Public sysConnectionTemplate As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Persist Security Info=True"
    '全局的程序信息类对象
    Public sysClsApp As ClsApp
    '全局的当前账套操作的信息对象
    Public sysCurrentClsLedger As ClsLedger
    '全局的当前登录的用户对象
    Public sysCurrentClsUser As ClsUser
    '全局主窗体对象
    Public sysFrmMdiMain As New frmMdiMain
    '定义一个dictionary,用来存放每个标题按钮对应的flowlayoutpanel
    Public sysBtnTitleDic As Dictionary(Of String, Object)
    '定义一个dictionary，用来存放每个具体工具对应的窗体类的类型 - 
    Public sysBtnItemDic As Dictionary(Of String, Type)
    '当前mdi窗体打开的子窗体列表

    '当前程序运行路径
    Public sysAppCurrentPath As String
    '数据目录
    Public Const APP_DATA_PATH = "data"

    '模板数据库文件连接 - example.mdb
    Public sysDataTemplateConnectionString As String
    '账套模板所在数据库文件名称
    Public Const APP_DATA_NAME_TEMPLATE = "sample.mdb"

    '数据库文件连接 - sys.mdb
    Public sysAppInfoConnectionString As String
    '系统表所在库名称
    Public Const APP_DATA_NAME_SYS = "sys.mdb"
    '系统库sys.mdb中各表名称
    Public Const TABLE_NAME_USERLEDGER = "S_UserLedger"
    Public Const TABLE_NAME_USER = "S_User"
    Public Const TABLE_NAME_LEDGER = "S_Ledger"
    Public Const TABLE_NAME_APP = "S_App"
    Public Const TABLE_NAME_INDUSTRY_ACCOUNT = "S_IndustryAccount"
    Public Const TABLE_NAME_INDUSTRY_ACCOUNT_TYPE = "S_IndustryAccountType"
    Public Const TABLE_NAME_INDUSTRY_ACCOUNT_GROUP = "S_IndustryAcctGroup"


    '用户数据库文件连接 - 当前打开账套
    Public sysUserDataConnectionString As String
    '当前打开账套的参数对象变量(ClsTLedgerSetting)
    Public sysCurrentLedgerSetting As ClsTLedgerSetting
    '当前打开的用户账套数据库文件名称
    'Public currentUserDataName As String
    '用户账套数据文件中表名称
    Public Const TABLE_NAME_T_LEDGER_SETTING = "T_LedgerSetting"
    Public Const TABLE_NAME_T_VOUCHER_GROUP = "T_VoucherGroup" '凭证类别表
    Public Const TABLE_NAME_T_VOUCHER_NUMBER = "T_VoucherNumber" '凭证类别编号表
    Public Const TABLE_NAME_T_VOUCHER_MAXNUMBER = "T_MaxNumberOfVoucher" '凭证最大编号表

    Public Const TABLE_NAME_T_ACCOUNT = "T_Account" '科目表
    Public Const TABLE_NAME_T_VOUCHER = "T_Voucher" '凭证表
    Public Const TABLE_NAME_T_VOUCHER_DETAIL = "T_VoucherDetail" '凭证明细表
    Public Const TABLE_NAME_T_EMPLOYEE = "T_Employee" '个人表
后面还有 459 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。