安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

两个未公开的ACCESS方法的使用技巧及示例源码

2017-08-18 11:09:00
zstmtony
原创
727

很多年以前写的贴子,后来自己的找不到了。而网络上则流传开了。再摘?#23478;?#19979;。

应黄海之邀 (Access交流网总版主),突然要写点自己的东西,一下子仿佛不知道写些什么了,研究ACCESS这么多年,感觉都是在做企业应用,并没有什么高深的技巧,也没有属于自己的技巧,只好?#31034;?#33041;汁,榨点东西出来,希望能对得起黄海和大家?#28023;?/span>

在ACCESS中APPLICATION对象有两个未公开的方法,其中一个是SaveAsText, 另一个是LoadFromText。我记得是刚学ACCESS不久,当时在研究FMS一个分析工具时,跟踪发现它总会产生一些临时文件,对这些临时文件分析,发现它与VB里的窗体文件差不多的格式,所以估计微软可以将ACCESS的窗体转换为文本格式,并提供一种逆相转换的方法。所以发现了深厚的兴趣,后来就?#19994;?#36825;两个方法。
    虽然微软还有其它一些比较好用的未公开的属性,但我在这两个方法上花的时间还是最多的,因为它的确有使用价值,所以说说自己多年来的使用心得。
    这两个方法在以后的ACCESS版本中并不一定支持,所以我并不建议大家使用,但因为有些功能如果使用它来实现,可以节省比较多的时间,所以,在某些情况下,我还是会使用它,至少现有的ACCESS版本都支持这个方法。如果同样的功能你可以通过ACCESS正常的方法来实现,我则建议你使用微软公开的方法。切记!
用途1:
    使用application.saveastext acForm,"我的窗体","c:\test.txt" 将整个窗体导出到一个文本文件,将其打包发送给朋友,?#38376;?#21451;再使用application.loadfromtext acForm,"我的窗体","c:\test.txt" 再导回去。你可以压缩打包传送。
用途2:
    可以将窗体保存到文本文件,然后把文本文件存储到OLE字段里,这样整个窗体的界面与代码都可保存到ACCESS数据表里,这个方法对编写 代码库管理器 非常有用。在使用时,还可即时将文本文件还原到一个窗体,让使用者即时预览到这个技巧产生的效果
用途3:
    将窗体保存到一个文件文件,使用正则表达式?#28304;?#30721;进行分析,可以分析语法,代码结构、语法错误、字数统计等等,你可参?#23478;?#19979;FMS的一个ACCESS分析工具,它有的功能,你花个半年,做出来应该也没有大问题啦。记得让我试用一下源码哦?#28023;?/span>
用途4:
    真正的全局替换,一般我们需要全局替换窗体里一个属性的名称或内容,需要逐个逐个修?#27169;?#32780;无法实现像代码中的全局替换,现在将窗体导出到文本文件,在文本文件里进行全局替换,完成后再导回窗体。
用途5:
    繁简转换,中英转换,一般对控件标题、提示文字、默?#29616;?#31561;进行文字上繁简转换后并不能真正实?#22336;?#31616;转换,在转换后相应的环境中打开还会出现ACTIVEX控件找不?#20132;?#32773;OLE错误,将窗体或其它对象转换为文本文件后再进行繁简转换,然后再转换相应的?#22336;?#38598;、字体名称、节的繁简对应名称、CRC校验码等之后,再导回ACCESS相应对象,就可完成整个ACCESS程序的转换,相应的程序效果可参见我做的繁简转换通用程序,记住简体一般是134 繁体是136
    英文你打开就知了。我奉劝,如果你想做同样的功能,那你最好就别做了,用我的就得了,免得断我财路,我提成20%给你就得了,等两年后积到100元我再一?#20301;?#32473;你?#28023;?/span>
用途6:
    中英转换,虽然还需要进行少量手工转换,但已经节省了不少时间,但如何使用正式表达式来正确区别哪些是标题、提示文字、消息框还需要一些技巧。
用途7:改变控件的默认属性
    除了我们在设计状态修?#30446;?#20214;的默认属性之外,使用修改文本文件的内容也可达到修?#30446;?#20214;默认属性的效果,当窗体或报表导出到文本文件之后,所有的窗体、控件属件以及默认控件属性都在文本文件中体现出来,通过修改这个文本文件里有关默认属性的设置即可达到目的。
    什么是默认属性?举个例子,你从国外下载一个程序,为什么往窗体里面添加控件,控件字体总是Serif,而在简体中文环境下新建的窗体控件,字体都是"宋体",在繁体中文环境下新建的窗体控件,字体都是"新?#35813;?#20307;",就是因为这个控件的默认属性导致的
