mdlinitialize.bas

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

''                "    )"
''        Case "ORACLE"
''            sSql(9) = "CREATE UNIQUE INDEX PK_SYS_TradeCodeClass ON " & _
''                "tSYS_TradeCodeClass(TradeID,ClassSerial)"
''        Case Else
''            Err.Raise 5
''    End Select
'''7
''    sSql(10) = _
''"/*行业科目代码表*/" & _
''"CREATE TABLE tSYS_TradeCode(" & _
''"    TradeID        smallint          NOT NULL,           /*行业编号*/" & _
''"    ClassName      varchar(20)       NULL,               /*科目类型名称*/" & _
''"    ClassNameEng   varchar(40)       NULL,               /*科目类型英文名称*/" & _
'' _
''"    kmdm           varchar(40)       NOT NULL,           /*科目代码*/" & _
''"    kmmc           varchar(255)       NULL,               /*科目名称*/" & _
''"    kmmcEng        varchar(80)       NULL,               /*科目英文名称*/" & _
''"    kmjc           smallint          NOT NULL,           /*科目级次*/" & _
''"    yefx           char(4)           NOT NULL,           /*余额方向*/" & _
''"    IsEndkm        smallint          default 0           /*是否末级科目*/" & _
''")"
''
''    '“行业科目代码表”主键'PK_SYS_TradeCode'
''    Select Case g_FLAT
''        Case "SQL"
''            sSql(11) = _
''                "Alter TABLE tSYS_TradeCode WITH NOCHECK ADD" & _
''                "    CONSTRAINT PK_SYS_TradeCode PRIMARY KEY  NONCLUSTERED" & _
''                "    (" & _
''                "        TradeID," & _
''                "        kmdm" & _
''                "    )"
''        Case "ORACLE"
''            sSql(11) = "CREATE UNIQUE INDEX PK_SYS_TradeCode ON " & _
''                "tSYS_TradeCode(TradeID,kmdm)"
''    End Select
'''8
''    sSql(12) = _
''"/*操作员表*/" & _
''"CREATE TABLE tSYS_User(" & _
''"    UserID        varchar(4)    NOT NULL primary key,  /*操作员代码*/" & _
''"    UserName      varchar(8)    NULL,                  /*操作员名称*/" & _
''"    Password      varchar(20)   NULL,                  /*密码*/" & _
''"    tiType        smallint      NOT NULL               /*人员性质*/" & _
''")"
'''9
''    sSql(13) = _
''"/*权限表*/" & _
''"CREATE TABLE tSYS_Auth(" & _
''"    AuthID        varchar(20)   NOT NULL primary key,  /*权限代码*/" & _
''"    AuthName      varchar(40)   NULL,                  /*权限名称*/" & _
''"    AuthMenuName  varchar(60)   NULL,                  /*相应菜单名*/" & _
''"    bEnd          smallint      default 0              /*是否明细权限*/" & _
''")"
'''10
''    sSql(14) = _
''"/*操作员权限表*/" & _
''"CREATE TABLE tSYS_UserAuth(" & _
''"    AccountID     varchar(4)    NOT NULL,           /*账套号*/" & _
''"    UserID        varchar(4)    NOT NULL,           /*操作员代码*/" & _
''"    AuthID        varchar(20)   NOT NULL            /*权限代码*/" & _
''")"
''
''    '“用户权限对应表”主键'PK_SYS_UserAuth'
''    Select Case g_FLAT
''        Case "SQL"
''            sSql(15) = _
''                "Alter TABLE tSYS_UserAuth WITH NOCHECK ADD" & _
''                "    CONSTRAINT PK_SYS_UserAuth PRIMARY KEY  NONCLUSTERED" & _
''                "    (" & _
''                "        AccountID," & _
''                "        UserID," & _
''                "        AuthID" & _
''                "    )"
''        Case "ORACLE"
''            sSql(15) = "CREATE UNIQUE INDEX PK_SYS_UserAuth ON " & _
''                "tSYS_UserAuth(AccountID,UserID,AuthID)"
''    End Select
'''11
''    sSql(16) = _
''"/*(SYS)11.凭证类型表*/" & _
''"CREATE TABLE tSYS_PZtype(" & _
''"    TypeID    smallint         NOT NULL,       /*类型序号*/" & _
''"    SignID    smallint         NOT NULL,       /*类型中各格式的序号*/" & _
''"    Sign      char(2)          NOT NULL,       /*格式名称的简称*/" & _
''"    SignText  varchar(40)      NULL            /*格式名称*/" & _
''")"
''
''    '“凭证类型表”主键'PK_SYS_PZtype'
''    Select Case g_FLAT
''        Case "SQL"
''            sSql(17) = _
''                "Alter TABLE tSYS_PZtype WITH NOCHECK ADD" & _
''                "    CONSTRAINT PK_SYS_PZtype PRIMARY KEY  NONCLUSTERED" & _
''                "    (" & _
''                "        TypeID," & _
''                "        SignID" & _
''                "    )"
''        Case "ORACLE"
''            sSql(17) = "CREATE UNIQUE INDEX PK_SYS_PZtype ON " & _
''                "tSYS_PZtype(TypeID,SignID)"
''    End Select
'''12
'''“系统运行管理表”
''    sSql(18) = _
''"CREATE TABLE tSYS_Manage(" & _
''"    ID             int           NOT NULL primary key," & _
''"    ComputerName   varchar(100)  NULL," & _
''"    SubSysID       varchar(2)    NOT NULL," & _
''"    UserID         varchar(4)    NOT NULL," & _
''"    AccountID      varchar(4)    NOT NULL," & _
''"    AccountYear    char(4)       NULL," & _
''"    LoginDateTime  " & gloSys.sDateType & " NOT NULL," & _
''"    RunState       varchar(8)    Default '正常',     /*正常、终止*/" & _
''"    QuitDateTime   " & gloSys.sDateType & " NULL" & _
''")"
''
''    '建立“系统运行管理表”的非唯一索引'IK_SYS_Manage'
''    sSql(19) = "CREATE INDEX IK_SYS_Manage ON " & _
''        "tSYS_Manage(SubSysID,UserID,AccountID,AccountYear)"
''
''
'''************* add 2002.06.24
'''/*互斥运行状态表*/
''sSql(20) = "Create table tSYS_MutexStatus(" & _
''  "IID          int   not null Primary key,   /*流水号*/" & _
''  "SubSysID     char(2)      not null,   /*子系统编号*/" & _
''  "AccountID    varchar(4)   not null,   /*账套号*/" & _
''  "AuthMenuName varchar(50)  not null,   /*权限标识*/" & _
''  "IP           varchar(15)  not null,   /*运行机器IP地址*/" & _
''  "ComputerName varchar(20)  not null,    /*计算机名称*/" & _
''  "UserID       varchar(6)          /*操作人员代号*/" & _
''")"
''
'''/*功能互斥对应表*/
''sSql(21) = "Create table tSYS_MutexInfo(" & _
''  "SubSysID           char(2)     not null,  /*子系统编号*/" & _
''  "AuthMenuName       varchar(50) not null,  /*权限标识*/" & _
''  "MutexSubSysID      char(2)     not null,  /*互斥子系统编号*/" & _
''  "MutexAuthMenuName  varchar(50) not null  /*互斥权限标识*/" & _
''")"
''
''
'' Select Case g_FLAT
''        Case "SQL"
''            sSql(22) = "alter table  tSYS_MutexInfo add constraint PK_SYS_MutexInfo" & _
''                    "    Primary key (SubSysID,AuthMenuName,MutexSubSysID,MutexAuthMenuName)"
''        Case "ORACLE"
''            sSql(22) = "CREATE UNIQUE INDEX PK_SYS_MutexInfo ON " & _
''                "tSYS_MutexInfo(SubSysID,AuthMenuName,MutexSubSysID,MutexAuthMenuName)"
''    End Select
''
'''************* end 2002.06.24
''
''
'''************ add 2002.06.27
''  '/*数据备份-数据表清单*/
''    sSql(23) = "CREATE TABLE TCON_DAITEM (" & _
''      "cItmSysCoding   char(2)         NOT NULL ," & _
''      "cItmDaCoding    varchar (8)     NOT NULL , " & _
''      "vcItmDaCaption  varchar (30)    NULL , " & _
''      " vcItmDaName     varchar (30)    NULL ," & _
''      "cItmDaEdition   char(6)     NULL , " & _
''      "vcItmSynosis    varchar(50)     NULL ," & _
''      "dItmRemove      " & gloSys.sDateType & "    NULL)"
''
''
''
'''*********** end 2002.06.27
''
''
'''*********** add 2002.07.08
''
'''/*对象互斥对应表*/
''sSql(24) = "Create table tSYS_MutexObjectInfo(" & _
''    "SubSysID        char(2)     not null,   /*子系统编号*/" & _
''    "AuthMenuName        varchar(50) not null,   /*功能菜单标识*/" & _
''    "ObjectMenuName      varchar(50) not null,   /*对象菜单标识*/" & _
''    "MutexSubSysID       char(2)     not null,   /*互斥子系统编号*/" & _
''    "MutexAuthMenuName   varchar(50) not null,   /*互斥功能菜单标识*/" & _
''    "MutexObjectMenuName varchar(50) not null    /*互斥对象菜单标识*/" & _
''")"
''
'' Select Case g_FLAT
''        Case "SQL"
''            sSql(25) = "alter table  tSYS_MutexObjectInfo add constraint PK_SYS_MutexObjectInfo " & _
''                    " Primary key (SubSysID,AuthMenuName,ObjectMenuName,MutexSubSysID,MutexAuthMenuName,MutexObjectMenuName)"
'' Case "ORACLE"
''            sSql(25) = "CREATE UNIQUE INDEX PK_SYS_MutexObjectInfo ON " & _
''                    " tSYS_MutexObjectInfo(SubSysID,AuthMenuName,ObjectMenuName,MutexSubSysID,MutexAuthMenuName,MutexObjectMenuName)"
''
''End Select
'''/*对象运行状态表*/
''sSql(26) = "Create table tSYS_MutexObjectStatus(" & _
''    "IID                 int            not null  primary key,  /*流水号*/" & _
''    "SubSysID            char(2)        not null,               /*子系统编号*/" & _
''    "AccountID           varchar(4)     not null,               /*账套号*/" & _
''    "AuthMenuName        varchar(50)    not null,               /*功能菜单标识*/" & _
''    "ObjectMenuName      varchar(50)    not null,               /*对象菜单标识*/" & _
''    "ObjectStatus        varchar(30),                           /*对象操作状态*/" & _
''    "ObjectValue         varchar(200)   not null,               /*当前操作对象*/" & _
''    "IP                  varchar(15)    not null,               /*IP地址*/" & _
''    "ComputerName        varchar(20),                           /*计算机名称*/" & _
''    "UserID              varchar(6)                             /*操作员代码*/" & _
''")"
''
'''*********** end 2002.07.08
''
'''===================================2002.8.24 yao add===================================================
'''/*注册表*/
''sSql(27) = "Create table tSYS_Register(" & _
''    "vcCustomerName     varchar(50)             not null,   /*用户名*/" & _
''    "vcAuthorizeNo      varchar(40)             not null,   /*许可证号*/" & _
''    "vcSerialNumber     varchar(50)             not null,   /*授权系列号*/" & _
''    "dtUpdate     " & gloSys.sDateType & "      not null    /*更新日期*/" & _
''")"
''
'''=================================================================================================
''    Set adoCmd = New ADODB.Command
''    adoCmd.ActiveConnection = cnnCreate
''    adoCmd.CommandType = adCmdText
''    For i = LBound(sSql) To UBound(sSql)
''        adoCmd.CommandText = sSql(i)
''        adoCmd.Execute
''    Next i
''

'三、置初始记录
 
    '设置子系统记录
    glo.frmProg.SetMsg "正在设置子系统表的记录..."
    glo.frmProg.ShowProgress 20
      Set adoCmd = New ADODB.Command
      adoCmd.ActiveConnection = cnnCreate
      adoCmd.CommandType = adCmdText

    ReDim sValues(11)       '2002-07-22
    sValues(1) = "'ZW','集成账务'"
    sValues(2) = "'GD','固定资产'"
    sValues(3) = "'GZ','工资核算'"
    sValues(4) = "'BB','财务报表'"
    sValues(5) = "'FX','财务分析'"
    sValues(6) = "'CF','现金流量'"
    sValues(7) = "'MR','合并报表'"
    sValues(8) = "'SF','应收应付'"
    sValues(9) = "'CX','领导查询'"
    sValues(10) = "'FZ','辅助核算'"         '2002-07-22 add
    sValues(11) = "'MB','预算管理'"  '2002-05-30 Delete 取消人事劳动信息
    For i = LBound(sValues) To UBound(sValues)
        adoCmd.CommandText = "INSERT INTO tSYS_SubSys values(" & sValues(i) & ")"
        adoCmd.Execute
    Next i
    
    glo.frmProg.ShowProgress 25