| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 775 人关注过本帖
标题:关于组合框的问题
取消只看楼主 加入收藏
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
关于组合框的问题
如图:
图片附件: 游客没有浏览图片的权限,请 登录注册

程序运行时,如果选择组合框的默认项,能够正常运行;如果选择了其他项,输入正确密码再点“确定”,则提示不能访问选定表:
图片附件: 游客没有浏览图片的权限,请 登录注册

请问是什么原因?应该如何解决?
“确定”按纽的click代码如下:
IF EMPTY().or.EMPTY(thisform.text2.value)
MESSAGEBOX('用户名和密码均不能为空,请重新输入!',48,'提醒')
''
thisform.text2.value=''

else
USE data\qybzhgl!xtyhb
cx=ALLTRIM()
cy=ALLTRIM(thisform.text2.value)
SET EXACT ON
SET ORDER TO yhxm
SEEK cx
IF ALLTRIM(xtyhb.yhxm)=cx.and.alltrim(xtyhb.yhmm)=cy
chm=ALLTRIM(xtyhb.yhxm)
cmm=ALLTRIM(xtyhb.yhmm)
rank=ALLTRIM(xtyhb.yhqx)
thisform.Release
USE
ELSE
cn=cn+1
cmessagetitle='提示'
cmessagetext='用户名或密码错误,请重新输入!'
ndialogtype=4+32
naswer=MESSAGEBOX(cmessagetext,ndialogtype,cmessagetitle)
DO case
CASE naswer=6
''
thisform.text2.Value=''

CASE naswer=7
cmessagetitle='警告'
cmessagetext='不要乱来!'
ndialogtype=0+48
MESSAGEBOX(cmessagetext,ndialogtype,cmessagetitle)
thisform.Release
quit
ENDCASE
IF cn=3
cmessagetitle='警告'
cmessagetext='你无权使用本系统!'
ndialogtype=0+48
MESSAGEBOX(cmessagetext,ndialogtype,cmessagetitle)
thisform.Release
USE
quit
ENDIF
ENDIF
SET EXACT off
ENDIF



[ 本帖最后由 陶然愚者 于 2012-12-18 12:11 编辑 ]
搜索更多相关主题的帖子: 如何 密码 用户名 
2012-12-18 12:01
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
收藏
得分:0 
yhdl.zip (3.38 KB)
2012-12-18 12:10
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
收藏
得分:0 
回复 3楼 wp231957
感觉用组合框选择更方便些
2012-12-18 12:12
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
收藏
得分:0 
回复 6楼 wp231957
没错。我是将组合框与xtyhb表的yhxm字段绑定的。也许问题就出在这里?
如果组合框不绑定数据源,而是将数据源的字段值赋予一个数组变量,而后组合框以这个数组变量为数据源,是不是就可以解决前述问题呀?
2012-12-18 14:20
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
收藏
得分:0 
回复 10楼 Tiger5392
谢谢!
其实当初我也是使用的文本框供用户输入用户名,已通过测试,只是程序代码显得烦琐些。使用SQL查询语句后,程序简洁多了。
再次请教,如果执着在想有组合框选择输入“用户名”,应该如何实现?
2012-12-18 15:45
快速回复:关于组合框的问题
数据加载中...
 
   



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

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