关于visual foxpro 6.0中的打印输出问题

vfp60的十个实用技巧

---- 一选择网络打印机

---- 笔者单位里的局域网上安装有多台网络打印机，在使用vfp 60编制的程序进行打印 *** 作时，是否可以选择其中的某一台空闲的网络打印机进行打印，而不一定非要从默认打印机输出，从而提高工作效率呢？经笔者研究，在执行命令：report from … to printer 之前，先执行下列程序代码：set printer to name getprinter()，就可以调用 *** 作系统的"打印设定"对话框，用户利用该窗口即可达到灵活选择空闲打印机进行打印输出的功能。(注：可供选择的打印机名是用户计算机上已安装好的打印机名。)

---- 二恢复丢失了的fpt文件

---- 由于误 *** 作，将自由表的备注文件删除，致使自由表无法打开。遇到这种情况我们可采用下述方法解决:

---- 1创建一个新的自由表，且该自由表只含一个字段，其类型为备注型。关闭该自由表，将其扩展名为fpt的备注文件复制给误删除的自由表的备注文件，或将该备注文件改名为误删除的自由表的备注文件即可。运行下面的程序同样也可以恢复丢失了的fpt 文件：

accept ''请输入丢失了fpt

文件的自由表名称(不带扩展名)：'' to namef

namef=trim(namef)+''bbb''

crea dbf &namef (aa m)

use

dele file &namef

---- 2用vfp低级文件函数创建一个空的fpt文件，原自由表即可打开。程序清单如下：

accept ''请输入丢失了fpt

文件的自由表名称(不带扩展名)：'' to namef

namef=trim(namef)+''fpt''

hand=fcreate(namef)

abc=repl(chr(0),3)+chr(8)+

repl(chr(0),3)+''@''+repl(chr(0),504)

=fwrite(hand,abc)

=fclose(hand)

return

---- 上述方法只是为丢失了fpt文件的自由表建立了一个新的fpt文件，原fpt文件中的内容已经丢失，无法恢复。在实际 *** 作中若遇到这种情况，最好是恢复原来的fpt文件，若原fpt文件无法恢复时再采用上述方法。

---- 三脱离vfp运行程序

---- 利用vfp 60创建的应用程序，被编译成可执行程序后，若要使其脱离vfp环境独立运行，除了我们所知道的在应用程序目录中需包含一个名为"configfpw"的配置文件外，经笔者试验发现还必须包含"vfp6rdll"、"vfp6rchsdll"、"vfp6renudll"这三个动态链接库文件。这三个文件在"windows\system"目录下，用户可直接将其复制到自己的应用程序目录中。最后再经过编译形成可执行程序，运行安装向导创建发布磁盘，我们开发的小应用程序就可以堂堂正正地在win 98下安装运行了。

---- 四低级文件函数加密数据库

---- vfp有一个十分薄弱的环节就是数据库的保密性差。由于dbf文件都是敞开式的，甚至用dos中最简单的type命令都可以浏览，因此,笔者从以下两方面对数据进行加密：

---- 1在向自由表中增加数据时,就进行加密,即更新自由表时就对数据进行加密,在读取数据时再解密。

---- 2用vfp提供的低级文件函数进行加密，加密后的文件无法打开、浏览，使用时，再执行该加密程序即可将加密的自由表还原。

加密数据库程序(同时也是解密程序)

set talk off

close all

clea

@10,10 say "请输入要加密的

自由表名(含扩展名):" get file1 defa '' ''

read

handle=fopen("&file1",2)

if handle< 0

@14,10 say "不能打开文件!"

=inkey(0)

retu

endif

j=0

do while notfeof(handle)

bb=fread(handle,1)

cc=chr(mod(asc(bb)+128,256))

=fseek(handle,j)

=fwrite(handle,cc)

asc(bb),asc(cc)

j=j+1

enddo

=fclose(handle)

close all

retu

---- 五简易设置textbox对象的输入长度

---- 在以前的xbase语法中，我们可以通过picture参数定义某变量或文本栏的输入长度格式，而在vfp中的textbox对象中则支持了format和inputmask属性来定义输入的格式。我们可以使用比较原始的方法来进行设定，比如当要求输入有20个栏位的文本框对象时，我们可以在此对象的inputmask属性中定义为inputmask="xxxxxxxxxxxxxxxxxxxx"。

