摘要: *!*调整本机日期时间与服务器日期时间一致( YYYY-MM-DD HH:MM:SS.FFF )*!*以下cSqlStr及nCon为SQL查询串及连接句柄cSqlStr="Select SysTime=Convert(Char,GetDate(),121)" &&取服务器本地当前日期时间(已转换为字 阅读全文
posted @ 2020-02-14 10:57 老瓷 阅读(814) 评论(0) 推荐(0) 编辑
摘要: 触发器的基础知识:create trigger tr_name on table/view{for | after | instead of } [update][,][insert][,][delete][with encryption]as {batch | if update (col_nam 阅读全文
posted @ 2020-02-14 00:04 老瓷 阅读(405) 评论(0) 推荐(0) 编辑
摘要: Visual FoxPro 中内置了13个以SQL开头的函数,我们把它们称为SPT函数。就是这13个函数完成了Visual FoxPro的所有的SQL Pass Though功能。从功能上看,我们可以把它们分成五个部分:一、连接函数:连接建立函数:SqlConnect(),SqlStringConn 阅读全文
posted @ 2020-02-11 00:15 老瓷 阅读(1289) 评论(0) 推荐(0) 编辑
摘要: 本文代码转载自红雨先生 * * SqlServer 相关函数* Clear* * 测试 GetTableCode()* Local lcDataBaseName, lcTableName, lcTableCode, lnSqlHandle, lcSqlStringConnectlcTableCode 阅读全文
posted @ 2020-02-11 00:02 老瓷 阅读(652) 评论(0) 推荐(0) 编辑
摘要: ◆访问EXCEL:ExcelSheet = GetObject('','Excel.Sheet')返回结果为类,则成功。例:ExcelSheet = GetObject('','Excel.Sheet')If Type("ExcelSheet")#'O' Then=MessageBox( "访问Ex 阅读全文
posted @ 2020-02-10 23:52 老瓷 阅读(1620) 评论(0) 推荐(0) 编辑
摘要: 按ABO血型婚配式 子女可能有的血型 子女不可能有的血型A×A A、O B、ABA×B A、B、O、AB 无A×AB A、B、AB OA×O A、O B、ABB×B B、O A、ABB×AB A、B、AB OB×O B、O A、ABAB×AB A、B、AB OAB×O A、B AB、OO×O O A 阅读全文
posted @ 2020-02-10 23:24 老瓷 阅读(752) 评论(0) 推荐(0) 编辑
摘要: MS SqlServer 的日期格式化函数:Convert(data_type[(length)], expression [, style])参数:data_type[(length)]代表转换的数据类型及长度,expression代表源数据表达式,style代表要转换的日期格式样式 Select 阅读全文
posted @ 2020-02-10 23:21 老瓷 阅读(1070) 评论(0) 推荐(0) 编辑
摘要: 在 VFP 中,凡遇图形处理,大多数情况下,都会涉及到图形文件与剪切板互换的情况。下面给出利用 API 解决的方法。这是原来从网上摘下来的,版权归原作者。基本处理的代码如下,你可以将其应用到你的代码中。 DECLARE INTEGER OpenClipboard IN User32 INTEGERD 阅读全文
posted @ 2020-02-09 16:40 老瓷 阅读(820) 评论(0) 推荐(0) 编辑
摘要: 这是原来从网上搜集、整理后编制用于自己的小程序使用的OCX是否注册及未注册控件的自动注册函数。 CheckCtrlFileRegist("ctToolBar.ctToolBarCtrl.4") && 检测与注册DBI工具条控件(ctToolBar) ************************* 阅读全文
posted @ 2020-02-09 16:32 老瓷 阅读(1371) 评论(0) 推荐(2) 编辑
摘要: ** 需要指出的是,无论下面哪种方式的代码,都需要打开本机的网络共享,否则找不到SQL服务器** 例一 **************************************************** Use MyFll.Fll(下载MyFll)Set Library To MyFlllcL 阅读全文
posted @ 2020-02-09 16:27 老瓷 阅读(822) 评论(0) 推荐(0) 编辑