2011-03-18会计电算化程序上机练习

会计电算化程序上机练习

1、按R E C N（）关联

已知有AR1．DBF和AR2．DBF两个文件，分别有数量相同的若干条记录，表结构如下：

AR1.DBF

字段字段名类型宽度小数

1 FL1 N 8 2

2 FL2 N 8 2

3 FL3 N 8 2

AR2.DBF

字段字段名类型宽度小数

1 FD1 N 8 2

2 FD2 N 8 2

3 FD3 N 8 2

要求编制程序，按记录号RECN（）关联汇总生成ARHZ．DBF

*程序名：C H E N G X U1.P R G

S E L E B

U S E A R2.D B F

S E L E A

C O P Y F I L E A R1.

D B F T O A R H Z.D B F

U S E A R H Z.D B F

S E T R E L A T O R E C N()I N T O B

R E P L A L L F L1W I T H F L1+B->F D1,F L2W I T H F L2+B->F D2,；

F L3W I T H F L3+B->F D3

B R O W

R E T U

G Z.D B F（结构如下，数据记录若干条，略）

字段字段名类型宽度小数

1 姓名 C 8

2 级别 C 8

3 基本工资 N 8 2

已知上述两个文件中有数量不等的若干条记录，要求编程实现两个文件的逻辑连接，以级别为关键字关联，计算得到基本工资数据。

*程序名：C H E N G X U2.P R G

S E L E2

U S E B Z G Z.D B F

I N D E O N J B T O I J B

S E L E1

U S E G Z.D B F

S E T R E L A T O级别I N T O B

R E P L A L L基本工资W I T H B->标准工资

B R O W

R E T U

已知销售单（XSD．DBF）和价格表（JGB．DBF）两个文件分别有数量不等的若干条记录，表结构如下：

XSD.DBF

字段字段名类型宽度小数

1 产品名称 C 8

2 销售数量 N 8 2

3 单价 N 8 2

4 金额 N 10 2

JGB.DBF

字段字段名类型宽度小数

1 产品名称 C 8

2 单价 N 8 2

要求编制程序，以产品名称为关键字实现两个表文件的逻辑连接，将单价从JGB．DBF中传递到XSD．DBF中，并计算XSD．DBF中的金额栏。（算法关系为：金额=销售数量*单价）

*程序名：C H E N G X U3.P R G

s e l e1

u s e x s d.d b f

s e l e2

u s e j g b.d b f

i n d e o n产品名称t o j g b

s e l e1

s e t r e l a t o产品名称i n t o B

r e p l a l l单价w i t h B->单价,金额w i t h销售数量*B->单价

b r o w

r e t u

4、数据文件的物理连接

已知在工资子系统中,通过输入模块已经生成不变数据工资文件BBSJGZ.DBF（包括姓名,基本工资,国家补贴数据项）和变动数据工资文件BDSJGZ.DBF（包括姓名,奖金,水电费数据项）,两个文件包含的记录个数、姓名一致。要求编程实现两个数据库的连接,生成一个汇总的工资文件（GZWJ.DBF）。

*程序名：C H E N G X U4.P R G

*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、单关键字段的纵向汇总

接第三条程序题,要求对X S D.D B F进一步数据处理,结构内容如下表：

X S D.D B F

生成一个如下格式的产品销售汇总表文件（X S H Z.D B F）。X S H Z.D B F

7、工资文件汇总练习

*程序名：C H E N G X U6.P R G

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