gendatabase.prg

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

PRG
1,351 行
字号
12345
* *********************************************************
* *
* * 2002.10.31              MAEJSB.DBC              23:40:26
* *
* *********************************************************
* *
* * Description:
* * This program was automatically generated by GENDBC
* * Version 2.26.67
* *
* *********************************************************


DisplayStatus([Creating database...])
CLOSE DATA ALL
CREATE DATABASE 'MAEJSB.DBC'
DisplayStatus([Creating table 仪器设备...])
MakeTable_仪器设备()
DisplayStatus([Creating table 入库单...])
MakeTable_入库单()
DisplayStatus([Creating table 入库单1...])
MakeTable_入库单1()
DisplayStatus([Creating table 代码...])
MakeTable_代码()
DisplayStatus([Creating table 领料单...])
MakeTable_领料单()
DisplayStatus([Creating table 领料单1...])
MakeTable_领料单1()
DisplayStatus([Creating table 供应商...])
MakeTable_供应商()
DisplayStatus([Creating table 计量费用...])
MakeTable_计量费用()
DisplayStatus([Creating table 维修费用...])
MakeTable_维修费用()
DisplayStatus([Creating table CONFIG...])
MakeTable_CONFIG()
DisplayStatus([Creating table 综合月报表...])
MakeTable_综合月报表()
DisplayStatus([Creating table OPERATOR...])
MakeTable_OPERATOR()
DisplayStatus([Creating table RIGHT...])
MakeTable_RIGHT()
DisplayStatus([Creating view 入库...])
MakeView_入库()
DisplayStatus([Creating view 类别...])
MakeView_类别()
DisplayStatus([Creating view 计量单位...])
MakeView_计量单位()
DisplayStatus([Creating view 职工...])
MakeView_职工()
DisplayStatus([Creating view 员工...])
MakeView_员工()
DisplayStatus([Creating view 领料...])
MakeView_领料()
DisplayStatus([Creating view 领料1...])
MakeView_领料1()
DisplayStatus([Creating view 科室...])
MakeView_科室()
DisplayStatus([Creating view 入库1...])
MakeView_入库1()
DisplayStatus([Creating view 供货...])
MakeView_供货()
DisplayStatus([Creating view 产品...])
MakeView_产品()
DisplayStatus([Creating view 代码维护...])
MakeView_代码维护()
DisplayStatus([Creating view 代码类型...])
MakeView_代码类型()
DisplayStatus([Creating view 计量...])
MakeView_计量()
DisplayStatus([Creating view 检定单位...])
MakeView_检定单位()
DisplayStatus([Creating view 维修单位...])
MakeView_维修单位()
DisplayStatus([Creating view 产品编号...])
MakeView_产品编号()
DisplayStatus([Creating view 产品1...])
MakeView_产品1()
DisplayStatus([Creating view 打印入库单...])
MakeView_打印入库单()
DisplayStatus([Creating view 打印领料单...])
MakeView_打印领料单()
DisplayStatus([Creating view 采购表1...])
MakeView_采购表1()
DisplayStatus([Creating view 采购表2...])
MakeView_采购表2()
DisplayStatus([Creating view 采购表0...])
MakeView_采购表0()
DisplayStatus([Creating view 仪器采购表...])
MakeView_仪器采购表()
DisplayStatus([Creating view 维修...])
MakeView_维修()
DisplayStatus([Creating view 维修报表...])
MakeView_维修报表()
DisplayStatus([Creating view 仪器设备月报0...])
MakeView_仪器设备月报0()
DisplayStatus([Creating view 仪器设备月报...])
MakeView_仪器设备月报()
DisplayStatus([Creating view 维修月报...])
MakeView_维修月报()
DisplayStatus([Creating view 材料月报...])
MakeView_材料月报()
DisplayStatus([Creating view 计量月报...])
MakeView_计量月报()
DisplayStatus([Creating view 综合报表...])
MakeView_综合报表()
DisplayStatus([Creating view V1...])
MakeView_V1()
DisplayStatus([Creating view V2...])
MakeView_V2()
DisplayStatus([Creating view 材料采购表...])
MakeView_材料采购表()
DisplayStatus([Creating view 供货单位...])
MakeView_供货单位()
DisplayStatus([Creating persistent relations...])
MakeRelation_1()
DisplayStatus([Finished.])


********* Procedure Re-Creation *********
IF !FILE([GENDATABASE.krt])
    ? [Warning! No Procedure File Found!]
ELSE
	CLOSE DATABASE
	USE 'MAEJSB.DBC'
	g_SetSafety = SET('SAFETY')
	SET SAFETY OFF
	LOCATE FOR Objectname = 'StoredProceduresSource'
	IF FOUND()
        APPEND MEMO Code FROM [GENDATABASE.krt] OVERWRITE
	    REPLACE Code WITH SUBSTR(Code, 70, 304)
	ENDIF
	LOCATE FOR Objectname = 'StoredProceduresObject'
	IF FOUND()
        APPEND MEMO Code FROM [GENDATABASE.krt] OVERWRITE
        REPLACE Code WITH SUBSTR(Code, 374)
	ENDIF
    SET SAFETY &g_SetSafety
	USE
	OPEN DATABASE [MAEJSB.DBC]
ENDIF

