'定义一个数据访问类的对象 Dim Password As String Dim db As New databases Dim rs As ADODB.Recordset '根据输入的用户名进行查询 Set rs = db.RunSelectSQL _ ("select 密码,姓名,权限,编号 from 用户清单 where 姓名 = '" _ + Me.txtUserName.Text + "'") '判断用户名是否存在 If rs.RecordCount = 0 Then '用户名不存在
大借阅时间,rcost as 押金,rfine as 超期罚率,rtim as 遗失赔率,rbm as 图书管理,rum as 用户管理,rrm as 权限管理,rborm as 借阅管理,ris as 信息查询,rbis as 图书信息查询,ruis as 用户信息查询,rboris as 借阅历史查询,rblp as 图书挂失处理,rbl as 图书挂失,rlp as 挂失处理 from tb_right";
--------语法 --建立视图 --if exists(select * from sysobjects where name='视图名') -- drop view 视图名 --go --create view 视图名 --as --select 字段名 from 表名 [条件] --go --主外健约束语句没有执行 use T90ERP go --***********人力资源 --部门表：Depet if exists(select * from sysobjects where n
Private Sub CommandButton1_Click() '刷新权限 Dim Sh As Worksheet, Sht As Worksheet Dim Lx As Byte, Hx As Byte Application.ScreenUpdating = 0 Set Sht = Sheets("权限管理") With Sht Hx = .Range("A65536").End(xlUp).Row Lx = .Range("IV3").End(xlToLeft).Column .R
