②设置标签和命令钮caption (用户名,口令,确认),命令钮Default设为.T.
③设text2的InputMask为:999或=“999”•
④设Text2的PasswordChar值•
⑤从“表单”中选“新建属性”,添加新属性num,并设默认0 。
⑥设置命令钮的click事件代码:(验证用户名abc,口令123456,是则显示欢迎使用并关闭;否则显示重输,三次不正确显示登录失败,关闭表单)
if thisform.text2.value="123456"
wait "欢迎进入 本系统…" wind time 2
thisform.releaseelse
thisform.num=thisform.num+1
if thisform.num=3
wait"你无权进入本系统!" wind time 2
thisform.release
else
wait "口令不正确,请重输!" wind timeout 2
endif
endif
1.建立项目,并设置主文件,主文是指运行软件的那个文件,一般是用PRG文件来做 2在软件的运行住程序的那个文件中最后一行加入"read event"的代码,在退出软件的程序中加入"clear event"的代码,完成后就利用连编程序把项目管理器连编成EXE文件 3.将"VFP6CHS.DLL","VFP6R.DLL","VFP6RCHS.DLL"三个文件放入软件的那个文件夹中,这样就可以在没有装VFP软件的电脑中运行欢迎分享,转载请注明来源:内存溢出
评论列表(0条)