vfp教程之在VFP中怎样做出象IE4中的那样的浮动按

当前位置:

首页 > 数据库 > VF教程 >

vfp教程之在VFP中怎样做出象IE4中的那样的浮动按

先放上按钮，将按钮的visible设为.f.，再用一image（其中图形与按钮一样）放在按钮的位置，在图片的mousemove事件中写入将按钮visible设为.t.的语句，在表单的mousemove事件中写入将按钮visible设为.f.的语句。

[返回]

2.使用 SQL，我正在设法将一个表与多个表建立左联接。当查询需要的所有表打开时，该查询可以工作。但是当有些表没有打开时，就会产生错误。而且当所有表打开时，尽管没有产生错误信息，但结果不正确。为什么？

　　当试图建立一个表对多个表的左联接时，您也许使用了下面语句，该语句用表别名进行了“自联接”。您的 SQL 语句可能如下所示：

　select one.firstname as first, one.lastname as second,;

　　　　two.firstname as third, two.lastname as fourth;

　　　　from FirstTable; left outer join SecondTable one;

　　　　left outer join SecondTable two; left outer join ThirdTable;

　　　　on ThirdTable.ThirdID=FirstTable.FirstID;

　　　　on Two.SecondID=FirstTable.FirstID;

　　　　on one.SecondID=FirstTable.FirstID;

　　　　order by 4,3,2,1

这里的查询试图将临时表 One、Two 以及 ThirdTable 左联接到 FirstTable 上，但是没有得到预期的效果。查询分析器从最里面的联接开始分析查询（在上面语句中为 "left outer join ThirdTable"），但是不能定位 FirstTable 表，该表名字位于此语句的上面。因此，如果没有打开表，您就会发现错误，如 "SQL: Column `ThirdID` 没有找到"，同时输出也不正确。当表打开时，"couple.coupleid" 绑定到外部（非SQL）临时表 "couple" 的字段上。此查询也是合法的，但是得不到预期的效果。为了避免此错误，并能够得到正确结果，可以使用类似如下的 SQL 语句：

　select one.firstname as first, one.lastname as second,;

　　　　　two.firstname as third, two.lastname as fourth;

　　　　　from (((FirstTable;

　　　　　left outer join SecondTable One;

　　　　　on one.SecondID = FirstTable.FirstID);

　　　　　left outer join SecondTable Two;

　　　　　on Two.SecondID = FirstTable.FirstID);

　　　　　left outer join ThirdTable;

　　　　　on ThirdTable.ThirdID = FirstTable.FirstID);

　　　　　order by 4,3,2,1

语句中的括号不是必须的，但推荐您加上它。通过如上的语句结构，如果所有的表全部是关闭的，也不会出错，结果也是正确的。

[返回]

3.如何加密表DBF文件数据

　本人用ＶＦＰ代码编了一个DBF加密小程序，以供大家参考:

　入口参数说明:

　　　　filename　表文件名

　　　　jm　　　　＝1　加密　＝0　解密

　加密思想：用低级文件函数改写数据库第一个字节

　程序代码如下:

　parameters filename,jm

　*处理文件名

　if at('.',filename)=0

　　filename=filename+'.dbf'

　endif

　if jm=1 &&加密

　　handle=fopen(filename,2) &&打开文件

　　keybite=fread(handle,1) &&读表头第一个字节

　　=fseek(handle,0) &&指针移回第一个字节

　　=fwrite(handle,chr(asc(keybite)+2)) &&用比原来高2的ASCII字符改写

　　=fclose(handle) &&关闭文件

　else &&解密

　　handle=fopen(filename,2)

　　keybite=fread(handle,1)

　　=fseek(handle,0)

　　=fwrite(handle,chr(asc(keybite)-2)) &&用比原来低2的ASCII字符改写

　　=fclose(handle)

　endif

　经过这样处理过的表就不能用USE打开，优点是加密速度快，但不彻底但用

　一个文本编辑器打开还是可以看到一些东西，怎样进一步加密还有待探讨。

栏目列表