foxpro6.0可以用SQL语言吗?

bk2898 27 0

foxpro6.0可以用SQL语言吗?

怎么用啊请指教,谢谢!

foxpro6.0可以用SQL语言,这是用 vfp6的简单查询生成的。

SELECT FJGZ2.Xm,FJGZ2.B14;
FROM D:\FJGZ\DBF\FJGZ2.DBF FJGZ2;
ORDER BY FJGZ2.Xm,FJGZ2.B14

您可以在程序中 执行它:

DO query.qpr

用vfp6的交叉查询生成的。

SELECT ZLMXB.Dm, ZLMXB.Zldm, SUM(ZLMXB.Rzj);
FROM 'E:\GMB\DBF\ZLMXB.DBF' ZLMXB;
GROUP BY ZLMXB.Dm, ZLMXB.Zldm;
ORDER BY ZLMXB.Dm, ZLMXB.Zldm;
INTO CURSOR SYS(2015)
DO (_GENXTAB) WITH 'Query',.t.,.t.,.t.,,,,.t.,0,.t.
BROWSE NOMODIFY

假如生成的保存在ZLMXB.qpr中
DO ZLMXB.qpr.qpr 即可。

怎样控制Foxpro 程序主窗口屏幕显示

在我用Foxpro编写的程序运行时,主窗口背景图片在1024×768下显示正常,但在19"宽屏1440×900条件下显示,则呈现出类似Windows桌面图片平铺状态(如下图),怎样控制这种状态下图片呈拉伸状态,且随主窗口大小变化时,图片也能随之一起变化,显示和幅完整的画面?请高手赐教,谢谢!!
VFP6.0中
没有Anchor属性,也没有Bindevent函数,因此需要使用类定义中的_Parent.Resize来实现锚定:
Define Class BackImage As Image
Stretch = 2
Procedure Parent.Resize
This.Move(0 ,0 ,This.Parent.Width ,This.Parent.Height)
EndProc
EndDefine
然后使用下列代码添加到_Screen中:
_Screen.AddObject('BackImage' ,'BackImage')
With _Screen.BackImage
.Picture = m.cPicture
.Move(0 ,0 ,_Screen.Width ,_Screen.Height)
.Visible = .T.
EndWith

VFP7.0及以后版本中
在_Screen中添加一个Image控件作为背景,设置Stretch属性为变比填充,并调整它的大小与位置使它填满整个屏幕,然后设置锚定值为15。代码如下:
If !PemStatus(_Screen ,'BackImage' ,5) Then
_Screen.AddObject('BackImage' ,'Image')
EndIf
With _Screen.BackImage
.Stretch = 2
.Picture = m.cPicture
.Move(0 ,0 ,_Screen.Width ,_Screen.Height)
.Anchor = 15
.Visible = .T.
EndWith

下面分享相关内容的知识扩展:

visualfoxpro如何建立总账表

visual foxpro怎么建表 visual foxpro进行建表的方法步骤
佚名
2022-08-16 17:37:14
关注
小伙伴们你们知道visual foxpro怎么建表呢?今天小编很乐意与大家分享visual foxpro进行建表的方法步骤,感兴趣的可以来了解了解哦。
visual foxpro怎么建表?visual foxpro进行建表的方法步骤
打开Visual FoxPro 6.0软件,从第一列的“文件”菜单中选择“新建”;
在“新建”对话框中选择“表”,然后单击“新建文件”或“向导”,下面以选择“新建文件”为例;
在弹出的“创建”对话框中的“输入表名”中输入表的名称,如“学生成绩表”,最后单击“保存”,这时会看到系统自动弹出的“表设计器”;

跪求Microsoft Visual FoxPro 6.0里面查询筛选怎么做,讲的细点

查询中的筛选用SQL命令里的where子句,或者在查询设计器中的第三个选项页用筛选直接做;但是如果遇到组筛选,先用group by ,在用having做。一般二级考试后者居多。
举例:假设学生表中有性别,学号,姓名;成绩表中有学号,成绩。
1。要求筛选出学生表中性别为“男”的记录。这里就可用where 性别=“男”。因为只是筛选记录。
2。要求筛选出表中成绩的平均分小于60的学生姓名。这里就要用到group by.
命令如下:select 姓名,avg(成绩) from 学生 inner join 成绩 on 学生.学号=成绩.学号 group by 成绩.学号 having avg(成绩)<60

我想要知道用foxpro 6.0将两表合并成一张新表的命令,要具体的命令格式。谢谢!

例题:
表一:spbh 品名 库存数量 表二:spbh 盘点数量
001 酒 12 001 11
002 烟 500 002 480
003 衣服 5000 004 600
004 鞋子 700
最后合并成一张新表 spbh 品名 库存数量 盘点数量
001 酒 12 11
002 烟 500 480
003 衣服 5000 0
004 鞋子 700 600
clos tabl
use A表
go bott
appe blan
repl n with "004"
sele A表.n,nvl(A表.b1,0) b1,nvl(B表.b2,0) b2 from A表 left join B表 on A表.n=B表.n

sele nvl(A表.n,B表.n) n,nvl(A表.b1,0) b1,nvl(B表.b2,0) b2 from A表 full join B表 on A表.n=B表.n

抱歉,评论功能暂时关闭!