gendatabase.prg

来自「山泉的早期工资管理VB程序.可以一看,不错的」· PRG 代码 · 共 1,351 行 · 第 1/5 页

DBSetProp('科室', 'View', 'FetchSize', 100)
DBSetProp('科室', 'View', 'MaxRecords', -1)
DBSetProp('科室', 'View', 'Tables', '')
DBSetProp('科室', 'View', 'Prepared', .F.)
DBSetProp('科室', 'View', 'CompareMemo', .T.)
DBSetProp('科室', 'View', 'FetchAsNeeded', .F.)
DBSetProp('科室', 'View', 'FetchSize', 100)
DBSetProp('科室', 'View', 'Comment', "")
DBSetProp('科室', 'View', 'BatchUpdateCount', 1)
DBSetProp('科室', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for 科室
* Props for the 科室.名称 field.
DBSetProp('科室.名称', 'Field', 'KeyField', .F.)
DBSetProp('科室.名称', 'Field', 'Updatable', .F.)
DBSetProp('科室.名称', 'Field', 'UpdateName', 'maejsb!代码.名称')
DBSetProp('科室.名称', 'Field', 'DataType', "C(50)")
ENDFUNC
 
FUNCTION MakeView_入库1
***************** View setup for 入库1 ***************

CREATE SQL VIEW "入库1" ; 
   AS SELECT *, 入库单1.数量*入库单1.单价 AS 金额,  入库单1.数量*入库单1.单价+入库单1.综合费 AS 合计金额 FROM maejsb!入库单1 WHERE 入库单1.父表主键 = ?c父表主键

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

*!* Field Level Properties for 入库1
* Props for the 入库1.主键 field.
DBSetProp('入库1.主键', 'Field', 'KeyField', .T.)
DBSetProp('入库1.主键', 'Field', 'Updatable', .T.)
DBSetProp('入库1.主键', 'Field', 'UpdateName', 'maejsb!入库单1.主键')
DBSetProp('入库1.主键', 'Field', 'DataType', "C(8)")
DBSetProp('入库1.主键', 'Field', 'DefaultValue', "GetNewUid()")
* Props for the 入库1.父表主键 field.
DBSetProp('入库1.父表主键', 'Field', 'KeyField', .F.)
DBSetProp('入库1.父表主键', 'Field', 'Updatable', .T.)
DBSetProp('入库1.父表主键', 'Field', 'UpdateName', 'maejsb!入库单1.父表主键')
DBSetProp('入库1.父表主键', 'Field', 'DataType', "C(8)")
* Props for the 入库1.产品名称 field.
DBSetProp('入库1.产品名称', 'Field', 'KeyField', .F.)
DBSetProp('入库1.产品名称', 'Field', 'Updatable', .T.)
DBSetProp('入库1.产品名称', 'Field', 'UpdateName', 'maejsb!入库单1.产品名称')
DBSetProp('入库1.产品名称', 'Field', 'DataType', "C(50)")
* Props for the 入库1.型号规格 field.
DBSetProp('入库1.型号规格', 'Field', 'KeyField', .F.)
DBSetProp('入库1.型号规格', 'Field', 'Updatable', .T.)
DBSetProp('入库1.型号规格', 'Field', 'UpdateName', 'maejsb!入库单1.型号规格')
DBSetProp('入库1.型号规格', 'Field', 'DataType', "C(50)")
* Props for the 入库1.数量 field.
DBSetProp('入库1.数量', 'Field', 'KeyField', .F.)
DBSetProp('入库1.数量', 'Field', 'Updatable', .T.)
DBSetProp('入库1.数量', 'Field', 'UpdateName', 'maejsb!入库单1.数量')
DBSetProp('入库1.数量', 'Field', 'DataType', "I")
* Props for the 入库1.单位 field.
DBSetProp('入库1.单位', 'Field', 'KeyField', .F.)
DBSetProp('入库1.单位', 'Field', 'Updatable', .T.)
DBSetProp('入库1.单位', 'Field', 'UpdateName', 'maejsb!入库单1.单位')
DBSetProp('入库1.单位', 'Field', 'DataType', "C(20)")
* Props for the 入库1.单价 field.
DBSetProp('入库1.单价', 'Field', 'KeyField', .F.)
DBSetProp('入库1.单价', 'Field', 'Updatable', .T.)
DBSetProp('入库1.单价', 'Field', 'UpdateName', 'maejsb!入库单1.单价')
DBSetProp('入库1.单价', 'Field', 'DataType', "N(11,2)")
* Props for the 入库1.综合费 field.
DBSetProp('入库1.综合费', 'Field', 'KeyField', .F.)
DBSetProp('入库1.综合费', 'Field', 'Updatable', .T.)
DBSetProp('入库1.综合费', 'Field', 'UpdateName', 'maejsb!入库单1.综合费')
DBSetProp('入库1.综合费', 'Field', 'DataType', "N(11,2)")
* Props for the 入库1.领料主键 field.
DBSetProp('入库1.领料主键', 'Field', 'KeyField', .F.)
DBSetProp('入库1.领料主键', 'Field', 'Updatable', .T.)
DBSetProp('入库1.领料主键', 'Field', 'UpdateName', 'maejsb!入库单1.领料主键')
DBSetProp('入库1.领料主键', 'Field', 'DataType', "C(8)")
* Props for the 入库1.领料编号 field.
DBSetProp('入库1.领料编号', 'Field', 'KeyField', .F.)
DBSetProp('入库1.领料编号', 'Field', 'Updatable', .T.)
DBSetProp('入库1.领料编号', 'Field', 'UpdateName', 'maejsb!入库单1.领料编号')
DBSetProp('入库1.领料编号', 'Field', 'DataType', "C(7)")
* Props for the 入库1.库存数量 field.
DBSetProp('入库1.库存数量', 'Field', 'KeyField', .F.)
DBSetProp('入库1.库存数量', 'Field', 'Updatable', .T.)
DBSetProp('入库1.库存数量', 'Field', 'UpdateName', 'maejsb!入库单1.库存数量')
DBSetProp('入库1.库存数量', 'Field', 'DataType', "I")
* Props for the 入库1.金额 field.
DBSetProp('入库1.金额', 'Field', 'KeyField', .F.)
DBSetProp('入库1.金额', 'Field', 'Updatable', .F.)
DBSetProp('入库1.金额', 'Field', 'UpdateName', '入库单1.库存数量*')
DBSetProp('入库1.金额', 'Field', 'DataType', "N(20,2)")
* Props for the 入库1.合计金额 field.
DBSetProp('入库1.合计金额', 'Field', 'KeyField', .F.)
DBSetProp('入库1.合计金额', 'Field', 'Updatable', .F.)
DBSetProp('入库1.合计金额', 'Field', 'UpdateName', '入库单1.库存数量**')
DBSetProp('入库1.合计金额', 'Field', 'DataType', "N(20,2)")
ENDFUNC
 
FUNCTION MakeView_供货
***************** View setup for 供货 ***************

CREATE SQL VIEW "供货" ; 
   AS SELECT 供应商.名称 FROM maejsb!供应商 ORDER BY 供应商.名称

DBSetProp('供货', 'View', 'UpdateType', 1)
DBSetProp('供货', 'View', 'WhereType', 3)
DBSetProp('供货', 'View', 'FetchMemo', .T.)
DBSetProp('供货', 'View', 'SendUpdates', .F.)
DBSetProp('供货', 'View', 'UseMemoSize', 255)
DBSetProp('供货', 'View', 'FetchSize', 100)
DBSetProp('供货', 'View', 'MaxRecords', -1)
DBSetProp('供货', 'View', 'Tables', '')
DBSetProp('供货', 'View', 'Prepared', .F.)
DBSetProp('供货', 'View', 'CompareMemo', .T.)
DBSetProp('供货', 'View', 'FetchAsNeeded', .F.)
DBSetProp('供货', 'View', 'FetchSize', 100)
DBSetProp('供货', 'View', 'Comment', "供货单位")
DBSetProp('供货', 'View', 'BatchUpdateCount', 1)
DBSetProp('供货', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for 供货
* Props for the 供货.名称 field.
DBSetProp('供货.名称', 'Field', 'KeyField', .F.)
DBSetProp('供货.名称', 'Field', 'Updatable', .F.)
DBSetProp('供货.名称', 'Field', 'UpdateName', 'maejsb!供应商.名称')
DBSetProp('供货.名称', 'Field', 'DataType', "C(50)")
ENDFUNC
 
FUNCTION MakeView_产品
***************** View setup for 产品 ***************

CREATE SQL VIEW "产品" ; 
   AS SELECT DISTINCT 入库单1.产品名称, 入库单1.型号规格, 入库单1.数量,  入库单1.单位, 入库单1.单价, 入库单1.综合费, 入库单.编号, 入库单1.主键,  入库单1.父表主键, 入库单.日期 FROM  maejsb!入库单1 INNER JOIN maejsb!入库单    ON  入库单1.父表主键 = 入库单.主键 WHERE 入库单1.产品名称 LIKE ?cDisplayValue ORDER BY 入库单.编号 DESC

DBSetProp('产品', 'View', 'UpdateType', 1)
DBSetProp('产品', 'View', 'WhereType', 3)
DBSetProp('产品', 'View', 'FetchMemo', .T.)
DBSetProp('产品', 'View', 'SendUpdates', .F.)
DBSetProp('产品', 'View', 'UseMemoSize', 255)
DBSetProp('产品', 'View', 'FetchSize', 100)
DBSetProp('产品', 'View', 'MaxRecords', -1)
DBSetProp('产品', 'View', 'Tables', 'maejsb!入库单1,maejsb!入库单')
DBSetProp('产品', 'View', 'Prepared', .F.)
DBSetProp('产品', 'View', 'CompareMemo', .T.)
DBSetProp('产品', 'View', 'FetchAsNeeded', .F.)
DBSetProp('产品', 'View', 'FetchSize', 100)
DBSetProp('产品', 'View', 'Comment', "* 领料中选择产品用" + CHR(13) + "")
DBSetProp('产品', 'View', 'BatchUpdateCount', 1)
DBSetProp('产品', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for 产品
* Props for the 产品.产品名称 field.
DBSetProp('产品.产品名称', 'Field', 'KeyField', .F.)
DBSetProp('产品.产品名称', 'Field', 'Updatable', .T.)
DBSetProp('产品.产品名称', 'Field', 'UpdateName', 'maejsb!入库单1.产品名称')
DBSetProp('产品.产品名称', 'Field', 'DataType', "C(50)")
* Props for the 产品.型号规格 field.
DBSetProp('产品.型号规格', 'Field', 'KeyField', .F.)
DBSetProp('产品.型号规格', 'Field', 'Updatable', .T.)
DBSetProp('产品.型号规格', 'Field', 'UpdateName', 'maejsb!入库单1.型号规格')
DBSetProp('产品.型号规格', 'Field', 'DataType', "C(50)")
* Props for the 产品.数量 field.
DBSetProp('产品.数量', 'Field', 'KeyField', .F.)
DBSetProp('产品.数量', 'Field', 'Updatable', .T.)
DBSetProp('产品.数量', 'Field', 'UpdateName', 'maejsb!入库单1.数量')
DBSetProp('产品.数量', 'Field', 'DataType', "I")
* Props for the 产品.单位 field.
DBSetProp('产品.单位', 'Field', 'KeyField', .F.)
DBSetProp('产品.单位', 'Field', 'Updatable', .T.)
DBSetProp('产品.单位', 'Field', 'UpdateName', 'maejsb!入库单1.单位')
DBSetProp('产品.单位', 'Field', 'DataType', "C(20)")
* Props for the 产品.单价 field.
DBSetProp('产品.单价', 'Field', 'KeyField', .F.)
DBSetProp('产品.单价', 'Field', 'Updatable', .T.)
DBSetProp('产品.单价', 'Field', 'UpdateName', 'maejsb!入库单1.单价')
DBSetProp('产品.单价', 'Field', 'DataType', "N(11,2)")
* Props for the 产品.综合费 field.
DBSetProp('产品.综合费', 'Field', 'KeyField', .F.)
DBSetProp('产品.综合费', 'Field', 'Updatable', .T.)
DBSetProp('产品.综合费', 'Field', 'UpdateName', 'maejsb!入库单1.综合费')
DBSetProp('产品.综合费', 'Field', 'DataType', "N(11,2)")
* Props for the 产品.编号 field.
DBSetProp('产品.编号', 'Field', 'KeyField', .F.)
DBSetProp('产品.编号', 'Field', 'Updatable', .T.)
DBSetProp('产品.编号', 'Field', 'UpdateName', 'maejsb!入库单.编号')
DBSetProp('产品.编号', 'Field', 'DataType', "C(7)")
* Props for the 产品.主键 field.
DBSetProp('产品.主键', 'Field', 'KeyField', .F.)
DBSetProp('产品.主键', 'Field', 'Updatable', .T.)
DBSetProp('产品.主键', 'Field', 'UpdateName', 'maejsb!入库单1.主键')
DBSetProp('产品.主键', 'Field', 'DataType', "C(8)")
* Props for the 产品.父表主键 field.
DBSetProp('产品.父表主键', 'Field', 'KeyField', .F.)
DBSetProp('产品.父表主键', 'Field', 'Updatable', .T.)
DBSetProp('产品.父表主键', 'Field', 'UpdateName', 'maejsb!入库单1.父表主键')
DBSetProp('产品.父表主键', 'Field', 'DataType', "C(8)")
* Props for the 产品.日期 field.
DBSetProp('产品.日期', 'Field', 'KeyField', .F.)
DBSetProp('产品.日期', 'Field', 'Updatable', .T.)
DBSetProp('产品.日期', 'Field', 'UpdateName', 'maejsb!入库单.日期')
DBSetProp('产品.日期', 'Field', 'DataType', "D")
ENDFUNC
 
FUNCTION MakeView_代码维护
***************** View setup for 代码维护 ***************

CREATE SQL VIEW "代码维护" ; 
   AS SELECT * FROM maejsb!代码 WHERE 代码.类型 = ?c类型 ORDER BY 代码.类型, 代码.名称

DBSetProp('代码维护', 'View', 'UpdateType', 1)
DBSetProp('代码维护', 'View', 'WhereType', 3)
DBSetProp('代码维护', 'View', 'FetchMemo', .T.)
DBSetProp('代码维护', 'View', 'SendUpdates', .T.)
DBSetProp('代码维护', 'View', 'UseMemoSize', 255)
DBSetProp('代码维护', 'View', 'FetchSize', 100)
DBSetProp('代码维护', 'View', 'MaxRecords', -1)
DBSetProp('代码维护', 'View', 'Tables', 'maejsb!代码')
DBSetProp('代码维护', 'View', 'Prepared', .F.)
DBSetProp('代码维护', 'View', 'CompareMemo', .T.)
DBSetProp('代码维护', 'View', 'FetchAsNeeded', .F.)
DBSetProp('代码维护', 'View', 'FetchSize', 100)
DBSetProp('代码维护', 'View', 'Comment', "")
DBSetProp('代码维护', 'View', 'BatchUpdateCount', 1)
DBSetProp('代码维护', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for 代码维护
* Props for the 代码维护.主键 field.
DBSetProp('代码维护.主键', 'Field', 'KeyField', .T.)
DBSetProp('代码维护.主键', 'Field', 'Updatable', .T.)
DBSetProp('代码维护.主键', 'Field', 'UpdateName', 'maejsb!代码.主键')
DBSetProp('代码维护.主键', 'Field', 'DataType', "C(8)")
* Props for the 代码维护.类型 field.
DBSetProp('代码维护.类型', 'Field', 'KeyField', .F.)
DBSetProp('代码维护.类型', 'Field', 'Updatable', .T.)
DBSetProp('代码维护.类型', 'Field', 'UpdateName', 'maejsb!代码.类型')
DBSetProp('代码维护.类型', 'Field', 'DataType', "C(10)")
* Props for the 代码维护.代码 field.
DBSetProp('代码维护.代码', 'Field', 'KeyField', .F.)
DBSetProp('代码维护.代码', 'Field', 'Updatable', .T.)
DBSetProp('代码维护.代码', 'Field', 'UpdateName', 'maejsb!代码.代码')
DBSetProp('代码维护.代码', 'Field', 'DataType', "C(20)")
* Props for the 代码维护.名称 field.
DBSetProp('代码维护.名称', 'Field', 'KeyField', .F.)
DBSetProp('代码维护.名称', 'Field', 'Updatable', .T.)
DBSetProp('代码维护.名称', 'Field', 'UpdateName', 'maejsb!代码.名称')
DBSetProp('代码维护.名称', 'Field', 'DataType', "C(50)")
ENDFUNC
 
FUNCTION MakeView_代码类型
***************** View setup for 代码类型 ***************

CREATE SQL VIEW "代码类型" ; 
   AS SELECT DISTINCT 代码.类型 FROM maejsb!代码 ORDER BY 代码.类型

DBSetProp('代码类型', 'View', 'UpdateType', 1)
DBSetProp('代码类型', 'View', 'WhereType', 3)
DBSetProp('代码类型', 'View', 'FetchMemo', .T.)
DBSetProp('代码类型', 'View', 'SendUpdates', .F.)
DBSetProp('代码类型', 'View', 'UseMemoSize', 255)