vfp中jcvfp是什么意思么

来源：蜘蛛抓取(WebSpider) 时间：2016-06-24 08:35 标签： jc是什么意思
VFP2009秋上机试题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VFP2009秋上机试题
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩8页未读，继续阅读
你可能喜欢君，已阅读到文档的结尾了呢~~
看了这些 VFP不过都难
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
看了这些 VFP不过都难
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口vfp--人事管理系统_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vfp--人事管理系统
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩30页未读，继续阅读
你可能喜欢看实例学VFP：将查询结果输出为表或文本文件
看实例学VFP：将查询结果输出为表或文本文件
看实例学VFP：将查询结果输出为表或文本文件
在这个例子中，汇总结果是显示在表格控件中的。本文对这个例子再做进一步的改进，可以在运行时选择“数据表”或“文本文件”，使之在把汇总结果显示到表格控件中的同时，将查询结果输出为“查询结果.DBF”或“查询结果.txt”。
本例应用到了select语句中的Group By子句的知识,关于select语句请参考： 或。本例应用到了数据环境，并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源，关于该数据库的情况已经在一文中给出，运行界面见本文末尾。
制作步骤：
一、新建表单，将其caption属性值设置为“将查询结果输出为表或文本文件”，AutoCenter属性值设置为.t.，width属性值设置为375，height属性值设置为275，并将表单保存为“将查询结果输出为表或文本文件.scx”。
二、向表单上添加一个label控件、一个组合框控件及一个命令按钮控件，将这三个控件排成一行，并分别设置它们的属性：
1、label控件：caption属性值设置为“汇总条件”。
2、组合框控件Combo1：RowSourceType属性值设置为“1-值”，RowSource属性值设置为“部门,性别,学历”。
3.命令按钮控件command1：caption属性值设置为“汇总”。
三、在“汇总”按钮这一行控件的下方，再添加一个label控件，并将其caption属性值设置为“输出格式”。在label控件的右侧再添加一个选项按钮组控件（Optiongroup）
，右击添加好的选项按钮组控件Optiongroup1，选择“编辑”命令，待该控件四周出现蓝绿色虚线时（此为选项按钮组的编辑状态，在此状态下可以修改选项按钮组控件内单个选项按钮的属性），拖动Option1和Option2使它们在选项按钮组控件内呈水平排列，然后依次单击选中Option1和Option2，将它们的caption属性依次设置为“数据表”和“文本文件”，如下图：
四、右击表单空白处，选“数据环境”命令，将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上，自动生成一个表格控件。由于是从数据环境中把“人员信息表”拖动过来由系统自动生成的，该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了，我们把表格控件的name属性值修改为“grid1”。
五、适当调整各控件在表单上的位置，调整后的表单设计器如下图所示：
六、添加事件代码：
（一）表单的init事件：
public SCsc='into table 查询结果'
（二）“汇总”按钮command1的click事件：if used('查询结果')
sele 查询结果
private CXTJ,TJ
bo1.displayvalue
if empty(CXTJ)
&& 判断列表框和文本框是否为空
messagebox('请输入完整条件！',16,'系统提示')
bo1.setfocus
case alltrim(CXTJ)='部门'
TJ='部门,count(编号) as 人数,sum(基本工资)as 总工资,;
avg(基本工资)as 平均工资,count(编号)/reccount()*100 as 百分比'
case alltrim(CXTJ)='性别'
TJ='性别,count(编号) as 人数,sum(基本工资)as 总工资,;
avg(基本工资)as 平均工资,count(编号)/reccount()*100 as 百分比'
case alltrim(CXTJ)='学历'
TJ='学历 as 学历,count(编号) as 人数,count(编号)/reccount()*100 as 百分比'
if sc='into table 查询结果'
Select &tj. from 人员信息表;
Group By &cxtj. &sc.
Select &tj. from 人员信息表;
Group By &cxtj. into cursor 查询结果
Select &tj. from 人员信息表;
Group By &cxtj. &sc.
thisform.Grid1.columncount=-1
thisform.grid1.refresh
thisform.grid1.recordsource='查询结果'
thisform.grid1.backcolor=rgb(200,224,248)
thisform.refresh
七、运行“将查询结果输出为表或文本文件.scx”，界面见下图：
本例代码在Win2003+VFP6.0环境下调试通过。
发表评论：
TA的最新馆藏[转]&[转]&vfp中读程序题 S=0FOR N=1 TO 6S=S+JC(N) ENDFOR***函数过程***FUNCTION JCPARAMETER XP=1FOR M=1 TO XP=P*MENDFORRETURN PENDFUN
血刃伤心k10
jc(n)函数是求n的阶乘而主程序循环由1到6,s是累加变量所以s循环后的值是1!+2!+3!+4!+5!+6!也就是1到6阶乘的和
为您推荐：
其他类似问题
扫描下载二维码

我要回帖

更多关于 jc是什么意思 的文章

 

随机推荐