库存管理_会计信息化—库存管理存货核算系统指导书

会计信息化库存管理存货核算系统 实验指导书 会计学院 会计信息化系 2005 年 8 月 1 目 录 实验一 存货子系统业务流程分析 . 2 实验二 存货子系统数据处理流程分析 . 4 实验三 存货子系统功能分析 . 5 实验四 存货子系统数据字典及数据库设计 . 6 实验五 建立存货子系统数据库 . 9 实验六 存货子系统基本窗口设计 . 15 实验七 存货子系统软件编程码表处理 . 56 实验八 存货子系统软件编程单表处理 . 61 实验九 存货子系统软件编程导入导出处理 . 73 2 分析库存管理存货核算系统的业务流程，画出存货子系统业务流程图。 安装 Windows 操作系统、Word 软件、Visio 软件等。 分组进行。 2 机时 1、 库存管理存货核算系统业务流程描述。 为了深入了解存货核算与管理的特点， 我们首先分析手工条件下存货核算与管理的业务 处理流程，掌握存货出库、入库、期末结账、对账以及管理分析的过程。 存货包括原材料、包装物、低值易耗品、自制半成品、产成品等。在手工条件下，当存 货到达企业并办理入库手续后， 除了仓库保管员要登记存货数量账外， 财会部门也要根据各 种凭单（如入库单、验收报告等）登记存货明细账，反映存货增加等经济业务；当各个部门 领用存货时（如生产车间领用材料用于生产、销售部门领用产品用于销售） ，仓库保管员又 要登记存货数量账，财会部门又要根据各种凭单（如入库单等）登记存货明细账，反映存货 减少等经济业务；定期编制记账凭证传递到总账子系统，登记总账。此外，还要及时为管理 提供各种存货报告，如存货状态报告、ABC 存货成本分析报告、超储积压存货分析报告等。 下面我们对入库流程、出库流程以及期末结账和管理分析流程进行分析。 （1）存货核算与管理入库流程分析 当采购部门或者供应商将存货送入仓库， 生产部门或者物流部门将生产的产成品送入仓 库，入库业务便开始进行了。 仓库保管员依据采购订单和计划入库安排，检查供应商送货及时性，根据事先设定 的送货接收标准，判定是否收货。 如果可以收货，仓库保管员编制收货凭证，并将收货凭证和质检抽样存货移入质检 部门，进行抽样检验。 如果质检合格，将质检合格存货退返仓库，进行库存移库操作，并编制验收报告。 将验收报告传递给仓库和财务部门。 仓库保管员根据验收报告和收货凭证编制入库单。 登记相应存货的入库数量和结存数量，即存货三级账，并将相应的单据传递到财务 部门。 财务贲门根据入库单、验收报告编制记账凭证。 存货核算会计审核凭证，登记存货明系账，并将凭证传递到总账子系统。 总账会计定期根据记账凭证登记总账。 （2）存货核算与管理出库、期末处理与管理的分析流程 当生产部门提出领料申请、销售部门提出发运产品时，出库业务便开始进行；到会计期 3 末进行相应的处理，并提交各种管理分析报告。 仓库保管员接到各车间、用料单位提出的领料申请， 或者销售部门提出的发运请求， 经审核单据后，编制出库单，并发出存货。 仓库保管员登记相应存货出库数量和结存数据，即存货三级账，并将相应的单据传 递到财会部门。 财会部门会计人员根据出库单等单据编制记账凭证，登记存货明细账，并将凭证传 递到总账子系统。由于存货种类繁多、数量大、收发业务频繁，存货成本计算比较 复杂，为了满足不同企业对核算的需要，存货可以按计划成本计价，也可按实际成 本计价。按实际成本计价时，存货成本可以按照加权平均、移动加权平均、先进先 出、后进先出和个别计价等方法进行计算。 期末处理。财务部门期末对存货进行实地盘点，编制盘盈盘亏表，经审批后通知仓 库、财会部门修改相应的存货一级、二级以及三级账。由于存货数量账（三级账） 、 存货明细账（二级账） 、总账（一级账）是由不同的人员编制的，因此，会出现账账 不一致的问题。因此，期末还需要进行三级账的核对工作，很多企业要花费一定的 人力物力每月必须进行对账。财务部门根据不同的计价方法和成本计算方法，分别 计算存货成本差异、发出存货成本，并进行结账工作。 存货分析。财务管理人员需要根据入库单、出库单、存货数量账等编制包括超储积 压一览表、ABC 成本分析表、仓库存货汇总表等内容的管理分析报告，并提出存货 管理的改进意见和评价信息。 2、通过分析存货子系统的业务流程，利用 Visio 软件画出存货子系统的业务流程 图。 业务流程图如图 1 所示： 4 采购 部门 销售部 门 经理 财务部 门 仓库部门 库存账目 凭证 验货单 商品调拨单 （审核） 入库单 出库单 商品调拨单 （申请） 发送 销售退货 单 库存盘点 单 登 记 或 生 成 登 记 或 生 成 收 到 退 货 验 货 验货合格 盘 点 送 达 发 送 登记或 生成 送达 审 核 递 交 发送 送达 库存不足及超 额通知 发 送 送 达 采购入 库单 送 达 发送 登记或生 成 分析 报表 供应商 采购 订单 采购收货 单 发 送 送达 发送送达 送 达 提 交 报损单 审核 错误的报 损单 输入 有误 无误的报 损单 输入 无误 呈交 返 回 出库通知 单 退货入库 单 送达 发送 发送 送 达 信息使用 部门 呈送 质管部 门 送达 图 1 存货子系统业务流程图 通过存货子系统的业务流程图，进一步分析优化存货子系统的数据处理流程，画出 存货子系统的数据处理流程图。 安装 Windows 操作系统、Word 软件、Visio 软件等。 分组进行。 1、通过分析存货子系统的业务流程图，利用 Visio 软件画出存货子系统的数据处 5 理流程图。 根据前面对存货子系统业务流程图的分析， 运用系统分析法， 可以绘出存货子系统的数 据流程图。依据模块结构设计的原则，通过对存货子系统的数据流程图进行模块划分，存货 子系统可以划分为入库管理、出库管理、存管理、损管理和调拨管理等功能模块。数据流程 图如图 2 所示： E3 销售部门 E1 仓库部门 P2 出库处 理 S1 库存帐目 验收单 P4 盘点库 存 P3 审核调 拨单 调拨单 （申请） 调拨单 （审核） 库 存 盘 点 单 调拨单 （审核） E4 财务部门 库存 盘点单 出 库 单 、 入 库 单 出库单、退货入 库单 E2 采购部门 P1 验收货物 采购单 入库单 实物清单 P5 审核报 损单 报损单 报损单（审核） 报 损 单 （ 审 核 ） 销 售 单 销售退货单 销售单 图 2 存货子系统数据流程图 通过分析 存货子系统的业务流程与数据处理流程图，进一步分析存货子系统的功 能。 安装 Windows 操作系统、Word 软件、Visio 软件等。 分组进行。 1、通过分析存货子系统的业务流程与数据处理流程图，画出存货子系统的功能图。 6 根据业务流程图和数据流程图，存货子系统基本可以划分为入库管理、出库 管理、盘点管理、报损管理、调拨管理等五个功能模块。每个功能模块又可以继 续划分为若干个功能模块，直到每个功能模块都能够表示相当独立的功能为止。 我们的存货子系统侧重于核算模块的设计。主要的功能结构有入库管理、出库管 理、盘点管理模块。功能结构图如图 3 所示： 存货核算与管理系统 入 库 管 理 出 库 管 理 调 拨 管 理 验 货 单 管 理 采 购 入 库 单 录 入 采 购 入 库 单 审 核 采 购 入 库 单 记 账 销 售 退 货 单 管 理 出 库 通 知 单 管 理 出 库 单 录 入 出 库 单 审 核 出 库 单 记 账 盘 点 管 理 库 存 盘 点 单 录 入 库 存 盘 点 单 审 核 库 存 盘 点 单 记 账 报 损 单 录 入 报 损 单 审 核 报 损 单 记 账 报 损 管 理 调 拨 单 录 入 调 拨 单 审 核 调 拨 单 记 账 图 3 存货子系统功能结构图 通过分析存货子系统的数据流程图，进一步写出存货子系统的数据字典。 利用 PowerDesigner 软件，建立存货子系统的 PDM。 安装 Windows 操作系统、Word 软件、Visio 软件、PowerDesigner 软件等。 分组进行。 7 1、 通过分析存货子系统的数据流程图，写出存货子系统的数据字典。 数据 流编 号 数据流名称 简述 数据流来 源 数据流去 向 F1 库存产品信 息表 库存部门记录存货信息 的表 库存模块 其他各模 块 F2 库存盘点表 库存部门记录存货期末 盘点情况的表 库存模块 账务模块 F3 入库单 库存部门开出的入库单 库存模块 采购模块 F4 出库单 库存部门开出的出库单 库存模块 销售模块 F5 销售退货入 库单 库存部门开出的销售退 货入库单 库存模块 销售模块 F6 采购申请单 库存不足时库存部门开 出的采购申请单 库存模块 采购模块 F7 报损单 库存部门开出的报损单 库存模块 质管模块 F8 部门用途表 各部门领用存货类别表 库存模块 账务模块 F9 流水账单 存货出入情况的账单 库存模块 信息使用 者 F10 期初余额表 库存期初余额 库存模块 信息使用 者 处理 逻辑 编号 处理逻辑名 称 简述 输入的数 据流 输出的数 据流 P1 验收货物 对采购入库的货物进行 检验 采购单 验收单 P2 出库处理 对销售的货物进行出库 检验 销售单 销售检验 单 P3 审核调拨单 对调拨单申请进行审核 调拨单 （申 请） 调拨单 （审 核） P4 盘点库存 对库存中的存货进行盘 点 实物清单 库存盘点 单 P5 审核报损单 对报损单申请进行审核 报损单 报损单 （审 核） 8 数据存储 编号 数据存储名 称 简述 S1 库存账目 存货入库、出库、退货、报损后修改当前库 存量 外部 实体 编号 外部实体名 称 简述 输入的数 据流 输出的数据 流 E1 仓库部门 对存货保管、增减变化 进行管理的部门 验收单、 销 售单 入库单、出 库单 E2 采购部门 采购存货的部门 入库单 采购单 E3 销售部门 销售商品的部门 出库单 销售单 E4 财务部门 进行账务处理的部门 库存盘点 单、 报损单 帐簿、报表 2、 利用 PowerDesigner 软件，建立存货子系统的 PDM。 9 建立存货子系统的 SQL Anywhere 数据库。 删除所建数据库的 transaction log file 文件。 建立存货子系统的 ODBC。 通过存货子系统的 PDM，生成 存货子系统数据库中的各张表。 。 安装 Windows 操作系统、 PowerDesigner 软件、 PowerBuilder 软件、 SQL Anywhere 数据库等。 分组进行。 1、在 PowerBuilder 中，建立存货子系统的 SQL Anywhere 数据库。 2、在 Sybase 中心 Sybase Central 中，利用 Utilities 工具中的 Change Log File Information 功 能，删除所建数据库的 transaction log file 文件。 3、在 PowerBuilder 中，或在 PowerBuilder 中，建立存货子系统的 ODBC。 4、在 PowerDesigner AppModeler 软件，连接存货子系统数据库。 5、通过存货子系统的 PDM，利用 PowerDesigner AppModeler 软件，生成存货子系统 数据库中的各张表。 数据库设计 1.码表设计 10 一 仓库表 仓库表 c_ch_ckb 字段名 类型长度 是否空 含义 ckb_code char(6) NOT NULL 仓库编号 ckb_name char(20) NULL 仓库名称 二 职员表 职员表 c_ch_zyb 字段名 类型长度 是否空 含义 zyb_code char(6) NOT NULL 职员编号 zyb_name char(20) NULL 职员名称 zyb_szbm char(20) NULL 所在部门 三 部门表 部门表 c_ch_bmb 字段名 类型长度 是否空 含义 bmb_code char(6) NOT NULL 部门编号 bmb_name char(20) NULL 部门名称 四 货位表 货位表 c_ch_hwb 字段名 类型长度 是否空 含义 hwb_code char(6) NOT NULL 货位编号 hwb_name char(20) NULL 货位名称 hwb_szck char(20) NULL 所在仓库 五 业务性质表 业务性质表 c_ch_ywxzb 字段名 类型长度 是否空 含义 ywxzb_code char(6) NOT NULL 业务性质编码 ywxzb_name char(40) NULL 业务性质名称 2.基本表设计 11 一 库存产品信息表 库存产品信息表 T_kcxx 字段名 类型长度 是否空 含义 *chbm Char(10) NOT NULL 存货编码 chmc char(50) NULL 存货名称 ggxh Char (5) NULL 规格型号 jldw Char(10) NULL 计量单位 chlb Char(10) NULL 存货类别 Chsx Char(20) NULL 存货属性 Jhjg Char(10) NULL 计划价格 ckjg char(10) NULL 参考价格 hw char(10) NULL 货位 sh char(10) NULL 审核标志 qyrq Char(30) NULL 启用日期 bz char(100) NULL 备注 二 存货结存表 存货结存表 T_chjcb 字段名 类型长度 是否空 含义 *chbm Char(10) NOT NULL 存货编码 qcsl decimal(10,2) NULL 本月期初数量 qcdj decimal(10,2) NULL 本月期初单价 qcje decimal(10,2) NULL 本月期初金额=本月 期初单价*本月期初 单价 ssl decimal(10,2) NULL 本月收数量 sje decimal(10,2) NULL 本月收金额 fsl decimal(10,2) NULL 本月发数量 fje decimal(10,2) NULL 本月发金额 jcsl decimal(10,2) NULL 本月结存数量 jcdj decimal(10,2) NULL 本月结存单价 jcje decimal(10,2) NULL 本月结存金额 三 入库单 入库单表 T_rkd 字段名 类型长度 是否空 含义 *rkdh Char(10) NOT NULL *入库单编号(自动生 成) rkrq Char(15) NULL 入库单日期 ywbh Char(15) NULL 业务编号 12 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 cd Char(10) NULL 产地 gys Char(10) NULL 供应商 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人 四 出库单 出库单表 T_ckd 字段名 类型长度 是否空 含义 *ckdh Char(10) NOT NULL *出库单编号(自动生 成) ckrq Char(15) NULL 出库单日期 ywbh Char(15) NULL 业务编号 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 yt Char(10) NULL 用途 bm Char(10) NULL 部门 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人 bz char(100) NULL 备注 五 销售退货入库单 13 销售退货入库单 T_xsthrkd 字段名 类型长度 是否空 含义 *ckthdh Char(10) NOT NULL *销售退货单编号(自 动生成) ckthdrq Char(15) NULL 销售退货单日期 ywbh Char(15) NULL 业务编号 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NOT NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 bm Char(10) NULL 部门 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人 thyy Char(100) NULL 退货原因 六 采购申请单 采购申请单 ch_cgsqd 字段名 类型长度 是否空 含义 *sqdbh Char(10) NOT NULL *申请单编号(自动生 成) rq Char(15) NULL 日期 chbm Char(10) NULL 存货编码 chmc Char(20) NULL 存货名称 ggxh Char(10) NULL 规格型号 jldw Char(4) NULL 计量单位 chlb Char(10) NULL 存货类别 chsx Char(10) NULL 存货属性 xqsl decimal(10,2) NULL 需求数量 chr Char(10) NULL 制单人 shr Char(10) NULL 审核人 七 报损单 入库退货单 T_rkth 14 字段名 类型长度 是否空 含义 *bsbh Char(10) NOT NULL *报损单编号(自动生 成) bsrq Char(15) NULL 报损单日期 ywyxm Char(10) NULL 业务员姓名 chbm Char(10) NULL 存货编码 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 cd Char(10) NULL 产地 gys Char(10) NULL 供应商 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 shbz Char(2) NULL 审核标志 clbz Char(2) NULL 处理标志 shbz Char(2) NULL 收货标志 zdr Char(10) NULL 制单人 shr Char(10) NULL 审核人 bsyy Char(100) NULL 报损原因 八 部门用途表 部门用途表 T_bmytb 字段名 类型长度 是否空 含义 *bmbm Char(10) NOT NULL *部门编码 bmmc Char(20) NULL 部门名称 ytdm Char(10) NULL 用途代码 ytmc Char(10) NULL 用途名称 xmfy Char(10) NULL 项目费用 九 流水账单 流水账单 ch_lszd 字段名 类型长度 是否空 含义 *xh char(3) NOT NULL 序号 sj Char(15) NULL 时间 djh char(2) NULL 单据号 ywxz char(4) NULL 业务性质 chbm char(10) NULL 存货编码 chmc char(20) NULL 存货名称 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 15 十 期初余额表 期初余额表 T_qcyeb 字段名 类型长度 是否空 含义 chbm Char(10) NULL 存货编码 chmm Char(50) not NULL 存货名称 sl decimal(10,2) NULL 数量 dj decimal(10,2) NULL 单价 je decimal(10,2) NULL 金额 cd char(50) null 产地 gys char(50) null 供应商 ck Char(10) NULL 仓库 hw Char(10) NULL 货位 bz char(100) NULL 备注 十一 存货盘点表 存货盘点表 T_chpdb 字段名 类型长度 是否空 含义 pddbh Char(10) not NULL 盘点单编号 pddrq Char(15) NULL 盘点单日期 ywyxm Char(10) NULL 业务员姓名 bm Char(10) NULL 部门 chbm Char(10) not NULL 存货编码 chmc char(20) null 存货名称 hw char(10) null 货位 chdj decimal(10,2) NULL 存货单价 zcsl decimal(10,2) NULL 账存数量 pdsl decimal(10,2) NULL 盘点数量 yksl decimal(10,2) NULL 盈亏数量 zdr char(10) NULL 制单人 shr char(10) NULL 审核人 存货子系统窗口设计。 存货子系统全局变量设计。 存货子系统全局函数设计。 安装 Windows 操作系统、PowerBuilder 软件、SQL Anywhere 数据库、教师提供的软件原型 平台等。 16 分组进行。 1、 存货子系统全局变量设计。 全局变量定义 string g_oper_code,g_oper_name,g_sheet_code,g_print string g_date,g_dept,g_dept_day,g_func_code string g_dept_month_date=2000-01-01 string g_orig,g_warehouse string g_sp_info,g_menu_name boolean gb_db_connected string g_price_power decimal g_dept_interval string g_color=80,g_color_key=80 string g_IPAddress,g_MachineName string g_log_rec=0 /记录日志标记 1：记录，0：不记录 string g_sys_name=重庆工学院会计学院 实验案例 string g_comp_name=重庆工学院 会计学院会计学院 string g_proj_code=,g_proj_name= string g_drive=d:io ,g_pathfilename /导入导出路径 string g_dir_sc= /自动生成路径 integer g_sheet_code_len =10 /单据长度 integer g_len1=3,g_len2=7,g_len3=11,g_len4=19 /小区、大楼、单元、房间编码长度 integer g_len4_1=3,g_len4_2=3 /g_len4_1 楼层长度 g_len4_2 房间长度 string g_zth=001 /帐套号 string g_nkjqj=2005 /年会计期间 2、 存货子系统全局函数设计。 函数名 函数功能 f_oper_check 判断操作员输入的编码及密码是否合法 gf_dw_count 显示数据窗口的行数 f_where_exist 判断有无 WHERE 条件 f_string 字符变量的处理 f_sql sqlca.sqlcode 判断，0、100：false，-1：true gf_ini_table 码表初始化 f_i_o 导入导出初始 f_dw_test_repeat 对数据窗口中的导入数据进行重复性测试 f_dw_test_repeat_del 删除导入导出中的重复数据 函数名 f_oper_check 返回值类型 integer 函数功能 判断操作员输入的编码及密码是否合法 17 参数定义 r_oper_code:string r_pass:string 脚本 string r_oper_pass SELECT pass INTO :r_oper_pass FROM c_operator WHERE oper_code= :r_oper_code; IF sqlca.sqlcode = 100 then messagebox(g_sys_name,“您提供的操作员号码不正确!“) return 1 ELSE IF trim(r_oper_pass) trim(r_pass) THEN messagebox(g_sys_name,“您提供的密码和操作员号不符!rr 是否没有区分大小写?“) return 2 END IF END IF return 0 函数名 gf_dw_count 返回值类型 无 函数功能 显示数据窗口的行数 参数定义 r_dw_table: datawindow r_sle_count: singlelineedit 脚本 long r_row,r_count r_count=r_dw_table.ROWCOUNT() r_row=r_dw_table.getrow() IF r_row0 and r_count0 THEN r_sle_count.TEXT=string(r_row)+/+string(r_count) ELSEIF r_count0 then r_sle_count.TEXT=共+string(r_count)+条 ELSE r_sle_count.TEXT= END IF return 函数名 f_where_exist 返回值类型 integer 函数功能 判断有无 WHERE 条件 参数定义 r_orig_sql: string 脚本 if pos(r_orig_sql,WHERE)0 or pos(r_orig_sql,where)0 then return 1 /有 WHERE 条件 else return 0 /无 WHERE 条件 end if 函数名 f_string 返回值类型 string 函数功能 字符变量的处理 参数定义 r:string 18 脚本 IF ISNULL(r) OR TRIM(r)= THEN r=% ELSE r= r+% END IF RETURN r 函数名 f_sql 返回值类型 boolean 函数功能 sqlca.sqlcode 判断，0、100：false，-1：true 参数定义 无 脚本 if sqlca.sqlcode=-1 then messagebox(sql 错误信息,sqlca.sqlerrtext) rollback; return true else commit; return false end if 函数名 gf_ini_table 返回值类型 无 函数功能 码表初始化 参数定义 无 脚本 /职位 码 表 DELETE FROM c_postion ; INSERT INTO c_postion(postion_code, postion_name) VALUES (01,董事 长) ; INSERT INTO c_postion(postion_code, postion_name) VALUES (02,副董 事长 ) ; INSERT INTO c_postion(postion_code, postion_name) VALUES (03,财务 总监 ) ; INSERT INTO c_postion(postion_code, postion_name) VALUES (04,销售 总监 ) ; /学 历码 表c_edu_level INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (01,博士) ; INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (02,硕士) ; INSERT INTO c_edu_level(edu_level_code,edu_level_name ) VALUES (03,学士) ; /凭 证类 型 码表 DELETE FROM ZW_C_PZLX ; INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (CH,转账 凭证 ) ; INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (SK,收款 凭证 ) ; INSERT INTO ZW_C_PZLX(PZLX_CODE,PZLX_NAME) VALUES (FK,付款 凭证 ) ; if f_sql() then return 函数名 f_i_o 返回值类型 无 函数功能 导入导出初始 参数定义 19 脚本 SetPointer(HourGlass!) delete from save_import ; /导入导出码表 delete from c_save_import ; insert into c_save_import values (01,导入); insert into c_save_import values (02,导出); delete from c_mean ; insert into c_mean values (01,固定); insert into c_mean values (02,自由); insert into c_mean values (03,生成); delete from c_file_type ; insert into c_file_type values (01,dbf); insert into c_file_type values (02,txt); insert into c_file_type values (03,excel); insert into c_file_type values (04,sql); delete from c_interval ; insert into c_interval values (00,无); insert into c_interval values (01,每日); insert into c_interval values (02,每周); insert into c_interval values (03,每月); insert into c_interval values (04,每季度); insert into c_interval values (05,每年); delete from c_flag_code ; insert into c_flag_code values (01,成功); insert into c_flag_code values (02,失败); if f_sql() then return INSERT INTO save_import VALUES ( 001,c_operator,dw_c_operator_grid,01,02,D:iodata, c_operator,01,人员信息 ,00,000,2002-01-01,2002-01-01,01,); INSERT INTO save_import VALUES ( 001,c_operator,dw_c_operator_grid,02,02,D:iodata, c_operator,01,人员信息 ,00,000,2002-01-01,2002-01-01,01,); SetPointer(arrow!) if f_sql() then return else / messagebox(提示,导入导出表初始成功!) end if return 函数名 f_dw_test_repeat 返回值类型 long 函数功能 对数据窗口中的导入数据进行重复性测试 20 参数定义 r_type:string r_dw: datawindow r_sle: singlelineedit 脚本 long r_row,r_rowcount,r_count,r_select,r_return=0 string r_primary r_rowcount=r_dw.rowcount() r_type=lower(r_type) CHOOSE CASE r_type CASE c_operator r_count=1 /关键字段数 r_primaryr_count= FOR r_row=1 TO r_rowcount r_primary1=r_dw.getitemstring(r_row,oper_code) /取关键字 select count(*) into :r_select from c_operator where c_operator.oper_code = :r_primary1 ; if r_select0 then r_dw.SelectRow(r_row, TRUE) r_return=r_return + 1 end if NEXT CASE ELSE END CHOOSE return r_return 函数名 f_dw_test_repeat_del 返回值类型 long 函数功能 删除导入导出中的重复数据 参数定义 r_type:string r_dw: datawindow r_sle: singlelineedit 脚本 long r_row,r_rowcount,r_count,r_select,r_return=0 string r_primary r_type=lower(r_type) r_rowcount=r_dw.rowcount() CHOOSE CASE r_type CASE c_operator r_count=1 r_primaryr_count= FOR r_row=1 TO r_rowcount r_primary1=r_dw.getitemstring(r_row,oper_code) delete from c_operator where c_operator.oper_code = :r_primary1 ; NEXT CASE c_supp r_count=1 /关键字段数 r_primaryr_count= FOR r_row=1 TO r_rowcount r_primary1=r_dw.getitemstring(r_row,supp_code) /取关键字 delete from c_supp where c_supp.supp_code = :r_primary1 ; NEXT CASE ELSE END CHOOSE f_sql() return r_return 3、通过分析，设计存货子系统的通用窗口。 窗口名 窗口功能 w_start 登陆窗口 21 W_set 系统设置窗口 W_code 码表输入、修改窗口 w_sheet_input 单表输入窗口 W_select 综合查询窗口 w_i_o_ini 数据导入导出初始窗口 w_i_o 数据导入导出窗口 窗口名 w_start Message 参数 无 主要功能 登陆窗口 实例变量声明 无 窗口函数 无 控件事件 脚本 w_start: open! /居中 Environment a Integer w,h GetEnvironment(a) w=PixelsToUnits(a.screenwidth,xpixelstounits!) h=PixelsToUnits(a.screenheight,ypixelstounits!) move(w - width)/2,(h - height)/2) this.title= + g_sys_name + 系统登录 确定 cb_ok : clicked! string r_func_code,r_menu_name,r_date,r_sp_info long r_result r_result=f_oper_check(sle_oper_code.text,sle_pass.text) IF r_result0 THEN If r_result=1 Then sle_oper_code.Text=“ sle_oper_code.SetFocus() ElseIf r_result=2 Then sle_pass.Text=“ sle_pass.SetFocus() End If return End If g_date=string(today() g_oper_code=sle_oper_code.text SELECT oper_name ,func_code ,sheet_code,DEPT_CODE,postion_code INTO :g_oper_name,:r_func_code,:g_sheet_code,:g_dept,:r_sp_info FROM c_operator WHERE oper_code = :g_oper_code ; /操作人员的打印权限 SELECT print_yn,menu_name INTO :g_print,:g_menu_name FROM c_func WHERE func_code = :r_func_code ; close(parent) open(w_set) 退出 cb_cancel: clicked! close(parent) 窗口名 W_set Message 参数 无 22 主要功能 系统设置窗口 实例变量声明 无 窗口函数 wf_change_menu(r_menu_name) 参数：string r_menu_name 返回值类型：integer string ls_menu select s_menu into :ls_menu from c_menu where menu_group=:r_menu_name; choose case ls_menu case m_crm w_genapp_frame.ChangeMenu(m_crm) f_set_purview(r_menu_name,m_crm) case else Return 1 end choose Return 0 控件事件 脚本 W_set: Open! dw_dept.SetTransObject ( sqlca ) dw_dept.insertrow(0) dw_dept.setitem(1,1,g_dept) em_date.text=string(today() g_date=em_date.text Environment a Integer w,h GetEnvironment(a) w=PixelsToUnits(a.screenwidth,xpixelstounits!) h=PixelsToUnits(a.screenheight,ypixelstounits!) move(w - width)/2,(h - height)/2) this.title=g_sys_name + 设置 确定 cb_set: clicked! string r_dept_day,r_date1 string r_date,r_dept string r_dept_month_date r_date=em_date.text r_dept=dw_dept.getitemstring(1,1) g_dept=r_dept g_date=r_date setpointer(hourglass!) open(w_genapp_frame) If wf_change_menu(g_menu_name)0 Then messagebox(g_sys_name,系统没有给您提供可用的菜单!r程序将终 止!) halt Else End If setpointer(arrow!) close(parent) 退出 cb_cancel: clicked! close(parent) 23 窗口名 W_code Message 参数 Message.StringParm 主要功能 码表管理窗口 实例变量声明 string i_type,i_code integer i_tab30 long i_row,i_col string i_orig_sql string i_str_precolumn=“ integer i_int_clicktime=0 string i_title /窗口的标题变量 窗口函数 1 f_exit() 参数：无 返回值类型：无 INTEGER NET,RTN dw_tab