vfp中api函数调用实例

vfp中api函数调用实例

我们在vfp编程时，为了弥补vfp本身功能的不足，常常会用到win32api函数来对vfp 的功能进行扩展，例如取得系统信息、对注册表进行操作等，但由于win32api函数是c＋＋的数据结构形式，在调用时与vfp的数据格式有所不同，因此在调用时往往会产生问题。下面，笔者就在vfp如何调用win32api函数，并就一些常用的win32api函数调用实例作一具体介绍。

一、vfp中调用win32api函数的格式

vfp中调用win32api函数的命令主要是declare－dll和clear dlls两个。

1.declare－dll 它用于注册外部windows 32位动态链接库(.dll)中的一个函数。

语法：

declare [cfunctiontype] functionname in libraryname [as aliasname]

[cparamtype1 [@] paramname1, cparamtype2 [@] paramname2, ...]

说明：

cfunctiontype 指定该函数返回值的类型，其类型代码如下：

short16位整数

integer32位整数

single32位浮点数

double64位浮点数

string字符串

functionname指定在要注册使用的32位函数名。注意functionname区分大小写。

如果该函数名与visual foxpro的保留字相同，应使用as参数另起别名。

in libraryname 指定该函数所在的外部动态链接库文件名，如果libraryname为win32api时，vfp将依次查找：kernel32.dll、gdi32.dll、user32.dll、mpr.dll及advapi32.dll

等动态链接库文件名。

as aliasname 为当api函数的名称与visual foxpro的保留字相同时，另取aliasname别名，另取的别名是不区分大小写的。

cparametertype1 [@] paramname1, cparametertype2 [@] paramname2, ...

指定传递给被调用的32位.dll函数的参数类型及参数名称。其类型代码如cfunctiontype，如果要以传址方法传递参数则应在参数名前加上@。

2. clear dlls 释放所有利用declare－dll命令所装入的动态链接库。

一旦申明win32api函数成功，就可以和一般函数一样用？xxx()、=xxx() 来使用。

二、vfp中常用win32api函数调用实例

1.利用win32api函数获取指定磁盘的卷标：

stor 0 to c—var,c—cd,c—qf

c—disk=′c:\′ ＆＆指定磁盘

declare integer getvolumeinformation in win32api string @,string @,integer,;

integer @, integer @, integer @, string @, integer

xx=getvolumeinformation(c—disk,″ ″,20,@c—var,@c—cd,@c—qf,0,0)

clear dlls

返回值：

xx〈〉0 获取指定磁盘的卷标成功，反之则未成功。

c—var=指定磁盘的卷标，是个十进制的数值，与我们在dos下看到的16进制不同。

c—cd=系统规定的文件名每一部分的长度。

c—qf=文件名的大小写标志。

2.在vfp中利用wn32api函数调用outlook express给你的程序建立发送邮件的链接。

declare integer shellexecute in shell32.dll integer hwnd,;

string, string lpszfile, string, string, integer

＊申明shellexecute函数，

lpszfile=′mailto:cfyns@https://www.wendangku.net/doc/28558154.html,′

＊设定你需要发送的e－mail

=shellexecute(0,0,lpszfile,0,0,1)

＊调用shellexecute函数

3.利用win32api函数，防止同一程序被重复执行。

利用win32api中的findwindow()函数取得窗口的handle(句柄)，其返回值不等于0，则表示该exe文件已运行。

vfp代码如下：

declare integer findwindow in win32api string,string

local ctitle

ctitle=—screen.caption

if find—window(0,ctitle)〈〉0

=messagebox(″程序已运行,无需重复!″,48)

Endif

注意：findwindow()函数是取得窗口的caption，如果caption在程序的运行中已经改变，则达不到目的。

4.利用win32api函数，关闭或重新启动电脑。

declare integer exitwindowsex in user32.dll integer, integer

=exitwindowsex(1,1)

＆＆关闭系统

＊=exitwindowsex(2,1)

＆＆重新启动系统

＊=exitwindowsex(0,0)

＆＆进入登录者身份对话框

5.在vfp中利用wn32api函数获取当前所有逻辑驱动器。

利用getdrivetype、getlogicaldrivestrings函数，我们可以很快找到当前所有逻辑驱动器的根驱动器路径。下面介绍两种用法：

(1)利用getdrivetype函数：

declare integer getdrivetype in ″kernel32″ string

dgs=0

for i=65 to 90

vname=chr(i) ＋″:″

lx=getdrivetype(vname)

do case

case lx=2

dgs=dgs＋1

wait wind ′这是个软盘′

case lx=3

dgs=dgs＋1

wait wind′这是个硬盘′

case lx=4

dgs=dgs＋1

wait wind′这是个可移去式驱动器或网络驱动器′

case lx=5

dgs=dgs＋1

wait wind′这是个光盘′

case lx=6

dgs=dgs＋1

wait wind′这是个ram盘′

endc

endf

wait wind ′本机共有：′＋str(dgs)＋′个驱动器′

(2)利用getlogicaldrivestrings函数：

declare integer getlogicaldrivestrings in ″kernel32″ long, string @cc

