📄 jc_dbc_rebuild.prg
字号:
DW_DCLXRXM C(20) NOT NULL, ;
DW_DCLXRDH1 C(20) NOT NULL, ;
DW_DCLXRDH2 C(20) NOT NULL, ;
DW_DCLXRDH3 C(20) NOT NULL, ;
DW_CXSM C(100) NOT NULL, ;
DW_BZ C(10) NOT NULL)
***** 创建每一索引为 GHDW *****
SET COLLATE TO 'MACHINE'
ALTER TABLE 'GHDW' ADD PRIMARY KEY DW_GHDWBS TAG DW_GHDWBS
***** 改变属性为 GHDW *****
DBSETPROP('GHDW.DW_GHDWBS', 'Field', 'Caption', "供货单位标识")
DBSETPROP('GHDW.DW_DWMC', 'Field', 'Caption', "单位名称")
DBSETPROP('GHDW.DW_DWDZ', 'Field', 'Caption', "单位地址")
DBSETPROP('GHDW.DW_YZBM', 'Field', 'Caption', "邮政编码")
DBSETPROP('GHDW.DW_YZBM', 'Field', 'InputMask', "999999")
DBSETPROP('GHDW.DW_YXYHZH1', 'Field', 'Caption', "有效银行账户1")
DBSETPROP('GHDW.DW_YXYHZH2', 'Field', 'Caption', "有效银行账户2")
DBSETPROP('GHDW.DW_YXYHZH3', 'Field', 'Caption', "有效银行账户3")
DBSETPROP('GHDW.DW_DCLXRXM', 'Field', 'Caption', "当前联系人姓名")
DBSETPROP('GHDW.DW_DCLXRDH1', 'Field', 'Caption', "当前联系人电话1")
DBSETPROP('GHDW.DW_DCLXRDH2', 'Field', 'Caption', "当前联系人电话2")
DBSETPROP('GHDW.DW_DCLXRDH3', 'Field', 'Caption', "当前联系人电话3")
DBSETPROP('GHDW.DW_CXSM', 'Field', 'Caption', "诚信说明")
DBSETPROP('GHDW.DW_BZ', 'Field', 'Caption', "备注")
ENDFUNC
FUNCTION MakeTable_TS
***** 建立表为TS *****
CREATE TABLE 'TS.DBF' NAME 'TS' (TS_TSBS I NOT NULL, ;
TS_FSBS I NOT NULL, ;
TS_CSBS I NOT NULL, ;
TS_TSCS I NOT NULL, ;
TS_TSJG N(10, 2) NOT NULL, ;
TS_TSKZJE N(10, 2) NOT NULL, ;
TS_YQTSK N(10, 2) NOT NULL, ;
TS_WQTSK N(10, 2) NOT NULL, ;
TS_TSQX C(50) NOT NULL DEFAULT "学生退书", ;
TS_TSYY C(100) NOT NULL, ;
TS_TSKJSR C(20) NOT NULL, ;
TS_TSRQ D NOT NULL, ;
TS_BZ C(10) NOT NULL)
***** 创建每一索引为 TS *****
SET COLLATE TO 'MACHINE'
ALTER TABLE 'TS' ADD PRIMARY KEY TS_TSBS TAG TS_TSBS
SET COLLATE TO 'PINYIN'
INDEX ON TS_FSBS TAG TS_FSBS
INDEX ON TS_CSBS TAG TS_CSBS
***** 改变属性为 TS *****
DBSETPROP('TS.TS_TSBS', 'Field', 'Caption', "退书标识")
DBSETPROP('TS.TS_FSBS', 'Field', 'Caption', "发书标识")
DBSETPROP('TS.TS_FSBS', 'Field', 'Comment', "因为发过的书才能退书,用这个标识,若退书成功,方便修改发书库的发书册数")
DBSETPROP('TS.TS_CSBS', 'Field', 'Caption', "存书标识")
DBSETPROP('TS.TS_CSBS', 'Field', 'Comment', "若退书成功,方便修改存书库的存书册数,发书库的发书册数也要修改")
DBSETPROP('TS.TS_TSCS', 'Field', 'Caption', "退书册数")
DBSETPROP('TS.TS_TSJG', 'Field', 'Caption', "退书价格")
DBSETPROP('TS.TS_TSJG', 'Field', 'Comment', "退书价格可能不等于发书价格了")
DBSETPROP('TS.TS_TSKZJE', 'Field', 'Caption', "退书款总金额")
DBSETPROP('TS.TS_TSKZJE', 'Field', 'Comment', "由退书册数与退书价格计算")
DBSETPROP('TS.TS_YQTSK', 'Field', 'Caption', "已清退书款")
DBSETPROP('TS.TS_YQTSK', 'Field', 'Comment', "计算")
DBSETPROP('TS.TS_WQTSK', 'Field', 'Caption', "未清退书款")
DBSETPROP('TS.TS_WQTSK', 'Field', 'Comment', "计算")
DBSETPROP('TS.TS_TSQX', 'Field', 'Caption', "退书去向")
DBSETPROP('TS.TS_TSYY', 'Field', 'Caption', "退书原因")
DBSETPROP('TS.TS_TSKJSR', 'Field', 'Caption', "退书款经手人")
DBSETPROP('TS.TS_TSRQ', 'Field', 'Caption', "退书日期")
DBSETPROP('TS.TS_BZ', 'Field', 'Caption', "备注")
ENDFUNC
FUNCTION MakeTable_BJFSMX
***** 建立表为BJFSMX *****
CREATE TABLE 'BJFSMX.DBF' NAME 'BJFSMX' (MX_XH I NOT NULL, ;
MX_BJ C(20) NOT NULL, ;
MX_XUEH C(16) NOT NULL, ;
MX_XM C(20) NOT NULL, ;
MX_YFSK N(10, 2) NOT NULL DEFAULT 0.0, ;
MX_YIFSK N(10, 2) NOT NULL DEFAULT 0.0, ;
MX_WQSK N(10, 2) NOT NULL DEFAULT 0.0, ;
MX_ZZRQ D NOT NULL, ;
MX_XRBZR C(20) NOT NULL, ;
MX_XRBZ C(20) NOT NULL, ;
MX_BZ C(20) NOT NULL, ;
MX_DEL L NOT NULL DEFAULT .F.)
***** 创建每一索引为 BJFSMX *****
SET COLLATE TO 'MACHINE'
ALTER TABLE 'BJFSMX' ADD PRIMARY KEY MX_XH TAG MX_XH
INDEX ON MX_XUEH TAG MX_XUEH
INDEX ON MX_BJ TAG MX_BJ
SET COLLATE TO 'PINYIN'
INDEX ON ALLTRIM(MX_BJ)+ALLTRIM(MX_XUEH) TAG MX_BJ_XUEH
***** 改变属性为 BJFSMX *****
DBSETPROP('BJFSMX.MX_XH', 'Field', 'Caption', "序号")
DBSETPROP('BJFSMX.MX_BJ', 'Field', 'Caption', "班级")
DBSETPROP('BJFSMX.MX_XUEH', 'Field', 'Caption', "学号")
DBSETPROP('BJFSMX.MX_XM', 'Field', 'Caption', "姓名")
DBSETPROP('BJFSMX.MX_YFSK', 'Field', 'Caption', "应付书款")
DBSETPROP('BJFSMX.MX_YIFSK', 'Field', 'Caption', "已付书款")
DBSETPROP('BJFSMX.MX_WQSK', 'Field', 'Caption', "未清书款")
DBSETPROP('BJFSMX.MX_ZZRQ', 'Field', 'Caption', "截止日期")
DBSETPROP('BJFSMX.MX_XRBZR', 'Field', 'Caption', "现任班主任")
DBSETPROP('BJFSMX.MX_XRBZ', 'Field', 'Caption', "现任班长")
DBSETPROP('BJFSMX.MX_BZ', 'Field', 'Caption', "备注")
ENDFUNC
FUNCTION MakeTable_TMPTSCG
***** 建立表为TMPTSCG *****
CREATE TABLE 'TMPTSCG.DBF' NAME 'TMPTSCG' (USER C(12) NOT NULL, ;
MIMA C(40) NOT NULL, ;
DJ C(10) NOT NULL, ;
DJ2 C(10) NOT NULL, ;
DJ3 C(10) NOT NULL)
***** 创建每一索引为 TMPTSCG *****
***** 改变属性为 TMPTSCG *****
ENDFUNC
FUNCTION MakeTable_BJYSGL
***** 建立表为BJYSGL *****
CREATE TABLE 'BJYSGL.DBF' NAME 'BJYSGL' (教材编号 I NOT NULL, ;
书号 C(30) NOT NULL, ;
书名 C(60) NOT NULL, ;
作者 C(20) NOT NULL, ;
出版社 C(50) NOT NULL, ;
出版日期 D NOT NULL, ;
用书班级 C(30) NOT NULL, ;
班级人数 I NOT NULL, ;
用书年度 C(9) NOT NULL, ;
用书学期 C(1) NOT NULL, ;
订书日期 D NOT NULL, ;
订书册数 I NOT NULL, ;
书价 N(8, 2) NOT NULL, ;
总书款 N(10, 2) NOT NULL, ;
备注 C(20) NOT NULL)
***** 创建每一索引为 BJYSGL *****
SET COLLATE TO 'PINYIN'
INDEX ON 用书学期 TAG 用书学期
INDEX ON 用书年度 TAG 用书年度
INDEX ON 书名 TAG 书名
INDEX ON 书号 TAG 书号
ALTER TABLE 'BJYSGL' ADD PRIMARY KEY 教材编号 TAG 教材编号
INDEX ON 用书班级 TAG 用书班级
***** 改变属性为 BJYSGL *****
DBSETPROP('BJYSGL.用书年度', 'Field', 'Comment', "2006-2007")
DBSETPROP('BJYSGL.用书年度', 'Field', 'InputMask', "9999-9999")
DBSETPROP('BJYSGL.用书学期', 'Field', 'InputMask', "9")
DBSETPROP('BJYSGL.用书学期', 'Field', 'Format', "9")
DBSETPROP('BJYSGL.总书款', 'Field', 'Comment', "订书册数乘书价")
ENDFUNC
FUNCTION MakeView_VIEW_BJ_FOR_FS
***************** 建立视图为VIEW_BJ_FOR_FS ***************
CREATE SQL VIEW "VIEW_BJ_FOR_FS" ;
AS SELECT Cs.cs_csbs, Js.js_sdjj FROM jc!cs INNER JOIN jc!js ON Cs.cs_jsbs = Js.js_jsbs WHERE Cs.cs_del = .f. ORDER BY Cs.cs_csbs
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'UpdateType', 1)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'WhereType', 3)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'FetchMemo', .F.)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'SendUpdates', .F.)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'UseMemoSize', 255)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'FetchSize', 100)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'MaxRecords', -1)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'Tables', 'jc!cs,jc!js')
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'Prepared', .F.)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'CompareMemo', .T.)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'FetchAsNeeded', .F.)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'FetchSize', 100)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'Comment', "* 比较发书单价，不能小于书的进价" + CHR(13) + "")
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'BatchUpdateCount', 1)
DBSetProp('VIEW_BJ_FOR_FS', 'View', 'ShareConnection', .F.)
*!* Field Level Properties for VIEW_BJ_FOR_FS
* Props for the VIEW_BJ_FOR_FS.cs_csbs field.
DBSetProp('VIEW_BJ_FOR_FS.cs_csbs', 'Field', 'KeyField', .T.)
DBSetProp('VIEW_BJ_FOR_FS.cs_csbs', 'Field', 'Updatable', .F.)
DBSetProp('VIEW_BJ_FOR_FS.cs_csbs', 'Field', 'UpdateName', 'jc!cs.cs_csbs')
DBSetProp('VIEW_BJ_FOR_FS.cs_csbs', 'Field', 'DataType', "I")
* Props for the VIEW_BJ_FOR_FS.js_sdjj field.
DBSetProp('VIEW_BJ_FOR_FS.js_sdjj', 'Field', 'KeyField', .F.)
DBSetProp('VIEW_BJ_FOR_FS.js_sdjj', 'Field', 'Updatable', .T.)
DBSetProp('VIEW_BJ_FOR_FS.js_sdjj', 'Field', 'UpdateName', 'jc!js.js_sdjj')
DBSetProp('VIEW_BJ_FOR_FS.js_sdjj', 'Field', 'DataType', "N(6,2)")
ENDFUNC
FUNCTION MakeView_VIEW_BJ_FOR_FS_FSCS
***************** 建立视图为VIEW_BJ_FOR_FS_FSCS ***************
CREATE SQL VIEW "VIEW_BJ_FOR_FS_FSCS" ;
AS SELECT Cs.cs_csbs, Cs.cs_sycs FROM jc!cs WHERE Cs.cs_del = .f. ORDER BY Cs.cs_csbs
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'UpdateType', 1)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'WhereType', 3)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'FetchMemo', .F.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'SendUpdates', .F.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'UseMemoSize', 255)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'FetchSize', 100)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'MaxRecords', -1)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'Tables', 'jc!cs')
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'Prepared', .F.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'CompareMemo', .T.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'FetchAsNeeded', .F.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'FetchSize', 100)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'Comment', "* 比较发书册数，不能小于实有册数" + CHR(13) + "")
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'BatchUpdateCount', 1)
DBSetProp('VIEW_BJ_FOR_FS_FSCS', 'View', 'ShareConnection', .F.)
*!* Field Level Properties for VIEW_BJ_FOR_FS_FSCS
* Props for the VIEW_BJ_FOR_FS_FSCS.cs_csbs field.
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_csbs', 'Field', 'KeyField', .T.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_csbs', 'Field', 'Updatable', .F.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_csbs', 'Field', 'UpdateName', 'jc!cs.cs_csbs')
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_csbs', 'Field', 'DataType', "I")
* Props for the VIEW_BJ_FOR_FS_FSCS.cs_sycs field.
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_sycs', 'Field', 'KeyField', .F.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_sycs', 'Field', 'Updatable', .T.)
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_sycs', 'Field', 'UpdateName', 'jc!cs.cs_sycs')
DBSetProp('VIEW_BJ_FOR_FS_FSCS.cs_sycs', 'Field', 'DataType', "I")
ENDFUNC
FUNCTION MakeView_V_CS
***************** 建立视图为V_CS ***************
CREATE SQL VIEW "V_CS" ;
AS SELECT Cs.cs_csbs, Cs.cs_jsbs, Js.js_isbn, Js.js_sm, Js.js_zz, Js.js_cbs, Cs.cs_csj1, Cs.cs_csj2, Cs.cs_csj3, Js.js_ysdsdw, Js.js_ysdsrq, Js.js_zzdscs, Cs.cs_sycs, Cs.cs_pdr, Cs.cs_pdrq, Cs.cs_pdsm, Cs.cs_bz, Js.js_jsbs, Js.js_sddj, Js.js_sdjj, Cs.cs_sycs*Js.js_sddj AS forsumdjjz, Cs.cs_sycs*Js.js_sdjj AS forsumjjjz, Cs.cs_del FROM jc!js RIGHT OUTER JOIN jc!cs ON Js.js_jsbs = Cs.cs_jsbs ORDER BY Js.js_ysdsdw, Cs.cs_csbs
DBSetProp('V_CS', 'View', 'UpdateType', 1)
DBSetProp('V_CS', 'View', 'WhereType', 3)
DBSetProp('V_CS', 'View', 'FetchMemo', .F.)
DBSetProp('V_CS', 'View', 'SendUpdates', .T.)
DBSetProp('V_CS', 'View', 'UseMemoSize', 255)
DBSetProp('V_CS', 'View', 'FetchSize', 100)
DBSetProp('V_CS', 'View', 'MaxRecords', -1)
DBSetProp('V_CS', 'View', 'Tables', 'jc!cs,jc!js')
DBSetProp('V_CS', 'View', 'Prepared', .F.)
DBSetProp('V_CS', 'View', 'CompareMemo', .T.)
DBSetProp('V_CS', 'View', 'FetchAsNeeded', .F.)
DBSetProp('V_CS', 'View', 'FetchSize', 100)
DBSetProp('V_CS', 'View', 'Comment', "存书视图" + CHR(13) + "")
DBSetProp('V_CS', 'View', 'BatchUpdateCount', 1)
DBSetProp('V_CS', 'View', 'ShareConnection', .F.)
*!* Field Level Properties for V_CS
* Props for the V_CS.cs_csbs field.
DBSetProp('V_CS.cs_csbs', 'Field', 'KeyField', .T.)
DBSetProp('V_CS.cs_csbs', 'Field', 'Updatable', .F.)
DBSetProp('V_CS.cs_csbs', 'Field', 'UpdateName', 'jc!cs.cs_csbs')
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -