| « | August 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
访问次数:431732
建立时间:2005年5月12日 |
| |
|
 [编程及数据库]VFP读取MP3信息资料
文章收藏, 网上资源, 事件记录, 软件技术, 电脑与网络
老瓷 发表于 2008/1/19 2:01:41 |
*---------------------------------------------------------------------
* 程序: 读取 MP3 信息资料
* 设计: 红雨
* 调用示例
*---------------------------------------------------------------------
Clear
Local lcMP3File, laMP3Info(5)
Store [] To laMP3Info
lcMP3File = [Z:\MPSong\阿杜\离别.mp3]
If GetMP3Info( lcMP3File, @laMP3Info )
? [文件: ] + lcMP3File
? [歌曲: ] + laMP3Info(1)
? [歌手: ] + laMP3Info(2)
? [歌集: |
|
|
[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的话证明连接 |
|
|
 [休闲杂记]是福不是祸，是祸躲不过！
原创空间, 随笔, 事件记录
老瓷 发表于 2007/1/4 22:05:44 |
是福不是祸，是祸躲不过！大凡命中注定的事，都是要经历一场的，不管事情的结局是如何，不管它发生的结果对你的将来会产生何种程度的影响，都不可避免。这不是宿命论，我也不信迷信，但却遭遇到了这场我认为不会发生，却牵肠挂肚了一年的事情，甚而是差点夺去了我生命的大事情！
年初开始，老婆就告诉我，我今年内会有一场灾星，甚至隐约提示到是类似于车祸之类的事。也不知道她是从哪里占卜的，或是到哪求菩萨拜神来的，总之是年头唠叨到年尾，每次我骑车出去都要念叨的。
二十九日到广西，连休息都顾不上，马上开始工作。
冥冥之中，老天爷或许是有暗示于我，而我没有在意吧：处理完毕后的资料就是打印不出来。新的针式打印机打得慢，老的EPSON原来打得好好的，现在也好象是发热只能每次打几页就得休息好一会，那台LQ1600K竟然也是同样的原因……
我是个不服输的人，一定要想办法将资料处理好。所以在没有办法的情况下，我只好放弃针打双联连续纸，转而采用激光打印机用A4纸去打印时，而那台激光打印机竟然没有碳粉了……此时老天又留给我一次机会让我选择：是误机等打印完毕还是继续赶飞机呢？
如果此时，我要将资 |
|
|
 [休闲杂记]粗心是要付出代价的
原创空间, 随笔, 心得体会, 事件记录, 休闲娱乐
老瓷 发表于 2006/6/7 22:38:46 |
常常听说粗心是要付出代价的，这不，真的灵验了：在一个世人都认为是大吉大利的日子里（06-06-06），我的脚后跟的掌骨却由于跌跤而裂缝了一道，以致照X光片后，被医生给结结实实地打上了石膏，现躲藏在床上，见不得人——出不去哟 :(
所以，并不是每个人在公认的吉日里都会是快乐而安祥的，也会有那么一些倒楣的人会碰上一些意想不到的事，就像我一样。
昨晚，岳母听说后来看我，也安慰我说（她老人家有点点信佛），意思是这件事是会碰到的小坎，没有什么关系的，不要太放在心上。我想也是吧，每个人在人生道路上总都会遇上一些这样那样的不如意或小坎，关键是我们怎么对待罢了。就像这次我自己，平常家人或朋友总说我怎么那么忙，从来没有休息时候似的，这下可好了，我就当给自己放一次长假：怎么样？一、两个月甚至更长，够可以的了吧？！呵呵…… |
|
|
[休闲杂记]关于“自私”一说……议班长之“论自私”(二)
原创空间, 随笔, 心得体会, 休闲娱乐, 生活百科, 人文艺术
老瓷 发表于 2006/6/5 19:57:07 |
……
二、自私与精神
自私，包括满足对物质的欲望和精神的需求。从广义上讲，精神追求和信仰也可以纳入自私的范畴。
信仰是最有争议的话题。
……
如果没有一点好处，有谁会求神拜拜佛？
……
确实你说的有道理……我就从我自己的切身体会来说吧！
我母亲按别人的看法说是信佛，但依我看，却不是信佛，而是“迷信”，我这里的“迷信”不是通常意义上的那种求神弄鬼似的迷信，而是“迷”入了她“信”的“佛”中了。
为什么这么说呢？通常情况下，百姓或未出家（像俗家弟子）的人信佛的话，也就是逢上初一、十五或菩萨生日什么的吃吃斋罢。而她却不是这样的，年头到年尾整个地吃斋，每天三叩九拜，敲鱼念经，弄得周围的左邻右舍也颇有意见，而她却视而不见……
对于家人、亲戚、朋友来说，也没有原来的那种亲切之情，甚至与我父亲之间也好象起了间隔。记得三年前我四十生日那天，无论之前与当天我如何打电话请她，甚至弟妹们也都劝她来一下，她都无动于衷。可想而知，对于进入四十门槛的我，一心想报答母亲的生我之恩，当时的心境是如何的难过与不安。
自从“迷信”以后，她整 |
|
|
[休闲杂记]关于“自私”一说……议班长之“论自私”
原创空间, 随笔, 心得体会, 休闲娱乐, 生活百科, 人文艺术
老瓷 发表于 2006/6/4 1:43:04 |
什么是自私？自私是谋求自身的利益，这种利益无非是追求幸福和逃离痛苦。
只有让人们的自私相互制约，才能保证制度的安全和效率。
想到并尊重别人的自私，同时也要让别人在一定程度上满足他们的自私。
……
班长的这翻话，很是有道理的……
……
其实，在我的记忆中，关于社会主义与共产主义的概念（共同享有财产，平均分配，按需所取，按劳分配……），至今仍然使我产生这样一种联想：难道这些概念不正是个人与社会在均衡、满足全体大众的私欲么？这种社会制度不正是建立在自私的相互制约下才得到体现的么？
在社会交往中，人们其实都是在自私的前提下进行利益的交换，以满足个体的私欲。如果交换不均衡，则会产生利益的倾斜，必须会导致另一方私欲的减少，从而使得该个体的私欲不能满足。
如果私欲得不到满足，这个个体将会谋求以其它个体的利益为代价来获利，这将对全社会来说将是一个隐患：他将对其它个体对这个相互利用与满足的自私产生对抗与冲击。如果这种现象不加以限制与惩罚，其它个体必然会加以效仿，也必将影响与妨碍大众的自私的满足……所以，必须以适当的规章制度来对这种现象加以限制，这大概就是法 |
|
|
[编程及数据库]触发器的基础知识
文章收藏, 心得体会, 软件技术, 电脑与网络
老瓷 发表于 2006/3/29 18:27:17 |
触发器的基础知识：
create trigger tr_name on table/view
{for | after | instead of } [update][,][insert][,][delete]
[with encryption]
as {batch | if update (col_name) [{and|or} update (col_name)] }
说明：
1 tr_name ：触发器名称
2 on table/view ：触发器所作用的表。一个触发器只能作用于一个表
3 for 和after ：同义
4 after 与instead of :sql 2000新增项目afrer 与 instead of 的区别
After 在触发事件发生以后才被激活,只可以建立在表上
Instead of 代替了相应的触发事件而被执行,既可以建立在表上也可以建立在视图上
5 insert、update、delete：激活触发器的三种操作，可以同时执行，也可选其一
|
|
|
[休闲杂记]年度达尔文进化奖(转) 
文章收藏, 网上资源, 休闲娱乐, 生活百科
老瓷 发表于 2006/2/16 13:25:10 |
|
有时候会收到一些同事发来的轻松邮件，比如这封关于“年度达尔文进化奖”的。我把它翻译成了中文，算是新春到来时多给大伙儿一点欢笑吧。
*******************
朋友们，一年中最激动人心的时刻到来了。现在特隆重颁发2005达尔文进化奖，以表彰那些在人类进化中走得最慢的人们，是他们，使得我们生活的折磨和压力不那么难以忍受。
得到本次大奖殊荣的是：
JAMES ELLIOT - 做为加利福尼亚长滩市的准打劫者，当他把点38左轮对准受害人开枪时，枪卡壳了。这时他做了非常有建设性的举动——把眼睛对准枪口仔细瞄了一眼，同时扣动了扳机——这次枪没有卡壳。
以下诸位是这个奖项的有力争夺者：
1. 一个瑞士酒店的厨师被一台切肉机夺去了一根手指，他愤然向保险公司要求赔偿。保险公司怀疑是他操作过失于是派了一个代表来检查机器。这个代表自己尝试操作了切肉机，他也失去了一根手指——于是，这个厨子的赔偿要求得到了批准。
2.一个男人在暴风雪的芝加哥街头奋力铲雪一个小时，终于给自己的车清 |
|
|
[VFP与SQL]在Visual FoxPro中使用ADO数据源
文章收藏, 网上资源, 读书笔记, 软件技术
老瓷 发表于 2006/2/14 0:14:37 |
ADO是一种面向对象的数据连接方式，与ODBC有着许多相似之处。使用ADO作为数据源，首先需要一个建立一个连接对象（ADO Connection），这类似于ODBC的连接句柄；然后需要建立一个记录集合对象（ADO RecordSet），用于存放读取的数据，这类似于Visual FoxPro的临时表；最后便是使用记录集合的Open方法根据建立的连接对象，执行一个SQL查询语句，这类似SPT的SQLEXEC( )函数，该函数也是根据一个连接句柄来执行一个SQL查询。
1．建立连接（Connection）对象
ADO也同样支持ODBC数据源与字符串连接方式，如果使用ODBC数据源连接，可以建立一个文件数据源，步骤如下：
（1）在“控制面板”中打开“ODBC数据源管理器”对话框，并选择“文件DSN”选项卡，如图20-60所示。
（2）单击对话框中的“添加”按钮，打开“创建新数据源”对话框，在驱动程序列表中选择SQL Server，如图20-61所示。
（3）单击“下一步”按钮，将出现如图20-62所示的画面，可以在文本框中输入要建立的数据源名称，如：LinkNor |
|
|