【源码】Access通用系统源码(2010-7-10更新)

红尘如烟

功能及特色说明：
1.自动连接后台数据库：表名保存在代码中，启动时自动创建链接表，如果后台未设置，则自动在当前文件夹中搜索，找到合适的数据库文件会提示是否设为后台，如果没有搜索到，会提示指定文件。
此处只要后台数据库中的表名和代码中写入的表名全部符合，就能搜索到，而不用管后台数据库文件的名称是什么。

2.用户登录管理：可以由用户自助注册帐号，也可以由管理员添加帐号，还可以找回密码，修改密码

3.菜单栏和控制面板同步的菜单：正确登录后会自动创建应用于权限的面板和菜单，实现透明图标的控制面板

4.权限管理：主要从菜单项的命令执行上来设置，菜单权限高于菜单项权限，即如果一个菜单设为禁止访问，那么它下面的菜单项就算设为允许访问，实际上还是被禁止访问的
权限被分为6种:访问、添加、修改、删除、打印、导出,访问权限适用于任何命令，其它几种都要通过窗体来实现，打印、导出权限只能用按钮来实现，对于任何实现数据编辑功能的按钮及以打印、导出的功能的按钮，只要在该按钮的标记(Tag)属性中添加相应字符串即可实现权限分配，如用于删除数据的按钮在标记属性中添加一个“删除”字符串即可，这个标记可以在任意位置，如“删除2222”，“删除”，“443434394删除”，“asdfa删除s323",均没有问题，但要注意，要设置权限的按钮不能是第一个Tab键顺序的控件，否则会由于无法禁用获得焦点的控件而导致权限设置失效

5.数据备份、数据还原功能：可以设置自动备份，也以手动备份，备份是将后台文件复制到备份目录并自动命名，数据还原是将后台文件替换为指定的备份文件。 （此功能还未完善）

6.登录/操作日志、错误日志。登录及点击任何菜单项均会被记录，错误日志功能用于程序的完善。错误日志功能如果要用在其它业务模块之类的另行添加的内容之中时，必须在错误处理代码中的消息框之后调用错误日志写入过程。

6.通用窗体效果，主要通过通用的页眉子窗体和页脚子窗体来实现，通过页眉子窗体可以实现窗体标题显示，还可以创建最多10个窗体菜单；通过页脚子窗体的显示提示文本，可以通过对按钮附加一个标签，然后通过改变标签的显示效果来达到自定义按钮效果，只需要在按钮的标记属性中添加相应的标记字符串

7.使用方便：纯Access实现，本程序没有使用任何第三方控件，甚至连多余的引用都没有，只使用Access的默认引用即可。
其它还有什么来着？没想起来，东西有点庞杂，水平实在不行，加上没按照开发流程来弄，都是想到哪弄到哪，毛病还是不少，大家帮忙测试一下，有什么问题提出来，我再进行修改

游客，如果您要查看本帖隐藏内容请回复

2009-7-4：完成了备份功能，原先的代码不完整
2009-7-8：修正了几个有点小问题的地方
2009-7-9：晕死，昨天上传的忘记把测试代码删除了，不管用哪个用户登录实际上最后登录的都变成Admin用户了，另外用户注册功能中有一个地方忘记改过来了，会导致使用不正常
2009-7-10：修正了不能删除菜单项的错误，以及删除菜单时其下的菜单不能全部删除的问题（这个是由于之前修改代码时使用了全部替换造成的不正常，所以建议大家在修改代码时尽量不要使用替换功能中的全部替换，最好一个一个的看着替换，不然可能会出些会让你莫名其妙的问题）
修改了透明特效的代码，之前的不能实时取消，现在的增加了自定义透明度的功能。
增加了退出时自动删除链接表为可选。
增加了自定义图片的功能，只要在文件夹中放置指定名称的图片就能替换掉默认的图片，这些图片不是必需的，可以删除（这个功能其实最初的时候就有，后来正式上传的时候被我删掉了，现在想想，还是加进去好些）
还有个没有解决的问题，就是注册用户时，如果使用了某些特殊字符，可能会造成出错，这个问题需要在提交注册前验证非法字符，呃，有空再解决

红尘如烟

将所有管理功能集中到一个窗体中，和将每种功能设为单独的窗口，两者相比，大家觉得哪种方案好？

红尘如烟

建议红尘把链接数据库（链接表）的功能加进去吧，当然这个要在登录界面合理。谢谢！期待中...
jackysu78 发表于 2009-6-25 17:12

嗯，这个功能是必不可少的，已经加进去了，不过目前只能针对一个后台数据库文件，大家觉得有没有必要处理多个链接来源？

希望在 用户权限 管理 中加入 权限组 的功能，这样就更完美了。
期待 你的大作早日完成
坡芽歌书 发表于 2009-6-25 14:46

呃，能具体说说什么样的权限级功能么？像Access的用户级安全机制中的权限组那样吗？

权限方面,希望按shift进入后,打开窗体还能判断权限
不是原来的只在界面判断
sblisb 发表于 2009-6-26 19:54

这个其实容易实现，不过需要在每个窗体的Open事件中调用权限判断代码，我原来主要是考虑到减少整合的复杂性，不过现在看来还是应该加入这个功能

最好对代码加入注释,方便新手
界面能做成笨小漆的通用界面一样,可以换图标
sblisb 发表于 2009-6-26 19:56

现在这个已经是可以换图标的界面了，而且是透明图标，你仔细看一下我在一楼发的图片就能看出来了，至于注释，我会尽量将代码修改得容易看懂，不至于看了半天还云里雾里，当然必要的注释也是不能少的

我个人水平有限，加上不可能什么都能考虑到，希望大家多提建议，我们尽量弄一个比较完善的东西出来，而不是虎头蛇尾的太监掉了。

红尘如烟

我一般都是在窗体的Load事件中使用循环：
Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me
        If Typeof ctl Is TextBox Then ctl.Tag="标记"
    Next
End Sub

红尘如烟

TNND，还是晚上思路比较清晰啊，白天脑袋发昏，什么都想不出来

红尘如烟

我换几台电脑试一下，主要是上个月30号的时候，我把笔记本扔地上了，原来也掉过几回，都没什么事，我还以为它练了金刚不坏神功呢，谁想到这次……写的东西没保存，结果完蛋，之前的那些半成品我弄得乱，都搞糊涂了，干脆一发狠重写，现在发上来的这个是这三天重写的，我也估计问题不少，大家帮忙测试一下，把错误日志传给我看下

红尘如烟

我换了台电脑试了一下，在2003中英文版Access下都能运行，不应该出现打不开的情况呀，把错误截图发给我一下

红尘如烟

出现如附件的错误码,在数据表链接表里面.而且出现错误后,只能按CTRL+ALT+DEL才能关闭
sbsfhgl 发表于 2009-7-4 20:02

开始的代码没写完，现在已经行了

每天只保留一个备份功能不起作用呀?
sblisb 发表于 2009-7-4 13:16

这个是我的错，退出标签后没有加退出代码，所以进行死循环了，现在已经改正了

点击“数据还原”，出现38768
风啸啸 发表于 2009-7-4 22:37

这个就没办法了，应该是你用的Access的版本的问题，必须是2003版的Ｏffice，因为你用的Access的版本不支持FileSearch对象(文件搜索)，也不支持FileDialog对象(文件对话框)。这两个对象都只在2003版中才有。

红尘如烟

Data.db起什么作用?
表在哪,如何隐藏的?
sblisb 发表于 2009-7-4 12:59

Data.db其实应该是Data.mdb,就是后台数据库文件，所有的表都是存放在这里面的。
因为我用的链接方式是正常登录后会自动创建链接表，然后正常退出时会自动将链接表删除掉，所以在前端看不到表。

红尘如烟

能不能设置后台是SQL表的控制功能,如备份,还原?
sbsfhgl 发表于 2009-7-4 19:55

因为我这里没有安装SQL，也就没有开发环境，暂时没有打算加入这个功能，因为我做这个主要是为了用于小型系统，不过以后可以考虑