| « | October 2020 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | 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
访问次数:398792
建立时间:2005年5月12日 |
| |
|
 [编程及数据库]VFP日期时间转中文日期时间
原创空间, 日后处理, 软件技术, 电脑与网络, 其他
老瓷 发表于 2015/4/9 13:05:02 |
本函数原为VFP中取日期转中文日期方式，后增加日期时间处理，并改用Iif及ICase修改原代码。
Function DateTime2CHN
Parameters pdDate,plTime
*!* pdDate -- 日期 或 日期时间； plTime -- 取时间否，1--取时间，0--不取时间(默认)，此参数为空时取默认值
*!* By HeQiang 2003-04-01 Edit:2010-07-12
If VarType(plTime, .T.)<>'N' Or IsNull(plTime) Or !Between(plTime, 0, 1) Or VarType(pdDate,.T.)='D'
plTime = 0
EndIf
Local lcYMD
Local lnYear,lnMonth,lnDay
lnYear = Year(pdDate)
lnMonth = Month(pdDate)
lnDay = Day(pd |
|
|
 [编程及数据库]VFP9利用_GdiPlus类处理图片分辨率及缩放
原创空间, 随笔, 心得体会, 事件记录, 软件技术, 电脑与网络
老瓷 发表于 2015/2/7 14:39:14 |
Local lcFile_S, lcFile_T, lnW_T, lnH_T, lnXDpi_T, lnYDpi_T
m.lcFile_S = 'D:\Temp\Source.jpg'
m.lcFile_T = 'D:\Temp\Target.jpg'
m.lnW_T = 160 && 目标图宽、高度
m.lnH_T = 240
m.lnXDpi_T = 72 && 目标图分辨率
m.lnYDpi_T = 72
Set Classlib To "_GDIPlus.Vcx" Additive
oGraphics=CreateObject("gpGraphics") && 创建工作图像
oImage=CreateObject("gpImage") |
|
|
[编程及数据库](转)设置在64位机器上的IIS(IIS6/IIS7)兼容32位程序（64位ODBC和32位ODBC的问题同样适用）
文章收藏, 网上资源, 事件记录, 软件技术, 电脑与网络
老瓷 发表于 2014/3/25 11:33:06 |
| 64位操作系统不支持Microsoft OLE DB Provider for Jet驱动程序，也不支持更早的Microsoft Access Driver (*.mdb)方式连接。所以用于 Access 和 Excel 数据库的 Microsoft OLE DB Provider for Jet 在 64 位版本中不可用，也就是说，如下两种连接字符串都已经无法正常工作了：
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”&Server.mappath(db)
“driver=Microsoft Access Driver (*.mdb);DBQ=”&Server.MapPath(db)
既然这样，就只能使用一个办法，将IIS的运行环境设置为32位：
IIS6上的做法:
1.命令行键入:
cscript.exe %SYSTEMDRIVE%\inetpub\adminscripts\adsutil.v |
|
|
[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 |
|
|
[编程及数据库]VFP9.0的GDI+类的使用
文章收藏, 网上资源, 事件记录, 软件技术
老瓷 发表于 2013/2/2 23:54:09 |
GDI+你应该不会陌生吧，然而，在VFP里要使用这一技术，可不是一件容易的事，你得学习一大堆API函数。或许，一想到这，你已经望而却步了。不过，从现在起，这一技术不再是豪门旺族的专宠了，我们每一位Foxer都可以让它成为我们得心应手的好工具了。下面就跟我一起来领略它的风采吧。
在9.0的版本里，有个叫_GDIplus的类，它位于VFP的安装目录下：Home(1) + “FFC\_GDIplus.vcx”,是的，这是API函数的封装类，既然已经是封装的类了，那么，我们就不用关心底层的API了，所心，我们完全可以像用普通的VFP类一样，就这么方便：
这个类里有很多成员，但我们不必奢望太多，只须一部分，一部分就足够了。
|
| 阅读全文(4079) | 回复(0) | 编辑 | 精华 | 删除 |
| |
|
[电脑应用杂烩]快速启动栏中的显示桌面图标的恢复
文章收藏, 网上资源, 随笔, 心得体会, 事件记录, 软件技术, 电脑与网络, 生活百科, 数码玩家
老瓷 发表于 2013/1/15 1:34:48 |
在适当的文件夹（如C:\WINDOWS）新建一个文件名为“显示桌面.scf”的文件，其内容为：
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
保存文件后将其拉入快速启动栏即可。
资源管理的恢复类似，其文件内容为：
[Shell]
Command=2
IconFile=explorer.exe,1
[Taskbar]
Command=Explorer |
|
|
[休闲杂记]新年拜年拱手礼姿式
文章收藏, 随笔, 休闲娱乐, 生活百科, 情感绿洲, 人文艺术
老瓷 发表于 2013/1/9 14:43:46 |
| 拱手礼就是两手相合，一般左手在上右手在下姿式。上下摆动，向对方以示敬意。中国是一个礼仪之邦，在人际关系中，无论相见、分别、感谢、谦让、致歉等等的场面都少不了一些礼节形式，否则就会失礼，没有礼貌。
从古至今，中国几千年来，从来没有失去过一些传统的礼仪。就在当代，我们仍然在各种应酬、集会、社交活动之中，保留着这些礼仪形式。而这些礼仪，主要就是拱手礼、握手礼和鞠躬礼。 |
|
|
[编程及数据库]MSSql访问远程数据库
文章收藏, 网上资源, 软件技术, 电脑与网络
老瓷 发表于 2012/12/29 15:05:15 |
--第一部分(要点)
--永久访问方式（需对访问远程数据库进行经常性操作）时设置链接数据库
Exec sp_addlinkedserver 'MyLinkServer','','SQLOLEDB','远程服务器名或ip地址'
--或：
Exec sp_addlinkedserver '远程服务器',N'SQL Server'
Exec sp_addlinkedsrvlogin 'MyLinkServer','false',null,'用户名','密码'
--返回本地服务器中定义的链接服务器列表
Exec sp_linkedservers
--返回表的字段中，其中对MSSQL而言：SRV_NAME(链接服务器的名称)，SRV_DATASOURCE(与指定链接服务器对应的服务器名)
--访问表时以四部分名称形式
--查询示例
Select * From MyLinkServer.数据库名.dbo.表名
--导入示例
Select * Into 表 From MyLinkServ |
|
|
[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")< |
|
|