cc=spac(81)

=getlogicaldrivestrings(81,@cc)

＊cc中返回了这样的字符串″a:\ c:\ d:\ e:\ f:\ ″每个名字都用一个null字符分隔，在最后一个名字后面用两个null表示中止。

x=(len(allt(cc))－1)/4

＆＆x中包含本机逻辑驱动器个数

＊如果你想知道每个具体的驱动器名，则写如下代码：

dime dve(x)

for i=1 to x

dve(i)=subs(cc,1,3)

cc=subs(cc,5)

endf

＊这样在dve这个数组里就是每个驱动器的盘符及″:\″ 了。

＊如果你还想知道每个驱动器的类型，则再添加和改写如下代码：declare integer getdrivetype in ″kernel32″ string

dime dve(x，2)

for i=1 to x

dve(i,1)=subs(cc,1,3)

lx=getdrivetype(dve(i,1))

do case

case lx=2

dve(i,2)=′软盘′

case lx=3

dve(i,2)=′硬盘′

case lx=4

dve(i,2)=′可移去式驱动器或网络驱动器′

case lx=5

dve(i,2)=′光盘′

case lx=6

dve(i,2)=′ram盘′

endc

cc=subs(cc,5)

endf

win32api功能调用的函数还很多，比如像操作注册表、mci（media control interface）媒体控制接口等，有的是因为这方面介绍的资料较多，有的是调用过于烦琐，所以笔者就不准备继续介绍下去。

文中所有实例，都在中文windows 98、microsoft visual foxpro 6.0下测试通过。

VFP常见编程实例(免费下载)

VFP常见编程实例 1、1-100的累加 ** 求1到100的累加值 CLEAR s=0 i=1 DO WHILE i<=100 s=s+i i=i+1 &&一定记住先累加后循环ENDDO ?s RETURN 2、阶乘 ** 求5的阶乘 CLEAR j=1 i=1 DO WHILE i<=5 j=j*i

i=i+1 ENDDO ?j RETURN 3、求阶乘和 ** 求1至5的阶乘和CLEAR s=0 i=1 j=1 DO WHILE i<=5 j=j*i s=s+j i=i+1 ENDDO ?s RETURN 4、条件定位

** 查询定位记录指针在赵伟上 CLEAR USE 学生 LOCATE FOR 姓名="赵伟" IF FOUND() DISPLAY ELSE CANCEL ENDIF CONTINUE 5、用scan语句查询定位 ** 用scan语句查询定位记录在赵伟上 CLEAR SCAN FOR 姓名="赵伟" DISPLAY ENDSCAN RETURN 6、用scan语句扫描符合条件的记录，并显示出来** 把年龄小于30岁的人显示出来

SCAN FOR 年龄<30 DISPLAY ENDSCAN RETURN 7、查找男性职工 ** 查找男性职工CLEAR LOCATE FOR 性别="男" DO WHILE FOUND() DISPLAY CONTINUE ENDDO RETURN ** 查找男性职工CLEAR LOCATE FOR 性别="男" DO WHILE NOT EOF() DISPLAY CONTINUE

VBS函数的简单库

Abs 函数返回数的绝对值。 加法运算符(+) 两数相加。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。 日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为 1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。 Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。

VFP函数大全

VFP函数大全 %运算符用于计算并返回两个数值表达式相除之后的余数 $（包含）运算符用于进行字符表达式之间的包含关系运算，如果一个字符表达式包含在另一个字符表达式之中，则函数返回真 ABS() 计算并返回指定数值表达式的绝对值 ACLASS() 用于将一个对象的父类名放置于一个内存数组中 ACOPY() 把一个数组的元素拷贝到另一个数组中 ACOS() 计算并返回一个指定数值表达式的余弦值 ADATABASES() 用于将所有打开的数据库名和它的路径存入一个内在变量数组中 ADB OBJECT S() 用于把当前数据库中的连接、表或SQL视图的名存入内存变量数组中 ADEL() 用于从一维数据中删除一个元素，或从二维数组中删除一行或者一列元素 ADIR() 将文件的有关信息存入指定的数组中，然后返回文件数 AELEMENT() 通过元素的下标，返回元素号 AFIELDS 将当前的结构信息存入数组中，然后返回表中的字段数 AFONT() 将可用字体的信息存入数组中 AERROR() 用于创建包含VFP或ODBC错误信息的内存变量 AINS() 在一维数组中插入一个元素或在二维数组中插入一行或一列元素 AINSTANCE() 用于将类的所有实例存入内存变量数组中，然后返回数组中存放的实例数 ALEN() 返回数组中元素、行或者列数 ALIAS() 返回当前工作区或指定工作区内表的别名 ALLTRIM() 从指定字符表达式的首尾两端删除前导和尾随的空格字符，然后返回截去空格后的字符串 AMEMBERS() 用于将对象的属性、过程和成员对象存入内存变量数组中

ANSITOOEM() 将指定字符表达式中的每个字符转换为MS-DOS（OEM）字符集中对应字符 APRINTERS() 将Print Manager中安装的当前打印机名存入内存变量数组中 ASC() 用于返回指定字符表达式中最左字符的ASCII码值 ASCAN() 搜索一个指定的数组，寻找一个与表达式中数据和数据类型相同的数组元素 ASELOBJ() 将活动的Form设计器当前控件的对象引用存储到内存变量数组中 ASIN() 计算并返回指定数值表达式反正弦值 ASORT() 按升序或降序排列数组中的元素 ASUBSCRIPT() 计算并返回指定元素号的行或者列坐标 AT() 寻找字符串或备注字段在另一字符串或备注字段中的第一次出现，并返回位置 ATAN() 计算并返回指定数值表达式的反正切值 ATC() 寻找字符串或备注字段中的第一次出现，并返回位置，将不考虑表达式中字母的大小写 ATCLINE() 寻找并返回一个字符串表达式或备注字段在另一字符表达式或备注字段中第一次出现的行号。不区分字符大小写 ATLINE() 寻找并返回一个字符表达式或备注字段在另一字符表达式或备注字段中第一次出现的行号ATN2() 根据指定的值返回所有4个像限内的反正切值 AUSED() 用于将一次会话期间的所有表别名和工作区存入变量数组之中 BAR() 从用DEFINE POPUP命令定义的菜单中返回最近所选择的菜单项的编号，或返回一个从VFP菜单所选择的一个菜单命令 BARCOUNT() 返回DEFINE POPUP命令所定义的菜单中的菜单项数，或返回VFP系统菜单上的菜单项数 BARPROMPT() 返回一个菜单项的有关正文 BETWEEN() 确定指定的表达式是否介于两个相同类型的表达式之间 BITAND() 返回两个数值表达式之间执行逐位与（AND）运算的结果 BITCLEAR() 清除数值表达式中的指定位，然后再返回结果值 BITLSHIFT() 返回将数值表达式左移若干位后的结果值

wincc中使用vbs常用函数.

wincc 中使用vbs 常用函数 1. 函数array() 功能: 创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: <% i = array ( “1”, ”2”, ”3”) %> 结果: i 被赋予为数组 2. 函数Cint() 功能: 将一表达式/ 其它类型的变量转换成整数类型(int) 格式:Cin t(expressio n_r) 参数:expression」是任何有效的表达式/其它类型的变量 例子: <% f = ” 234” response.write cINT(f) + 2 %> 结果: 236 函数Cint() 将字符” 234”转换成整数234.如果表达式为空, 或者无效时, 返回值为0; 3. 函数:Creatobject() 功能: 创建及返回一个ActiveX 对象. 格式:Creatobject(obname)

参数bname 是对象的名称 例子: <% Set con = Server.CreateObject( “ADODB.Connection”) %> 结果: 4. 函数Cstr() 功能: 将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression_r) 参数:expression」是任何有效的表达式/其它类型的变量例子: <% s = 3 + 2 response.write ”The result is: ” & cStr(s) %> 结果: 函数Cstr() 将整数 5 转换成字符” 5”. 5. 函数Date() 功能: 返回当前系统(server 端) 的日期 格式: Date() 参数:无 例子<% date () %> 结果:05/10/00

vfp中api函数调用实例

vfp中api函数调用实例 我们在vfp编程时，为了弥补vfp本身功能的不足，常常会用到win32api函数来对vfp 的功能进行扩展，例如取得系统信息、对注册表进行操作等，但由于win32api函数是c＋＋的数据结构形式，在调用时与vfp的数据格式有所不同，因此在调用时往往会产生问题。下面，笔者就在vfp如何调用win32api函数，并就一些常用的win32api函数调用实例作一具体介绍。 一、vfp中调用win32api函数的格式 vfp中调用win32api函数的命令主要是declare－dll和clear dlls两个。 1.declare－dll 它用于注册外部windows 32位动态链接库(.dll)中的一个函数。 语法： declare [cfunctiontype] functionname in libraryname [as aliasname] [cparamtype1 [@] paramname1, cparamtype2 [@] paramname2, ...] 说明： cfunctiontype 指定该函数返回值的类型，其类型代码如下： short16位整数 integer32位整数 single32位浮点数 double64位浮点数 string字符串 functionname指定在要注册使用的32位函数名。注意functionname区分大小写。 如果该函数名与visual foxpro的保留字相同，应使用as参数另起别名。 in libraryname 指定该函数所在的外部动态链接库文件名，如果libraryname为win32api时，vfp将依次查找：kernel32.dll、gdi32.dll、user32.dll、mpr.dll及advapi32.dll 等动态链接库文件名。 as aliasname 为当api函数的名称与visual foxpro的保留字相同时，另取aliasname别名，另取的别名是不区分大小写的。 cparametertype1 [@] paramname1, cparametertype2 [@] paramname2, ... 指定传递给被调用的32位.dll函数的参数类型及参数名称。其类型代码如cfunctiontype，如果要以传址方法传递参数则应在参数名前加上@。 2. clear dlls 释放所有利用declare－dll命令所装入的动态链接库。 一旦申明win32api函数成功，就可以和一般函数一样用？xxx()、=xxx() 来使用。 二、vfp中常用win32api函数调用实例 1.利用win32api函数获取指定磁盘的卷标： stor 0 to c—var,c—cd,c—qf c—disk=′c:\′ ＆＆指定磁盘 declare integer getvolumeinformation in win32api string @,string @,integer,; integer @, integer @, integer @, string @, integer xx=getvolumeinformation(c—disk,″ ″,20,@c—var,@c—cd,@c—qf,0,0) clear dlls 返回值： xx〈〉0 获取指定磁盘的卷标成功，反之则未成功。

