| « | July 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:430843
建立时间: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 |
|
|
[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 |
|
|
[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")< |
|
|
[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 & |
|
|
[VFP与SQL]身份证相关（转）
文章收藏, 网上资源, 软件技术, 电脑与网络
老瓷 发表于 2009/8/29 0:05:20 |
*!* 以下为我收集的关于身份证号码的自定义函数(十豆三)
*!* 关于身份证号码最后一位的校验码的算法如下：
*!* 我国现行使用公民身份证号码有两种尊循两个国家标准，〖GB 11643-1989〗和〖GB 11643-1999〗。
*!* 〖GB 11643-1989〗中规定的是15位身份证号码：排列顺序从左至右依次为：六位数字地址码，
*!* 六位数字出生日期码，三位数字顺序码，其中出生日期码不包含世纪数。
*!* 〖GB 11643-1999〗中规定的是18位身份证号码：公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。
*!* 排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
*!* 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。
*!* 生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。
*!* 顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性 |
|
|
[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 事件中写加文件项目的代码：
& |
|
|
[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 |
|
|
[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; |
|
|
[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 |
|
|
[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的话证明连接 |
|
|