jc_dbc_rebuild.prg

爱师软件工作室的教材管理系统源码

* *********************************************************
* *
* * 2006.08.24                JC.DBC                22:30:06
* *
* *********************************************************
* *
* * 说明:
* * 此程序是 GENDBC 自动生成的
* * Version 2.26.67
* *
* *********************************************************


DisplayStatus([正在创建数据库...])
CLOSE DATA ALL
CREATE DATABASE 'JC.DBC'
DisplayStatus([正在创建表 JS...])
MakeTable_JS()
DisplayStatus([正在创建表 CS...])
MakeTable_CS()
DisplayStatus([正在创建表 FS...])
MakeTable_FS()
DisplayStatus([正在创建表 GHDW...])
MakeTable_GHDW()
DisplayStatus([正在创建表 TS...])
MakeTable_TS()
DisplayStatus([正在创建表 BJFSMX...])
MakeTable_BJFSMX()
DisplayStatus([正在创建表 TMPTSCG...])
MakeTable_TMPTSCG()
DisplayStatus([正在创建表 BJYSGL...])
MakeTable_BJYSGL()
DisplayStatus([正在创建视图 VIEW_BJ_FOR_FS...])
MakeView_VIEW_BJ_FOR_FS()
DisplayStatus([正在创建视图 VIEW_BJ_FOR_FS_FSCS...])
MakeView_VIEW_BJ_FOR_FS_FSCS()
DisplayStatus([正在创建视图 V_CS...])
MakeView_V_CS()
DisplayStatus([正在创建视图 V_FS...])
MakeView_V_FS()
DisplayStatus([正在创建视图 V_CS_FOR_FSLR...])
MakeView_V_CS_FOR_FSLR()
DisplayStatus([正在创建视图 V_CS_DYL...])
MakeView_V_CS_DYL()
DisplayStatus([正在创建视图 V_CS_BBFROMV_CS...])
MakeView_V_CS_BBFROMV_CS()
DisplayStatus([正在创建视图 V_FS_BBFROMV_FS...])
MakeView_V_FS_BBFROMV_FS()
DisplayStatus([正在创建视图 V_JSFORBB...])
MakeView_V_JSFORBB()
DisplayStatus([正在创建视图 V_FOR_TSLR_BJ...])
MakeView_V_FOR_TSLR_BJ()
DisplayStatus([正在创建视图 V_TS...])
MakeView_V_TS()
DisplayStatus([正在创建视图 V_BJYSGLFORBB...])
MakeView_V_BJYSGLFORBB()
DisplayStatus([正在创建视图 V_FORTSBB_FROM_V_TS...])
MakeView_V_FORTSBB_FROM_V_TS()
DisplayStatus([正在创建永久关系...])
MakeRelation_1()
MakeRelation_2()
MakeRelation_3()
MakeRelation_4()
DisplayStatus([正在创建关系完整性规则...])
MakeRI()
DisplayStatus([已完成。])


********* 重新创建过程 *********
IF !FILE([JC_DBC_REBUILD.krt])
    ? [警告！找不到过程文件！]
ELSE
	CLOSE DATABASE
	USE 'JC.DBC'
	g_SetSafety = SET('SAFETY')
	SET SAFETY OFF
	LOCATE FOR Objectname = 'StoredProceduresSource'
	IF FOUND()
        APPEND MEMO Code FROM [JC_DBC_REBUILD.krt] OVERWRITE
	    REPLACE Code WITH SUBSTR(Code, 53, 12860)
	ENDIF
	LOCATE FOR Objectname = 'StoredProceduresObject'
	IF FOUND()
        APPEND MEMO Code FROM [JC_DBC_REBUILD.krt] OVERWRITE
        REPLACE Code WITH SUBSTR(Code, 12913)
	ENDIF
    SET SAFETY &g_SetSafety
	USE
	OPEN DATABASE [JC.DBC]
ENDIF

FUNCTION MakeTable_JS
***** 建立表为JS *****
CREATE TABLE 'JS.DBF' NAME 'JS' (JS_JSBS I NOT NULL, ;
                 JS_ISBN C(30) NOT NULL, ;
                 JS_SM C(60) NOT NULL, ;
                 JS_ZZ C(20) NOT NULL, ;
                 JS_CBS C(50) NOT NULL, ;
                 JS_CBRQ D NOT NULL, ;
                 JS_YSDSDW C(100) NOT NULL, ;
                 JS_YSDSCS I NOT NULL, ;
                 JS_YSDSRQ D NOT NULL, ;
                 JS_ZZDSCS I NOT NULL, ;
                 JS_SDDJ N(6, 2) NOT NULL, ;
                 JS_SDJJ N(6, 2) NOT NULL, ;
                 JS_JSRQ D NOT NULL, ;
                 JS_YFZSK N(8, 2) NOT NULL, ;
                 JS_YQK N(8, 2) NOT NULL, ;
                 JS_WQK N(8, 2) NOT NULL, ;
                 JS_ZKJSR C(20) NOT NULL, ;
                 JS_FPH C(30) NOT NULL, ;
                 JS_JSJSR C(20) NOT NULL, ;
                 JS_YSFSDW C(100) NOT NULL, ;
                 JS_FSDWFSR C(20) NOT NULL, ;
                 JS_FSDWFSRQ D NOT NULL, ;
                 JS_BZ C(10) NOT NULL, ;
                 JS_DEL L NOT NULL DEFAULT .F.)

