Access专家课堂周年庆
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

Access开发平台自制怀旧版导航界面

时 间:2019-04-13 16:38:56
作 者:lmqlt   ID:18637  城市:广州
摘 要:尝试开发了导航界面,根据用户的喜好进行展示,基本达到了用户的需求。
正 文:

      Access开发平台采用的是树控件菜单方式,单位同志使用不太习惯,总认为以前老的平台系统好用,即早期的按钮图标菜单——简单、明了。后来,尝试开发了导航界面,根据用户的喜好进行展示,基本达到了用户的需求。下一步,将根据功能键设置图标,便导航界面更美观,并可设置启动时打开选项供用户选择。

附   件:

点击下载此附件


图   示:



Access快速开发平台QQ群 (群号:239158550)       access源码网店

最新评论 查看更多评论(3)

2019/4/15 22:46:20lmqlt
已解决自制导航与左侧菜单匹配问题,已重新上传并更新第一次传的附件。解决思路如下:1、复制Main.mdb中表SysLocalNavigationMenus,复制的新表名为TMP_SysLocalMenus;2、在SysFrmMain的Public Function LoadNavTree() As String里加上一段程序,让生成左侧菜单的同时,追加菜单至步骤1的临时表中,确保自制导航和左侧菜单匹配。3、启动自制导航窗体frmxtdh时,直接调用TMP_SysLocalMenus数据。 DoCmd.SetWarnings False DoCmd.RunSQL "DELETE TMP_SysLocalMenus.* FROM TMP_SysLocalMenus;" Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("TMP_SysLocalMenus") rstTmp.AddNew rstTmp!ID = rst!ID rstTmp![MenuText] = rst![MenuText] rstTmp!MenuTextLocal = Trim(Nz(rst!MenuTextLocal)) rstTmp!Command = Nz(rst!Command) rstTmp!ForeColor = Nz(rst!ForeColor) rstTmp!BackColor = Nz(rst!BackColor) rstTmp!FontBold = rst!FontBold rstTmp!Expanded = rst!Expanded rstTmp!Enabled = rst!Enabled rstTmp!Image = Nz(rst!Image) rstTmp!Allow = True rstTmp.Update rstTmp.Close

2019/4/15 9:15:16麥田
2019/4/15 8:08:32xiaowuo: 我也是因为平台树型界面觉得无法接受才没用它,期待平台能增加选择控制界面是最好的了。 = 请下载第一代按钮式菜单的平台

2019/4/15 8:08:32xiaowuo
我也是因为平台树型界面觉得无法接受才没用它,期待平台能增加选择控制界面是最好的了。

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助