关于VFP问题

Posted 2023-04-16

求VFP编写多媒体播放器代码，偶初学，说的详细点，谢谢！

1、visual
foxpro是基于（b：windows
）操作系统的数据库系统。
a：ms-dos
b：windows
c：unix
d：amos/l
2、命令select
0的功能是（
a：选择区号最小的空闲工作区）。
a：选择区号最小的空闲工作区
b：选择区号最大的空闲工作区
c：选择当前工作区的区号加1的工作区
d：随机选择一个工作区的区号
3、在vfp系统中，用户打开一个表后，若要显示其中的记录，可使用的命令是（
a：browse
）。
a：browse
b：show
c：view
d：open
4、下面命令执行后都将生成abc.dbf文件，其中生成空表文件的命令是（
c：copy
structure
to
abc
）。
a：copy
to
abc
fields
xm，xb
b：copy
to
abc
c：copy
structure
to
abc
d：copy
file
to
abc
5、表达式len(‘abc'-‘de')的值是（c：5
）。
a：1
b：3
c：5
d：7
6、若使用replace命令，其范围子句为all或rest，则执行该命令后记录指针指向（b：末记录
）。
a：首记录
b：末记录
c：首记录的前面
d：末记录的后面
7、仅关闭当前表文件的命令是（c：use
）。
a：close
all
b：clear
c：use
d：close
database
8、delete命令的作用是（a：为当前记录做删除标记
）。
a：为当前记录做删除标记
b：直接物理删除当前记录
c：删除当前表文件的所有记录
d：在提问确认后物理删除当前记录
9、执行list
next
1命令之后，记录指针的位置指向（a：下一条记录
）。
a：下一条记录
b：原来记录
c：尾记录
d：首记录
10、命令select
3等价于命令（c：select
c
）。
a：select
a
b：select
0
c：select
c
d：select
ⅲ
11、vfp中的set
relation关联是（
d：物理排序）。
a：逻辑连接
b：物理连接
c：逻辑排序
d：物理排序
12、使用下面命令必须打开索引文件的是（c：seek
）。
a：go
b：locate
c：seek
d：index
13、若表文件及其索引文件已打开，为了确保指针定位在记录号为1的记录上，应该使用的命令是（a：go
top
）。
a：go
top
b：go
recno()=1
c：skip
1
d：go
1
14、执行命名seek
"张三"后，若未找到符合条件的记录，则命令?bof()，?found()，?eof()的显示结果是（c：t
f
f
）。
a：f
t
f
b：f
f
t
c：t
f
f
d：f
t
t
15、关闭当前工作区所有已打开的索引文件，正确的命令是（
c：close
index
all
）。
a：use
b：set
index
to
c：close
index
all
d：set
order
to
16、为一个打开的表文件增加新字段，应当使用命令（
a：append
）。
a：append
b：modify
structure
c：insert
d：browse
17、若能够正常执行下面命令，指出字段"修理日期"的类型是（d：日期型
）。
replace
all
修理日期
with
dtoc(date())
a：数值型
b：字符型
c：逻辑型
d：日期型
18、表达式len("计算机+6")的值是（
c：7）。
a：12
b：6
c：7
d：8
19、表达式at("is","this
is
a
boy")的值是（c：3
）。
(猜的)
a：.t.
b：.f.
c：3
d：6
20、命令文件（程序文件）的扩展名是（
b：prg
）。
a：idx
b：prg
c：dbc
d：dbf 参考技术A 我们在利用VFP开发多媒体应用程序时，常常需要播放诸如AVI、MPG等格式的视频文件。笔者在编程实践中摸索出几种播放视频文件的方法，下面介绍各种方法以播放C盘根目录下的wj.avi文件为例。

直接调用媒体播放器进行播放

在程序设计时，可以调用超级解霸、媒体播放器等多种视频播放器播放视频文件。具体实现方法如下：

在一个表单中添加一个命令按钮，其Name属性为CmdPlay。为事件CmdPlay_Click写入以下代码：

Run c:\sthvcd60\mmxvcd c:\wj.avi &&&&调用超级解霸或Run c:\ProgramFiles\WindowsMediaPlayer\mplayer2 c:\wj.avi &&&&调用媒体播放器。

运行该表单时，利用超级解霸或媒体播放器固有的功能按钮控制播放。

利用Multimedia多媒体控件进行播放

在设计时，首先应通过“工具”菜单下的“选项”将Multimedia控件添加到控件箱中。然后，在一个表单中加入一个Multimedia多媒体控件，其Name属性为Olecontrol1。并为事件Form1_Activate加入以下代码：

Thisform.Olecontrol1.DeviceType='avivideo'

&&&&设置多媒体控件管理的设备类型

Thisform.Olecontrol1.FileName='c:\wj.avi' &&&&设置播放的视频文件

Thisform.Olecontrol1.Command='Open' &&&&打开设备

运行该表单时，利用多媒体控件的固有按钮控制播放。

利用可视类Videoframe进行播放

在实现时，首先通过“查看类”下的“添加”项，将Samples类加入，然后，在一个表单中添加Videoframe对象，其Name属性为Videoframe1，再添加三个命令按钮，其Name属性分别为CmdPlay、CmdPause、CmdClose。并为各个事件写入代码：

在CmdPlay_ Click事件中：

Thisform. Videoframe1.VideoFile='c:\wj.avi'

&&&&设置播放文件

Thisform. Videoframe1.OpenVideo &&&&调用打开过程

运行该表单时，利用三个命令按钮即可控制媒体的播放。

也可参照以下地址源程序（给加分吧）

参考资料：http://group.hexun.com/qqqddd01/discussion.aspx?articleid=2322458

本回答被提问者和网友采纳 参考技术B 第一问答：所显的结果为：Command
contain
unrecognized
phrase/keyword.（意：命令中含有无法辨识的短语或关键词）；
第二问答：这个式子不好怎么解释，估计你敲漏了后单引号。
如果是以下情况，则有另一番解释：
X=48.789,则STR(X,2)-SUBSTR('48.789',5,1)
第一问答：所显的结果为：498；
第二问答：函数
STR()的作用是：将指定的数字型的值或表达式按指定的长度转换成字符型的值或表达式，转换时会有四舍五入的情况。
STR(X,2)意为：将数字型变量
X
中的值，转换成长度为
2
的字符型的值，STR(X,2)
=
STR(48.789,2)
=
49；
函数
SUBSTR()的作用是：将指定的值或表达式，按指定的位置开始，截取指定长度的内容。
SUBSTR('48.789',5,1)意为：从第
5
个字符开始截取
1
个字符的内容，即：8
VFP
中的字符运算符号－－减号的作用是：将欲参加运算的各项连接，连接时，各项数据的尾空全部集中放在结果的尾部。
故〔X=48.789，STR(X,2)-SUBSTR('48.789',5,1)〕的结果为：498（因连接前，前后各项的运算没有首尾空，所以连接后只是这三个数字，无首尾空）。 参考技术C FIND与SEEK命令都是索引查找命令。由于索引查找速度快，又称快速查找。FIND命令可用于字符型和数值型数据的快速查找，可以查找字符型和数值型常量，但不能查找变量和表达式。用于查找的字符串呆以加定界符，也可以不加定界符。若使用字符型变量，必须加“&”。SEEK命令查找的对象是表达式，即可以是常量、变量或表达式，字符型常驻量必须加定界符，字符型变量前不需加“—”。SEEK命令的功能远强于FIND命令，所以在Visual
FoxPro中很少使用FIND命令，而用SEEK命令取而代之。 参考技术D 一、1.C
2.D
3.C
4.B
5.C
6.C
7.A
8.关系数据库管理系统存储与管理数据的基本形式是:B
A)关系树
B)二维表
C)结点路径
D)文本文件
一、1.C
2.C
3.B
4.C
5.A
6.C
7.C
8.C
9.A
10.A
(希望你能满意！)