***** 创建每一索引为 JS *****
SET COLLATE TO 'MACHINE'
ALTER TABLE 'JS' ADD PRIMARY KEY JS_JSBS TAG JS_JSBS
SET COLLATE TO 'PINYIN'
INDEX ON JS_CBS TAG JS_CBS
INDEX ON JS_ISBN TAG JS_ISBN

***** 改变属性为 JS *****
DBSETPROP('JS.JS_JSBS', 'Field', 'Caption', "进书标识")
DBSETPROP('JS.JS_ISBN', 'Field', 'Caption', "书号")
DBSETPROP('JS.JS_SM', 'Field', 'Caption', "书名")
DBSETPROP('JS.JS_ZZ', 'Field', 'Caption', "作者")
DBSETPROP('JS.JS_CBS', 'Field', 'Caption', "出版社")
DBSETPROP('JS.JS_CBRQ', 'Field', 'Caption', "出版日期")
DBSETPROP('JS.JS_YSDSDW', 'Field', 'Caption', "原始订书单位")
DBSETPROP('JS.JS_YSDSCS', 'Field', 'Caption', "原始订书册数")
DBSETPROP('JS.JS_YSDSRQ', 'Field', 'Caption', "原始订书日期")
DBSETPROP('JS.JS_ZZDSCS', 'Field', 'Caption', "最终订书册数")
DBSETPROP('JS.JS_SDDJ', 'Field', 'Caption', "书的订价")
DBSETPROP('JS.JS_SDJJ', 'Field', 'Caption', "书的进价")
DBSETPROP('JS.JS_JSRQ', 'Field', 'Caption', "进书日期")
DBSETPROP('JS.JS_YFZSK', 'Field', 'Caption', "应付总书款")
DBSETPROP('JS.JS_YQK', 'Field', 'Caption', "已清款")
DBSETPROP('JS.JS_WQK', 'Field', 'Caption', "未清款")
DBSETPROP('JS.JS_ZKJSR', 'Field', 'Caption', "账款经手人")
DBSETPROP('JS.JS_FPH', 'Field', 'Caption', "发票号")
DBSETPROP('JS.JS_JSJSR', 'Field', 'Caption', "接书经手人")
DBSETPROP('JS.JS_YSFSDW', 'Field', 'Caption', "原始发书单位")
DBSETPROP('JS.JS_FSDWFSR', 'Field', 'Caption', "发书单位发书人")
DBSETPROP('JS.JS_FSDWFSRQ', 'Field', 'Caption', "发书单位发书日期")
DBSETPROP('JS.JS_BZ', 'Field', 'Caption', "备注")
DBSETPROP('JS.JS_DEL', 'Field', 'Comment', "人工删除标识")
CREATE TRIGGER ON 'JS' FOR UPDATE AS __ri_update_js()
ENDFUNC

FUNCTION MakeTable_CS
***** 建立表为CS *****
CREATE TABLE 'CS.DBF' NAME 'CS' (CS_CSBS I NOT NULL, ;
                 CS_JSBS I NOT NULL, ;
                 CS_CSJ1 C(10) NOT NULL, ;
                 CS_CSJ2 C(10) NOT NULL, ;
                 CS_CSJ3 C(10) NOT NULL, ;
                 CS_YSDSDW C(100) NOT NULL, ;
                 CS_YSDSRQ D NOT NULL, ;
                 CS_YYCS I NOT NULL, ;
                 CS_SYCS I NOT NULL, ;
                 CS_PDR C(20) NOT NULL, ;
                 CS_PDRQ D NOT NULL, ;
                 CS_PDSM C(100) NOT NULL, ;
                 CS_BZ C(10) NOT NULL, ;
                 CS_DEL L NOT NULL DEFAULT .F.)

***** 创建每一索引为 CS *****
SET COLLATE TO 'MACHINE'
ALTER TABLE 'CS' ADD PRIMARY KEY CS_CSBS TAG CS_CSBS
SET COLLATE TO 'PINYIN'
INDEX ON CS_JSBS TAG CS_JSBS

***** 改变属性为 CS *****
DBSETPROP('CS.CS_CSBS', 'Field', 'Caption', "存书标识")
DBSETPROP('CS.CS_JSBS', 'Field', 'Caption', "进书标识")
DBSETPROP('CS.CS_CSJ1', 'Field', 'Caption', "存书架1")
DBSETPROP('CS.CS_CSJ2', 'Field', 'Caption', "存书架2")
DBSETPROP('CS.CS_CSJ3', 'Field', 'Caption', "存书架3")
DBSETPROP('CS.CS_YSDSDW', 'Field', 'Caption', "原始订书单位")
DBSETPROP('CS.CS_YSDSRQ', 'Field', 'Caption', "原始订书日期")
DBSETPROP('CS.CS_YYCS', 'Field', 'Caption', "应有册数")
DBSETPROP('CS.CS_SYCS', 'Field', 'Caption', "实有册数")
DBSETPROP('CS.CS_PDR', 'Field', 'Caption', "盘点人")
DBSETPROP('CS.CS_PDRQ', 'Field', 'Caption', "盘点日期")
DBSETPROP('CS.CS_PDSM', 'Field', 'Caption', "盘点说明")
DBSETPROP('CS.CS_BZ', 'Field', 'Caption', "备注")
CREATE TRIGGER ON 'CS' FOR UPDATE AS __ri_update_cs()
ENDFUNC

FUNCTION MakeTable_FS
***** 建立表为FS *****
CREATE TABLE 'FS.DBF' NAME 'FS' (FS_FSBS I NOT NULL, ;
                 FS_CSBS I NOT NULL, ;
                 FS_FSJSR C(20) NOT NULL, ;
                 FS_SKJSR C(20) NOT NULL, ;
                 FS_FSCS I NOT NULL, ;
                 FS_FSDJ N(6, 2) NOT NULL, ;
                 FS_FSQX C(50) NOT NULL, ;
                 FS_FSRQ D NOT NULL, ;
                 FS_FSXQ C(2) NOT NULL, ;
                 FS_LSRQM C(20) NOT NULL, ;
                 FS_YFZSK N(10, 2) NOT NULL, ;
                 FS_YFSK N(10, 2) NOT NULL, ;
                 FS_WQSK N(10, 2) NOT NULL, ;
                 FS_XGPJH C(20) NOT NULL, ;
                 FS_QKSM C(100) NOT NULL, ;
                 FS_ZHQKRQ D NOT NULL, ;
                 FS_ZHQKJSR C(20) NOT NULL, ;
                 FS_BZ C(10) NOT NULL, ;
                 FS_DEL L NOT NULL DEFAULT .F.)

***** 创建每一索引为 FS *****
SET COLLATE TO 'PINYIN'
ALTER TABLE 'FS' ADD PRIMARY KEY FS_FSBS TAG FS_FSBS
INDEX ON FS_CSBS TAG FS_CSBS
INDEX ON FS_FSXQ TAG FS_FSXQ

***** 改变属性为 FS *****
DBSETPROP('FS.FS_FSBS', 'Field', 'Caption', "发书标识")
DBSETPROP('FS.FS_CSBS', 'Field', 'Caption', "存书标识")
DBSETPROP('FS.FS_FSJSR', 'Field', 'Caption', "发书经手人")
DBSETPROP('FS.FS_SKJSR', 'Field', 'Caption', "书款经手人")
DBSETPROP('FS.FS_FSCS', 'Field', 'Caption', "发书册数")
DBSETPROP('FS.FS_FSDJ', 'Field', 'Caption', "发书单价")
DBSETPROP('FS.FS_FSQX', 'Field', 'Caption', "发书去向")
DBSETPROP('FS.FS_FSRQ', 'Field', 'Caption', "发书日期")
DBSETPROP('FS.FS_FSXQ', 'Field', 'Caption', "第几学期")
DBSETPROP('FS.FS_FSXQ', 'Field', 'Comment', "12345678910")
DBSETPROP('FS.FS_FSXQ', 'Field', 'InputMask', "99")
DBSETPROP('FS.FS_FSXQ', 'Field', 'Format', "9")
DBSETPROP('FS.FS_LSRQM', 'Field', 'Caption', "领书人签名")
DBSETPROP('FS.FS_YFZSK', 'Field', 'Caption', "应付总书款")
DBSETPROP('FS.FS_YFSK', 'Field', 'Caption', "已付书款")
DBSETPROP('FS.FS_WQSK', 'Field', 'Caption', "未清书款")
DBSETPROP('FS.FS_XGPJH', 'Field', 'Caption', "相关票据号")
DBSETPROP('FS.FS_QKSM', 'Field', 'Caption', "欠款说明")
DBSETPROP('FS.FS_ZHQKRQ', 'Field', 'Caption', "最后清款日期")
DBSETPROP('FS.FS_ZHQKJSR', 'Field', 'Caption', "最后清款经手人")
DBSETPROP('FS.FS_BZ', 'Field', 'Caption', "备注")
CREATE TRIGGER ON 'FS' FOR UPDATE AS __ri_update_fs()
ENDFUNC

FUNCTION MakeTable_GHDW
***** 建立表为GHDW *****
CREATE TABLE 'GHDW.DBF' NAME 'GHDW' (DW_GHDWBS I NOT NULL, ;
                   DW_DWMC C(100) NOT NULL, ;
                   DW_DWDZ C(100) NOT NULL, ;
                   DW_YZBM C(6) NOT NULL, ;
                   DW_YXYHZH1 C(20) NOT NULL, ;
                   DW_YXYHZH2 C(20) NOT NULL, ;
                   DW_YXYHZH3 C(20) NOT NULL, ;