回 帖 发 新 帖 刷新版面

主题:求教:为什么我的用户名只用最上的一个?

各位老师好,请教问题:为什么我做完后,用户名选择以后,依然登陆表的最上的一个,如张三、李四、王五。选李四和王五后,在表单上显示的是张三的名字,为什么,我是初学者,不想用的太复杂,登陆表,登陆表单,这两个就想解决这个问题。
SET EXACT on
SELECT 登录表
LOCATE for thisform.text1.Value=用户名 and thisform.text2.Value=密码
if!EOF()
  MESSAGEBOX("欢迎使用本系统!",48)
  thisform.Release
  DO form 信息录入.scx
  else
  IF thisform.inputno<2
  MESSAGEBOX("输入有误,请重新输入!",48)
  thisform.inputno=thisform.inputno+1
  thisform.text1.Value=""
  thisform.text2.Value=""
  thisform.text1.SetFocus
  ELSE
  MESSAGEBOX("你不是合法用户,禁止进入!",48)
  thisform.Release
  CLOSE ALL
  ENDIF
  endif
  咋样才能使录入表单(操作员文本框生成器指向登陆表)显示登陆的用户名或数据表里的字段:操作员显示是登陆的名字。谢谢

回复列表 (共5个回复)

沙发

LOCATE for alltrim(用户名)=alltrim(thisform.text1.Value) and alltrim(密码)=alltrim(thisform.text2.Value)

板凳

现在才看明白。
建一个全局变量。
在登陆表单将登陆者的名字赋给这个变量。在录入表单的那个文本框绑定这个变量,不要绑定那个登陆表。

3 楼

老师好,请老师在下面给修改
PUBLIC cuser,cpassword
set exact on
select 登录表
locate for cuser=alltrim(thisform.text1.value)
set exact off
if found() and alltrim(cpassword)==alltrim(thisform.text2.value)
   
   do form 信息录入
   thisform.release
else
   if n<3
      =messagebox("无此用户或密码错误,请重新输入!",48,"信息窗口")
      n=n+1
      thisform.text1.value=""
      thisform.text2.value=space(10)
      thisform.text1.setfocus
   else
      =messagebox("密码三次输入错误,不能使用本系统!",48,"信息窗口")
      thisform.release()
   endif
endif
 在录入表单经办人文本框的click里加入cuser=thisform.txt经办人.value
咋样做,使录入表单显示的是登陆者的名字,谢谢老师修改

4 楼

********假设登陆表的用户名和密码字段
********声明全局变量GcUser来保存登陆者的姓名,即经办人
PUBLIC GcUser
set exact on
select 登录表
locate for alltrim(用户名)=alltrim(thisform.text1.value)
set exact off
if found() and alltrim(密码)==alltrim(thisform.text2.value)
   GcUser=登录表.用户名
   do form 信息录入
   thisform.release
else
   if n<3
      =messagebox("无此用户或密码错误,请重新输入!",48,"信息窗口")
      n=n+1
      thisform.text1.value=""
      thisform.text2.value=space(10)
      thisform.text1.setfocus
   else
      =messagebox("密码三次输入错误,不能使用本系统!",48,"信息窗口")
      thisform.release()
   endif
endif
 在录入表单init:
thisform.txt经办人.ControlSource=GcUser  &&&在属性框里设置也可以

5 楼

谢谢qzxc老师,成了。恭祝老师和qjbzjp老师十五元宵节快乐!

我来回复

您尚未登录,请登录后再回复。点此登录或注册