管理系统中计算机应用上机,管理系统中计算机应用上机练习.pdf

管理系统中计算机应用上机练习

《管理系统中计算机应用》实践上机练习资料之一

注：考试环境为Visual FoxPro 6.0

一、创建项目文件操作

1．在自己的目录(以自己的准考证号建的目录)下创建项目文件：设备管理.pjx

2．编辑项目信息，具体内容:在“作者”栏填上考生自己的“姓名”，“单位”栏填上“准考证号”。

1

二、项目中创建自由表，录入数据

3．在项目中创建自由表：设备表.dbf 并保存在自己目录下，表的结构如下：

字段名 字段类型 字段宽度 小数位

设备编号 字符型 10

设备名 字符型 20

型号 字符型 30

价格 数值型 10 2

购置日期 日期型 8

折旧价 数值型 10 2

2

4．在设备表.dbf 表中输入以下记录：

设备编号 设备名 型号 价格 购置日期 折旧价

笔记本电脑 Apple macbook 13650.00 2016-5-1

传真机 KX-FP7006CN 589.00 2013-4-6

打印机 HP LJ1020 1299.00 2013-11-12

路由器 D-LINK 155.00 2014-11-5

数码相机 Canon-d600 4180.00 2014-4-22

投影仪 EPSON-CB-S04 2450.00 2015-9-12

3

注：日期型的输入格式为：月/ 日/年。可在工具-选项-区域- 日期格式查看。

三、简单应用题

5.为设备表.dbf 建立普通索引，索引名为设备编号，索引表达式为设备编号。

4

6、编写一段程序 (文件名为zj.prg)：每件设备按每年折旧5%的规律 (不足年的按2%折旧)，计算出到2015 年

底的折旧价并填写到折旧价字段内。

注：此处若保存按钮为灰色，可先输入小部分内容再行关闭、保存。

5

Clear

Use 设备表

Scan

T=({^2015-12-31}-购置日期)/365

R=mod(t,1)

Mod ：求余函数

I=int(t)

Int ：向下求整函数

If r>0

Rate=0.95^i*0.98

Else

Rate=0.95^i

Endif

Replace 折旧价 with 价格*rate

Endscan

命令：do z