带有 MSSCCI 的 VFP 9 SP2：项目加载缓慢

【中文标题】带有 MSSCCI 的 VFP 9 SP2：项目加载缓慢

【英文标题】：VFP 9 SP2 with MSSCCI: slow project loading

【发布时间】：2016-05-11 08:45:05

【问题描述】：

MSSCCI 是否有可能使 VFP 项目加载缓慢？项目有 1000 多个文件，工作区是服务器。项目加载大约 120 多秒。加载过程中网络流量较大，CPU和内存没有明显变化。请问如何优化加载项目？

解决方案：

不，似乎加载缓慢是由于在 VFP 中控制源代码的小型大型项目使用 MSSCCI 提供程序的结果。

【问题讨论】：

您使用的是哪个版本的 TFS？您使用的是哪个版本的 MSSCCI？你的意思是你在本地缓慢加载项目，还是从 TFS 缓慢获取项目？是特定的人正在经历还是所有人都在经历？您如何部署 TFS、单服务器或两层？你安装杀毒软件吗？

我们使用 MSSCCI（2013&2015 MSSCCI Provider 32 位）连接到 Visual Studio Team Services。我们在两台电脑上试了试——Windows 10（没有杀毒软件）、Windows 7（安装了杀毒软件）和同样的问题。项目源码控制（在线）加载慢，断网（离线工作）加载快。

您的网络环境中是否启用了代理？

不，我们没有。会不会有问题？

【参考方案1】：

几年前，我们考虑过从 Visual SourceSafe 迁移到 TFS。当 VFP 项目与 TFS 集成时，打开项目的时间比使用 VSS 的时间长。集成还有其他奇怪的地方，例如无法查看文件何时已被其他人签出。我们最终放弃了这个想法并坚持使用 VSS。也就是说，我不一定会责怪 MSSCCI 提供商。它可能与 VFP 查询源代码控制数据的方式有关。

请注意，您不需要使用 VFP 项目集成。您可以使用单独的源代码控制客户端来签入/签出文件。您需要一个生成二进制文件（SCX、VCX 等）文本版本的过程。

FWIW，使用 VSS 打开项目也可能很慢。升级我们的 VSS 服务器有很大的不同。如果您在较旧/较慢的服务器上运行 TFS，您可能会发现相同的情况。

【讨论】：

最后我们将使用 Mercurial 而不是 Bitbucket 和 SourceTree 客户端。所以使用外部源代码控制。谢谢你的建议。

【参考方案2】：

我没有使用它，所以我不能直接评论它。

一个项目只是一张表，一个包含 1000 多个文件的项目大约意味着 2Mb 左右，这对于当今的网络来说是毫无意义的（即使它意味着要降低所有这些数据）。通常它应该立即打开或最多延迟 1-2 秒（假设您没有使用极慢的网络）。

【讨论】：

是的，你说得对。但是，我认为 MSSCCI 在项目加载期间连接 VSTS 以获取有关所有源代码控制文件的一些元信息，这会使加载速度变慢。但我认为应该很快。

【参考方案3】：

请提供有关您的环境的更多详细信息。 确保您的 TFS 和 MSSCCI 使用的是最新版本。 尝试在另一台客户端计算机上查看您的问题是否会重现。 创建一个新的工作区，看看性能是否仍然存在。

【讨论】：

Windows 10 和 Windows 7，带和不带防病毒软件，MSSCCI 2013&2015 32 位，VSTS。项目 1000 多个文件。所有最后更新。以及 Visual Fox Pro 8 和 9 SP2。我尝试新的工作区，没有变化。谢谢