多用户博客程序:多用户应用程序中应注意问题3来源: 发布时间:星期四, 2008年9月25日 浏览:44次 评论:0
问题三 用户标识
在多用户应用程序中,可以以编程方式标识当前登录到系统上的用户,这对于管理功能是有用的。比如用编辑好的记录来存储用户名字,从而建立一个核查线索。实现一个安全的数据库,可以迫使用户必须用预先定义的用户名和密码来登录应用程序,这样,应用程序就可以通过workspace对象的usernane属性来使用用户名。下面这个过程,把用户名、当前日期和时间写到指定的记录集中。 过程如下: function writeaudittrail(rst as recordset) as integer on error goto errorhandler 注释:编辑记录集中的当前记录 注释:假定recordset(rst)包括a 注释:和b两个字段 rst.edit rst!a=workspaces(0).username rst!b=now rst.update errorhandler: selectcaseerr case 0 writeaudittrail=o exit function case else msgbox \"error\" & err & \":\" & error,vbokonlv writeaudittrail=err exit function end select end function 上述过程把用户、系统当前日期和时间写入一个记录集中。如果写入成功,则过程返回0,否则返回相应的错误代码。为了调用上述过程,首先建立一个包含两个字段(a和b)的表,然后在窗体上画一个命令按钮,并编写下面的事件过程: private sub command1_click() dim mvdbs as database dim mvtab as recordset set mydbs=opendatabase(\"c:\\dbdir\\db1.mdb\") set mytab=mydbs.openrecordset(\"tabel4\",dbopentable) a=writeaudittrail(mytab) if a=0 then msgbox \"用户名、日期和时间已写入\" else msgbox \"写入失败\" end lf end sub 新建立的表放在数据库dbl.mdb中,名为tabel4。程序运行后,单击命令按钮,将调用上面的过程,把用户名、日期和时间写入表tabel4中。可以通过“可视化数据管理器”来查看表tabel4的内容,如图所示。 a b admin 98-3-20 20:13:23 如果不想实现安全性,只需要用户名功能,则可以在运行应用程序时提示用户输入名字和密码,并把输入的值存储到代码变量或临时表中。使用这种方法,可以访问用户名,但不能实现安全的数据库。 0
相关文章
读者评论
发表评论 |