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

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

请问是什么原因?应该如何解决?
“确定”按纽的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
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:0 
要把你这个表单发上来研究的,现在不知道你内部代码,没法回答。
2012-12-18 12:05
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
1、用户名为啥不用text

DO IT YOURSELF !
2012-12-18 12:06
陶然愚者
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
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:5 
估计你的组合框和数据库绑定了吧

尽量别这样做  

ps  貌似登陆界面没有用组合框做的

DO IT YOURSELF !
2012-12-18 12:14
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
收藏
得分:0 
回复 6楼 wp231957
没错。我是将组合框与xtyhb表的yhxm字段绑定的。也许问题就出在这里?
如果组合框不绑定数据源,而是将数据源的字段值赋予一个数组变量,而后组合框以这个数组变量为数据源,是不是就可以解决前述问题呀?
2012-12-18 14:20
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
试一下吧 好久不用 vf了  不建议你使用绑定

DO IT YOURSELF !
2012-12-18 14:23
首席菜鸟官
Rank: 1
等 级:新手上路
帖 子:9
专家分:6
注 册:2012-12-17
收藏
得分:0 
你们好专业
2012-12-18 14:35
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:5 
建议别用组合框,而是文本框;建议别设置若干次登陆,因为你可以无数次点击那登录程序
lcName=ThisForm.Text1.Value
lcPassWord=ThisForm.Text2.Value
Do Case
Case empty(lcName)
  messagebox('用户不能为空',48,'提醒')
Case empty(lnPassWord)
  messagebox('密码不能为空',48,'提醒')
Otherwise
  locate all for upper(ALLTRIM(xtyhb.yhxm))==upper(alltrim(lcName)).and.alltrim(xtyhb.yhmm)==alltrim(lcPassWord)
  if eof()
    messagebox('查无该用户',48,'提醒')
  else
    *正常进入程序
  endif
endcase
ThisForm.Text1.Value=''
ThisForm.Text2.Value=''

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2012-12-18 15:22
快速回复:关于组合框的问题
数据加载中...
 
   



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

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