1、FoxPro命令集锦FoxPro命令集锦FoxPro命令集锦职称考试用一、创建数据表的结构命令1:CREATE 路径表名例子:在A盘创建GZ2数据表。 CREATE A:GZ2命令2:CREATE 新表名 FROM 旧表名例子:在A盘由GZ1创建GZ3数据表。 CREATE A:GZ3 FROM A:GZ1二、表结构的显示命令:LIST STRUCTURE DISPLAY STRUCTURE例子:显示当前数据表在结构。 LIST STRUCTURE三、数据表的打开命令:USE 表名 INDEX 索引文件名 EXCLUSIVE例子:打开A盘GZ1数据表。 USE A:GZ1四、数据表的关闭命令:
2、USE CLOSE DATA例子:关闭当前打开的数据表。 USE五、表结构的修改命令:MODIFY STRUCTURE例子:修改当前数据表的结构。 MODIFY STRUCTURE六、表数据的输入命令:APPEND BLANK例子:向当前数据表追加数据。 APPEND七、表记录的显示命令:BROWSE FIELDS 字段表FOR 条件 LIST 范围FIELDS字段表FOR 条件 DISPLAY 范围FIELDS字段表FOR 条件例子:显示当前表中“应发合计”大于1000元的记录的职工编号、姓名、应发合计三个字段。 BROWSE FIELDS 职工编号,姓名,应发合计 FOR 应发合计1000
3、 LIST 职工编号,姓名,应发合计 FOR 应发合计1000八、用复制方法建新表命令:COPY TO 新表名 范围FIELDS 字段表FOR 条件例子:把当前表中“应发合计”大于1000元的记录复制到新数据表GZ2中。 COPY TO A:GZ2 FOR 应发合计1000九、从其他表取数据命令:APPEND FROM 表名 FOR 条件例子:把GZ1表中“应发合计”大于1000的记录复制到当前的表后面。 APPEND FROM GZ1 FOR 应发合计1000十、记录指针定位命令:GO n|TOP|BOTTOM (绝对移动) SKIP n (相对移动)例子:把记录指针移到第1条记录。 GO
4、TOP十一、记录的插入命令:INSERT BLANKBEFORE例子:在当前记录后插入一条空记录。 INSERT BLANK十一、修改记录命令:EDIT 范围FIELDS字段表FOR 条件例子:进入修改记录状态。 EDIT十二、替换记录命令:REPLACE 范围 字段 WITH 表达式 FOR 条件例子:计算各记录“应发合计”字段的值。 REPLACE ALL 应发合计 WITH 职务工资+岗位津贴+保留奖金+保留津贴十三、删除记录命令:DELETE 范围FOR 条件 (打删除标记) PACK (删除有删除标记的记录) ZAP (删除所有记录) 例子:删除“职工编号”空白的记录。 DELETE
5、 ALL FOR 职工编号= PACK十四、数据表排序排序是物理排序,生成一个新的表文件。命令:SORT TO 新表名 ON 字段名 /A/D 范围FOR 条件例子:把当前表中记录按“应发合计”从大到小重新排序。 SORT TO A:GZ3 ON 应发合计 /D十五、数据表索引索引是逻辑排序,生成一个索引文件。(一)标准索引文件:IDX命令:新建索引:INDEX ON 字段名表达式 TO 索引文件名 同时打开:USE 表名 INDEX 索引文件名之后打开:SET INDEX TO 索引文件名重新索引:INDEX ON 字段名表达式 TO 索引文件名关闭索引:SET INDEX TO例子:对当前
6、数据表以“应发合计”从大到小排列。 INDEX ON -应发合计 TO GZ(二)复合索引文件:CDX命令:新建索引:INDEX ON 字段名 TAG 标记 ASCEDING|DESCENDING 同时打开:USE 表名 ORDER TAG 标记改变索引:SET ORDER TO TAG 标记重新索引:INDEX ON 字段名 TAG 标记关闭索引:SET ORDER TO删除索引:DELETE TAG 标记例子:对当前数据表以“应发合计”从大到小排列。 INDEX ON 应发合计 TAG HJ DESC十六、查找记录(一)顺序查找命令:LOCATE FOR 条件 范围继续查找命令:CONTI
7、NUE例子:在当前的表中查找姓“张”的记录。 LOCATE FOR 姓名=张(二)索引查找根据当前的索引来查找记录。命令:FIND 字符串SEEK 表达式用FOUND()检查找到否。例子:在当前的表中查找姓“张”的记录。 FIND 张 SEEK 张(三)查找函数函数:SEEK()例子:在当前的表中查找姓“张”的记录。 SEEK(张)十七、统计数据表记录个数命令:COUNT 范围FOR 条件TO 变量例子:统计当前表中“应发合计”大于1000元的人数。 COUNT FOR 应发合计1000十八、数据表数值字段的求和命令:SUM 范围FOR 条件TO 变量例子:统计当前表中“应发合计”字段的总和。
8、 SUM 应发合计十九、算术平均值的计算命令:AVERAGE 范围FOR 条件TO 变量例子:统计当前表中“应发合计”字段的平均值。 AVERAGE 应发合计二十、多功能计算命令:CALCULATE 表达式 范围FOR 条件TO 变量例子:分别统计当前表中“应发合计”字段的人数、总和、平均值。 CALCULATE CNT(应发合计),SUM(应发合计),AVG(应发合计)二十一、练习用命令完成:1、建立一个“应扣工资部分表”数据表,起名GZ2.DBF。 数据表有职工编号、姓名、年月、水费、电费、公积金、应扣合计7个字段。2、输入10个记录。3、显示数据表结构,以两种方式显示数据表记录。4、删除
9、记录。5、分别建立职工编号、姓名的索引,查找记录。6、只显示“应发扣计”大于100元的记录。7、只显示职工编号、姓名、应扣合计三个字段。8、分别统计表中“应扣合计”字段的人数、总和、平均值。加密确认密码的代码事件:clos databaseuse mmk2if.t. if allt(thisform.password2.value)=allt(mmk2.xm) if allt(thisform.password1.value)=allt(mmk2.mm) use do form wdxrrcda endifendif thisform.release else quit endif thisf
10、orm.release 在表单form1文本框中, 设置显示当前时间:This.value=datetime()表单form1 、actiiate设置代码,在屏幕中停留时间:ttime=datetime()do whil datetime()-ttime=3 &定为3秒钟enddodo form 打开数据库生成表格:expo to xls分工种统计最高分、最低分、平均分sele 工种 as 工种分类,max(考试成绩) as 本工种最高分数,min(考试成绩) as 本工种最低分数 from ygcjlr GROUP BY 1 TO SCREENsele 工种 as 工种分类,max(考试成绩
11、) as 本工种最高分数,min(考试成绩) as 本工种最低分数 from ygcjlr GROUP BY 1 TO SCREEN &临时表sele 工种 as 工种分类,max(考试成绩) as 本工种最高分数,min(考试成绩) as 本工种最低分数 ,avg(考试成绩) as 平均成绩 from ygcjlr GROUP BY 1 TO SCREENsele 工种 as 工种分类,max(考试成绩) as 本工种最高分数,min(考试成绩) as 本工种最低分数 ,avg(考试成绩) as 平均成绩 from ygcjlr GROUP BY 1 into cursor 汇总表 &生成临
12、时表copy to 汇总库 &生成正式表expo to 汇总正式表 xls &转表格低于80高于90分的人员:select 单位,姓名,考试成绩 from ygcjlr where 考试成绩 not BETWEEN 80 AND 90 TO SCREEN显示1965年出生的人员sele 姓名,工作单位,出生年月 from 员工培训 where 出生年月 like 1965% to screen80至90之间人员的分数select 单位,姓名,考试成绩 from ygcjlr where 考试成绩 BETWEEN 80 AND 90 TO SCREEN统计1985和1988年参加工作时间的人数s
13、ele 姓名,工作时间 from 薪酬用 where val(工作时间) betw 1985 and 1988 to screen统计各工种的成绩情况:sele 工种 as 工种统计,count(*),max(考试成绩),min(考试成绩),avg(考试成绩) from ygcjlr group by 工种 to screen分单位统计各工种情况sele 单位,工种 as 工种统计,count(*),max(考试成绩),min(考试成绩),avg(考试成绩) from ygcjlr group by 工种 to screen工种分类并求出各工种的人数:sele dist(工种) as 工种分类, count(工种) from ygcjlr group by 工种 to screen分工种统计以下内容并分类计数:sele 单位,工种 as 工种统计,count(*)as 工种人数,max(考试成绩) as 最高分数,min(考试成绩) as 最低分数,avg(考试成绩) as 平均分数 from ygcjlr group by 工种 to screen & to cursor 生成临时表
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1