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


«November 2019»
日一二三四五六
12
3456789
10111213141516
17181920212223
24252627282930


公告
暂无公告...

我的分类（专题）

日志更新

最新评论

留言板

链接


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




[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

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


[编程及数据库]MS SqlServer 日期日期格式化函数 Convert
文章收藏,  网上资源,  日后处理,  软件技术,  电脑与网络

老瓷 发表于 2009-7-3 2:51:30

MS SqlServer 的日期格式化函数：Convert(data_type[(length)], expression [, style])
参数：data_type[(length)]代表转换的数据类型及长度，expression代表源数据表达式，style代表要转换的日期格式样式 Select CONVERT(varchar, GETDATE(), 0): 05 16 2006 10:57AM
Select CONVERT(varchar, GETDATE(), 1): 05/16/06
Select CONVERT(varchar, GETDATE(), 2): 06.05.16
Select CONVERT(varchar, GETDATE(), 3): 16/05/06
Select CONVERT(varchar, GETDATE(), 4): 16.05.06
Select CONVERT(varchar, GETDATE(), 5): 16-05-06
Select CONVERT(varchar, G

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


[编程及数据库]Vfp控制Excel操作集
原创空间,  文章收藏,  网上资源,  读书笔记,  心得体会,  事件记录,  日后处理,  软件技术,  电脑与网络

老瓷 发表于 2009-1-4 0:27:40

◆访问EXCEL：ExcelSheet = GetObject('','Excel.Sheet')
返回结果为类，则成功。例：
ExcelSheet = GetObject('','Excel.Sheet')
If Type("ExcelSheet")#'O' THEN
=MessageBox( "访问Excel失败！请检查你的系统是否正确安装 Excel 软件！",48,"Excel不正常")
RETURN
ENDIF ◆创建EXCEL实例：oExcel=CreateObject("Excel.Application")
该实例创建后，任何对EXCEL的操作都针对该实例进行，关闭EXCEL后应释放该实例变量：RELEASE oExcel ◆打开已存在的EXCEL文件：oExcel.WorkBooks.Open("&lcFileName") &&lcFileName为Excel文件名
打开带有读写密码的文件：oExcel.WorkBooks.Open("&a

阅读全文(14112) | 回复(5) | 编辑 | 精华 | 删除
 


[休闲杂记]父母血型与后代的关系
网上资源,  读书笔记,  事件记录,  生活百科

老瓷 发表于 2008-9-1 15:13:56

按ABO血型
婚配式　子女可能有的血型　子女不可能有的血型
A×A　　　A、O　　　　　　　B、AB
A×B　　　A、B、O、AB　　　　无
A×AB　　 A、B、AB　　　　　　O
A×O　　　A、O　　　　　　　B、AB
B×B　　　B、O　　　　　　　A、AB
B×AB　　 A、B、AB　　　　　　O
B×O　　　B、O　　　　　　　A、AB
AB×AB　　A、B、AB　　　　　　O
AB×O　　 A、B　　　　　　　AB、O
O×O　　　O　　　　　　　　A、B、AB
血型是如何遗传的？
在日常生活中，人们常用一些不规范的方法来推测、判断父母与子女之间的血缘关系，却往往得出错误的结论，引起一些不必要的纠纷。如果从基因的角度来判断血型的遗传关系，就能避免父母与子女之间血缘关系的判断错误。
遗传学研究证明，人的血型同其他所有遗传性状一样，都是由染色体上的基因决定的。我们通常说的ABO血型基因在9号染色体上，科学家早就发现控制人的ABO血型基因有不同的三种，即A、B和O基因，而

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


[休闲杂记]短信集
休闲娱乐,  情感绿洲,  人文艺术

老瓷 发表于 2008-7-7 18:39:45

1.有种友情，事过境迁依然纯朴；有种信任，事隔多年依然怀念；有种友谊，无须挂齿却心领神会；有种问候，清清淡淡却真诚无限！节日快乐！
2.日出东海落西山，愁也一天，喜也一天；遇事不钻牛角尖，人也舒坦，心也舒坦。

[休闲杂记]程序员成功之路(转)
文章收藏,  网上资源,  读书笔记

老瓷 发表于 2008-4-21 23:15:07

程序员成功之路 ——The road ahead for programmer（演讲稿--gejianlin）
一、我很羡慕在座的各位同学，因为你们是中国未来的程序员，而我不是，我一直很遗憾。
比尔盖茨曾经写过一本书叫做《未来之路》The road ahead, 那么今天我选择这样一个题目，the road ahead for programmer, 程序员的未来之路，也就是程序员的成功之路，希望大家未来也能够拥有像比尔盖茨一样的智慧的头脑和开一家像微软一样的公司。俗话说：心有多大，人生的舞台就有多大！
二、最近看了几篇csdn上的漫漫人生路专辑，很有感触，这里摘抄了几句，非常愿意和大家分享, 优秀程序员的心里话：
编程的原因是喜欢，不是为了别的。
从摸上电脑的那一刻，我就知道，这才是我的世界。
我一心一意地想作个程序员，尽管知道很累。
人真的不能轻言放弃，否则，失去的永远无法挽回！
生命是一种长期而持续的累积过程
所有成功的人都有一个不变的黄金法则： 积累！与 坚持！

阅读全文(2848) | 回复(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) | 编辑 | 精华 | 删除
 


« 1 2 3 4 5 »



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

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