欢迎来到天天文库
浏览记录
ID:9418045
大小:53.00 KB
页数:4页
时间:2018-04-30
《somethingnotentirelyunlikeaccess应用程序介绍》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、SomethingNotEntirelyUnlikeAccess应用程序介绍>>教育资源库 】我们希望你在MSAccess中建立一个应用程序,但是我们不希望它看起来像Access。事实上,我们希望它看起来像一个ethingNotEntirelyUnlikeAccess。这个应用程序描述了下面与浏览器类似的功能: 没有Access菜单 混合Access图标和启动屏幕 单独的表格(页面)界面 自动调整子表格和它们的控制 下一步和上一步按钮,用于页面导航 开始页面按钮,用于将用户返回他们的首页 构建于d.EchoFalse),以便我在用户看不到闪烁的情况下进行我的工作。我还将启动
2、表格最大化,但是这个应用程序的其它方面还有很多工作要做。 Me.Visible=False DoCmd.EchoFalse DoCmd.Maximize DoCmd.Shod.Shod.ShoVied.ShostrFileAsString DimstrTitleAsString DimdbsAsDAO.Database DimprpAsDAO.Property ConstcAPP_ICON=AppIcon ConstcAPP_TITLE=AppTitle Setdbs=CurrentDb strFile=CurrentProject.Pathdbj.ico st
3、rTitle=MysgBoxErr.Description,vbCritical EndSelect ResumeExit_Here EndFunction 状态条 视觉处理的最后一块是隐藏状态条。。。它是在页面底部的水平状态信息。现在,如果你想的话,你可以将这个选项保持为打开状态,因为即便是InterExplorer也有一个状态条供你选择查看,但是我发现将它删除有助于模糊Accessian特性并可以使应用程序看起来不那么像MicrosoftAccess程序。你可以使用下面的代码设置状态条选项: Application.SetOptionShoMain,它是启动表格。所有其它的
4、表格都命名为sfrmXXX或sfrmYYY以标识它们为子表格。(除了弹出表格像frmAbout或frmHelp。)这个主表格包含了一个叫做objSubform的单独子表格。每次作出一个数据请求时,无论是要求产品、雇员或订单,恰当的表格都会加载到这个子表格内,并且一个命令会发送到子表格来调整它的大小以适应可用的空间大小。 加载子表格的代码内嵌在frmMain上,它总是保持打开状态。例如,点击列表中的客户(看上面的截屏)会执行这些代码。首先,调用一个函数来设置CustomerID,下一行代码让主表格加载带有一个叫做frmShoer表格的主要子表格。这个表格在加载的时候执行一个获取Custom
5、erID的操作,有效地过滤了提供给选定客户的结果。 SetCustomerIDNz(Me!CustomerID,) g_lngResult=Forms!frmMain.LoadMainSubform(frmShoer,True) 导航 维护被访问的表格列表和重新加载它们的代码并不是琐碎的,而是封装在一个叫做clsNavigation的特定类里面。这基本上是将来某个文档中将讲述的,不过简要来说,它做以下事情: Load方法创建了一个内存ADO记录集 AddNavPage方法插入了一个新的nav记录到记录集中 GetNavPage返回了一个特定页面 NavPrevPage和
6、NavNextPage使你在页面中跳转 没有首页或主页按钮的StartPage的表格来管理这个功能。这个表格总是第一个加载,而且重新加载它只要将上面的调用稍稍改一下就可以了,将frmShoer替换为frmStartPage。顺便说一下,这个方法中的第二个选择是使用布尔值True或False,它决定导航控制是否记录访问日志。 严格地atSNP,sFile,False Application.FolloethingNotEntirelyUnlikeAccess应用程序的所有功能描述得更详细。如果这些功能中的任何一个听起来是你想添加到你的应用程序中的东西的话,那么将它下载下来将是一个很好的
7、开始。还有,请继续关注这个版块的未来文章,我会详细地描述更加复杂处理过程的内部工作机制。>>>>这篇文章来自..,。
此文档下载收益归作者所有