vfp制作登陆器的密码问题(新手求助)
发布网友
发布时间：2023-07-18 16:41
共2个回答
热心网友
时间：2024-06-12 10:18
HD=4
CW=0
DO WHILE HD=4.AND.CW<3
STORE '' TO THIS.VALUE,SRMM
DO WHILE LEN(SRMM)<12 && 密码长度 12 位
=CAPSLOCK(.T.) && 打开大写锁定键,使不能输入汉字
J=INKEY(5,"H") && 截获键盘按键
IF J<128.AND.J>31.OR.J=0 && 如果是可见字符
THIS.VALUE=ALLT(THIS.VALUE)+' *' && 显示输入占位符号 ' *'
SRMM=SRMM+CHR(J) && 接受键入字符,应当在此对输入密码进行加密处理
ENDIF
ENDDO
IF SRMM==BLMM && BLMM=来自密码表的当前操作员的已加密的留底密码
HD=6
ELSE
CW=CW+1
HD=MESSAGEBOX(ALLT(STR(CW))+' 次密码错误！请选择：'+CHR(13)+CHR(13)+' 终止=终止操作'+CHR(13)+CHR(13);
+' 重试=重输密码'+CHR(13)+CHR(13)+' 忽略=重输姓名',2+48+0,' 警告！') && 3=终止,4=重试,5=忽略
ENDIF
ENDDO
DO CASE
CASE CW>=3.OR.HD=3 && 3=终止
THISFORM.RELEASE && 密码错误,退出登录
CASE HD=5 && 5==忽略
THISFORM.XM.ENABLED=.T. && 更换操作员姓名,重新验证密码、登录
THISFORM.XM.SETFOCUS
OTHER
…… && 密码正确,进入正常操作
ENDCASE
热心网友
时间：2024-06-12 10:18
追答IMESTATUS( ) 函数
打开或关闭 IME(输入法编辑器)窗口或者返回当前的 IME 状态。
IMESTATUS([nExpression])
返回值
数值型
参数
nExpression
打开或关闭 IME(输入法编辑器)窗口。下表列出了 nExpression 的值和相应的 IME 窗口的状态。 nExpression IME 窗口动作
0 关闭 IME 窗口
1 打开 IME 窗口
如果省略 nExpression，IMESTATUS() 返回当前的 IME 状态。下表列出了 IME 状态的返回值，使用 VERSION(3) 决定当前环境。
下面的表列出了为日语地区的 IME 状态返回的值。 返回值 IME 状态
0 没有安装 IME
1 打开 IME
2 关闭 IME
3 使 IME 不可用
4 Hiragana 模式 (双字节)
5 Katakana 模式 (双字节)
6 Katakana 模式 (单字节)
7 Alpha数值型模式 (双字节)
8 Alpha数值型模式 (单字节)
下面的表列出了为朝鲜语地区的 IME 状态返回的值。 返回值 IME 状态
0 没有安装 IME
1 Hangul 模式 (单字节)
2 English 模式 (单字节)
11 English 模式 (双字节)
15 Hangul 模式 (双字节)
23 Hanja 转换模式 (Hangul + 单字节模式)
31 Hanja 转换模式 (Hangul + 双字节模式)
备注
详细信息, 参见开发国际化应用程序。
操作对于如 Hiragana 和 Katakana 语言的双精度字符设置时，该函数非常有用。
