转帖]操作系统表自定义菜单的另类导入导出
时 间:2007-10-18 21:59:28
作 者:Benjamin_luk ID:42 城市:广州
摘 要:转帖]操作系统表自定义菜单的另类导入导出
正 文:
作者:Benjamin_luk
一、自定义菜单的存放位置:
所有自定义菜单都存放在系统表:MsysCmdbars 当中,类型为二进制
如果没有MsysCmdbars或表中没有记录, 说明没有自定义菜单
二、MsysCmdbars的结构
所有自定义菜单的资料都存放在[Grptbcd]二进制字段中,包括名称、图标、引用代码。。。
字段[TBNAME]仅作参考用
三、MsysCmdbars的导入和导出
不可以在打MsysCmdbars表的状态下,对数据进行删除或增加,系统会提示:本表不可删除,
数据为读。
但经本人研究发现通过以下方法可对MsysCmdbars表中的数据进行修改或增加:
Dim obj As ADODB.Stream
导出数据:
Function OutMenu()
Dim rs As Recordset, I As Integer, ret
Set rs = CurrentDb.OpenRecordset("Select * from MsysCmdbars")
rs.MoveFirst
Dim obj As New ADODB.Stream
With obj
.Type = adTypeBinary
.Open
.Write rs.Fields(0)
.SaveToFile "N:\Ben.txt", adSaveCreateOverWrite
End With
Set obj = Nothing
Set rs = Nothing
End Function
导入菜单:
Function InMenu()
Dim rs As Recordset, I As Integer, ret
Set rs = CurrentDb.OpenRecordset("Select * from MsysCmdbars")
Dim obj As New ADODB.Stream
With obj
.Type = adTypeBinary
.Open
.LoadFromFile "N:\Ben.txt"
rs.AddNew
rs.Fields(0) = .Read
rs.Fields(1) = "SHIPMenu"
rs.Update
End With
Set obj = Nothing
Set rs = Nothing
End Function
用以上的方法就可以很容易保存自己精心设计的菜单为TXT 或其他文件, 使用时再导入就可以了
至于二进制数据结构就没进行深入研究,如哪位有更深入的研究心得,希望能给我发个MAIL
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
学习心得
最新文章
- 精美简单实用的系统面板_完善版(改...(05.18)
- Access提示方法成员未找到的解...(05.17)
- Access运行时错误-21472...(05.15)
- 【Access更新查询】更新查询如...(05.15)
- 日期不为空怎么写表达式?[字段名]...(05.14)
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)