---- 但是这样的设定方法非常麻烦，尤其是当面对更长的字符串输入时更是不方便。其实我们完全可以用另外一种方法来把这样的需求设计过程变得很简单，下面就具体介绍一下这种简易的快速设定输入栏位的方法。

---- 利用replicate()函数设定输入长度这里我们同样利用了对象的inputmask属性来定义输入格式和输入长度，但是当对象的输入比较长时，则可以借助算术表达式的方式来对其进行设定。通过属性窗口中的inputmask属性建立表达式对话框，我们可以利用replicate()函数设定重复的"x"的个数即可(本例为20)。完成后回到属性设置窗口，我们可以看到在inputmask属性栏中出现了"=replicate(20)"位值的表达式，这样，我们就轻松地完成了长字符输入的长度控制。由此我们也可以体会到善于使用表达式给我们带来的方便之处。

---- 六中文文本框的设计方法

---- 在程序开发过程中,我们经常要设计一些文本框,而且这些文本框要求只能输入中文。在这种情况下,通常需手工启动某一种中文输入法。如果软件能够自动启动缺省的中文输入法,那么将会给编程人员带来很大的方便。下面的类便能实现这一功能,具体的设计步骤如下:

---- 1创建一个新类,其基类是"textbox",类名为"中文textbox",存储于"myclass"类库中。

---- 2进入类设计器后,设置"中文textbox"的各项属性,如字体、颜色等。

---- 3设计gotfocus事件,代码为: =imestatus(1) 表示当光标移到此框后,自动启动中文输入法。

---- 4设计lostfocus事件,代码为: =imestatus(0) 表示当光标移开此框后,自动关闭中文输入法。设计好后,保存到文件即可。

---- 七立体框类的设计方法

---- 在vfp的标准类里提供了一个形状控制类(shape),可以简单地将s hape的"specialef fect"属性设置为"0-3d",将"backstyle"属性设为 "0-透明",来设计三维立体框。

---- 然而这样的三维立体框太单调,缺少变化。通过以下的设计方法, 我们可以作出类似于vb中的three_d panel那样的效果。具体设计步骤如下:

---- 1新建一个类,基类是"container",类名为"three_panel",存储于"myclass"类库中。

---- 2进入类设计器后,设置"three_ panel"的各项属性,如表1所示。属性设计完毕后,存入文件,就可以得到凸起效果的边框类。

---- 3通过调整"specialeffect"的值为"1-凹下",可以设计凹下效果的边框类(three_p anel_ao)。 调整其余参数可以得到不同效果的边框。

---- 八在程序中播放动画

---- 我们知道，vfp只支持静止的，无法直接播放gif动画。但网上许多有趣而华丽的gif动画的确令人心动，如何将这些动画插入到你的vfp程序中，让你的程序更吸引人呢？

---- 其实很简单，将gif动画分解成各单独的静止的gif或bmp，然后在vfp使用计时器让这些静止的轮流出现，就产生动画效果了。

---- 将gif动画分解为静止的软件有很多，在网上很容易找到，如animagic gif 等。分解出来的我们分别以a0bmp、a1bmp……这样的形式保存。在表单中添加计时器timer1，timer1的interval属性设为100，enabled属性设为t，再添加image1控件，其backstyle属性设为0(透明)，stretch也设为0(裁剪)。

---- 在form的load过程中写代码：

public i , n

i=0

n=5(静止的总共数目)

在timer1的timer过程中写代码：

local j

i = mod (i+1,n)

j = alltrim( str(i) )

thisformimage1picture="a"－j－"bmp"

运行表单，我们就可以看到熟悉的gif动画了。

---- 九粘贴vfp顶层表单

---- 当你将表单设置为顶层表单并独立运行于windows下,就会发现表单中复制粘贴功能失效，给实际工作造成极大的不便，从而使编制的软件达不到专业水准。通过认真分析与实践，笔者认为，造成这一问题的原因是微软设计vfp时，只考虑了位于系统选单下的表单的复制和粘贴情况，即位于系统选单下的表单可使用复制及粘贴热键，而处于windows下的表单完全脱离了系统选单的控制，因此复制及粘贴热键失效。

---- 解决的办法是可在表单的控件(本文举例为文本框)中,为keypress event编写如下事件处理程序,该事件处理程序首先将选择内容复制到windows剪贴板上，然后再将剪贴板上的内容添加到控件中。

keypress event

lparameters nkeycode, nshiftaltctrl

if nkeycode=3

&& ctrl+c 复制

-cliptext=thisseltext

endif

if nkeycode=22

&& ctrl+v 粘贴

do case

case thisselstart=0

thisvalue=-cliptext+thisvalue

case thisselstart〉=1

and thisselstart〈=len(thisvalue)

thisvalue=subs(thisvalue,1,thisselstart)+

-cliptext+subs(thisvalue,thisselstart+1)

endcase

endif

thisformgrid1column1setfocus()

sele recetem

if not eof()

skip

endif

thisformrefresh

---- 十为vfp添加循环微调控件类

---- 在vfp编程中，微调控件是最常用的控件之一。按照微调控件提供的基本功能，通过单击向上或向下箭头，而达到微调控件的最大或最小值时，如继续单击向上或向下箭头，将保持最大或最小值不变。笔者通过对spinner控件属性和事件的分析，用编程的方法实现了循环微调控件功能。

---- 循环微调控件(cyclespinner)所实现的功能是：当单击向上箭头而达到最大值时，再单击向上箭头，能自动跳到最小值；当单击向下箭头而达到最小值时，能自动跳到最大值；其余功能均继承spinner基类的功能。具体实现方法如下：利用表单控件，在表单中设计一个微调按钮，并设置如下属性：

spinnerhighvalue=max

&&max应小于spinner基类所

&&提供的最大默认值

spinnerlowvalue=min

&&min应大于spinner基类所

&&提供的最小默认值

value=1

name=''cyclespinner''

在init事件中写入如下代码：

thisspinnerhighvalue=this

spinnerhighvalue+thisincrement

thisspinnerlowvalue=this

spinnerlowvalue－thisincrement

在interactivechange事件中写入如下代码：

if thisvalue=thisspinnerhighvalue

thisvalue=int(this

spinnerlowvalue+thisincrement)

endif

if thisvalue=thisspinnerlowhvalue

thisvalue=int(this

spinnerhighvalue－thisincrement)

endif

thisformrefresh

---- 再将其作为类保存起来，添加到你的类库中。

---- 若你在编程中，需用此功能，就可直接用此循环微调控件类了。

跟着上面的几位说的，继续发表一下自己的看法。

安全性体现在数据库上，这个没错。因为这个数据库太容易被打开了，VFP没有提供任何完备的（甚至可以说是最基本的）安全机制，而且VFP所谓库与表的关系也非常松散，非常容易造成数据的丢失和不一致。

安全性差还体现在编制的程序上。VFP是解释执行而不是编译执行，所以代码非常容易被反编译。

由于DBF本身不提供安全机制，而如果你在代码上自己创造安全机制，人们也非常容易通过反编译看到你的源代码，让你的心血化为泡影。

其实VFP本身也知道自己的这些不足，但是VFP天生就不是“干大事业”的，呵呵，如果你要使用，那么你就要接受这些不足。

但是VFP编程真的又快又好，让我们不忍放弃。那么怎么办？

告别原来通过DBF数据表编程的思维，改用SQL Server 或者 SQL anywhere等作为后台数据库。

如果跳出DBF的圈子来看VFP，它还是一个非常不错的前台开发工具！

把数据库的安全性交给数据库本身来处理，那么你在编VFP程序的时候，就能更加关注于程序本身的功能。

如此，你真的能够在很短的时间内编制出非常漂亮实用的程序来！

而编译成的EXE文件也不要继续裸奔了，加个壳啊什么的，不那么容易被反编译就好了。

我爱VFP，毕竟，她陪我度过了我的青春岁月，而直到现在，我依然在VFP上奋斗着~~~

以上就是关于关于visual foxpro 6.0中的打印输出问题全部的内容，包括:关于visual foxpro 6.0中的打印输出问题、为什么说VFP的安全性很差真痛苦啊！这么好的一个数据库编程软件，被淘汰了真可惜！、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！