本站首页    管理页面    写新日志    退出


«November 2019»
12
3456789
10111213141516
17181920212223
24252627282930


公告
暂无公告...

我的分类(专题)

日志更新

最新评论

留言板

链接


Blog信息
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:385071
建立时间:2005年5月12日




[VFP与SQL](转摘)VFP调用API来控制USB摄像头,实现拍照或录像
文章收藏,  网上资源,  软件技术,  电脑与网络

老瓷 发表于 2014-3-21 13:30:50

*--前提:VFP7.0以上;Windows 2K及以上
*--定义:一般放到主程序或表单(集)的Load事件中
Public WM_CAP_DRIVER_DISCONNECT
Public hwndc,WM_CAP_SAVEDIB,WM_CAP_FILE_SET_CAPTURE_FILEA,WM_CAP_SEQUENCE,WM_CAP_STOP
Declare Integer capCreateCaptureWindowA In "AVICAP32.DLL" String lpszWindowName ,Integer dwStyle ,;
    Integer x, Integer Y, Integer nWidth ,Integer nHeight,Integer ParentWin,Integer nId
Declare Integer SendMessage In "user32" Integer HWnd, Integer wmsg,Integer wpar1, Integer


阅读全文(2220) | 回复(1) | 编辑 | 精华 | 删除
 


[VFP与SQL]VFP检测SQL Server的五个实例代码
文章收藏,  网上资源,  心得体会,  事件记录,  软件技术

老瓷 发表于 2011-12-19 15:31:49

** 需要指出的是,无论下面哪种方式的代码,都需要打开本机的网络共享,否则找不到SQL服务器
** 例一 ***************************************************
* Use MyFll.Fll
Set Library To MyFll
lcLocalName = Left(Sys(0),At("#",Sys(0))-2)
lcLocalIP = DomainToIP(lcLocalName)
? '本机名:'+ lcLocalName
? '本机的 IP 为:'+ lcLocalIP
IF lcLocalIP == '127.0.0.1'
   ? '本机现在处于单机状态,未联接网络,或网络适配器停用!'
ENDIF cStr=GetSqlServer()
nCount=ALines(aServer,cStr,",")   &&切分生成数组
?
? "可连接的 SQL Server


阅读全文(3609) | 回复(0) | 编辑 | 精华 | 删除
 


[VFP与SQL]VFP中OCX控件注册检测及自动注册
原创空间,  文章收藏,  网上资源,  日后处理,  电脑与网络

老瓷 发表于 2011-12-7 22:22:15

这是原来从网上搜集、整理后编制用于自己的小程序使用的OCX是否注册及未注册控件的自动注册函数。 CheckCtrlFileRegist("ctToolBar.ctToolBarCtrl.4")  && 检测与注册DBI工具条控件(ctToolBar) ****************************** 控件注册函数
Function CheckCtrlFileRegist
Parameters lcCheck && 调用形如:CheckCtrlFileRegist("ctGrid.ctGridCtrl.3")
&& 其中,经常用到的控件如下:
&& MS日期控件 MSComCt2.OCX 版本2-("MSComCtl2.DTPicker.2")(MS Date and Time Picker Control 6.0 (SP4))
&& 视频头控件 AVCap.OCX 版本1-("AVCap.AVCapture.1")<

阅读全文(5214) | 回复(0) | 编辑 | 精华 | 删除
 


[VFP与SQL]VFP 图形文件、剪切板互换 API解决方法
网上资源,  读书笔记,  软件技术,  电脑与网络

老瓷 发表于 2011-8-5 20:12:17

VFP 图形文件、剪切板互换 API解决方法
(这是原来从网上摘下来的,版权归原作者) DECLARE INTEGER OpenClipboard               IN User32 INTEGER
DECLARE INTEGER CloseClipboard              IN User32
DECLARE INTEGER EmptyClipboard              IN User32
DECLARE INTEGER SetClipboardData     &

阅读全文(3958) | 回复(0) | 编辑 | 精华 | 删除
 


[VFP与SQL]身份证相关(转)
文章收藏,  网上资源,  软件技术,  电脑与网络

老瓷 发表于 2009-8-29 0:05:20

*!* 以下为我收集的关于身份证号码的自定义函数(十豆三) *!* 关于身份证号码最后一位的校验码的算法如下:
*!* 我国现行使用公民身份证号码有两种尊循两个国家标准,〖GB 11643-1989〗和〖GB 11643-1999〗。
*!* 〖GB 11643-1989〗中规定的是15位身份证号码:排列顺序从左至右依次为:六位数字地址码,
*!* 六位数字出生日期码,三位数字顺序码,其中出生日期码不包含世纪数。
*!* 〖GB 11643-1999〗中规定的是18位身份证号码:公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成。
*!* 排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码。
*!* 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。
*!* 生日期码表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。
*!* 顺序码表示同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性