用途8:
    实现自动创建窗体模板的效果,将做好的具备基本功能的窗体导出到文本文件保存起来,到需要使用的时间,直?#25317;?#20837;回来马上就可能产生一个已具备常用功能的窗体,不需要从头来过,再做得自动化一点,做一个丰富的窗体功能代码库,可让用户选择各种不同的功能,然后从这些代码库里选择想要的代码按照窗体文本文件的格式创建一个文本文件,再由这个文本文件自动组合出一个完善的窗体,不需要用户去编程,他只要选择字段,选择窗体功能、选择样式、选择模板就可实现各种录入窗体、查询窗体、分析窗体、报表统计等等,写程序就变成了组装程序。到时大家没事干了,就开发各个专用组件吧。注意,在文本文件中复制功能和代码,在自动编程化方面,相?#28304;?#20307;里复制控件和代码,具有更大的弹性和可塑性。
用途9:
    如果窗体或报表里有?#35745;?#25110;OLE对象,在导出的文本文件里会包含它们的二进制文件,使用正则表达?#20132;?#20854;它方法提取这部分内容再将其还原到相应的?#35745;?#25991;件中,即可实现将窗体和报表的图像保存取文件(ACCESS不支?#31181;?#25509;将图像控件的?#35745;?#20445;存到文件)
用途10:
    实现将ACCESS窗体和报表转换到VB程序中,现在有一些专业程序提供这种功能,我想基本思路应该是出于此,将窗体和报表导出到文件文件,然后分析它与VB窗体文件之间的分别,然后修改文本文件以适应VB窗体的需要即可实现,只是我没有足够的时间来做这些了?#28023;?#24403;然如果你举一反三,你也可能做一个工具,实现将VB的窗体反向转换到ACCESS程序中,毕竟VB的资源和丰富的技巧对ACCESS来讲有很大的利用价值
用途11:
    一次性修改ACCESS对象里面所用的字体名称 字体大小或其它属性,连窗体的数据表的字体及其它属性也可更改到。
用途12:
    查看窗体和控件的GUID ,并用来做相应的用途
用途13:
    修改窗体和报表有关打印机的信息,为什么窗体的打印设置无法保存,为什?#21019;?#24320;报表总会提示原来默认打印机不存在,是否使用当前打印机等等,这些信息其实都保存在窗体和报表里,打开文本文件,什么都清楚了,通过这个功能可实现不少强大的功能,大家发挥想像吧。
用途14:
    如果要获取窗体和控件到底有些什么属性,通过文本文件可知道许多
用途15:
    创建一些新的控件,如组合框,列表框等等,都可直接在里面复制代码?#21019;?#24314;,而更有用的是,有些带注册信息(license)的控件,如果原来的窗体可用,但你没有LICENSE,你复制窗体会出现错误,?#30340;?#27809;有版权,但如果你将窗体导出到文本文件,再导回一个新的窗体,ACCESS就给你蒙过去了,不过,这个方法可别说是我教的?#28023;?#34429;然我试过很多次才试出来的,不过我自己是坚决不用的?#28023;?#22823;家都知道啦,我一般在公开场合,都是用正版的?#28023;?/span>
用途16:
    可以使用上述的方法对整个ACCESS的所有对象导出到文件进行备份保存,然后想还原哪个?#31361;?#21407;哪个,虽然这种方法有其优点,不过,把整个MDB备份可能更实际些?#28023;?/span>
用途17:
    可以用于版本控制,不知大家有否在ACCESS中使用过SourceSafe,我研究不短时间,发现,它的签入签出就是使用我上述说的方法,在SourceSafe保存的是每个对象的文本格式。如果你有兴趣,可以写一个类似的版本控制工具,我预计2008年会开始写它,如果你在那年之前已经写出来了,那最好寄份源码给我,否则我控告你窃取我的点子?#28023;?/span>
用途18:
    除了窗体和报表外,还有其它几乎大部分对象,如查询、视图、存储过程、关系、宏、模块等等都可导出,你可用来做各种各样的用途,这里就不详述了,如果你有独到发现,请一定告诉我哦。
    不过请注意,表是不可导出的?#28023;?/span>
    另外得告诉大家,在2002(XP)版本开始,微软开始对CRC校验进行检查了,所以导回对象时有时可能会有一些问题。可能微软已经知道有人在滥用这个功能了?#28023;?/span>
    匆促而就,语句不通或错字处,还请放过一马?#28023;?/span>




请看:
http://www.dvzne.live/Article_Show.asp?ArticleID=276  (已失效)

网友整理成示例
http://www.dvzne.live/thread-52635-1-1.html
分享
? 1999-2019 Office交流网?? 中?#32478;?#22825;鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.14
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假