ACCESS ADP与ADE.docVIP

第11章?? ACCESS(ADP/ADE) ADP窗体打印当前记录 ADP窗体打印当前记录，用MDB的方法是不行的，不信你试试。必须使用存储过程。? 例：有一个dbo.gytable的表，通过窗体连接进行操作，单击窗体的打印按钮，要能打印窗体的当前记录。ADP窗体，用MDB的方法是不行的。? ?方法如下：? 存储过程：? Alter PROCEDURE dbo.dayin （过程名为dbo.dayin ）????? @txc char(30) ?（建一个txc的字符型变量，长度30）? ??? AS? select * from dbo.gytable where(图号=@txc) ?（这个不要说了，大家都懂）? ?将报表的记录源设为dbo.gytable，就行了。? ?通过按钮的单击事件打开报表。? 有关ADP禁止SHIFT键的方法 来源： ACCESS中国 作者： tmtony? Function DisableBypassADP(blnYesNo As Boolean) CurrentProject.Properties.Add AllowByPassKey, blnYesNo? End Function? 然后在启动时调用 DisableBypassADP(false)? 更详细的做法:? Function SetMyProperty(MyPropName As String, MyPropvalue As Variant) As Boolean On Error GoTo SetMyProperty_In_Err Dim Ix As Integer With CurrentProject.Properties If fn_PropertyExist(MyPropName) Then check if it already exists For Ix = 0 To .Count - 1 If .Item(Ix).Name = MyPropName Then .Item(Ix).value = MyPropvalue End If Next Ix Else .Add MyPropName, MyPropvalue End If End With SetMyProperty = True? SetMyProperty_Exit: Exit Function? SetMyProperty_In_Err:? MsgBox 设置属性出错:, Err, Error$ SetMyProperty = False Resume SetMyProperty_Exit? End Function 检查属性是否存在 Private Function fn_PropertyExist(MyPropName As String) As Boolean fn_PropertyExist = False Dim Ix As Integer With CurrentProject.Properties For Ix = 0 To .Count - 1 If .Item(Ix).Name = MyPropName Then fn_PropertyExist = True Exit For End If Next Ix End With End Function? ?Public Function setByPass() SetMyProperty AllowBypassKey, True End Function? 编写数据库脚本 作者：Andrew Clinick? 发表日期：2000 年 1 月 10 日? 我在“If It Moves, Script It”（英文） (/workshop/languages/clinic/scripting061499.a sp)这篇文章中曾谈到，如何使用“Windows Script Host(WSH)”( Windows 脚本 主机) 管理 Windows 和 Windows 中的应用程序。文中的大多数示例都是基于管理? Windows 操作系统自身的，并不基于在该操作系统下运行的应用程序。为迎接新千 年，我想我应该谈谈，如何在众多显露可脚本化接口的应用程序中使用脚本。这次只 涉及“SQL Server”。在以后的几个月中，我将着重谈 Exchange、Office 和“系 统管理服务器”。?  ? 您可以通过使用“分布式管理对象”、“数据转换服务”和新的“SQL Server XML” 实现，将脚本用于“SQL Server”。?  ? 许多人都能够通