FUNCTION MakeTable_仪器设备
***** Table setup for 仪器设备 *****
CREATE TABLE '仪器设备.DBF' NAME '仪器设备' (ID I NOT NULL, ;
                       名称 C(50) NOT NULL, ;
                       型号规格 C(30) NOT NULL, ;
                       单价 N(11, 2) NOT NULL, ;
                       数量 I NOT NULL, ;
                       单位 C(20) NOT NULL, ;
                       供应商 I NOT NULL, ;
                       备注 M NOT NULL)

***** Create each index for 仪器设备 *****

***** Change properties for 仪器设备 *****
DBSETPROP('仪器设备.ID', 'Field', 'Caption', "编号")
DBSETPROP('仪器设备.ID', 'Field', 'Format', "99999")
DBSETPROP('仪器设备.名称', 'Field', 'Caption', "设备名称")
DBSETPROP('仪器设备.型号规格', 'Field', 'Caption', "规格")
DBSETPROP('仪器设备.单价', 'Field', 'Caption', "单价")
DBSETPROP('仪器设备.数量', 'Field', 'Caption', "数量")
DBSETPROP('仪器设备.单位', 'Field', 'Caption', "单位")
DBSETPROP('仪器设备.供应商', 'Field', 'Caption', "供应商")
DBSETPROP('仪器设备.备注', 'Field', 'Caption', "备注")
DBSETPROP('仪器设备', 'Table', 'Comment', "仪器设备基表")
ENDFUNC

FUNCTION MakeTable_入库单
***** Table setup for 入库单 *****
CREATE TABLE '入库单.DBF' NAME '入库单' (主键 C(8) NOT NULL, ;
                     编号 C(7) NOT NULL, ;
                     类别 C(10) NOT NULL, ;
                     日期 D NOT NULL, ;
                     标准 L NOT NULL, ;
                     生产厂 L NOT NULL, ;
                     生产日期 L NOT NULL, ;
                     验收人 C(10) NOT NULL, ;
                     支票号 C(30) NOT NULL, ;
                     发票号 C(30) NOT NULL, ;
                     管库员 C(10) NOT NULL, ;
                     填单 C(10) NOT NULL, ;
                     供货单位 C(50) NOT NULL, ;
                     备注 M NULL)

***** Create each index for 入库单 *****
SET COLLATE TO 'PINYIN'
ALTER TABLE '入库单' ADD PRIMARY KEY 主键 TAG 主键
INDEX ON 编号 TAG 编号

***** Change properties for 入库单 *****
DBSETPROP('入库单.主键', 'Field', 'Caption', "主键")
DBSETPROP('入库单.编号', 'Field', 'Caption', "入库单号")
DBSETPROP('入库单.类别', 'Field', 'Caption', "类别")
DBSETPROP('入库单.日期', 'Field', 'Caption', "日期")
DBSETPROP('入库单.标准', 'Field', 'Caption', "有无执行标准")
DBSETPROP('入库单.生产厂', 'Field', 'Caption', "有无生产厂家")
DBSETPROP('入库单.生产日期', 'Field', 'Caption', "是否有生产日期")
DBSETPROP('入库单.验收人', 'Field', 'Caption', "验收人")
DBSETPROP('入库单.支票号', 'Field', 'Caption', "支票号")
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) NOT NULL, ;
                      型号规格 C(50) NOT NULL, ;
                      数量 I NOT NULL, ;
                      单位 C(20) NOT NULL, ;
                      单价 N(11, 2) NOT NULL, ;
                      综合费 N(11, 2) NOT NULL, ;
                      领料主键 C(8) NULL, ;
                      领料编号 C(7) NULL, ;
                      库存数量 I NULL)

***** Create each index for 入库单1 *****
SET COLLATE TO 'PINYIN'
ALTER TABLE '入库单1' ADD PRIMARY KEY 主键 TAG 主键
INDEX ON 父表主键 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', 'Table', 'Comment', "物资验收入库单细节")
ENDFUNC

FUNCTION MakeTable_代码
***** Table setup for 代码 *****
CREATE TABLE '代码.DBF' NAME '代码' (主键 C(8) NOT NULL DEFAULT getnewid("代码"), ;
                   类型 C(10) NOT NULL, ;
                   代码 C(20) NOT NULL, ;
                   名称 C(50) NOT NULL)

***** Create each index for 代码 *****
SET COLLATE TO 'PINYIN'
ALTER TABLE '代码' ADD PRIMARY KEY 主键 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(20) NULL, ;
                     备注 M NULL, ;
                     日期 D NULL, ;
                     审核 C(10) NULL, ;
                     管库员 C(10) NULL, ;
                     领料人 C(10) NOT NULL)

***** Create each index for 领料单 *****
SET COLLATE TO 'PINYIN'
INDEX ON 编号 TAG 编号 CANDIDATE
ALTER TABLE '领料单' ADD PRIMARY KEY 主键 TAG 主键

***** Change properties for 领料单 *****
DBSETPROP('领料单.主键', 'Field', 'Caption', "主键")
DBSETPROP('领料单.科室', 'Field', 'Caption', "部门")
12345

gendatabase.prg - 源码说明

本页面展示了「山泉的早期工资管理VB程序.可以一看,不错的」中的 gendatabase.prg 源码文件，采用 PRG 编程语言编写，共 1,351 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?