| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 701 人关注过本帖
标题:新手求助
只看楼主 加入收藏
kkago
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-6-2
收藏
 问题点数:0 回复次数:1 
新手求助
最近编一个教学管理系统,其中一个带用户名和密码的登录器表单,原意是点击登录按钮后出现选择输入过用户名和密码的表,选择然后登录成功,combo的controlsource和rowsource的属性值是ma.用户名,登录按钮的click 事件代码如下,但运行的时候怎么老是出错(找不到别名MA)?怎样将输入过用户名和密码的表和登陆器表单联系起来?
main=alltrim()
locat for 用户名=main
if upper(alltrim(thisform.txtpass.value))=upper(alltrim(ma.密码))
=messagebox("已经登录成功,谢谢使用! ",0+64,"登陆成功")
thisform.release
do form bd2
else
=messagebox("您输入的口令有误,请重新输入!",48,"警告")
thisform.txtpass.value=""
thisform.txtpass.setfocus
endif
2005-06-02 16:00
shenkj001
Rank: 3Rank: 3
来 自:河南安阳
等 级:论坛游侠
威 望:9
帖 子:340
专家分:147
注 册:2005-5-23
收藏
得分:0 
main=alltrim()
use  用户名和密码的表
locat for 用户名=main
if upper(alltrim(thisform.txtpass.value))=upper(alltrim(ma.密码))
=messagebox("已经登录成功,谢谢使用! ",0+64,"登陆成功")
thisform.release
do form bd2
else
=messagebox("您输入的口令有误,请重新输入!",48,"警告")
thisform.txtpass.value=""
thisform.txtpass.setfocus
endif
locat for 用户名=main
if upper(alltrim(thisform.txtpass.value))=upper(alltrim(ma.密码))
=messagebox("已经登录成功,谢谢使用! ",0+64,"登陆成功")
thisform.release
do form bd2
else
=messagebox("您输入的口令有误,请重新输入!",48,"警告")
thisform.txtpass.value=""
thisform.txtpass.setfocus
endif

shenkj001@
2005-06-03 12:35
快速回复:新手求助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015344 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved