mdlgloinface.bas

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

Attribute VB_Name = "mdlGloInface"
'--------------初始化GlobalInterface与系统全局变量的接口
Public Sub InitGloInface(ByRef iGlo As GlobalInterface.clsGlobal, ByRef iGlosys As GlobalInterface.clsGlobalSys)
With iGlo
    .bSeparateSubject = glo.bSeparateSubject
    .cnnMain = glo.cnnMain
    .g_FLAT = g_FLAT
    .iOperatePeriod = glo.iOperatePeriod
    .lManageID = glo.lManageID
    .sAccountID = glo.sAccountID
    .sAccountName = glo.sAccountName
    .sBeginMonth = glo.sBeginMonth
    .sBeginYear = glo.sBeginYear
    .sOperateDate = glo.sOperateDate
    .sOperateYear = glo.sOperateYear
    .sSeparateSubject = glo.sSeparateSubject
    .sUnEarlierDate = glo.sUnEarlierDate
    .sUserID = glo.sUserID
    .sUserName = glo.sUserName
End With
With iGlosys
    .cnnSYS = gloSys.cnnSYS
    .sDateType = gloSys.sDateType
    .sPassword = gloSys.sPassword
    .sServer = gloSys.sServer
    .sSubSysID = gloSys.sSubSysID
    .sUser = gloSys.sUser
End With
End Sub