会计电算化程序上机练习.docVIP

会计电算化程序上机练习 1、按RECN（）关联 先要创建两个数据库表文件AR1.DBF、AR2.DBF * 程序名：CHENGXU1.PRG SELE 2 USE AR2 SELE 1 COPY FILE AR1 .DBF TO ARHZ.DBF SET RELA TO RECN( ) INTO B REPL ALL FL1 WITH FL1+B-FD1, FL2 WITH FL2+B-FD2； FL3 WITH FL3+B-FD3 BROW RETU 2、按关键字关联（1） * 程序名：CHENGXU2.PRG SELE 2 USE BZGZ INDE ON JB TO IJB SELE 1 USE GZ SET RELA TO 级别 INTO B REPL ALL 基本工资 WITH B-标准工资 BROW RETU 3、按关键字关联（2） * 程序名：CHENGXU3.PRG Clea sele 1 use xsd.dbf index on cpdm to xsd sele 2 use jgb.dbf inde jgb sele 1 set rela to cpdm into B repl all dj with B-dj , je with sl*B-dj brow retu 4、数据库表文件的物理连接 在工资子系统中，通过输入模块已经生成不变数据工资文件BBSJGZ.DBF（包括姓名，基本工资，国家补贴等数据项）和变动数据工资文件BDSJGZ.DBF（包括姓名，奖金，水电费等数据项），两个文件包含的记录个数、姓名一致。要求编程实现两个数据库的连接，生成一个汇总的工资文件（ GZWJ.DBF）。 * 程序名：CHENGXU4.PRG *GZCL.PRG SELECT A USE BBSJGZ.DBF SELECT B USE BDSJGZ.DBF JOIN WITH A TO GZWJ.DBF FOR 姓名=A—姓名 FIELDS 姓名，A—基本工资；A—国家补贴，奖金，房租费，水电费 USE GZWJ.DBF LIST 5、单关键字段的纵向汇总 * 程序名：CHENGXU5.PRG USE XSD INDE ON CP TO QQ TOTAL ON CP TO DCP BROW RETU * 程序名：CHENGXU.PRG C：GZ。DBF 数据库中的记录个数：7 字段 字段名 类型 宽度 小数 1 汇总码 C 4 2 编号 C 4 3 姓名 C 8 4 应发工资 N 8 2 5 实发工资 N 8 2 RECORD 汇总码 编号 姓名 应发工资 实发工资 1 1100 厂部 2 1101 张华 785、0 807、5 3 1102 王山 664、5 700、5 4 1103 程英 1013、0 1004、5 5 1200 车间 6 1201 马英 886、5 863、4 7 1202 山洪 675、5 703、4 (提示：在所列字段中，汇总码是专用于进行汇总的，汇总后失去意义。) 要求：按部门汇总生成企业工资汇总表文件 *gzhz.prg set safety off use gz.dbf *按部门汇总 repl all 汇总码 with substr(编号，1，2) total on汇总码 to hz1.dbf *求合计 use hz1.dbf repl all汇总码 with ‘1’ total on汇总码to hz2.dbf appe from hz2.dbf go bottom repl 姓名 with ‘合计’ set safety on retu 运行结果: 形成的汇总文件格式如下： c:hz1.dbf 记录个数：3 Record 汇总码 编号 姓名 应发工资 实发工资 1