access数据库的宏这个如何实现

If IsNull(Me![name]) Then

MsgBox "请选择用登录用户!", 64, "系统提示"

Me![name].SetFocus

Else

If IsNull(Me![password]) Then

MsgBox "请输入密码,密码不能为空!", 64, "系统提示"

Me![password].SetFocus

Else

Dim stemp As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

stemp = "select * from 用户表 where 用户名='" &Me![name] &"'"

rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs("密码") <>Me![password] Then

MsgBox "密码错误,请重新输入!", vbOKOnly, "系统提示"

Me![password] = ""

Me![password].SetFocus

Me![name] = ""

Else

DoCmd.Close

DoCmd.OpenForm "主菜单"

End If

End If

End If

默认的用户名和密码如下：

1、用户名：sys/change_on_install；密码：SYSDBA 或 SYSOPER。（不能以 NORMAL 登录，可作为默认的系统管理员）

2、用户名：system/manager；密码：SYSDBA 或 NORMAL。（不能以 SYSOPER 登录，可作为默认的系统管理员）

3、用户名：sysman/oem_temp；密码：sysman。

4、用户名：scott/tiger；密码：NORMAL。

5、用户名：aqadm /aqadm；密码：SYSDBA 或 NORMAL。

6、用户名：Dbsnmp/dbsnmp；密码：SYSDBA 或 NORMAL。

扩展资料

plsql主要特性

1、PL/SQL编辑器，功能强大

该编辑器具有语法加强、SQL和PL/SQL帮助、对象描述、代码助手、编译器提示、PL/SQL完善、代码内容、代码分级、浏览器按钮、超链接导航、宏库等许多智能特性，能够满足要求性最高的用户需求。当您需要某个信息时，它将自动出现，至多单击即可将信息调出。

2、集成调试器（要求Oracle 7.3.4或更高）

该调试器提供您所需要的全部特性：跳入（Step In）、跳过（Step Over）、跳出（Step Out）、异常时停止运行、断点、观察和设置变量、观察全部堆栈等。基本能够调试任何程序单元（包括触发器和Oracle8 对象类型），无需作出任何修改。

参考资料来源：百度百科-plsql

---