| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 503 人关注过本帖
标题:确定控件的代码有错误吗
只看楼主 加入收藏
zclllt
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-3-16
收藏
 问题点数:0 回复次数:2 
确定控件的代码有错误吗
做了一个验证的表单。这个是确定的代码。但输入用户名和密码的时候,点确定,总是出现找不到别名ADMINER这是怎么回事呀?帮忙看一下呀!!!


sele adminer
use adminer
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
set order to 用户名
seek cx
if alltrim(adminer.用户名)!=cx
cMessageTitle='设备管理系统'
cMessageText='用户名错误,请重新输入'
nDialogType=4+32
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
thisform.text1.value=""
thisform.text1.setfocus
case nAnswer=7
cMessageTitle='设备管理系统'
cMessageText='不要乱来'
messagebox(cMessageText,nDialogType,cMessageTitle)
thisform.release
endcase
else
if alltrim(adminer.密码)!=cy
cMessageTitle='设备管理系统'
cMessageTitle='密码错误,请重新输入'
nDialogType=4+32
nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
thisform.text2.value=""
thisform.text2.setfocus
case nAnswer=7
cMessageTitle='设备管理系统'
cMessageText='不要乱来'
messagebox(cMessageText,nDialogType,cMessageTitle)
thisform.release
endcase
else
thisform.release
do case
case tablesc=1
do form deptstu
case table=2
do form weihu
endcase
endif
endif

搜索更多相关主题的帖子: 控件 代码 
2006-06-30 14:01
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
你先去掉第1句

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-06-30 15:36
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 

表文件要先打开(USE)然后才能选择(SELECT),如果是在当前工作区打开一个表,则SELECT可省略。


两人行已有我师……
2006-06-30 17:00
快速回复:确定控件的代码有错误吗
数据加载中...
 
   



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

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