gendatabase.prg

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

DBSETPROP('领料单.备注', 'Field', 'Caption', "备注")
DBSETPROP('领料单.日期', 'Field', 'Caption', "日期")
DBSETPROP('领料单.审核', 'Field', 'Caption', "审核")
DBSETPROP('领料单.管库员', 'Field', 'Caption', "管库员")
DBSETPROP('领料单', 'Table', 'Comment', "领料的凭据")
ENDFUNC

FUNCTION MakeTable_领料单1
***** Table setup for 领料单1 *****
CREATE TABLE '领料单1.DBF' NAME '领料单1' (主键 C(8) NOT NULL, ;
                      父表主键 C(8) NOT NULL, ;
                      产品名称 C(50) NULL, ;
                      型号规格 C(50) NULL, ;
                      单位 C(20) NULL, ;
                      数量 I NULL, ;
                      单价 N(11, 2) NULL, ;
                      综合费 N(12, 2) NULL, ;
                      入库主键 C(8) NULL, ;
                      入库父键 C(7) NULL)

***** Create each index for 领料单1 *****
SET COLLATE TO 'PINYIN'
ALTER TABLE '领料单1' ADD PRIMARY KEY 主键 TAG 主键

***** Change properties for 领料单1 *****
DBSETPROP('领料单1.主键', 'Field', 'Caption', "主键")
DBSETPROP('领料单1.父表主键', 'Field', 'Caption', "父表主键")
DBSETPROP('领料单1.产品名称', 'Field', 'Caption', "产品名称")
DBSETPROP('领料单1.单位', 'Field', 'Caption', "单位")
DBSETPROP('领料单1.数量', 'Field', 'Caption', "数量")
DBSETPROP('领料单1.单价', 'Field', 'Caption', "单价")
DBSETPROP('领料单1.综合费', 'Field', 'Caption', "综合费")
DBSETPROP('领料单1.入库主键', 'Field', 'Comment', "表明是从入库单的哪一行领的料.即领的哪个产品.")
DBSETPROP('领料单1.入库父键', 'Field', 'Comment', "表明领料时是从哪张入库单领的料.")
DBSETPROP('领料单1', 'Table', 'Comment', "领料单细节")
ENDFUNC

FUNCTION MakeTable_供应商
***** Table setup for 供应商 *****
CREATE TABLE '供应商.DBF' NAME '供应商' (主键 C(8) NOT NULL DEFAULT getnewuid(), ;
                     名称 C(50) NOT NULL, ;
                     联系人 C(50) NOT NULL, ;
                     电话 C(30) NOT NULL, ;
                     地址 C(50) NOT NULL, ;
                     开户行 C(50) NULL, ;
                     帐号 C(50) NULL, ;
                     备注 M NOT NULL)

***** Create each index for 供应商 *****
SET COLLATE TO 'PINYIN'
ALTER TABLE '供应商' ADD PRIMARY KEY 主键 TAG 主键
INDEX ON LEFT(名称,40) TAG 名称

***** Change properties for 供应商 *****
DBSETPROP('供应商', 'Table', 'Comment', "销售商品的单位")
ENDFUNC

FUNCTION MakeTable_计量费用
***** Table setup for 计量费用 *****
CREATE TABLE '计量费用.DBF' NAME '计量费用' (主键 C(8) NOT NULL, ;
                       编号 C(7) NOT NULL, ;
                       仪器名称 C(50) NULL, ;
                       型号规格 C(50) NULL, ;
                       日期 D NULL, ;
                       数量 I NULL, ;
                       单位 C(20) NULL, ;
                       单价 N(11, 2) NULL, ;
                       科室 C(20) NULL, ;
                       检定单位 C(50) NULL)

***** Create each index for 计量费用 *****
SET COLLATE TO 'PINYIN'
ALTER TABLE '计量费用' ADD PRIMARY KEY 主键 TAG 主键
INDEX ON 编号 TAG 编号
INDEX ON 日期 TAG 日期

***** Change properties for 计量费用 *****
DBSETPROP('计量费用', 'Table', 'Comment', "录入仪器计量的费用")
ENDFUNC

FUNCTION MakeTable_维修费用
***** Table setup for 维修费用 *****
CREATE TABLE '维修费用.DBF' NAME '维修费用' (主键 C(8) NULL, ;
                       编号 C(7) NOT NULL, ;
                       仪器名称 C(50) NULL, ;
                       型号规格 C(50) NULL, ;
                       金额 N(11, 2) NULL, ;
                       维修单位 C(50) NULL, ;
                       日期 D NULL, ;
                       科室 C(20) NULL, ;
                       项目工期 C(20) NOT NULL)

***** Create each index for 维修费用 *****
SET COLLATE TO 'PINYIN'
ALTER TABLE '维修费用' ADD PRIMARY KEY 主键 TAG 主键
INDEX ON 编号 TAG 编号 CANDIDATE

***** Change properties for 维修费用 *****
ENDFUNC

FUNCTION MakeTable_CONFIG
***** Table setup for CONFIG *****
CREATE TABLE 'CONFIG.DBF' NAME 'CONFIG' (开始日期 D NULL, ;
                     截止日期 D NULL, ;
                     年份 C(4) NULL, ;
                     月份 C(2) NULL, ;
                     供货单位 C(50) NOT NULL)

***** Create each index for CONFIG *****

***** Change properties for CONFIG *****
ENDFUNC

FUNCTION MakeTable_综合月报表
***** Table setup for 综合月报表 *****
CREATE TABLE '综合月报表.DBF' NAME '综合月报表' (科室 C(20) NULL, ;
                         当月计量 N(11, 2) NULL, ;
                         累计计量 N(11, 2) NULL, ;
                         当月维修 N(11, 2) NULL, ;
                         累计维修 N(11, 2) NULL, ;
                         当月材料 N(11, 2) NULL, ;
                         累计材料 N(11, 2) NULL, ;
                         当月仪器 N(11, 2) NULL, ;
                         累计仪器 N(11, 2) NULL, ;
                         当月合计 N(11, 2) NULL, ;
                         累计合计 N(11, 2) NULL, ;
                         备注 C(20) NULL)

***** Create each index for 综合月报表 *****

***** Change properties for 综合月报表 *****
ENDFUNC

FUNCTION MakeTable_OPERATOR
***** Table setup for OPERATOR *****
CREATE TABLE 'OPERATOR.DBF' NAME 'OPERATOR' (OPERATOR C(8) NOT NULL, ;
                       PASSWORD C(20) NOT NULL, ;
                       PICTURE G NOT NULL, ;
                       NAME C(8) NOT NULL)

***** Create each index for OPERATOR *****

***** Change properties for OPERATOR *****
DBSETPROP('OPERATOR', 'Table', 'Comment', "操作员")
ENDFUNC

FUNCTION MakeTable_RIGHT
***** Table setup for RIGHT *****
CREATE TABLE 'RIGHT.DBF' NAME 'RIGHT' (OPERATOR C(8) NOT NULL, ;
                    FUNCTION C(20) NOT NULL, ;
                    MODE C(10) NOT NULL, ;
                    ISSEE L NOT NULL, ;
                    ISADD L NOT NULL, ;
                    ISEDIT L NOT NULL, ;
                    ISDEL L NOT NULL, ;
                    ISPRINT L NOT NULL)

***** Create each index for RIGHT *****

***** Change properties for RIGHT *****
DBSETPROP('RIGHT', 'Table', 'Comment', "操作员权限")
ENDFUNC

FUNCTION MakeView_入库
***************** View setup for 入库 ***************

