ACCESS ADP与ADE

《ACCESS ADP与ADE》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第11章  ACCESS(ADP/ADE)ADP窗体打印当前记录ADP窗体打印当前记录，用MDB的方法是不行的，不信你试试。必须使用存储过程。 例：有一个dbo.gytable的表，通过窗体连接进行操作，单击窗体的打印按钮，要能打印窗体的当前记录。ADP窗体，用MDB的方法是不行的。  方法如下： 存储过程： AlterPROCEDUREdbo.dayin（过程名为dbo.dayin）     @txcchar(30) （建一个txc的字符型变量，长度30）    AS select*fromdbo.gytablewhere(图号=@txc) （这个不要说了，大家都懂）  将报表的记录

2、源设为dbo.gytable，就行了。  通过按钮的单击事件打开报表。 有关ADP禁止SHIFT键的方法来源：ACCESS中国作者：tmtony FunctionDisableBypassADP(blnYesNoAsBoolean)CurrentProject.Properties.Add"AllowByPassKey",blnYesNo EndFunction 然后在启动时调用DisableBypassADP(false) 更详细的做法: FunctionSetMyProperty(MyPropNameAsString,MyPropvalueAsVariant)AsBooleanOn

3、ErrorGoToSetMyProperty_In_ErrDimIxAsIntegerWithCurrentProject.PropertiesIffn_PropertyExist(MyPropName)Then'checkifitalreadyexistsForIx=0To.Count-1If.Item(Ix).Name=MyPropNameThen.Item(Ix).value=MyPropvalueEndIfNextIxElse.AddMyPropName,MyPropvalueEndIfEndWithSetMyProperty=True SetMyProperty_Exit:E

4、xitFunction SetMyProperty_In_Err: MsgBox"设置属性出错:",Err,Error$SetMyProperty=FalseResumeSetMyProperty_Exit EndFunction'--------检查属性是否存在---PrivateFunctionfn_PropertyExist(MyPropNameAsString)AsBooleanfn_PropertyExist=FalseDimIxAsIntegerWithCurrentProject.PropertiesForIx=0To.Count-1If.Item(Ix).Name=My

5、PropNameThenfn_PropertyExist=TrueExitForEndIfNextIxEndWithEndFunction  PublicFunctionsetByPass()SetMyProperty"AllowBypassKey",TrueEndFunction 编写数据库脚本作者：AndrewClinick 发表日期：2000年1月10日 我在“IfItMoves,ScriptIt”（英文）(http://msdn.microsoft.com/workshop/languages/clinic/scripting061499.asp)这篇文章中曾谈到，如何使用“W

6、indowsScriptHost(WSH)”(Windows脚本主机)管理Windows和Windows中的应用程序。文中的大多数示例都是基于管理 Windows操作系统自身的，并不基于在该操作系统下运行的应用程序。为迎接新千年，我想我应该谈谈，如何在众多显露可脚本化接口的应用程序中使用脚本。这次只涉及“SQLServer”。在以后的几个月中，我将着重谈Exchange、Office和“系统管理服务器”。 -------------------------------------------------------------------------------- 您可以通过使用“分布

7、式管理对象”、“数据转换服务”和新的“SQLServerXML”实现，将脚本用于“SQLServer”。 -------------------------------------------------------------------------------- 许多人都能够通过“ActiveDataObject(ADO)”和“ActiveServerPage (ASP)”技术访问数据库了。ADO在帮助您查询和更新数据库方面做了大量的工作—