unixhome的专栏

本代码是一个标准三层架构的基于角色的权限控制系统实例，适合新手研究学习，代码不完善的地方希望指正

VB制作简单的登陆界面 1.拖出两个text 两个command 分别命名为：txtUser ，txtPwd ，cmdLoginEnter ，cmdLoginCancel 2.在程序根目录下新建 date.mdb 数据库 表名为：user 字段1为：username 字段2为：pwd 数据库密码为：111 (可根据) Set dbLogin = OpenDatabase(App.Path + "\Data.mdb", False, False, "MS Access;pwd=111") 修改自定义。 3.复制以下代码。 ------------ Option Explicit Dim intTryTimes As Integer Dim dbLogin As Database Dim rstLogin As Recordset Private Sub cmdLoginCancel_Click() End End Sub