函数模型的应用实例(Ⅲ)

函数模型的应用实例（Ⅲ） 一、教学目标 1、知识与技能能够收集图表数据信息，建立拟合函数解决实际问题。 2、过程与方法体验收集图表数据信息、拟合数据的过程与方法，体会函数拟合的思想方法。 3、情感、态度、价值观深入体会数学模型在现实生产、生活及各个领域中的广泛应用及其重要价值。 二、教学重点、难点： 重点：收集图表数据信息、拟合数据，建立函数模解决实际问题。 难点：对数据信息进行拟合，建立起函数模型，并进行模型修正。 三、学学与教学用具 1、学法：学生自查阅读教材，尝试实践，合作交流，共同探索。 2、教学用具：多媒体 四、教学设想 （一）创设情景，揭示课题 2003年5月8日，西安交通大学医学院紧急启动“建立非典流行趋势预测与控制策略数学模型”研究项目，马知恩教授率领一批专家昼夜攻关，于5月19日初步完成了第一批成果，并制成了要供决策部门参考的应用软件。 这一数学模型利用实际数据拟合参数，并对全国和北京、山西等地的疫情进行了计算仿真，结果指出，将患者及时隔离对于抗击非典

至关重要、分析报告说，就全国而论，菲非典病人延迟隔离1天，就医人数将增加1000人左右，推迟两天约增加工能力100人左右；若外界输入1000人中包含一个病人和一个潜伏病人，将增加患病人数100人左右；若4月21日以后，政府示采取隔离措施，则高峰期病人人数将达60万人。 这项研究在充分考虑传染病控制中心每日工资发布的数据，建立了非典流行趋势预测动力学模型和优化控制模型，并对非典未来的流行趋势做了分析预测。 本例建立教学模型的过程，实际上就是对收集来的数据信息进行拟合，从而找到近似度比较高的拟合函数。 （二）尝试实践探求新知 例1．某地区不同身高的未成年男性的体重平均值发下表 （身高：cm；体重：kg） 1）根据表中提供的数据，建立恰当的函数模型，使它能比较近似地反映这个地区未成年男性体重与身高ykg与身高xcm的函数模型的解析式。 2）若体重超过相同身高男性平均值的1.2倍为偏胖，低于0.8倍为偏瘦，那么这个地区一名身高为175cm ，体重为78kg的在校男

vfP 函数练习题

第二章练习题 一、选择题。 1. 就关系数据描述语言来说，Visual FoxPro属于______数据库管理系统。 A）问答式B）语言描述式 C）域描述语句式D）关系描述语句式 2. 下列______符号不能作为Visual FoxPro中的变量名。 A）ABCDEFG B）K1234 C）12ASDFG D）xyz 3. 日期型数据长度固定为______个字符。 A）10B）12 C）8 D）6 4. 在Visual FoxPro数据库文件中，逻辑型、日期型、备注型数据的宽度分别是______。 A）1，8，128 B）2，8，10 C）1，8，10 D）1，8，任意 5. 以下4个符号中，______是Visual FoxPro中的一个常量。 A）T B）TOP C）.T. D）TO 6. Visual FoxPro中，表达式： 2*3^2+2*8/4+3^2的值为______。 A）64 B）31 C）49 D）22 7. 下列4个式子中，______不是Visual FoxPro中的表达式。 A）05/23/88 B）"2002" C）X+Y D）XYZ='5' AND ABC=5 8. 将逻辑值赋给内存变量X的正确方法是______。 A）X="T" B）STORE "T" TO X C）X=TRUE D）STORE .T. TO X 9. 设M="324.2"，？43+&M的结果是______。 A）43 B）324.2 C）43324.2 D）367.2 10. 设A=123，B=456，K="A+B"，则表达式l+＆K的值是______。 A）1123456 B）580 C）1+A+B D）579 11. 顺序键入以下命令，显示结果为______。 STORE "14.31" TO X Y＝INT（＆X+5） ？Y A）20 B）14.315 C）14.31 D）19 12. Visual FoxPro中的索引文件分为单索引文件和复合索引文件，其中复合索引文件的扩展名为______。A）IDX B）EDX C）CDX D）NDX 13. 用于存储内存变量的文件扩展名为______。 A）FPT B）PRG C）FMT D）MEM 14. Visual FoxPro函数INT（RAND（）*10）的值是在______范围内的整数。 A）（0，1）B）（1，10）C）（0，10）D）（1，9） 15. 数学式子sin25°写成Visual FoxPro表达式是______。 A）SIN25 B）SIN（25）C）SIN（25°）D）SIN（25*PI/180） 16. 设某数据库有100条记录。用函数EOF ( ) 测试结果为.T.，此时，当前记录号为______。 A）100 B）101 C）99D）1 17. 在下列表达式中，结果为日期类型的正确表达式是______。 A）DATE() + 25 B）DA TE() + TIME() C）DATE() – CTOD("06/11/2002") D）365 – DATE() 18. 执行如下命令： ？LEN（TRIM（"北京市□□□"）） 结果是______（其中□表示一个空格）。 A）6 B）3 C）9 D）10 19. 执行下列命令： M="ABCDabcd" ？SUBSTR(M,INT(LEN(M)/2+1),2) 输出结果是______。 A）AB B）ab C）bc D）abcd 20. Visual FoxPro数据库文件中，函数ROUND（1234.567，2）的值是______。 A）1234.57 B）1234.56 C）1235 D）1234 21. 执行下列命令后显示的结果是______。 A=CTOD（"05/23/89"） B=CTOD（"05/03/89"） ？B-A A）20 B）-20 C）“05/20/89” D）“05/-20/89” 22. 执行下列命令后显示的结果是______。 STR="VFoxPr数据库" ？SUBSTR（STR，LEN（STR）/2+1,6） A）VFoxPrB）数据库C）数据D）Pr数据 23. 执行下列命令后显示的结果是______。 X="Visual FoxPro is OK" ?AT（"Fox"，X） A）8B）6 C）FoxPro D）Visual 24. 函数STUFF（"数据库"，5，6，"管理系统"）的结果是______。 A）数据库管理系统B）数据管理系统C）管理系统D）库系统 25. FoxPro数据库管理系统的数据模型是______。 A）概念型B）网状型C）关系型D）层次型 26. 下面4条叙述中，正确的叙述是______。 A）在命令窗口中被赋值的变量都是全局变量 B）在上级程序定义的变量在被调用的下级程序中无效 C）在程序中，用DECLARE定义的数组为全局变量 D）在程序中，用DIMENSION定义的数组为全局变量 27. 下面4条叙述中，正确的叙述是______。 A）在命令窗口中被赋值的变量均为局部变量 B）在命令窗口中用PRIV ATE命令说明的变量均为局部变量 C）在被调用的下级程序中用PUBLIC命令说明的变量都是全局变量 D）在程序中用PRIVA TE命令说明的变量均为全局变量 28. 下面4条叙述中，正确的叙述是______。 A）局部变量不可以与全局变量同名，但可以与上级程序中的局部变量同名 1

vfp调用word OR excel

vfp调用word OR excel（二） 10.从VFP中导出数据的几种方法！ 答：当VFP处理好数据后，这时你可以用多种方法将这些数据导出，以便被其它应用程序(如Excel等)所用。下面向你简单介绍几种导出数据的方法： 1.用“导出数据”对话框。你可以从VFP主菜单中选择“文件/导出…”打开 “导出”对话框，在该对话框中的“来源”框中输入表名(c:\vfp\students.dbf )，在“类型”中指定要导出数据的类型(Microsoft Excel)，在“到”框中输入 导出的路径和文件名(C:\excel\aa.xls)，然后按“确定”即可。这时你如果查看command窗口，可发现以下代码： COPY TO C：\excel\aa.XLS TYPE XL5 2.用COPY TO命令。COPY TO命令的工作对象是VFP中的表，它要依据“TYPE”项才知道要产生哪一类导出文件。对于上面的导出过程，可用以下方法实现：USE students COPY TO C：\excel\aa.XLS TYPE XL5 12.在VFP6中，如何调用已经存在的WORD文件？ oW = CREATEOBJECT([word.basic]) with oW .Apprestore() .Appmaximize() .fileopen("路径+文件名.扩展名") ENDWITH 13.打开word文件的控件？ 用RUN /N3 C:\WORD.EXE 文档路径 C:\WORD.EXE是我自己写的,你用时换成WORD的真正路径就行了!

比如用WORD 打开SD.DOC 就写 RUN /N3 C:\WORD.EXE C:\SD.DOC 另：TXLS_EOLE = CREATEOBJECT('word.application') TXLS_EOLE.Documents.Open('文件名.doc') TXLS_EOLE.Visible=.t. 注意：别忘了关闭哦 TXLS_EOLE.Documents.close &&关闭文档 TXLS_EOLE.quit &&关闭word RELEASE TXLS_EOLE &&释放对象 再者： fw=alltrim(this.value) if file('&fw') *documents.open filename('&fw') wrdapp = createobject("word.application") wrdapp.visible=.t. *wrdapp.documents.add wrdapp.documents.open(alltrim(this.value)) else messagebox(fw+chr(13)+'文件不存在,请确认',0+16,'文件路径出错') RETURN(.F.) ENDIF 14.在表单中创建一个编辑框,用来显示WORD文档! 做一个按扭,在CLICK中写：THISFORM.EDIT1.value=FILETOSTR(GETFILE('DOC')) 这个不也行,而且还简单 15.强烈建议：直接使用ole可以在表单中打开word，建议不使用这种办法，改为利用api 用windows默认的程序打开word，数据库只存储word文档所在的位置和名字。

vbs经典脚本

Vbs脚本经典教材 Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开W ORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机（？）吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocx或者dll作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正我的事情是方便快速的解决了，这就行了。 最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs 脚本了，并且可以直接执行。

3.2.2几种函数模型的应用举例

第三章 函数的应用 3.2.2几种函数模型的应用举例 【导学目标】 1．通过实例感受一次函数、二次函数、指数函数、对数函数以及幂函数的广泛应用，体会解决实际问题中建立函数模型的过程，从而进一步加深对这些函数的理解与应用； 2．初步了解对统计数据表的分析与处理． 【自主学习】 1、根据散点图设想比较接近的可能的函数模型： ①一次函数模型：()(0);f x kx b k =+≠ ②二次函数模型：2()(0);g x ax bx c a =++≠ ③指数函数模型：()x f x a b c =+g （0,a b ≠＞0，1b ≠） ④对数函数模型：()log a f x m x b =+g （0,m ≠01a a >≠且） ⑤幂函数模型：12 ()(0);h x ax b a =+≠ 2、一般函数模型应用题的求解方法步骤： 1） 阅读理解，审清题意：逐字逐句，读懂题中的文字叙述，理解题中所反映的实际问题，明白已知什么，所求什么，从中提炼出相应的数学问题。 2）根据所给模型，列出函数表达式：合理选取变量，建立实际问题中的变量之间的函数关系，而将实际问题转化为函数模型问题。 3）运用所学知识和数学方法，将得到的函数问题予以解答，求得结果。 4）将所解得函数问题的解，翻译成实际问题的解答。 在将实际问题向数学问题的转化过程中，能画图的要画图，可借助于图形的直观性，研究两变量间的联系. 抽象出数学模型时，注意实际问题对变量范围的限制. 【典型例题】 例1：某桶装水经营部每天的房租、人员工资等固定成本为200元,每桶水的进价是5元． 销售单价与日均销售量的关系如下表所示： 请根据以上数据作出分析,这个经营部怎样定价才能获得最大利润?

vfp中地常用函数与命令

VFP常用的命令和函数 1.数据库操作语言 使用可以CLOSE 命令关闭各种类型的文件。 DBC( ) 函数返回当前数据库的名称和路径。SQLCANCEL( ) 函数请求取消一条正在执行的 SQL 语句。SQLCOMMIT( ) 函数提交一个事务处理。SQLCONNECT( ) 函数建立一个对数据源的连接。SQLDISCONNECT( ) 函数结束一个对数据源的连接。SQLEXEC( ) 函数发送一条 SQL 语句到数据源中处理。SQLGETPROP( ) 函数获取一个活动连接的当前设置。 SQLMORERESULTS( ) 函数如果存在多个可用的结果集，则将另一个结果集复制到Visual FoxPro 临时表(cursor)中。 SQLROLLBACK( ) 函数取消当前事务处理期间所做的任何更改。SQLSETPROP( ) 函数指定一个活动连接的设置。SQLSTRINGCONNECT( ) 函数使用一个连接字符串建立与数据源的连接。TABLEREVERT( ) 函数放弃对缓冲行、缓冲表或临时表(cursor)的修改。 TABLEUPDATE( ) 函数提交对缓冲行、缓冲表或临时表(cursor)适配器的修改。 字段操作语言 使用可以BLANK 命令清除字段中的数据。 DELETED( ) 函数指出一个记录是否被标记为删除。FCOUNT( ) 函数返回一个表中的字段数量。 FIELD( ) 函数根据编号返回表中的字段名。 GATHER 命令用来自指定源的数据替换记录中的数据。SCATTER 命令从当前记录中复制数据到指定的目标。SET EXACT 命令指定比较不同长度两个串时的规则。

VFP中调用其他应用程序的方法

VFP中调用其他应用程序的方法 在用VFP进行应用程序设计中，经常需要调用其他的应用程序。这时候我们立即会想到RUN命令。使用RUN命令只需知道应用程序的文件名及其路径即可。 下面的示例是以最大化方式启动Windows目录下的图画板程序并同时打开c:\windows\Bubbles.bmp文件： RUN/n3 C:\Windows\Pbrush.exe c:\windows\Bubbles.bmp RUN命令的参数用法可以参考Visual FoxPro的帮助文件。 但是令人失望的是，在实际开发时我们常常无法确定所需要启动的应用程序的文件名及其安装的路径。比如我们需要启动用户机器上的浏览器并连接到某一个网址，该机器可能安装的是IE，也可能是NetScape，还有可能是其他的浏览器软件，安装的路径更是无从确定。下面给出我在工作中找到的两种解决方法，这两种方法都是通过Win32 API函数来解决问题，因此其解决思路也可以用到其他编程语言中去。 （一）从注册表中获取被调用软件的名称及路径。 我们只需要提供被调用的软件所处理的文件类型（由文件扩展名来确定），即可通过查找注册表中该软件注册的可以处理的文件类型的数据项来得到该软件的文件名及安装路径。 *主函数 PROCEDURE lookreg

Parameter filetype && 文件类型 * 申明要用到的API 函数 DECLARE Integer RegOpenKey IN Win32API ; Integer nHKey, String @cSubKey, Integer @nResult DECLARE Integer RegCloseKey IN Win32API ; Integer nHKey DECLARE Integer RegQueryvalueEx IN Win32API ; Integer nHKey, String lpszvalueName, Integer dwReserved,; Integer @lpdwType, String @lpbData, Integer @lpcbData #DEFINE HKEY_CLASSES_ROOT -2147483648 #DEFINE C_EXTNOFOUND_LOC "查找失败！" LOCAL cExtn,cAppKey,cAppName,nErrNum LOCAL oReg,regfile cAppKey = "" cAppName = "" nCurrentKey = 0 nErrNum =GetAppPath (filetype,@cAppKey,@cAppName)

wincc中使用vbs的常用函数

wincc中使用vbs的常用函数 1.函数array() 功能:创建一个数组变量 格式:array(list) 参数:list为数组变量中的每个数值列,中间用逗号间隔 例子: <%i=array(“1”,”2”,”3”)%> 结果:i被赋予为数组 2.函数Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression是任何有效的表达式/其它类型的变量 例子: <% f=”234” response.write cINT(f)+2 %> 结果:236 函数Cint()将字符”234”转换成整数234.如果表达式为空,或者无效时,返回值为0; 3.函数:Creatobject() 功能:创建及返回一个ActiveX对象. 格式:Creatobject(obname) 参数bname是对象的名称 例子: <% Set con=Server.CreateObject(“ADODB.Connection”) %> 结果: 4.函数Cstr() 功能:将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression) 参数:expression是任何有效的表达式/其它类型的变量 例子: <% s=3+2 response.write”The result is:”&cStr(s) %> 结果:函数Cstr()将整数5转换成字符”5”. 5.函数Date() 功能:返回当前系统(server端)的日期

格式:Date() 参数:无 例子<%date()%> 结果:05/10/00 6.函数Dateadd() 功能:计算某个指定的时间和 格式:dateadd(timeinterval,number,date) 参数:timeinterval是时间单位(月,日..);number是时间间隔值,date是时间始点. 例子: <% currentDate=#8/4/99# newDate=DateAdd(“m”,3,currentDate) response.write newDate %><% currentDate=#12:34:45PM# newDate=DateAdd(“h”,3,currentDate) response.write newDate %> 结果: 11/4/99 3:34:45PM 其中 “m”=”month”; “d”=”day”; 如果是currentDate格式,则, “h”=”hour”; “s”=”second”; 7.函数Datediff() 功能:计算某量个指定的时间差 格式:datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear]]) 参数:timeinterval是时间单位;date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear是任意选项. 例子: <% fromDate=#8/4/99# toDate=#1/1/2000# response.write”There are”&_ DateDiff(“d”,fromDate,toDate)&_ “days to millenium from8/4/99.” %> 结果:There are150days to millenium from8/4/99. 8.函数day() 功能:返回一个整数值,对应于某月的某日 格式:day(date)

VFP命令、函数及程序语句大全

VFP命令、函数及程序语句大全.txt16生活，就是面对现实微笑，就是越过障碍注视未来；生活，就是用心灵之剪，在人生之路上裁出叶绿的枝头；生活，就是面对困惑或黑暗时，灵魂深处燃起豆大却明亮且微笑的灯展。17过去与未来，都离自己很遥远，关键是抓住现在，抓住当前。VFP命令、函数及程序语句大全(1) 学过VFP（Microsoft Visual FoxPro）的朋友都知道它是微软公司开发的数据库管理系统。它 经历了从dBASE、FoxBASE、FoxPro直到VFP的发展过程。本文便以VFP 6.0为例介绍它的命令、函数 及程序语句，为学习VFP的朋友提供必要的学习参考，也为已经精通VFP的朋友提供复习的好机会。 一、主要命令： 1、CREATE 作用：建立一个新的表。 格式：CREATE [<文件>|?]（注意，命令字符可取前面四个字符，后面可省略不写，即CREA，下 同；中括号表示其中的参数是可选的；|管道符号表示两个参数只能选择一个，不能同时选择，下 同。） 说明：文件指建立以.dbf为扩展名的VFP数据库文件，在命令后面加上一个问号表示系统会弹出 对话框，要求用户输入想要建立的表名。在命令中不加文件名或问号系统也会弹出对话框，要求用 户输入想要建立的表名。 2、MODIFY STRUCTURE 作用：显示表文件结构，并允许修改此表的结构。 格式：MODIFY STRUCTURE 说明：只有在用USE命令打开表文件以后，才能显示或修改表文件的结构。 3、APPEND 作用：在当前表的尾部（无论表中有无记录）追加记录（在当前表指当前正使用的表）。 格式：APPEND [BLANK] 说明：在APPEND命令后面加上BLANK参数表示在当前表的尾部添加一条空白记录。无BLANK 参数 时，表示在当前表的尾部添加一条记录并要求用户输入相应的字段内容。 4、INSERT 作用：在表文件中间插入一个新记录。 格式：INSERT [BEFORE] [BLANK] 说明：INSERT 在当前记录后插入一记录； INSERT BEFORE 在当前记录前插入一记录； INSERT BEFORE BLANK 在当前记录前插入一空记录。 INSERT - SQL命令追加记录 INSERT INTO 表名[（字段1[，字段2…]）]；

很好的VBS教程(带实例)

很好的VBS教程（带实例） 推荐第一篇： 讲一下VBScript。主要面向菜鸟，懂得编程的朋友就不要浪费时间了，如果你想接触以下VBScript也可以。但既然有编程基础推荐直接去找一些参考书来读。会比较快。 什么是VBScript呢？VBScript的全称是：Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)。正如其字面所透露的信息，VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。我进一步解释一下，Microsoft Visual Basic是微软公司出品的一套可视化编程工具，语法基于Basic.脚本语言，就是不编译成二进制文件，直接由宿主(host)解释源代码并执行，简单点说就是你写的程序不需要编译成.exe，而是直接给用户发送.vbs 的源程序，用户就能执行了。 我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了，答案是：记事本(Notepad).我不是开玩笑，其实任何一种文本编辑器都可以用来开发VBS开发，只不过记事本是由系统自带的，比较好找而已. 尽管如此，我还是建议你去下载一个专业的文本编辑器，因为这些工具可以提供"语法高亮"等功能，更加方便开发，用哪一个随你喜好，我比较喜欢Edit Plus (2.10). OK，我们先来写一个VBScript程序热热身. REM 输入并回显你的名字 '使用InputBox和Msgbox函数 Dim name,msg msg="请输入你的名字:" name=Inputbox(msg,"名称") Msgbox(name) 把上面的程序清单输入到记事本里面，然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行，观察运行结果. 注意:请自己输入程序清单，不要复制->粘贴! 我来解释一下这个程序，第一行和第二行的开头分别是"REM"语句和" ' "，这两个东西的作用是相同的，表示本行是注释行，就是说这两行什么也不干,只是用来说明这段程序的功能，信息等等. 注释行是程序最重要的部分之一，尽管它不是必需的，但对于其他人阅读源代码，以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰，简洁的注释。 Dim用来声明一个变量，在VBS中，变量类型并不是那么重要，就是说VBS会帮你自动识别变量类型，而且变量在使用前不一定要先声明，程序会动态分配变量空间. 在VBS 中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数")，也不用考虑是不是字符串(一串字符，比如:"Hello World")，VBS会自动帮你搞定. 所以第三行语句可以删除，效果不会变，但我强烈反对这么做，一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字，但不能使用vbs已经定义的字，比如dim，也不能是纯数字。 下一行被称之为"赋值"，"="是赋值符号，并不是数学中的等于号，尽管看起来一样.这

VFP常用命令详解

VFP常用命令详解 VFP命令、函数及程序语句大全（1） VFP命令是一种实现对数据库系统进行操作的动词或短语。VFP命令可在VFP命令窗口中单独运行，也可编制成程序成批运行，由命令和函数编制的程序可对数据库系统进行自动、复杂的操作，使数据库系统应用起来更加友好、方便。 ?VFP常用命令分类表 类别命令 建立文件类CREATE，MODIFY，COPY，SAVE等 数据库操作类USE,CLOSE,COPY,MODIFY STRUCTURE等 数据编辑类BROWSE,EDIT,CHANG,REPLACE,UPDATE等 记录指针操作类GOTO,LOCATE,SEEK,FIND,SKIP等 记录操作类APPEND,DELETE,INSERT等 数据显示类BROWSE,LIST,DISPLAY等 数据统计类SUM,COUNT,AVERAGE,TOTAL等 存变量操作类ACCEPT,INPUT,READ,SAVE等 程序控制类DO，DO WHILE…ENDDO，IF…ENDIF等 系统设置类SET TALK，SET DEFAULT TO等 ?命令格式 VFP命令一般由命令动词和控制短语构成。 一般格式： 命令动词[FROM<源文件>][TO<目标文件>][记录范围][FOR/WHILE<条件>] [FIELDS<字段名表>] [ ]表示可选，<>表示必选， / 表示或选

例如： （1）APPEND FROM C:\RSDA.DBF FOR 基本工资>100 FIELDS 编号,姓名,职称,基本工资。 从C:\RSDA.DBF 表中把基本工资大于100元的记录添加到当前表添加字段为：编号，姓名，职称，基本工资。 （2）COUNT FOR 职称="高工"TO GG 统计高工的记录数到内存变量GG。 控制短语规定了对数据库操作的限制条件： 1.指向输入输出目标 FROM/TO APPEND FROM，COPY FILE TO <目标文件> 2.限制记录范围（SCOPE） ALL 所有记录 NEXT 本记录后的第几个记录 RECORD<1> 第1个记录 REST 当前记录之后所有记录 3.选择字段 FIELDS<字段表>选择输入/输出的字段。 4.限制条件 FOR/WHILE<条件> FOR 基本工资>100 .AND.基本工资<200 命令格式规则 命令的行为单位，一行书写不完，在未尾加上“；”第二行接着写。