1.prg

来自「一个用vc编写的进销存的管理系统的毕业设计」· PRG 代码 · 共 98 行

set talk off
do while .T.
input "按1申请，按2进入，按3退出：" to aaa
do case
 case aaa=1
   clear
   dimension s(2),m(7),x(7)
   accept "请填写你的姓名:" to s(1)
   i=1
   do while i<6
    ? "请填写你的密码:"
    k=1
    j=1
   do while j<7
    set cons off
    wait "" to x(j)
    set cons on
    ?? "*"
    j=j+1
    enddo
    x=x(1)+x(2)+x(3)+x(4)+x(5)+x(6)
   set cons on
    ? "请确认你的密码:"
   do while k<7
    set cons off
    wait "" to m(k)
    set cons on
    ?? "*"
    k=k+1
    enddo
     m=m(1)+m(2)+m(3)+m(4)+m(5)+m(6)
    set exact on
    if m=x
    exit
   else
   
         loop
   endif
   i=i+1
   enddo
   use chen
   append blank
   gather from s(1) field 姓名
   gather from x field 密码
case aaa=2
   dime n(7),a(4)
   accept "请输入用户名:" to nam
   locate for 姓名=nam
   if found()
    ? "请输入密码:"
    k=1
    do while k<7
    set cons off
    wait "" to n(k)
    set cons on
    ?? "*"
    k=k+1

    enddo
n=n(1)+n(2)+n(3)+n(4)+n(5)+n(6) 
  
   j=1
    do while j<5
     if 密码!=n
    if j<4
      ? "密码错误，请再输入:"
   else 
       ? "王八蛋，你无权进入"
       exit
    endif
    
    y=1
     do while y<7
    set cons off
    wait "" to n(y)
    set cons on
    ?? "*"
    y=y+1
    enddo
    n=n(1)+n(2)+n(3)+n(4)+n(5)+n(6)
     j=j+1
  else
      ? "欢迎欣赏时龙和饶娟的爱情！"
      exit
    endif
   
   enddo
  else
    ? "用户不存在"
  endif


case aaa=3
  exit
  endcase
 enddo