VFP登陆系统
我现在越来越喜欢VFP这门课程了,WHY?因为这门课程让我知道自学是多么的重要~
首先介绍一下界面:
txtname的keypress代码是:
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode=.!empty()
=.t.
endif
确定的单击代码是:
uname=
yes=.f.
do case
case uname="123".()=="123"
yes=.t.
case uname="skycook".()=="19850321"
yes=.t.
case uname="zhou".()=="123456"
yes=.t.
endcase
if yes
nanswer=messagebox("登陆成功!单击'是'进入个人风格系统单击'否'进入作业",4+48,"提示")
do case
case nanswer=6
do form 学生信息管理系统
case nanswer=7
do form 表单
endcase
endif
clear events
退出的单击代码是:
nAnswer=messagebox("你决定退出系统吗?",4+48,"提示")
DO CASE
CASE nAnswer = 6
CASE nAnswer = 7
messagebox("请输入用户名和密码",0+64,"提示")
ENDCASE
心得:
整个登陆界面为了好看的问题,我插入了图片做背景~而“确定”按钮那里我把它改了,具体改了什么,可以去实践一下~^_^
VFP登陆系统 来自淘豆网www.taodocs.com转载请标明出处.