静态博客入口:http://blog.5d.cn/user8/wwle/
2009-06-26 | Visual FoxPro权威指南
类别(数据库学习笔记) | 评论(0) | 阅读(923) | 发表于 19:07
Visual FoxPro权威指南
http://book.csdn.net/ 2007-6-13 19:24:00
2009-06-26 | Visual FoxPro权威指南
类别(数据库学习笔记) | 评论(0) | 阅读(680) | 发表于 19:04
Visual FoxPro权威指南
http://book.csdn.net/ 2007-6-13 19:24:00
2009-06-26 | VFP9 Bind Event 用法
类别(数据库学习笔记) | 评论(1) | 阅读(625) | 发表于 18:56

 

2009-06-19 | 关于连接 SQL Server
类别(数据库学习笔记) | 评论(0) | 阅读(1086) | 发表于 17:10
做了一个测试,突然不行。就找了一下原因。
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gk;Data Source=(local)

1 WINDOWS系统服务详解 
 
--  WINDOWS系统服务详解
<P>1 Alerter 当系统发生故障时向管理员发送错误警报,除非电脑处于局域网,而且配有网络管理员,一

般不需要。 services.exe 不需要 禁用 
2 Application Layer Gateway Service 提供第三方网络共享/防火墙软件支持的服务,有些防火墙/网络

共享软件需要。占用1.5M内存。 alg.exe 看情况,可选 手动 
3 Application Managerment w

2009-04-20 | 关于在浏览器中文件上载的方法与实现
类别(数据库学习笔记) | 评论(0) | 阅读(26) | 发表于 22:42

关于在浏览器中文件上载的方法与实现

honghoo.net

  关键字: ASP
一、问题引入

  在现在的管理信息系统中,比较先进的都已采用浏览器/服务器的模型,在这种模型中都要涉及到客户端与服务器端的信息交互问题,从服务器端到客户端的信息传递技术已经比较成熟,这里主要讨论从客户端到服务器端的文件上载问题,基于Microsoft的IE4.0、IIS4.0、ASP(Active Server Page)和标准HTML语言。

二、解决方法

  在ASP页面中,利用HTML中的Form元素来实现。
  在Form元素的语法中,EncType表明提交数据的格式,Method表明提交的方法(Get/Post)。在IE4.0 及以后的版本中都支持"multipart/form-data"这种格式,相应的Method方法必须是Post,表明要上载文件到服务器。当然同时在服务器相应的WEB站点上
2009-04-20 | 顶层表单的菜单工具栏
类别(数据库学习笔记) | 评论(0) | 阅读(107) | 发表于 00:04

