一.1.
(1)新建表gz20101001797:
选定“文件”——选定“新建”——选定“表”——选定“新建文件”
(2)输入表名:
在“保存在”选择“本地磁盘F”——“vfp”
在“输入表名”输入gz20101001797——选定“保存”
在表设计器中按以下内容输入:
c(4) ;分厂 n(2,0);基本工资 n(6,2);奖金 n(6,2);扣款 n(6,2);应发工资 n(6,2);
备注 m
选定“确定”——“是”
按大纲上职工工资表输入内容
2.
插入命令如下(以在第3个记录后插入为例):
use gz20101001797
go 3
insert
use
添加命令如下:
use gz20101001797
append
use
删除命令如下:
use gz20101001797
go 3
delete
pack
list
use
修改命令如下:
use gz20101001797
选定“显示”——“浏览”——“显示”——“编辑”
按需求进行数据的修改
3.
指针移动:
use gz20101001797
go 3
检索:
use gz20101001797
locate for 分厂=1
display
continue
4.
排序:
use gz20101001797
sort to new1 on 分厂/D fields ,基本工资
use new1
list
索引:
use gz20101001797
index on 分厂 tag fc desc
list
统计:
use gz20101001797
count for 分厂=1 to fc
?fc
sum 基本工资 to jbgz
?jbgz
二.
1.
命令如下:
modi comm 2-1
close all
r=10
C=2*Pi()*r
?C
2.
命令如下:
modi comm 2-2
input"存款:" to x
input"存期:" to a
do case
case a=1
y=(1+0.05)*x
case a=2
y=(1+0.055)*x
case a=3
y=(1+0.062)*x
endcase
?"期末应付本息:",y
3.
命令如下:
modi comm 2-3
input"二次项系数=:" to a
input"一次项系数=:" to b
input"常数项=:" to c
do case
case a=0 s=-c/b s1=-c/b case b^2-4*a*c<0 s="无实数解" s1="无实数解" case b^2-4*a*c>=0 s=(-b+(b^2-4*a*c)^(1/2))/(2*a) s1=(-b-(b^2-4*a*c)^(1/2))/(2*a) endcase ?"方程的解为:",s,s1 4.
命令如下:
modi comm 2-4
store 0 to i,s,t
do while i<50
i=i+1
s=s+i
enddo
?"1+2+...+50=",s
三.
1.
命令如下:
use gz20101001797.dbf
repl all 应发工资 with 基本工资+奖金-扣款
sum 基本工资 to jbgz
sum 奖金 to jz
sum 扣款 to kk
sum 应发工资 to yfgz
go 6
repl 基本工资 with jbgz
repl 奖金 with jz
repl 扣款 with kk
repl 应发工资 with yfgz
brow
程序方式:
modi comm. Jsgz
clear
use gz20101001797.dbf
repl all 应发工资 with 基本工资+奖金-扣款
sum 基本工资 to jbgz
sum 奖金 to jz
sum 扣款 to kk
sum 应发工资 to yfgz
go 6
repl 基本工资 with jbgz
repl 奖金 with jz
repl 扣款 with kk
repl 应发工资 with yfgz
brow
2.
命令如下:
use gz20101001797
index on 分厂 tag fc
total on 分厂 to gzhz20101001797 fiel 基本工资,奖金,扣款,应发工资
use gzhz20101001797
brow fiel 分厂,基本工资,奖金,扣款,应发工资 titl "全厂工资汇总表"
use
程序方式:
modi comm hz
close all
use gz20101001797
index on 分厂 tag fc
total on 分厂 to gzhz20101001797 fiel 基本工资,奖金,扣款,应发工资
use gzhz20101001797
brow fiel 分厂,基本工资,奖金,扣款,应发工资 titl "全厂工资汇总表"
use
3.
命令如下:
use gz20101001797
brow
input "是否需要打印? 需要请输入1,不需要请输入2 " to a
do case
case a=1
list to printer
case a=2
endcase
use gzhz10
brow
input "是否需要打印? 需要请输入1,不需要请输入2 " to b
do case
case b=1
list to printer
case b=2
endcase 程序方式: modi comm dy close all use gz20101001797 brow input "是否需要打印? 需要请输入1,不需要请输入2 " to a do case case a=1 list to printer case a=2 endcase use gzhz10 brow input "是否需要打印? 需要请输入1,不需要请输入2 " to b do case case b=1 list to printer case b=2 endcase
4.
选定“工具”——“向导”——“表单”——“表单向导”——“确定”——在数据库和表 项目打开gz20101001797.dbf——将可用字段中的字段全部添加到选定字段——“下一步” —— “下一步” ——将可用字段中的, 分厂添加到可用字段—— “下一步” ——