frmcreatedatabasenewyear.frm

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

''    sSql(12) = _
''"/*转账凭证设置表*/" & _
''"CREATE TABLE tZW_ZzpzSet" & sNewYear & "(" & _
''"    ID  char (4) NOT NULL ,        /*转账序号*/" & _
''"    siJlhm smallint NOT NULL ,     /*分录号*/" & _
''"    cPzlb varchar (4) NOT NULL ,      /*凭证类别*/" & _
''"    cZzsm varchar (40) NOT NULL ,  /*转账说明*/" & _
''"    cKmdm varchar (40) NOT NULL ,  /*科目代码*/" & _
''"    cFx char (2) NOT NULL ,        /*方向*/" & _
''"    cJegs varchar (200) NOT NULL , /*金额公式*/" & _
''"    cZy varchar (200) NULL,         /*摘要*/" & _
''"    zzrq  char(10)  NULL,           /*转账日期*/" & _
''"    cPzType varchar(12) NOT NULL   /*凭证类型*/" & _
''")"
''
''    sSql(13) = _
''"ALTER TABLE TZW_ZzpzSet" & sNewYear & _
''" ADD CONSTRAINT PK_ZW_ZzpzSet" & sNewYear & " PRIMARY KEY (cPzType,ID,siJlhm)"
''
''
''
'''8
''
'''批量制单表
''    sSql(14) = _
''"CREATE TABLE tGD_PLZD" & sNewYear & "(" & _
''"    ID       int               NULL ," & _
''"    djh      char (10)         NULL ," & _
''"    jlbh     smallint          NULL ," & _
''"    kjqj     smallint          NULL ," & _
''"    yw       char (2)          NULL ," & _
''"    djlx     char (28)         NULL ," & _
''"    kmdm     varchar (40)         NULL ," & _
''"    fx       char (2)          NULL ," & _
''"    je       decimal(15, 2)    NULL ," & _
''"    zdbz     char (4)          NULL ," & _
''"    pzzl     char (4)          NULL ," & _
''"    pzkjqj   smallint          NULL" & _
''")"
''
''
'''11
''  sSql(15) = "/*(CF)5.现金流量拆分表 */" & _
''    "    CREATE TABLE tCF_OneOne" & sNewYear & "(" & _
''    "    tiOriginKjqj        smallint    NOT NULL,       /*原凭证会计期间*/ " & _
''    "    cOriginPzzl         char(4)     NOT NULL,       /*原凭证会计总类*/ " & _
''    "    cOriginPzbh         char(4)     NOT NULL,       /*原凭证编号*/     " & _
''    "    dOriginPzrq         " & gloSys.sDateType & "        NOT NULL,       /*原凭证日期*/     " & _
''    "    bSpecial            smallint    NOT NULL,       /*0拆自普通凭证，1拆自特殊凭证*/  " & _
''    "    siSubId             smallint    NOT NULL,       /*拆普通凭证0，拆特殊凭证为子凭证序号 */  " & _
''    "    siOneOneID          smallint    NULL,           /* 拆普通凭证为原先凭证全序；拆特殊凭证为某椅子凭证全序*/  " & _
''    "    cFX                 char(2)    NULL,                    /*方向*/  " & _
''    "    deJE                decimal(15,2)    default 0,              /*金额 */ " & _
''    "    cKmdm               varchar(40)    NULL,                   /*科目代码*/ " & _
''    "    cKmmc               varchar(255)    NULL,               /*科目代码*/ " & _
''    "    cPzzy               varchar(200)    NULL,               /*摘要名称*/  " & _
''    "    cFX2                char(2)    NULL,                    /*方向*/    " & _
''    "    deJE2               decimal(15,2)    default 0,              /*金额 */    " & _
''   "     cKmdm2              varchar(40)    NULL,                   /*科目代码*/  " & _
''   "     cKmmc2              varchar(255)    NULL,               /*科目代码*/  " & _
''   "     cPzzy2              varchar(200)    NULL,               /*摘要名称*/" & _
''   "     cCashDirection      char(2)  NULL,         /* 现金科目所在方向，借表示流入,贷表示流出*/ " & _
''   "     cItemCode           char(4)    NULL,        /*项目代码*/  " & _
''   "     deItemJe            decimal(15,2)    default 0,         /*项目金额*/  " & _
''   "     bSplitFlag          smallint    NOT NULL,   /*拆分标志：0表示自动拆分，-1表示手工拆分*/" & _
''   "     bRight              smallint    default -1,  /*是否正确拆分*/    cFhrmCode           varchar(4)  NULL,       /*复核人代码*/    cFhrmName       char(8)     NULL        /*复核人名*/" & _
''   ")"
'' '==================BEGIN Add
''        '/*汇兑凭证设置表*/
''        sSql(16) = "CREATE TABLE tZW_Zzhdset" & sNewYear & " (" & _
''        "    ID      char (4) NOT NULL ,        /*汇兑转账序号*/" & _
''        "    Pzlb    varchar (4) NOT NULL ,        /*凭证类别*/" & _
''        "    sykmdm  varchar (40)   NOT NULL ,  /*收益科目代码*/ " & _
''        "    sykmmc  varchar (255)   NOT NULL ,  /*收益科目名称*/ " & _
''        "    sskmdm  varchar (40)   NOT NULL ,  /*损失科目代码*/ " & _
''        "    sskmmc  varchar (255)   NOT NULL ,  /*损失科目名称*/ " & _
''        "    zy      varchar (200) NOT NULL ,  /*摘要*/         " & _
''        "    thzq    varchar (10)  NOT NULL ,  /*汇兑周期*/     " & _
''        "    schdrq  char (10)              ,   /*上次汇兑日期*/" & _
''        "    jlfl    smallint    NOT NULL           ,  /*分录号*/       " & _
''        "    kmdm    varchar (40)  NOT NULL  ,  /*科目代码*/     " & _
''        "    kmmc    varchar (255)  NOT NULL  ,  /*科目名称*/ " & _
''        "    Fx      char (2) NOT NULL ,        /*方向*/" & _
''        "    bz      varchar (10) NOT NULL  /*币种名称*/" & _
''        ")"
''
''
''    Select Case g_FLAT
''       Case "SQL"
''            sSql(17) = _
''               "ALTER TABLE tZW_Zzhdset" & sNewYear & _
''               " ADD CONSTRAINT PK_ZW_tZW_Zzhdset" & sNewYear & " PRIMARY KEY (ID,Jlfl)"
''      Case "ORACLE"
''             sSql(17) = "CREATE UNIQUE INDEX PK_ZW_tZW_Zzhdset" & sNewYear & " ON " & _
''                        " tZW_Zzhdset" & sNewYear & "(ID ,Jlfl)"
''    End Select
''
''          sSql(18) = _
''         "CREATE TABLE tBB_ReportData" & sNewYear & "(" & _
''            "    ReportCode          varchar(10)     NOT NULL,           /*报表代码*/" & _
''            "    EnterCode           varchar(25)     NOT NULL,           /*单位代码*/" & _
''            "    Month               smallint        NOT NULL,           /*月份*/" & _
''            "    iRowLabel           int             NOT NULL,           /*行标*/" & _
''            "    ColLabel            int             NOT NULL,           /*列标*/" & _
''            "    CellData            decimal(15,4)   default 0           /*单元数据*/" & _
''            ")"
''
''           sSql(19) = _
''        "ALTER TABLE  tBB_ReportData" & sNewYear & " ADD CONSTRAINT PK_BB_ReportData" & sNewYear & _
''        "    PRIMARY KEY (ReportCode,EnterCode,Month,iRowLabel,ColLabel)"
''
''''        Select Case g_FLAT
''''              Case "SQL"
''''                  sSql(19) = _
''''                     "ALTER TABLE TZW_ZzpzSet" & sNewYear & _
''''                     " ADD CONSTRAINT PK_ZW_ZzpzSet" & sNewYear & " PRIMARY KEY (ID,siJlhm)"
''''              Case "ORACLE"
''''                  sSql(19) = "CREATE UNIQUE INDEX PK_ZW_ZzpzSet" & sNewYear & " ON " & _
''''                      " TZW_ZzpzSet" & sNewYear & "(ID ,siJlhm)"
''''          End Select
''
''
''
'' '==================END Add
''
'' '********** 2002.06.13 add
'' '/*工资转账凭证设置，按年创建*/
''sSql(20) = _
''"CREATE TABLE tGZ_ZzpzgzSet" & sNewYear & "( " & _
''"    ID          char(4)         NOT NULL , " & _
''"    siJlhm      smallint        NOT NULL , " & _
''"    cPzlb       varchar(4)      NOT NULL , " & _
''"    cZzsm       varchar (40)    NOT NULL , " & _
''"    cKmdm       varchar (40)    NOT NULL , " & _
''"    cFx         char(2)         NOT NULL , " & _
''"    cJegs       varchar (200)   NOT NULL , " & _
''"    cZy         varchar (200)   NULL , " & _
''"    zzrq        char(10)        NULL, " & _
''"    gzlbid      SmallInt        Not NULL " & _
''")"
''
''sSql(21) = "create unique index PK_GZ_ZZPZGZSET" & sNewYear & " on  tgz_zzpzgzset" & sNewYear & " (id,sijlhm,gzlbid)"
''
''''Select Case g_FLAT
''''        Case "SQL"
''''sSql(22) = "    CREATE PROCEDURE sp_cf_auto" & sNewYear & " " & vbCrLf & _
''''    "   @ProcDate varchar(12)," & vbCrLf & _
''''    "   @EndDate varchar(12)" & vbCrLf & _
''''    "  AS " & vbCrLf & _
''''    "   declare @sikjqj smallint" & vbCrLf & _
''''    "   declare @cPzzl varchar(4)" & vbCrLf & _
''''    "   declare @cPzbh char(4)" & vbCrLf & _
''''    "   declare @dPzrq datetime" & vbCrLf & _
''''    "   declare @nJe   decimal(15,2)" & vbCrLf & _
''''    "   declare @cFx char(2)" & vbCrLf & _
''''    "   declare @cKmdm char(40)" & vbCrLf & _
''''    "   declare @cKmmc char(100)" & vbCrLf & _
''''    "   declare @sikjqj2 smallint" & vbCrLf & _
''''    "   declare @cPzzl2 varchar(4)" & vbCrLf & _
''''    "   declare @cPzbh2 char(4)" & vbCrLf & _
''''    "   declare @dPzrq2 datetime" & vbCrLf & _
''''    "   declare @nJe2   decimal(15,2)" & vbCrLf & _
''''    "   declare @cFx2 char(2)" & vbCrLf & _
''''    "   declare @cKmdm2 char(40)" & vbCrLf & _
''''    "   declare @cKmmc2 char(100)" & vbCrLf & _
''''    "   declare @siFlowin smallint" & vbCrLf & _
''''    "   declare mycur cursor for" & vbCrLf & _
''''    "   SELECT tzw_pzsj" & sNewYear & ".kjqj,tzw_pzsj" & sNewYear & ".Pzzl,tzw_pzsj" & sNewYear & ".pzbh,tzw_pzsj" & sNewYear & ".pzrq,tzw_pzsj" & sNewYear & ".je,tzw_pzsj" & sNewYear & ".fx,tzw_pzsj" & sNewYear & ".kmdm,tzw_km" & sNewYear & ".kmmc" & vbCrLf & _
''''    "   From tZW_Pzsj" & sNewYear & ", tzw_km" & sNewYear & "" & vbCrLf & _
''''    "   WHERE tZW_Pzsj" & sNewYear & ".bcashflow = - 1 AND tZW_Pzsj" & sNewYear & ".bspecial = 0 AND tzw_pzsj" & sNewYear & ".bsplitrec=0 and "
''''
''''
'''' sSql(22) = sSql(22) & "      tzw_km" & sNewYear & ".kmdm = tZW_Pzsj" & sNewYear & ".kmdm And tzw_km" & sNewYear & ".isxjllkm = 0" & vbCrLf & _
''''    "        and tZw_pzsj" & sNewYear & ".pzrq>=@ProcDate and tZw_pzsj" & sNewYear & ".pzrq<=@EndDate" & vbCrLf & _
''''    "  ORDER BY tZW_Pzsj" & sNewYear & ".kjqj, tZW_Pzsj" & sNewYear & ".pzzl, tZW_Pzsj" & sNewYear & ".pzbh," & vbCrLf & _
''''    "        tZW_Pzsj" & sNewYear & ".je Desc" & vbCrLf & _
''''    "  open mycur" & vbCrLf & _
''''    "  fetch from mycur into @sikjqj,@cPzzl,@cPzbh,@dPzrq,@nJe,@cFx,@cKmdm,@cKmmc" & vbCrLf & _
''''    "  while @@fetch_status=0" & vbCrLf & _
''''    "  begin" & vbCrLf & _
''''    "      fetch next from mycur into @sikjqj2,@cPzzl2,@cPzbh2,@dPzrq2,@nJe2,@cFx2,@cKmdm2,@cKmmc2" & vbCrLf & _
''''    "      if @@fetch_status<>0" & vbCrLf & _
''''    "      begin" & vbCrLf & _
''''    "          if @cFx='借'" & vbCrLf & _
''''    "           begin" & vbCrLf & _
''''    "              set @cFx='贷'" & vbCrLf & _
''''    "              set @siFlowin= 0" & vbCrLf & _
''''    "          End" & vbCrLf & _
''''    "          Else" & vbCrLf & _
''''    "          begin" & vbCrLf & _
''''    "              set @cFx='借'" & vbCrLf & _
''''    "              set @siFlowin=1" & vbCrLf & _
''''    "          End" & vbCrLf & _
''''    "          insert into tcf_oneone" & sNewYear & "" & vbCrLf & _
''''    "                   select @sikjqj,@cPzzl,@cPzbh,@dPzrq,0,0,null,null,0,null,null,null,null,0,null,null,null,@cFx,tcf_vouchersource.citemcode,cast((tcf_vouchersource.csymbol+'1') as decimal(15,2)) * @nje,0,-1,null,null from tcf_vouchersource,tcf_item where tcf_vouchersource.siyear=" & sNewYear & "  and tcf_vouchersource.citemcode=tcf_item.ctypecode+tcf_item.citemcode and tcf_vouchersource.ckmdm=@cKmdm and tcf_item.siyear=" & sNewYear & " and tcf_item.bflowin=@siFlowin" & vbCrLf & _
''''    "                  End" & vbCrLf & _
''''    "      Else"
''''
''''sSql(22) = sSql(22) & "         begin" & vbCrLf & _
''''    "          if @sikjqj=@sikjqj2 and @cpzzl=@cpzzl2 and @cPzbh=@cPzbh2 " & vbCrLf & _
''''    "          begin" & vbCrLf & _
''''    "              if @cFx<>@cFx2" & vbCrLf & _
''''    "              begin" & vbCrLf & _
''''    "              select @nJe= @nJe-@nJe2" & vbCrLf & _
''''    "              End" & vbCrLf & _
''''    "              Else" & vbCrLf & _
''''    "              begin" & vbCrLf & _
''''    "                  if @cFx='借'" & vbCrLf & _
''''    "                  begin" & vbCrLf & _
''''    "                      set @cFx='贷'" & vbCrLf & _
''''    "                      set @siFlowin= 0" & vbCrLf & _
''''    "                  End" & vbCrLf & _
''''    "                  Else" & vbCrLf & _
''''    "                  begin" & vbCrLf & _
''''    "                      set @cFx='借'" & vbCrLf & _
''''    "                      set @siFlowin=1" & vbCrLf & _
''''    "                  End" & vbCrLf & _
''''    "                  insert into tcf_oneone" & sNewYear & "" & vbCrLf & _