📄 mdlinittable.bas
字号:
" Field CHAR (15) NOT NULL, /*字段名*/" & _
" Detials CHAR (20) NOT NULL, /*中文描述*/ " & _
" Show smallint default 0 /*显示状态*/" & _
")"
'6
sSql(7) = _
"/*(ZW)6.汇率数据表*/" & _
"CREATE TABLE tZW_Exch" & m_sBeginYear & "(" & _
" 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(8) = _
"Alter TABLE tZW_Exch" & m_sBeginYear & " WITH NOCHECK ADD " & _
" CONSTRAINT PK_ZW_Exch" & m_sBeginYear & " PRIMARY KEY NONCLUSTERED " & _
" (" & _
" cExch_Name, " & _
" iPeriod" & _
" )"
Case "ORACLE"
sSql(8) = "CREATE UNIQUE INDEX PK_ZW_Exch" & m_sBeginYear & " ON " & _
"tZW_Exch" & m_sBeginYear & "(cExch_Name,iPeriod)"
End Select
'7
sSql(9) = _
"/*(ZW)7.外币代码名称表*/" & _
"CREATE TABLE tZW_ForeignCurrency" & m_sBeginYear & "(" & _
" cExch_Name varchar(10) NOT NULL PRIMARY KEY, /*外汇名称*/" & _
" bCAL smallint default 0, /*折算公式：true－外币*汇率=本币；false－外汇/汇率=本币*/" & _
" iDEC smallint default 4, /*汇率小数位数*/" & _
" mERROR decimal(9,8) default 0.0001, /*折算最大误差*/" & _
" OtherUse smallint default 0 /*是否使用标记*/" & _
")"
sSql(10) = _
"/*(ZW)8.项目档案表*/" & _
"CREATE TABLE tZW_Item" & m_sBeginYear & "(" & _
" cCode CHAR(30) NOT NULL PRIMARY KEY, /*项目代码*/" & _
" cName CHAR(50) NULL, /*项目名称*/" & _
" cDirect CHAR(2) NULL, /*借贷方向*/" & _
" bCash smallint default 0, /*是否现金项目*/" & _
" cClsCode char(40) NULL, /*项目类型代码*/" & _
" bCarry smallint default 0, /*年终时，已终止项目是否参与数据结转*/" & _
" bUse smallint default 0, /*是否在用*/" & _
" dBudget decimal(15,2) default 0, /*项目预算*/" & _
" bOver smallint default 0, /*是否完工*/" & _
" dOverDate varchar(12) /*完工日期*/" & _
")"
'====================================================================================
'9
sSql(11) = _
"/*(ZW)10.项目类别表*/" & _
"CREATE TABLE tZW_ItemClass" & m_sBeginYear & "(" & _
" cClsCode CHAR(40) NOT NULL PRIMARY KEY, /*类别代码*/" & _
" cClsName CHAR(40) NULL, /*类别名称*/" & _
" iGrade int NULL, /*级次*/" & _
" bUse smallint default 0 /*是否已在用*/" & _
")"
'10
sSql(12) = _
"/*(ZW)11.结算方式*/" & _
"CREATE TABLE tZW_Jsfs" & m_sBeginYear & "(" & _
" cCode CHAR(3) NOT NULL PRIMARY KEY, /*结算方式编码*/" & _
" cName CHAR(12) NULL, /*结算方式名称*/" & _
" bFlag smallint default 0, /*票据管理标志*/" & _
" iGrade smallint NULL, /*结算方式级次*/" & _
" bEnd smallint default 0 /*末级标志*/" & _
")"
sSql(13) = "CREATE TABLE tZW_Pzsj" & m_sBeginYear & " (" & _
" 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(14) = _
"ALTER TABLE tZW_Pzsj" & m_sBeginYear & " WITH NOCHECK ADD " & _
" CONSTRAINT PK_ZW_Pzsj" & m_sBeginYear & " PRIMARY KEY NONCLUSTERED " & _
" (" & _
" kjqj," & _
" pzzl," & _
" pzbh," & _
" jlhm" & _
" )"
Case "ORACLE"
sSql(14) = "alter table tZW_Pzsj" & m_sBeginYear & _
" add constraint PK_ZW_Pzsj" & m_sBeginYear & " primary key (JLHM,PZBH,PZZL,KJQJ)"
End Select
'12
sSql(15) = _
"/*(ZW)13.账务凭证格式*/" & _
"CREATE TABLE tZW_Type" & m_sBeginYear & "(" & _
" signID smallint NOT NULL PRIMARY KEY, /*类别号*/" & _
" sign varchar(4) NOT NULL, /*类别简称*/" & _
" signtext char(40) NOT NULL, /*类别全称*/" & _
" jfbykm char(255) NULL, /*借方必有科目列表*/" & _
" jfbwkm char(255) NULL, /*借方必无科目列表*/" & _
" dfbykm char(255) NULL, /*贷方必有科目列表*/" & _
" dfbwkm char(255) NULL, /*货方必无科目列表*/" & _
" pzbykm char(255) NULL, /*凭证必有科目列表*/" & _
" pzbwkm char(255) NULL, /*凭证必无科目列表*/" & _
" OtherUse smallint default 0 /*是否已使用*/" & _
")"
'13
sSql(16) = _
"/*(ZW)14.供应商档案*/" & _
"CREATE TABLE tZW_Vendor" & m_sBeginYear & "(" & _
" cVenCode CHAR(12) NOT NULL PRIMARY KEY, /*供应商编号*/ cVenName CHAR(60) NOT NULL, /*供应商名称*/" & _
" cVenAbbName CHAR(30) NULL, /*供应商简称*/ cVCCode CHAR(12) NOT NULL, /*所属分类码*/" & _
" cDCCode CHAR(6) NULL, /*所属地区码*/ cVenHeadCode CHAR(12) NULL, /*总公司编码*/" & _
" cTrade CHAR(40) NULL, /*所属行业*/ cVenRegCode CHAR(18) NULL, /*纳税人登记号*/" & _
" cVenLPerson CHAR(10) NULL, /*法人*/ cVenBank CHAR(30) NULL, /*开户银行*/" & _
" cVenAccount CHAR(40) NULL, /*银行账号*/ cVenAddress CHAR(80) NULL, /*地址*/" & _
" cVenPostCode CHAR(6) NULL, /*邮政编码*/ cVenPerson CHAR(10) NULL, /*联系人*/" & _
" cVenPhone CHAR(20) NULL, /*电话*/ cVenFax CHAR(20) NULL, /*传真*/" & _
" cVenEmail CHAR(30) NULL, /*Email地址*/ cVenBP CHAR(20) NULL, /*呼机*/" & _
" cVenHand CHAR(20) NULL, /*手机*/ cVenIAddress CHAR(40) NULL, /*到货地址*/" & _
" cVenIType CHAR(10) NULL, /*到货方式*/ cVenWhCode CHAR(20) NULL, /*到货仓库*/" & _
" iARmoney DECIMAL(9,2) NULL, /*应付余额*/ iVenDisRate DECIMAL(5,2) NULL, /*扣率*/" & _
" cVenCreGrade CHAR(6) NULL, /*信用等级*/ cVenPayCond CHAR (20) NULL, /*付款条件*/" & _
" iVenCreLine DECIMAL(9,2) NULL, /*信用额度*/ iVenCreDate DECIMAL(9,2) NULL, /*信用期限*/" & _
" dLastDate " & gloSys.sDateType & " NULL, /*最后交易日期*/ iLastmoney DECIMAL(9,2) NULL, /*最后交易金额*/" & _
" dLRDate " & gloSys.sDateType & " NULL, /*最后付款日期*/ iLRmoney DECIMAL(9,2) NULL, /*最后付款金额*/" & _
" bVenTax smallint default 0 , /*单价是否含税*/ cVenDepart CHAR(12) NULL, /*分管部门*/" & _
" cVenPPerson CHAR(10) NULL, /*专营业务员*/ dVenDevDate " & gloSys.sDateType & " NULL, /*发展日期*/" & _
" dEndDate " & gloSys.sDateType & " NULL, /*停用日期*/ iFrequency INT NULL /*使用频度*/" & _
")"
'14
sSql(17) = _
"/*(ZW)15.供应商分类*/" & _
"CREATE TABLE tZW_VendorClass" & m_sBeginYear & "(" & _
" cVCCode CHAR(12) NOT NULL PRIMARY KEY, /*类别编码*/" & _
" cVCName CHAR(20) NULL, /*类别名称*/" & _
" iVCGrade INT NULL, /*编码级次*/" & _
" bVCEnd smallint default 0 /*末级标志*/" & _
")"
'15
sSql(18) = _
"/*(ZW)16.供应商档案显示设置*/" & _
"CREATE TABLE tZW_VendorShowSet" & m_sBeginYear & "(" & _
" ID INT NULL, /*识别号*/" & _
" Field CHAR(15) NOT NULL, /*字段名*/" & _
" Detials CHAR(20) NOT NULL, /*中文描述*/" & _
" Show smallint default 0 /*显示状态*/" & _
")"
'16
sSql(19) = _
"/*(ZW)17.银行对账单*/" & _
"CREATE TABLE tZW_Yhdzd" & m_sBeginYear & "(" & _
" 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 /*摘要*/" & _
")"
'17
sSql(20) = _
"/*(ZW)18.银行对账启用日期*/" & _
"CREATE TABLE tZW_Yhdzqyrq(" & _
" kmdm varchar(40) NOT NULL primary key, /*银行科目*/" & _
" qyrq " & gloSys.sDateType & " NOT NULL, /*启用日期*/" & _
" jzrq " & gloSys.sDateType & " NULL /*对账截止日期*/" & _
")"
'18
sSql(21) = _
"/*(ZW)19.摘要维护表*/" & _
"CREATE TABLE tZW_Zywh(" & _
" DmID varchar(10) NOT NULL PRIMARY KEY, /*摘要代码*/" & _
" Name varchar(200) NULL, /*摘要名称*/" & _
" kmdm varchar(40) NULL" & _
")"
'19
sSql(22) = _
"/*(ZW)25.凭证模板主表*/" & _
"CREATE TABLE tZW_TempletMain" & m_sBeginYear & "(" & _
" cCode char(3) NOT NULL primary key, /*模板编码*/" & _
" vcComment varchar(50) NULL, /*模板说明*/" & _
" cPzzl varchar(4) NOT NULL, /*凭证种类*/" & _
" tiFjzs smallint default 0 /*附件张数*/" & _
")"
'20
sSql(23) = _
"/*(ZW)26.凭证模板附表（详细）*/" & _
"CREATE TABLE tZW_TempletDetail" & m_sBeginYear & "(" & _
" cCode char(3) NOT NULL, /*模板编码,与主表关联*/ Jlhm smallint NOT NULL, /*分录序号*/" & _
" 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 ," & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -