jc_dbc_rebuild.prg

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

DBSetProp('V_FS_BBFROMV_FS.js_isbn', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.js_isbn', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.js_isbn', 'Field', 'UpdateName', 'jc!v_fs.js_isbn')
DBSetProp('V_FS_BBFROMV_FS.js_isbn', 'Field', 'DataType', "C(30)")
* Props for the V_FS_BBFROMV_FS.js_zz field.
DBSetProp('V_FS_BBFROMV_FS.js_zz', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.js_zz', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.js_zz', 'Field', 'UpdateName', 'jc!v_fs.js_zz')
DBSetProp('V_FS_BBFROMV_FS.js_zz', 'Field', 'DataType', "C(20)")
* Props for the V_FS_BBFROMV_FS.js_cbs field.
DBSetProp('V_FS_BBFROMV_FS.js_cbs', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.js_cbs', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.js_cbs', 'Field', 'UpdateName', 'jc!v_fs.js_cbs')
DBSetProp('V_FS_BBFROMV_FS.js_cbs', 'Field', 'DataType', "C(50)")
* Props for the V_FS_BBFROMV_FS.fs_fscs field.
DBSetProp('V_FS_BBFROMV_FS.fs_fscs', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fscs', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fscs', 'Field', 'UpdateName', 'jc!v_fs.fs_fscs')
DBSetProp('V_FS_BBFROMV_FS.fs_fscs', 'Field', 'DataType', "I")
* Props for the V_FS_BBFROMV_FS.fs_fsdj field.
DBSetProp('V_FS_BBFROMV_FS.fs_fsdj', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fsdj', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fsdj', 'Field', 'UpdateName', 'jc!v_fs.fs_fsdj')
DBSetProp('V_FS_BBFROMV_FS.fs_fsdj', 'Field', 'DataType', "N(6,2)")
* Props for the V_FS_BBFROMV_FS.fs_fsxq field.
DBSetProp('V_FS_BBFROMV_FS.fs_fsxq', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fsxq', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fsxq', 'Field', 'UpdateName', 'jc!v_fs.fs_fsxq')
DBSetProp('V_FS_BBFROMV_FS.fs_fsxq', 'Field', 'DataType', "C(2)")
* Props for the V_FS_BBFROMV_FS.fs_fsrq field.
DBSetProp('V_FS_BBFROMV_FS.fs_fsrq', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fsrq', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_fsrq', 'Field', 'UpdateName', 'jc!v_fs.fs_fsrq')
DBSetProp('V_FS_BBFROMV_FS.fs_fsrq', 'Field', 'DataType', "D")
* Props for the V_FS_BBFROMV_FS.fs_lsrqm field.
DBSetProp('V_FS_BBFROMV_FS.fs_lsrqm', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_lsrqm', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_lsrqm', 'Field', 'UpdateName', 'jc!v_fs.fs_lsrqm')
DBSetProp('V_FS_BBFROMV_FS.fs_lsrqm', 'Field', 'DataType', "C(20)")
* Props for the V_FS_BBFROMV_FS.fs_yfzsk field.
DBSetProp('V_FS_BBFROMV_FS.fs_yfzsk', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_yfzsk', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_yfzsk', 'Field', 'UpdateName', 'jc!v_fs.fs_yfzsk')
DBSetProp('V_FS_BBFROMV_FS.fs_yfzsk', 'Field', 'DataType', "N(10,2)")
* Props for the V_FS_BBFROMV_FS.fs_yfsk field.
DBSetProp('V_FS_BBFROMV_FS.fs_yfsk', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_yfsk', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_yfsk', 'Field', 'UpdateName', 'jc!v_fs.fs_yfsk')
DBSetProp('V_FS_BBFROMV_FS.fs_yfsk', 'Field', 'DataType', "N(10,2)")
* Props for the V_FS_BBFROMV_FS.fs_wqsk field.
DBSetProp('V_FS_BBFROMV_FS.fs_wqsk', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_wqsk', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_wqsk', 'Field', 'UpdateName', 'jc!v_fs.fs_wqsk')
DBSetProp('V_FS_BBFROMV_FS.fs_wqsk', 'Field', 'DataType', "N(10,2)")
* Props for the V_FS_BBFROMV_FS.fs_bz field.
DBSetProp('V_FS_BBFROMV_FS.fs_bz', 'Field', 'KeyField', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_bz', 'Field', 'Updatable', .F.)
DBSetProp('V_FS_BBFROMV_FS.fs_bz', 'Field', 'UpdateName', 'jc!v_fs.fs_bz')
DBSetProp('V_FS_BBFROMV_FS.fs_bz', 'Field', 'DataType', "C(10)")
ENDFUNC
 
FUNCTION MakeView_V_JSFORBB
***************** 建立视图为V_JSFORBB ***************

CREATE SQL VIEW "V_JSFORBB" ; 
   AS SELECT Js.js_ysdsdw, Js.js_sm, Js.js_isbn, Js.js_zz, Js.js_cbs, Js.js_ysdsrq,  Js.js_zzdscs, Js.js_sdjj, Js.js_jsrq, Js.js_yfzsk, Js.js_yqk, Js.js_wqk,  Js.js_ysfsdw, Js.js_bz FROM jc!js ORDER BY Js.js_ysdsdw, Js.js_ysdsrq, Js.js_sm, Js.js_isbn

DBSetProp('V_JSFORBB', 'View', 'UpdateType', 1)
DBSetProp('V_JSFORBB', 'View', 'WhereType', 3)
DBSetProp('V_JSFORBB', 'View', 'FetchMemo', .F.)
DBSetProp('V_JSFORBB', 'View', 'SendUpdates', .F.)
DBSetProp('V_JSFORBB', 'View', 'UseMemoSize', 255)
DBSetProp('V_JSFORBB', 'View', 'FetchSize', 100)
DBSetProp('V_JSFORBB', 'View', 'MaxRecords', -1)
DBSetProp('V_JSFORBB', 'View', 'Tables', 'jc!js')
DBSetProp('V_JSFORBB', 'View', 'Prepared', .F.)
DBSetProp('V_JSFORBB', 'View', 'CompareMemo', .T.)
DBSetProp('V_JSFORBB', 'View', 'FetchAsNeeded', .F.)
DBSetProp('V_JSFORBB', 'View', 'FetchSize', 100)
DBSetProp('V_JSFORBB', 'View', 'Comment', "")
DBSetProp('V_JSFORBB', 'View', 'BatchUpdateCount', 1)
DBSetProp('V_JSFORBB', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for V_JSFORBB
* Props for the V_JSFORBB.js_ysdsdw field.
DBSetProp('V_JSFORBB.js_ysdsdw', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_ysdsdw', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_ysdsdw', 'Field', 'UpdateName', 'jc!js.js_ysdsdw')
DBSetProp('V_JSFORBB.js_ysdsdw', 'Field', 'DataType', "C(100)")
* Props for the V_JSFORBB.js_sm field.
DBSetProp('V_JSFORBB.js_sm', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_sm', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_sm', 'Field', 'UpdateName', 'jc!js.js_sm')
DBSetProp('V_JSFORBB.js_sm', 'Field', 'DataType', "C(60)")
* Props for the V_JSFORBB.js_isbn field.
DBSetProp('V_JSFORBB.js_isbn', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_isbn', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_isbn', 'Field', 'UpdateName', 'jc!js.js_isbn')
DBSetProp('V_JSFORBB.js_isbn', 'Field', 'DataType', "C(30)")
* Props for the V_JSFORBB.js_zz field.
DBSetProp('V_JSFORBB.js_zz', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_zz', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_zz', 'Field', 'UpdateName', 'jc!js.js_zz')
DBSetProp('V_JSFORBB.js_zz', 'Field', 'DataType', "C(20)")
* Props for the V_JSFORBB.js_cbs field.
DBSetProp('V_JSFORBB.js_cbs', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_cbs', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_cbs', 'Field', 'UpdateName', 'jc!js.js_cbs')
DBSetProp('V_JSFORBB.js_cbs', 'Field', 'DataType', "C(50)")
* Props for the V_JSFORBB.js_ysdsrq field.
DBSetProp('V_JSFORBB.js_ysdsrq', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_ysdsrq', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_ysdsrq', 'Field', 'UpdateName', 'jc!js.js_ysdsrq')
DBSetProp('V_JSFORBB.js_ysdsrq', 'Field', 'DataType', "D")
* Props for the V_JSFORBB.js_zzdscs field.
DBSetProp('V_JSFORBB.js_zzdscs', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_zzdscs', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_zzdscs', 'Field', 'UpdateName', 'jc!js.js_zzdscs')
DBSetProp('V_JSFORBB.js_zzdscs', 'Field', 'DataType', "I")
* Props for the V_JSFORBB.js_sdjj field.
DBSetProp('V_JSFORBB.js_sdjj', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_sdjj', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_sdjj', 'Field', 'UpdateName', 'jc!js.js_sdjj')
DBSetProp('V_JSFORBB.js_sdjj', 'Field', 'DataType', "N(6,2)")
* Props for the V_JSFORBB.js_jsrq field.
DBSetProp('V_JSFORBB.js_jsrq', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_jsrq', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_jsrq', 'Field', 'UpdateName', 'jc!js.js_jsrq')
DBSetProp('V_JSFORBB.js_jsrq', 'Field', 'DataType', "D")
* Props for the V_JSFORBB.js_yfzsk field.
DBSetProp('V_JSFORBB.js_yfzsk', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_yfzsk', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_yfzsk', 'Field', 'UpdateName', 'jc!js.js_yfzsk')
DBSetProp('V_JSFORBB.js_yfzsk', 'Field', 'DataType', "N(8,2)")
* Props for the V_JSFORBB.js_yqk field.
DBSetProp('V_JSFORBB.js_yqk', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_yqk', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_yqk', 'Field', 'UpdateName', 'jc!js.js_yqk')
DBSetProp('V_JSFORBB.js_yqk', 'Field', 'DataType', "N(8,2)")
* Props for the V_JSFORBB.js_wqk field.
DBSetProp('V_JSFORBB.js_wqk', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_wqk', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_wqk', 'Field', 'UpdateName', 'jc!js.js_wqk')
DBSetProp('V_JSFORBB.js_wqk', 'Field', 'DataType', "N(8,2)")
* Props for the V_JSFORBB.js_ysfsdw field.
DBSetProp('V_JSFORBB.js_ysfsdw', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_ysfsdw', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_ysfsdw', 'Field', 'UpdateName', 'jc!js.js_ysfsdw')
DBSetProp('V_JSFORBB.js_ysfsdw', 'Field', 'DataType', "C(100)")
* Props for the V_JSFORBB.js_bz field.
DBSetProp('V_JSFORBB.js_bz', 'Field', 'KeyField', .F.)
DBSetProp('V_JSFORBB.js_bz', 'Field', 'Updatable', .F.)
DBSetProp('V_JSFORBB.js_bz', 'Field', 'UpdateName', 'jc!js.js_bz')
DBSetProp('V_JSFORBB.js_bz', 'Field', 'DataType', "C(10)")
ENDFUNC
 
FUNCTION MakeView_V_FOR_TSLR_BJ
***************** 建立视图为V_FOR_TSLR_BJ ***************

CREATE SQL VIEW "V_FOR_TSLR_BJ" ; 
   AS SELECT Fs.fs_fsbs, Fs.fs_fscs, Fs.fs_fsdj FROM jc!fs ORDER BY Fs.fs_fsbs

DBSetProp('V_FOR_TSLR_BJ', 'View', 'UpdateType', 1)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'WhereType', 3)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'FetchMemo', .F.)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'SendUpdates', .T.)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'UseMemoSize', 255)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'FetchSize', 100)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'MaxRecords', -1)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'Tables', 'jc!fs')
DBSetProp('V_FOR_TSLR_BJ', 'View', 'Prepared', .F.)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'CompareMemo', .T.)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'FetchAsNeeded', .F.)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'FetchSize', 100)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'Comment', "* 为退书录入比较发书册数,发书单价,退书不能多于发书" + CHR(13) + "")
DBSetProp('V_FOR_TSLR_BJ', 'View', 'BatchUpdateCount', 1)
DBSetProp('V_FOR_TSLR_BJ', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for V_FOR_TSLR_BJ
* Props for the V_FOR_TSLR_BJ.fs_fsbs field.
DBSetProp('V_FOR_TSLR_BJ.fs_fsbs', 'Field', 'KeyField', .T.)
DBSetProp('V_FOR_TSLR_BJ.fs_fsbs', 'Field', 'Updatable', .F.)
DBSetProp('V_FOR_TSLR_BJ.fs_fsbs', 'Field', 'UpdateName', 'jc!fs.fs_fsbs')
DBSetProp('V_FOR_TSLR_BJ.fs_fsbs', 'Field', 'DataType', "I")
* Props for the V_FOR_TSLR_BJ.fs_fscs field.
DBSetProp('V_FOR_TSLR_BJ.fs_fscs', 'Field', 'KeyField', .F.)
DBSetProp('V_FOR_TSLR_BJ.fs_fscs', 'Field', 'Updatable', .T.)
DBSetProp('V_FOR_TSLR_BJ.fs_fscs', 'Field', 'UpdateName', 'jc!fs.fs_fscs')
DBSetProp('V_FOR_TSLR_BJ.fs_fscs', 'Field', 'DataType', "I")
* Props for the V_FOR_TSLR_BJ.fs_fsdj field.
DBSetProp('V_FOR_TSLR_BJ.fs_fsdj', 'Field', 'KeyField', .F.)
DBSetProp('V_FOR_TSLR_BJ.fs_fsdj', 'Field', 'Updatable', .T.)
DBSetProp('V_FOR_TSLR_BJ.fs_fsdj', 'Field', 'UpdateName', 'jc!fs.fs_fsdj')
DBSetProp('V_FOR_TSLR_BJ.fs_fsdj', 'Field', 'DataType', "N(6,2)")
ENDFUNC
 
FUNCTION MakeView_V_TS
***************** 建立视图为V_TS ***************

CREATE SQL VIEW "V_TS" ; 
   AS SELECT Ts.ts_tsbs, Ts.ts_fsbs, Ts.ts_csbs, V_fs.js_isbn, V_fs.js_sm,  V_fs.js_zz, V_fs.js_cbs, Ts.ts_tscs, Ts.ts_tsjg, Ts.ts_tskzje, Ts.ts_yqtsk,  Ts.ts_wqtsk, Ts.ts_tsqx, Ts.ts_tsyy, Ts.ts_tskjsr, Ts.ts_tsrq, Ts.ts_bz FROM  jc!ts LEFT OUTER JOIN jc!v_fs    ON  Ts.ts_fsbs = V_fs.fs_fsbs ORDER BY Ts.ts_tsbs

DBSetProp('V_TS', 'View', 'UpdateType', 1)
DBSetProp('V_TS', 'View', 'WhereType', 3)
DBSetProp('V_TS', 'View', 'FetchMemo', .F.)
DBSetProp('V_TS', 'View', 'SendUpdates', .T.)
DBSetProp('V_TS', 'View', 'UseMemoSize', 255)
DBSetProp('V_TS', 'View', 'FetchSize', 100)
DBSetProp('V_TS', 'View', 'MaxRecords', -1)
DBSetProp('V_TS', 'View', 'Tables', 'jc!ts,jc!v_fs')
DBSetProp('V_TS', 'View', 'Prepared', .F.)
DBSetProp('V_TS', 'View', 'CompareMemo', .T.)
DBSetProp('V_TS', 'View', 'FetchAsNeeded', .F.)
DBSetProp('V_TS', 'View', 'FetchSize', 100)
DBSetProp('V_TS', 'View', 'Comment', "")
DBSetProp('V_TS', 'View', 'BatchUpdateCount', 1)
DBSetProp('V_TS', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for V_TS
* Props for the V_TS.ts_tsbs field.
DBSetProp('V_TS.ts_tsbs', 'Field', 'KeyField', .T.)
DBSetProp('V_TS.ts_tsbs', 'Field', 'Updatable', .F.)
DBSetProp('V_TS.ts_tsbs', 'Field', 'UpdateName', 'jc!ts.ts_tsbs')
DBSetProp('V_TS.ts_tsbs', 'Field', 'DataType', "I")
* Props for the V_TS.ts_fsbs field.
DBSetProp('V_TS.ts_fsbs', 'Field', 'KeyField', .F.)
DBSetProp('V_TS.ts_fsbs', 'Field', 'Updatable', .T.)
DBSetProp('V_TS.ts_fsbs', 'Field', 'UpdateName', 'jc!ts.ts_fsbs')
DBSetProp('V_TS.ts_fsbs', 'Field', 'DataType', "I")
* Props for the V_TS.ts_csbs field.
DBSetProp('V_TS.ts_csbs', 'Field', 'KeyField', .F.)
DBSetProp('V_TS.ts_csbs', 'Field', 'Updatable', .T.)
DBSetProp('V_TS.ts_csbs', 'Field', 'UpdateName', 'jc!ts.ts_csbs')
DBSetProp('V_TS.ts_csbs', 'Field', 'DataType', "I")
* Props for the V_TS.js_isbn field.
DBSetProp('V_TS.js_isbn', 'Field', 'KeyField', .F.)
DBSetProp('V_TS.js_isbn', 'Field', 'Updatable', .F.)
DBSetProp('V_TS.js_isbn', 'Field', 'UpdateName', 'jc!v_fs.js_isbn')
DBSetProp('V_TS.js_isbn', 'Field', 'DataType', "C(30)")
* Props for the V_TS.js_sm field.
DBSetProp('V_TS.js_sm', 'Field', 'KeyField', .F.)
DBSetProp('V_TS.js_sm', 'Field', 'Updatable', .F.)
DBSetProp('V_TS.js_sm', 'Field', 'UpdateName', 'jc!v_fs.js_sm')
DBSetProp('V_TS.js_sm', 'Field', 'DataType', "C(60)")
* Props for the V_TS.js_zz field.
DBSetProp('V_TS.js_zz', 'Field', 'KeyField', .F.)
DBSetProp('V_TS.js_zz', 'Field', 'Updatable', .F.)
DBSetProp('V_TS.js_zz', 'Field', 'UpdateName', 'jc!v_fs.js_zz')
DBSetProp('V_TS.js_zz', 'Field', 'DataType', "C(20)")
* Props for the V_TS.js_cbs field.
DBSetProp('V_TS.js_cbs', 'Field', 'KeyField', .F.)
DBSetProp('V_TS.js_cbs', 'Field', 'Updatable', .F.)
DBSetProp('V_TS.js_cbs', 'Fie