📄 frmcreatedatabasenewyear.frm
字号:
'' Select Case g_FLAT
'' Case "SQL"
'' sSql(3) = "Alter TABLE tZW_Balance" & sNewYear & " WITH NOCHECK ADD " & _
'' "CONSTRAINT PK_ZW_balance" & sNewYear & " PRIMARY KEY NONCLUSTERED" & _
'' "(" & _
'' "kmdm," & _
'' "bz" & _
'' ")"
'' Case "ORACLE"
'' sSql(3) = "Alter TABLE tZW_Balance" & sNewYear & " ADD " & _
'' "CONSTRAINT PK_ZW_balance" & sNewYear & " PRIMARY KEY " & _
'' "(" & _
'' "kmdm," & _
'' "bz" & _
'' ")"
'' End Select
''
''
''
'' sSql(4) = _
''"/*(ZW)2.支票登记簿表*/" & _
''"CREATE TABLE tZW_Check" & sNewYear & "(" & _
''" kmdm varchar(40) NOT NULL, /*科目代码*/" & _
''" checkNo varchar(10) NOT NULL, /*支票号*/" & _
''" usedate " & gloSys.sDateType & " NULL, /*领用日期*/" & _
''" DepartCode varchar(12) NULL, /*领用部门代码*/" & _
''" PersonCode varchar(20) NULL, /*领用人编号*/" & _
''" money decimal(15,2) default 0, /*限领*/" & _
''" usertext varchar(30) NULL, /*用途*/" & _
''" outdate " & gloSys.sDateType & " NULL, /*报销日期*/" & _
''" text varchar(30) NULL /*备注*/" & _
''")"
''
'' Select Case g_FLAT
'' Case "SQL"
'' sSql(5) = _
'' "Alter TABLE tZW_Check" & sNewYear & " WITH NOCHECK ADD " & _
'' " CONSTRAINT PK_ZW_Check" & sNewYear & " PRIMARY KEY NONCLUSTERED " & _
'' " (" & _
'' " kmdm," & _
'' " checkNo " & _
'' " )"
'' Case "ORACLE"
'' sSql(5) = "CREATE UNIQUE INDEX PK_ZW_Check" & sNewYear & " ON " & _
'' "tZW_Check" & sNewYear & "(kmdm,checkNo)"
'' End Select
''
'''3
'' sSql(6) = _
''"/*(ZW)6.汇率数据表*/" & _
''"CREATE TABLE tZW_Exch" & sNewYear & "(" & _
''" cExch_Name varchar(10) NOT NULL , /*外币名称*/" & _
''" iPeriod smallint NOT NULL , /*汇计日期*/" & _
''" iType smallint default 0, /*汇率类型：false－固定式；true－浮动式*/" & _
''" cDate char(10) NOT NULL , /*输入日期*/" & _
''" nFlat_HL decimal(15,8) NULL, /*固定汇率*/" & _
''" nFlat_TZ decimal(15,8) NULL /*调整汇率*/" & _
''")"
''
'' Select Case g_FLAT
'' Case "SQL"
'' sSql(7) = _
'' "Alter TABLE tZW_Exch" & sNewYear & " WITH NOCHECK ADD " & _
'' " CONSTRAINT PK_ZW_Exch" & sNewYear & " PRIMARY KEY NONCLUSTERED " & _
'' " (" & _
'' " cExch_Name, " & _
'' " iPeriod" & _
'' " )"
'' Case "ORACLE"
'' sSql(7) = "CREATE UNIQUE INDEX PK_ZW_Exch" & sNewYear & " ON " & _
'' "tZW_Exch" & sNewYear & "(cExch_Name,iPeriod)"
'' End Select
''
'''4
'''/*1-19是凭证及明细账，20为银行账科目调整前余额，21为期初待核银行账, _
'' 22为个人往来期初，23为客户往来期初，24为供应商往来期初，25部门及项目期初*/
'''/*修改标志: 9-凭证有错；0-未复核，可修改；1-已复核；2-已记账*/
''
''
'''=============================2002.8.22 yao revise====================================================================
''' sSql(8) = _
'''"/*(ZW)12.凭证数据文件xxxx；“xxxx”表示该账套当前使用年份*/" & _
'''"CREATE TABLE tZW_Pzsj" & sNewYear & " (" & _
'''" ID char(8) not null, " & _
'''" kjqj smallint NOT NULL , /*会计期间*/" & _
'''" pzzl varchar(4) NOT NULL , /*凭证种类(简称)*/ pzbh char(4) NOT NULL , /*凭证编号*/ jlhm smallint NOT NULL , /*记录号码(区别凭证内各条分录)*/" & _
'''" pzrq " & gloSys.sDateType & " NULL, /*凭证日期*/ fjzs smallint default 0, /*附件张数*/ " & _
'''" zdrmCode varchar(4) NULL , /*制单人代码*/ zdrm char(8) NULL , /*制单人名*/" & _
'''" fhrmCode varchar(4) NULL , /*复核人代码*/ fhrm char(8) NULL , /*复核人名*/" & _
'''" zgrmCode varchar(4) NULL , /*主管人代码*/ zgrm char(8) NULL , /*主管人名*/" & _
'''" xgbz char(1) NOT NULL , /*修改标志*/ bSpecial smallint default 0 , /*T-特殊凭证(多借多贷)；F-普通凭证*/" & _
'''" bCashFlow smallint default 0 , /*是否现金流量凭证*/ bSplitRec smallint default 0 , /*T-已拆分；F-未拆分*/" & _
'''" pzzy varchar(200) NULL , /*凭证摘要*/ kmdm varchar(40) NULL , /*科目代码*/ kmmc varchar(255) NULL , /*科目名称路径*/ fx char(2) NULL , /*凭证记账借贷方向*/" & _
'''" je decimal(15,2) default 0 , /*金额*/ sl decimal(15,4) default 0 , /*数量*/ dj decimal(15,2) default 0 , /*单价*/ wb decimal(15,2) default 0 , /*外币*/ hl decimal(15,8) NULL , /*汇率*/" & _
'''" yhdz_jsfsCode char(3) NULL, yhdz_jsfs char(12) NULL , /*结算方式*/" & _
'''" yhdz_Bill char(12) NULL , /*银行票号*/ yhdz_Date " & gloSys.sDateType & " NULL,/*银行票据日期*/ yhdz_lqbz smallint NULL , /*银行对账两清标志*/ yhdz_hxbz smallint default 0 , /*银行对账核销标志*/" & _
'''" yhdz_id int NULL , /*与对账单表的外键*/ Grwl_Code char(20) NULL , /*个人往来个人代码*/ Grwl_Name char(20) NULL , /*个人往来个人名称*/ Grwl_Bill char(12) NULL , /*个人往来票号*/" & _
'''" Grwl_Date " & gloSys.sDateType & " NULL,/*个人往来日期*/ Grwl_Lqflg smallint NULL , /*个人往来两清标志*/ Grwl_Qcflg smallint default 0 , /*个人往来清除标志*/ Khwl_Code char(12) NULL , /*客户往来客户代码*/" & _
'''" Khwl_Name char(60) NULL , /*客户往来客户名称*/ Khwl_Bill char(12) NULL , /*客户往来票号*/ Khwl_Date " & gloSys.sDateType & " NULL , /*客户往来日期*/ Khwl_CBDcode char(20) NULL , /*业务员代码*/" & _
'''" Khwl_CBDname char(20) NULL , /*业务员名称*/ Khwl_Lqflg smallint NULL , /*客户往来两清标志*/ Khwl_Qcflg smallint default 0 , /*客户往来清除标志*/ Gyswl_Code char(12) NULL ," & _
'''" Gyswl_Name char(60) NULL , Gyswl_Bill char(12) NULL , Gyswl_Date " & gloSys.sDateType & " NULL , Gyswl_CBDcode char(20) NULL ," & _
'''" Gyswl_CBDname char(20) NULL , Gyswl_Lqflag smallint NULL , Gyswl_Qcflg smallint default 0 , bmdm char(12) NULL , /*部门代码*/ bmmc char(20) NULL , /*部门名称*/" & _
'''" xmdm char(30) NULL , /*项目代码*/ xmmc char(50) NULL /*项目名称*/" & _
'''")"
''
''' sSql(8) = _
'''"/*(ZW)12.凭证数据文件xxxx；“xxxx”表示该账套当前使用年份*/" & _
'''"CREATE TABLE tZW_Pzsj" & sNewYear & " (" & _
'''" ID char(8) not null, " & _
'''" kjqj smallint NOT NULL , /*会计期间*/" & _
'''" pzzl varchar(4) NOT NULL , /*凭证种类(简称)*/ pzbh char(4) NOT NULL , /*凭证编号*/ jlhm smallint NOT NULL , /*记录号码(区别凭证内各条分录)*/" & _
'''" pzrq " & gloSys.sDateType & " NULL, /*凭证日期*/ fjzs smallint default 0, /*附件张数*/ " & _
'''" zdrmCode varchar(4) NULL , /*制单人代码*/ zdrm char(8) NULL , /*制单人名*/" & _
'''" fhrmCode varchar(4) NULL , /*复核人代码*/ fhrm char(8) NULL , /*复核人名*/" & _
'''" zgrmCode varchar(4) NULL , /*主管人代码*/ zgrm char(8) NULL , /*主管人名*/" & _
'''" xgbz char(1) NOT NULL , /*修改标志*/ bSpecial smallint default 0 , /*T-特殊凭证(多借多贷)；F-普通凭证*/" & _
'''" bCashFlow smallint default 0 , /*是否现金流量凭证*/ bSplitRec smallint default 0 , /*T-已拆分；F-未拆分*/" & _
'''" pzzy varchar(200) NULL , /*凭证摘要*/ kmdm varchar(40) NULL , /*科目代码*/ kmmc varchar(255) NULL , /*科目名称路径*/ fx char(2) NULL , /*凭证记账借贷方向*/" & _
'''" je decimal(15,2) default 0 , /*金额*/ sl decimal(15,4) default 0 , /*数量*/ dj decimal(15,2) default 0 , /*单价*/ wb decimal(15,2) default 0 , /*外币*/ hl decimal(15,8) NULL , /*汇率*/" & _
'''" bz varchar(10) NULL , /*&default 人民币' , 币种*/ " & _
'''" yhdz_jsfsCode char(3) NULL, yhdz_jsfs char(12) NULL , /*结算方式*/" & _
'''" yhdz_Bill char(12) NULL , /*银行票号*/ yhdz_Date " & gloSys.sDateType & " NULL,/*银行票据日期*/ yhdz_lqbz smallint NULL , /*银行对账两清标志*/ yhdz_hxbz smallint default 0 , /*银行对账核销标志*/" & _
'''" yhdz_id int NULL , /*与对账单表的外键*/ Grwl_Code char(20) NULL , /*个人往来个人代码*/ Grwl_Name char(20) NULL , /*个人往来个人名称*/ Grwl_Bill char(12) NULL , /*个人往来票号*/" & _
'''" Grwl_Date " & gloSys.sDateType & " NULL,/*个人往来日期*/ Grwl_Lqflg smallint NULL , /*个人往来两清标志*/ Grwl_Qcflg smallint default 0 , /*个人往来清除标志*/ Khwl_Code char(12) NULL , /*客户往来客户代码*/" & _
'''" Khwl_Name char(60) NULL , /*客户往来客户名称*/ Khwl_Bill char(12) NULL , /*客户往来票号*/ Khwl_Date " & gloSys.sDateType & " NULL , /*客户往来日期*/ Khwl_CBDcode char(20) NULL , /*业务员代码*/" & _
'''" Khwl_CBDname char(20) NULL , /*业务员名称*/ Khwl_Lqflg smallint NULL , /*客户往来两清标志*/ Khwl_Qcflg smallint default 0 , /*客户往来清除标志*/ Gyswl_Code char(12) NULL ," & _
'''" Gyswl_Name char(60) NULL , Gyswl_Bill char(12) NULL , Gyswl_Date " & gloSys.sDateType & " NULL , Gyswl_CBDcode char(20) NULL ," & _
'''" Gyswl_CBDname char(20) NULL , Gyswl_Lqflag smallint NULL , Gyswl_Qcflg smallint default 0 , bmdm char(12) NULL , /*部门代码*/ bmmc char(20) NULL , /*部门名称*/" & _
'''" xmdm char(30) NULL , /*项目代码*/ xmmc char(50) NULL /*项目名称*/" & _
'''")"
''sSql(8) = "CREATE TABLE tZW_Pzsj" & sNewYear & " (" & _
'' " id char(8) not null, kjqj smallint NOT NULL , /*会计期间*/ " & _
'' " pzzl varchar(4) NOT NULL , /*凭证种类(简称)*/ pzbh char(4) NOT NULL , /*凭证编号*/ " & _
'' " jlhm smallint NOT NULL , /*记录号码*/ pzrq " & gloSys.sDateType & " NULL, /*凭证日期*/ " & _
'' " fjzs smallint default 0, /*附件张数*/ zdrmCode varchar(4) NULL , /*制单人代码*/ " & _
'' " zdrm char(8) NULL , /*制单人名*/ fhrmCode varchar(4) NULL , /*复核人代码*/ " & _
'' " fhrm char(8) NULL , /*复核人名*/ zgrmCode varchar(4) NULL , /*主管人代码*/ " & _
'' " zgrm char(8) NULL , /*主管人名*/ xgbz char(1) NOT NULL , /*修改标志*/" & _
'' " bSpecial smallint default 0 , /*T-特殊,F-普通*/ bCashFlow smallint default 0 , /*是否现金流量凭证*/" & _
'' " bSplitRec smallint default 0 , /*T-已拆分F-未拆分*/ pzzy char(255) NULL , /*凭证摘要*/ " & _
'' " kmdm char(40) NULL , /*科目代码*/ kmmc char(255) NULL , /*科目名称路径*/ " & _
'' " fx char(2) NULL , /*凭证记账借贷方向*/ je decimal(15,2) default 0 , /*金额*/ " & _
'' " sl decimal(15,4) default 0 , /*数量*/ dj decimal(15,2) default 0 , /*单价*/ " & _
'' " wb decimal(15,2) default 0 , /*外币*/ hl decimal(15,8) NULL , /*汇率*/ " & _
'' " bz varchar(10) NULL , /*&default 人民币 */ yhdz_jsfsCode char(3) NULL, " & _
'' " yhdz_jsfs char(12) NULL , /*结算方式*/ yhdz_Bill char(12) NULL , /*银行票号*/ " & _
'' " yhdz_Date " & gloSys.sDateType & " NULL , /*银行票据日期*/ yhdz_lqbz smallint NULL , /*银行对账两清标志*/ " & _
'' " yhdz_hxbz smallint default 0 , /*银行对账核销标志*/ yhdz_id int NULL /*与对账单表的外键*/ )"
''
''
'''=====================================================================================================================================================
'' Select Case g_FLAT
'' Case "SQL"
'' sSql(9) = _
'' "ALTER TABLE tZW_Pzsj" & sNewYear & " WITH NOCHECK ADD " & _
'' " CONSTRAINT PK_ZW_Pzsj" & sNewYear & " PRIMARY KEY NONCLUSTERED " & _
'' " (" & _
'' " kjqj," & _
'' " pzzl," & _
'' " pzbh," & _
'' " jlhm" & _
'' " )"
'' Case "ORACLE"
'' sSql(9) = "ALTER TABLE tZW_Pzsj" & sNewYear & " ADD " & _
'' " CONSTRAINT PK_ZW_Pzsj" & sNewYear & " PRIMARY KEY " & _
'' " (" & _
'' " kjqj," & _
'' " pzzl," & _
'' " pzbh," & _
'' " jlhm" & _
'' " )"
'' End Select
''
'''5
'' sSql(10) = _
''"/*(ZW)17.银行对账单*/" & _
''"CREATE TABLE tZW_Yhdzd" & sNewYear & "(" & _
''" ID int NOT NULL primary key, /*识别号*/" & _
''" rq " & gloSys.sDateType & " NULL, /*日期*/" & _
''" kmdm varchar(40) NULL , /*科目代码*/" & _
''" JsfsCode char(3) NULL , /*结算方式*/" & _
''" jsfsName char(12) NULL, /*结算方式名称*/ " & _
''" bill char(12) NULL , /*票号*/" & _
''" fx char(2) NULL, /*方向*/" & _
''" je decimal(15,2) NULL , /*金额*/" & _
''" lqbz smallint NULL , /*两清标志(NULL_未达,1=自动对账期间,2=手工对账期间*/" & _
''" qcbz smallint NULL , /*期初标志(0-调整前余额,1-期初对账单,2-对账单)*/" & _
''" hxbz smallint default 0 , /*核销标志*/" & _
''" zy varchar(200) NULL /*摘要*/" & _
''")"
''
'''6
'' sSql(11) = _
''"/*(USU).辅助核算表*/" & _
''"CREATE TABLE tUSU_Fz" & sNewYear & "(" & _
''" ID int NOT NULL Primary key, /*唯一序号*/" & _
''" kmdm varchar(40) NOT NULL, /*科目代码*/" & _
''" Grwl_Code char(20) NULL, /*个人代码*/" & _
''" Khwl_Code char(12) NULL, /*客户代码*/" & _
''" Gyswl_Code char(12) NULL, /*供应商代码*/" & _
''" bmdm char(12) NULL, /*部门代码 */" & _
''" xmdm char(30) NULL, /*项目代码*/" & _
''" ljjsl00 decimal(15, 3) default 0,ljjwb00 decimal(15, 2) default 0,ljj00 decimal(15, 2) default 0,ljdsl00 decimal(15, 3) default 0,ljdwb00 decimal(15, 2) default 0, ljd00 decimal(15, 2) default 0," & _
''" ljjsl01 decimal(15, 3) default 0,ljjwb01 decimal(15, 2) default 0,ljj01 decimal(15, 2) default 0,ljdsl01 decimal(15, 3) default 0,ljdwb01 decimal(15, 2) default 0, ljd01 decimal(15, 2) default 0," & _
''" ljjsl02 decimal(15, 3) default 0,ljjwb02 decimal(15, 2) default 0,ljj02 decimal(15, 2) default 0,ljdsl02 decimal(15, 3) default 0,ljdwb02 decimal(15, 2) default 0, ljd02 decimal(15, 2) default 0," & _
''" ljjsl03 decimal(15, 3) default 0,ljjwb03 decimal(15, 2) default 0,ljj03 decimal(15, 2) default 0,ljdsl03 decimal(15, 3) default 0,ljdwb03 decimal(15, 2) default 0, ljd03 decimal(15, 2) default 0," & _
''" ljjsl04 decimal(15, 3) default 0,ljjwb04 decimal(15, 2) default 0,ljj04 decimal(15, 2) default 0,ljdsl04 decimal(15, 3) default 0,ljdwb04 decimal(15, 2) default 0, ljd04 decimal(15, 2) default 0," & _
''" ljjsl05 decimal(15, 3) default 0,ljjwb05 decimal(15, 2) default 0,ljj05 decimal(15, 2) default 0,ljdsl05 decimal(15, 3) default 0,ljdwb05 decimal(15, 2) default 0, ljd05 decimal(15, 2) default 0," & _
''" ljjsl06 decimal(15, 3) default 0,ljjwb06 decimal(15, 2) default 0,ljj06 decimal(15, 2) default 0,ljdsl06 decimal(15, 3) default 0,ljdwb06 decimal(15, 2) default 0, ljd06 decimal(15, 2) default 0," & _
''" ljjsl07 decimal(15, 3) default 0,ljjwb07 decimal(15, 2) default 0,ljj07 decimal(15, 2) default 0,ljdsl07 decimal(15, 3) default 0,ljdwb07 decimal(15, 2) default 0, ljd07 decimal(15, 2) default 0," & _
''" ljjsl08 decimal(15, 3) default 0,ljjwb08 decimal(15, 2) default 0,ljj08 decimal(15, 2) default 0,ljdsl08 decimal(15, 3) default 0,ljdwb08 decimal(15, 2) default 0, ljd08 decimal(15, 2) default 0," & _
''" ljjsl09 decimal(15, 3) default 0,ljjwb09 decimal(15, 2) default 0,ljj09 decimal(15, 2) default 0,ljdsl09 decimal(15, 3) default 0,ljdwb09 decimal(15, 2) default 0, ljd09 decimal(15, 2) default 0," & _
''" ljjsl10 decimal(15, 3) default 0,ljjwb10 decimal(15, 2) default 0,ljj10 decimal(15, 2) default 0,ljdsl10 decimal(15, 3) default 0,ljdwb10 decimal(15, 2) default 0, ljd10 decimal(15, 2) default 0," & _
''" ljjsl11 decimal(15, 3) default 0,ljjwb11 decimal(15, 2) default 0,ljj11 decimal(15, 2) default 0,ljdsl11 decimal(15, 3) default 0,ljdwb11 decimal(15, 2) default 0, ljd11 decimal(15, 2) default 0," & _
''" ljjsl12 decimal(15, 3) default 0,ljjwb12 decimal(15, 2) default 0,ljj12 decimal(15, 2) default 0,ljdsl12 decimal(15, 3) default 0,ljdwb12 decimal(15, 2) default 0, ljd12 decimal(15, 2) default 0)"
''
''
'''7
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -