« | July 2022 | » | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | | 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 访问次数:418402 建立时间: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类一样,就这么方便: 这个类里有很多成员,但我们不必奢望太多,只须一部分,一部分就足够了。
|
阅读全文(4487) | 回复(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")< |
|
|