首先感谢office-cn王站和ACCESSOFT平台的前辈做的开发平台，让我们可以快速开发自己的软件。经过学学习，我以原平台为核心，对平台的界面和功能进行了很多模拟改进，让我们看看吧。
欢迎使用交流。 作者: hunrybecky 时间: 2020-1-1 19:59
1.保留系统默认界面，做了部分优化
作者: hunrybecky 时间: 2020-1-1 20:01
2.时尚界面，模拟的王站老平台的界面，采用了ctExplorer控件，可以自由的在树菜单和列表菜单中切换，同时集成了流程图界面。
作者: hunrybecky 时间: 2020-1-1 20:02
3.经典界面：这个是借用了国外的BIG BROTHER的成果，没有使用任何第三方控件
作者: hunrybecky 时间: 2020-1-1 20:04
4.简洁界面：这个来源于http://www.accessoft.com/article-show.asp?id=17800，但是对其做了大量修改。
作者: hunrybecky 时间: 2020-1-1 20:06
5.仿WINXP界面：这个使用了ctExplorerBar控件，同时集成了流程图
作者: hunrybecky 时间: 2020-1-1 20:13
6.超级组合界面：同时整合了几种不同的界面，点击状态栏可以按顺序切换四种界面，同时集成了流程图。组合界面主要采用了ctExplorerBar,ctListBar,treeview,ListView制作左边的菜单栏，右边采用了子窗体，流程图控件以及TabStrip作为数据显示显示界面，可以通过参数设置数据是通过子窗体还是TabStrip多TAB方式数据。TabStrip可以实现多个子窗体同时显示多个窗口的数据。
作者: hunrybecky 时间: 2020-1-1 20:19
7.整合了黄海的超强界面：实现方式很简单，就是引用黄海的开放平台，然后调用时写一个函数，同步更新菜单到黄海平台的相关菜单表中。代码如下：
Public Function hy_UpdateSysMenu(Optional blnUpdate As Boolean = True)
'==============================================================================================
'函数作用：同步平台菜单到黄海菜单中，独立使用原平台，只是把三个菜单表移植到本主文件中
'使用注意：使用黄海平台前需要先执行本函数同步菜单；另外首页菜单需要单独自行编辑
'==============================================================================================
On Error Resume Next
If blnUpdate = False Then Exit Function
Dim rstTemp As ADODB.Recordset
Dim strSql As String
Set rstTemp = New ADODB.Recordset
On Error GoTo 0
DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from sysHyMenus where id<>1" '先清除菜单表中的项目,但排除首页菜单
DoCmd.RunSQL "INSERT INTO sysHyMenus(menuName,orderNo,menuEnabled) SELECT MenuTextLocal,ID,Enabled FROM SysLocalNavigationMenus WHERE Enabled<>0 and Allow<>0 and Len(ID)=2 and ID Not In ('97','98','99') ORDER BY ID" '把平台的菜单同步到黄海的菜单表中
DoCmd.RunSQL "Alter TABLE sysHyMenuButtons Alter COLUMN id COUNTER (100,1)" '设置sysHyMenuButtons自动编号从100开始,sysHyMenus因为存在关系则无法设置自动编号
strSql = "SELECT * from sysHyMenus ORDER BY orderNo"
rstTemp.Open strSql, CurrentProject.Connection, adOpenStatic, adLockOptimistic
Do While Not rstTemp.EOF '循环菜单表
DoCmd.RunSQL "INSERT INTO sysHyMenuButtons(menuID,buttonName,cmdArgs,imgFile,orderNo,buttonEnabled) SELECT " & rstTemp.Fields("ID") & ",trim(MenuTextLocal),Command,'defaultButton.gif',ID,Enabled FROM SysLocalNavigationMenus WHERE Allow<>0 AND left([ID],2)=" & rstTemp.Fields("orderNo") & " AND len([ID])>2 ORDER BY ID" '把平台的菜单同步到黄海的菜单表中
rstTemp.MoveNext
Loop
If rstTemp.State = adStateOpen Then rstTemp.Close
DoCmd.SetWarnings True
End Function
作者: hunrybecky 时间: 2020-1-1 20:24 本帖最后由 hunrybecky 于 2020-1-1 20:26 编辑