阅读全文(3284) | 回复(0) | 编辑 | 精华 | 删除
 


[VFP与SQL]向表单拖放文件,文件路径及名称显示到列表框中(转)
文章收藏,  网上资源,  软件技术

老瓷 发表于 2009-8-28 23:24:47

向表单拖放文件,文件路径及名称显示到列表框中(十豆三)
 *------------------------------------------
 By:dkfdtf
 之前用API实现过,不过这个更简单,利于VFP本身的功能即可。
  
 如:在一个表单上加一个List列表框控件
 1. 设置此列表框的 OLEDropMode=1
 2. 在列表框的 OLEDragOver 事件中写代码:
 Lparameters oDataObject,nEffect,nButton,nShift,nXCoord,nYCoord,nState
 If nState=0 And oDataObject.GetFormat(15)
     This.OLEDropHasData=1
 Endif
 3. 在列表框的 OLEDragDrop 事件中写加文件项目的代码:
&

阅读全文(3121) | 回复(0) | 编辑 | 精华 | 删除
 


[VFP与SQL]WIN API-VFP获得其他程序多个输入框的内容(转)
文章收藏,  网上资源,  软件技术

老瓷 发表于 2009-8-28 23:21:25

WIN API-VFP获得其他程序多个输入框的内容
原文——十豆三
*--------------------------------------
先用SPY++得知其他程序(我测试的软件)的输入框类是Edit
下面你启动测试的软件,在多个输入框中随意输入几个字符,然后用以下代码即可获得你在多个输入框中输入的字符。 Declare Integer FindWindow In user32 String lpClassName,String lpWindowName
Declare Integer FindWindowEx In user32 Integer hwndParent,Integer hwndChildAfter,String @lpszClass,String @lpszWindow
Declare Integer SendMessage In user32 Integer,Integer,Integer,String @
#Define WM_GETTEXT 0xD
lcCaption="要查找窗口的C

阅读全文(3354) | 回复(0) | 编辑 | 精华 | 删除
 


[VFP与SQL]VFP获取 SQL Server 常用脚本
文章收藏,  网上资源,  事件记录,  软件技术,  电脑与网络

老瓷 发表于 2008-1-19 2:06:11

*-----------------------------------------------
* SqlServer 相关函数
*-----------------------------------------------
Clear
*-----------------------------------------------
* 测试 GetTableCode()
*-----------------------------------------------
Local lcDataBaseName, lcTableName, lcTableCode, lnSqlHandle, lcSqlStringConnect
lcTableCode = []
lcDataBaseName = [DCLZ]
lcTableName = "[dbo].[考勤原始表]"
lcSqlStringConnect = [driver={Sql server};server=(local);uid=sa;pwd=Admin;

阅读全文(7829) | 回复(3) | 编辑 | 精华 | 删除
 


[VFP与SQL]VFP获取局域网内所有SqlServer
文章收藏,  网上资源,  软件技术,  电脑与网络

老瓷 发表于 2008-1-19 1:59:35

*-----------------------------------------------
* 函数: 获取局域网内所有SqlServer
* 设计: 红雨
* 时间: 2005.04.01
*-----------------------------------------------
Function NetEnumSqlServer( tcTableName )
    m.tcTableName = Iif(Type([m.tcTableName])=[C], m.tcTableName, [TNetEnumSqlServer])
    Create Cursor (m.tcTableName) ( ServerName C(254) )
    Declare SHORT SQLBrowseConnect In odbc32 Integer ConnectionHandle, String InConnectionString

阅读全文(2711) | 回复(0) | 编辑 | 精华 | 删除
 


[VFP与SQL]VFP的13个SPT函数
读书笔记,  事件记录,  软件技术,  电脑与网络

老瓷 发表于 2008-1-17 0:21:46

Visual FoxPro 中内置了13个以SQL开头的函数,我们把它们称为SPT函数。就是这13个函数完成了Visual FoxPro的所有的SQL Pass Though功能。从功能上看,我们可以把它们分成五个部分:
连接函数:
连接建立函数:SqlConnect(),SqlStringConnect()
连接的断开函数:SqlDisconnect()
核心的执行函数:
SQL语句传输及执行函数:SqlExec(),SqlPrapare()
批次模式下更多数据集的取得函数:SqlMoreResults()
异步模式下撤销正在执行的SPT的函数:SqlCancel()
用法:SQLEXEC(nConnectionHandle, [cSQLCommand, [cCursorName]])
例:SQLEXEC(hconn,"SELECT * FROM EMPLOYEES","MyCursor")
Browse
例:SQLEXEC(hconn,"")  &&一个空的命令发送,返回1的话证明连接

阅读全文(7845) | 回复(1) | 编辑 | 精华 | 删除
 


« 1 2 »



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.033 second(s), page refreshed 144326814 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号