lujin=left(sys(16),rat('\',sys(16))-1)
SET defa to (lujin)
TopForm=CREATEOBJECT('TopForm')
TopForm.show
on shutdown TopForm.destroy
_screen.windowstate=1
read events
set default to
on shutdown
_screen.windowstate=2
retu

DEFINE CLASS TopForm AS form
 showwindow=2
 DoCreate = .T.
 Caption = "TopForm_Menu_Toolbar"
 width=500
 height=300
 TopToolBar='Toolbar1'
 nActivate=0

 proc QueryUnload
  NODEFAULT
        clear events

 *建菜单
 PROCEDURE Init
  this.oMenu(this

2009-04-19 | myDll之myFll,增强你的VFP[New]
类别(数据库学习笔记) | 评论(1) | 阅读(1499) | 发表于 23:59

函数库说明:myFll是增强VFP的扩展函数库,部分与RMH的myDll中功能相同(名称可能不同)的函数,是由RMH提供的myDll源码改进而来。一些和Win32API名称相同的函数,是在FLL中对Win32API的封装,在VFP中可以直接调用,并可以省略掉一些默认的参数。一些与算法相关的函数,都取自网上开源的代码,帮助中均有注明。

线程函数:部分函数以大写X结尾的函数,均是多线程函数,一般提供多线程的函数都会提供一个单线程的版本。由于线程间通信比较麻烦,均以消息传递的方式通信,因此线程函数需要VFP9以上版本支持(消息绑定)。

版权问题:myFll可以自由使用,任意改名及加壳(发布的这个版本里没有加壳,不过你可以使用upx、aspack之类的加壳),以及自由转发,转发时应注意与帮助文件同时转发。myFll作者不承担可能由于技术原因给你带来的错误或损失。发现错误可以与作者取得联系共同改进。

包含进EXE编译:理论上,FLL文件是可以直接包含进VFP编译的exe文件,此版本的FLL也没有做任何限制。但是,部分函数未经过全面测试,涉及多线程、系统勾子的函数,

使用帮助:myFll发布附带有中文CHM格式帮助,使用示例及参数说明,请查阅帮助。开发环境中可以按如下方式取得部分帮助信息:

取得此版本函数个数:FllHelp()
取得第x个函数的信息:?FllHelp(x)
显示提示信息:?FllHelp(x,.T.)
显示指定函数的信息:FllHelp("SendMessage",.T.)

2009-04-19 | 获得汉字的拼音简码
类别(数据库学习笔记) | 评论(0) | 阅读(121) | 发表于 23:56


获得汉字的拼音简码
本文来源于【梅子论坛临时文章系统】 网站地址:http://www.meizvfp.com/article.asp?id=2



*过程名为pyjm
*调用格式为 JM=pyjm(参数)
*假若是想求表单中文本框TEXT1中的汉字拼音简码,调用方式为JM=pyjm(THISFORM.TEXT1.VALUE)
*变量JM就是所求的拼音简码
PROCEDURE pyjm
PARAMETERS strg
le=LEN(strg)
jm=""
for m=1 to le step 2
mystr=substr(strg,m,2)
If Asc(mystr) > 0
If Asc(Left(mystr,2)) < Asc("啊")
py = Left(mystr,2)
EndIf
If Asc(Left(mystr, 2)) >= Asc("啊") And Asc(Left(mystr, 1)) < Asc("芭")
py = "A"
EndIf
If Asc(Left(mystr, 2)) >= Asc("芭") And Asc(Left(mystr, 1)) < Asc("擦")
py = "B"
EndIf
If Asc(

2009-04-19 | 改变分辨率的VFP代码 vfp
类别(数据库学习笔记) | 评论(0) | 阅读(164) | 发表于 23:52



=
If Sysmetric(1)<1024
 Local lcDevMode
 lcDevMode=Replicate(Chr(0),156)
 Declare Integer EnumDisplaySettings In user32 Integer,Integer,String @
 Declare Integer ChangeDisplaySettings In user32 String @,Integer
 EnumDisplaySettings(0,4294967295,@lcDevMode)
 lcDevMode=Stuff(lcDevMode,109,8,Chr(1024%256)+Chr(1024/256)+Chr(0)+Chr(0)+Chr(768%256)+Chr(768/256)+Chr(0)+Chr(0))
 ChangeDisplaySettings(@lcDevMode,1)
 Clear Dlls [ChangeDisplaySettings]
 Clear Dlls [EnumDisplaySettings]
Endif
本文来源于【梅子论坛临时文章系统】 网站地址:http://www.meizvfp.com/article.asp?id=11


 
2009-04-16 | 关于注册ocx文件
类别(数据库学习笔记) | 评论(0) | 阅读(55) | 发表于 16:42

1
If File('控件全名')
    oll=Createobject('Wscript.shell')
    If oll.Run("REGSVR32 /S 控件全名",0,.T.)!=0  &&注册
        Messagebox('控件注册失败!',16,'信息提示')
    Endif
    *oll.RUN("REGSVR32 /U /S 控件全名",0,.T.)  &&解除注册
    Release oll
Else
    waitstr="缺少  控件全名  文件..."
    Wait waitstr Windows At Srows()/2,(Scols()-Len(waitstr))/2 Timeout 5
    Close All
    Clear All
    Return
Endif

2、
Declare Long DllRegisterServer In 控件全名

2009-01-12 | vfp6.0的十个实用技巧
类别(数据库学习笔记) | 评论(0) | 阅读(496) | 发表于 22:09
vfp6.0的十个实用技巧
---- 一.选择网络打印机

---- 笔者单位里的局域网上安装有多台网络打印机,在使用vfp 6.0编制的程序进行打印操作时,是否可以选择其中的某一台空闲的网络打印机进行打印,而不一定非要从默认打印机输出,从而提高工作效率呢?经笔者研究,在执行命令: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 '
2009-01-12 | VFP 中使用 Wscript.shell
类别(数据库学习笔记) | 评论(0) | 阅读(213) | 发表于 21:54

  Shelltpara='a   -ad   -y  -dh  -ep1  '+' "'+allt(thisform.bkfile.value)+'" '+'    "'+thisform.comment+'\sur"'  &&messageb("rar.exe  "+Shelltpara)
  oShell=Createobject("Wscript.shell")
  oShell.Run("rar.exe  "+Shelltpara,0,.T.)

if director('&filen0.')
   commandstr= 'dele file   '+  ' "&filen0.\*.*" '   &&   messagebox(commandstr)
   &commandstr.
   commandstr= 'rd '+'  "&filen0."'  &&    messagebox(commandstr)
  

2008-11-27 | 报表打印技术深入探讨集锦
类别(数据库学习笔记) | 评论(0) | 阅读(355) | 发表于 17:05

 

转贴坛中一位大侠的总结:
------------

下面是好多前辈以及各版主以前发的文章,我找了一宿,匆匆浏览了一下,觉得掌握了这些技巧,应该和雪心的终极打印比较接近了吧?是不是啊?若不是,老兵   centch 你们一定要批判我,可不能看着兄弟

2008-11-27 | VFP 中打印屏幕(form
类别(数据库学习笔记) | 评论(0) | 阅读(308) | 发表于 17:01

*******************************************
*-- 程序名称:将表单的内容直接打印      --*
*-- 将窗口中的内容以一个位图的形式打印  --*
*-- 程序作者:未知,来源论坛转帖        --*
*-- 使用方法:在表单中执行该程序既可    --*
*           例:在某表单的一个command   --*
*           按纽中执行 do PrintForm.prg --*
*******************************************

*-- 定义常量
#DEFINE LOGPIXELSX           88
#DEFINE LOGPIXELSY           90
#DEFINE PHYSICALOFFSETX     112

2008-10-09 | VFP 读出word表格数据
类别(数据库学习笔记) | 评论(0) | 阅读(97) | 发表于 17:00

SET TALK OFF
SET SAFETY OFF
*CLEAR ALL
CLOSE ALL tables

CREATE TABLE xsinfo (xh c(20),zy c(20), lxdh c(20), kh c(20),ksh c(20), sfzh c(20))


 
 ole=createobject("Word.application")
 ole.visible=.T.
 bb=GETFILE('doc')
 aa=ole.Documents.open(bb)
*!*  input "输入表格的行数:" to iRow
*!*  input "输入表格的列数:" to icol

    dd=''
    *dd=CHR(13)+CHR(10)
    *dd=CHR(10)+CHR(13)

  
   
 FOR i=2 TO  aa.tables.item(1).Rows.count&&iRow