CREATE SQL VIEW "入库" ; 
   AS SELECT DISTINCT 入库单.主键, 入库单.编号, 入库单.类别, 入库单.日期,  入库单.验收人, 入库单.支票号, 入库单.发票号, 入库单.管库员, 入库单.填单,  入库单.供货单位, 入库单.标准, 入库单.生产厂, 入库单.生产日期, 入库单.备注 FROM maejsb!入库单 ORDER BY 入库单.编号 DESC

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', "* 入库单" + CHR(13) + "")
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', 'Caption', "主键")
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(7)")
* Props for the 入库.类别 field.
DBSetProp('入库.类别', 'Field', 'KeyField', .F.)
DBSetProp('入库.类别', 'Field', 'Updatable', .T.)
DBSetProp('入库.类别', 'Field', 'UpdateName', 'maejsb!入库单.类别')
DBSetProp('入库.类别', 'Field', 'DataType', "C(10)")
DBSetProp('入库.类别', 'Field', 'DefaultValue', "'低值易耗'")
* Props for the 入库.日期 field.
DBSetProp('入库.日期', 'Field', 'KeyField', .F.)
DBSetProp('入库.日期', 'Field', 'Updatable', .T.)
DBSetProp('入库.日期', 'Field', 'UpdateName', 'maejsb!入库单.日期')
DBSetProp('入库.日期', 'Field', 'DataType', "D")
* 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(30)")
* Props for the 入库.发票号 field.
DBSetProp('入库.发票号', 'Field', 'KeyField', .F.)
DBSetProp('入库.发票号', 'Field', 'Updatable', .T.)
DBSetProp('入库.发票号', 'Field', 'UpdateName', 'maejsb!入库单.发票号')
DBSetProp('入库.发票号', 'Field', 'DataType', "C(30)")
* 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(10)")
* Props for the 入库.供货单位 field.
DBSetProp('入库.供货单位', 'Field', 'KeyField', .F.)
DBSetProp('入库.供货单位', 'Field', 'Updatable', .T.)
DBSetProp('入库.供货单位', 'Field', 'UpdateName', 'maejsb!入库单.供货单位')
DBSetProp('入库.供货单位', 'Field', 'DataType', "C(50)")
* Props for the 入库.标准 field.
DBSetProp('入库.标准', 'Field', 'KeyField', .F.)
DBSetProp('入库.标准', 'Field', 'Updatable', .T.)
DBSetProp('入库.标准', 'Field', 'UpdateName', 'maejsb!入库单.标准')
DBSetProp('入库.标准', 'Field', 'DataType', "L")
* Props for the 入库.生产厂 field.
DBSetProp('入库.生产厂', 'Field', 'KeyField', .F.)
DBSetProp('入库.生产厂', 'Field', 'Updatable', .T.)
DBSetProp('入库.生产厂', 'Field', 'UpdateName', 'maejsb!入库单.生产厂')
DBSetProp('入库.生产厂', 'Field', 'DataType', "L")
* Props for the 入库.生产日期 field.
DBSetProp('入库.生产日期', 'Field', 'KeyField', .F.)
DBSetProp('入库.生产日期', 'Field', 'Updatable', .T.)
DBSetProp('入库.生产日期', 'Field', 'UpdateName', 'maejsb!入库单.生产日期')
DBSetProp('入库.生产日期', 'Field', 'DataType', "L")
* Props for the 入库.备注 field.
DBSetProp('入库.备注', 'Field', 'KeyField', .F.)
DBSetProp('入库.备注', 'Field', 'Updatable', .T.)
DBSetProp('入库.备注', 'Field', 'UpdateName', 'maejsb!入库单.备注')
DBSetProp('入库.备注', 'Field', 'DataType', "M")
ENDFUNC
 
FUNCTION MakeView_类别
***************** View setup for 类别 ***************

CREATE SQL VIEW "类别" ; 
   AS SELECT 代码.名称 FROM maejsb!代码 WHERE 代码.类型 = '类别' ORDER BY 代码.名称

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