Office中国论坛/Access中国论坛

标题: 我写的一个程序,请各位高手再指点一下 [打印本页]

作者: rogertian 时间: 2004-3-25 23:43
标题: 我写的一个程序,请各位高手再指点一下
[attach]4045[/attach]
我写的一个程序,需要郑家龙和站长再指点一下

这个系统总算是改完了.程序比较简单,这个程序我用来练习如何做权限分配.

1.用户登录控制.
2.各窗体使用功能控制.
3.各窗体中各个按钮的权限控制.
4.备份/恢复数据
5.从前台压缩后台数据库.

现在最基本的总算是学会了..累了我好久..问了好多的人才搞明白.

我准备做如下的功能.有知道如何做下面这三个功能的高手,请指教一下..多谢了..

1.后台数据库用户可以更改名称和位置,做自动链接.(我现在不会,我现在系统中做的是后台改名后,在系统表中写入后台的名字.系统在备份时就不会认错数据库.)
2.程序可以检测哪些用户连入数据库.(看过郑家龙的一个程序,但没源码,不知道他如何实现的.)
3.把基本程序做一个MDE,用另外的MDB文件调用它,用户可以在MDB中设定自己的表格样式,允许做二次开发.(我不会,听站长说过一句,我就心痒痒,想学一学,站长可不可以给个例子)

文件放在C:\PPS目录下,这样就不用重新链接表了..密码同帐号.

[此贴子已经被作者于2004-3-29 15:47:30编辑过]

作者: haixing 时间: 2004-3-26 03:05
不错！怎么全是E文。
什么时候公开源码，让我们学习学习。

作者: rogertian 时间: 2004-3-26 16:41
因为这个程序的结构是公司以前别人写的.我嫌界面不好看,就全都给改了.增加一了些功能.所以源码不好在这里公布.

如果只是你个人要看一看.我可以单独发给你.

作者: sweetduck 时间: 2004-3-26 17:29
做得好！

作者: cg1 时间: 2004-3-26 21:16
为什么不发MAIL 却在这里浪费服务器空间那？

作者: rogertian 时间: 2004-3-26 21:44
五楼的大哥,你说好的容易.

E-MAIL是人家个人的.在没有征得人家同意之前,我怎么可以随便发邮件给人家.
我之所以放在这里,是因为家龙兄和站长会经常来这里.并且.如果有其他的高手愿意出手相助的话也可以顺便帮我一下.

这怎么能叫浪费服务器空间呢.我的程序并不是很大啊...

作者: cg1 时间: 2004-3-26 22:04
奥，这个意思啊？

1、关于此主题请参考：http://access911.net/index.asp?u1=a&u2=74FAB51E
2、关于此主题请参考：http://access911.net/index.asp?u1=a&u2=76FABF1E11DC
3、关于此主题请参考：http://access911.net/index.asp?u1=a&u2=77FAB21E

作者: rogertian 时间: 2004-3-26 22:52
谢谢....多谢....虽然一个也没看明白...还是谢谢你.

我慢慢看了...

作者: cg1 时间: 2004-3-26 23:52
呵呵，没用心去钻研过谁都看不明白，就看你的努力程度了

作者: rogertian 时间: 2004-3-27 17:07
第三个回答和我的提问好象不一样.我要在一个MDB中引用MDE的窗体.但文章并没回答这方面的内容.

作者: cg1 时间: 2004-3-28 00:51
只要学会引用工程，窗体不过是一个类，可以用工程.类名来直接引用

作者: rogertian 时间: 2004-3-29 23:46
CGL兄,,第一个问题我看明白了.我把你的例子和竹笛的例子结合起来做.可以达到了.现在终于可以做到后台数据库可以放在任何地方,任何名字了.

第二个和第三个例子,怎么也看不明白.你有没有例子给我看一看啊..特别是第二个.下面这些话,看不明白.可不可以帮助说明一下. 多谢了.

Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

'Output the list of all users in the current database.

Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
"", rs.Fields(2).Name, rs.Fields(3).Name

While Not rs.EOF
      Debug.Print rs.Fields(0), rs.Fields(1), _
      rs.Fields(2), rs.Fields(3)
      rs.MoveNext
Wend

[此贴子已经被作者于2004-3-30 12:26:43编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)