mm.prg

用VF所编的管理系统

clear
set talk off
defi wind mmw from 10,10 to 18,50 title '密码验证'
n = 1
psw = "      "
do while .T.
acti wind mmw
@ 2,5 say '请输入密码******' get psw
set console off
accept to psw
set console on
if upper(psw) == '123123'
  deac wind mmw
  exit
else
  if n>=4
  ? '您以输入三次错误的密码！'
  deac wind mmw
  quit
  else
  ? '密码错误，请重新输入！'
  wait wind
  n = n + 1
  endif
endif
enddo
clear
clear wind
keyboard [{ctrl+f4}]
do zcd.mpr
set talk on
return