|
本帖最后由 qsdya01 于 2010-8-28 14:58 编辑
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
登陆账号用户名.获取焦点 ()
.子程序 _登陆_被单击
' 数据库连接1.连接Access (取运行目录 () + “\date\date.mdb”, “”)
' 记录集1.打开 (“员工用户”, 2)
数据库_连接ACCESS (取运行目录 () + “\date\date.mdb”)
.如果真 (登陆账号用户名.内容 = “”)
信息框 (“请输入帐号!”, #信息图标, “系统提示”)
登陆账号用户名.获取焦点 ()
返回 ()
.如果真结束
' 数据库_查询 (“select * from '员工用户' where 用户名='” + 登陆账号用户名.内容 + “'”)
.如果真 (数据库_查询 (“select * from '员工用户' where 用户名='” + 登陆账号用户名.内容 + “'”) = 真)
信息框 (“存在此用户”, 0, )
返回 ()
.如果真结束
信息框 (“不存在此用户”, 0, )
请高手看一下
附上代码 |
-
-
test.rar
51.88 KB, 下载次数: 4, 下载积分: 精币 -2 枚
|