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

来源:www.accessoft.com 点击数:742 评论数:3　评论 | 收藏 | 复制

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

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

附件:

图示:

Access网店

	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：我也是因为平台树型界面觉得无法接受才没用它，期待平台能增加选择控制界面是最好的了。