vfp最常用代码

登陆界面

确认：

if ER.value=alltrim(用户表.用户名).and.thisform.PASSWORD.value=alltrim(用户表.密码)

do form 主界面.scx

release thisform

else

=messagebox("对不起，用户名或密码错误！",0+56+0,"用户名+密码错误") ER.value=""

thisform.PASSWORD.value=""

ER.setfocus

endif

退出：RELEASE THISFORM

主程序代码

set fweek to 1

set mark to '.'

set separator to','

set point to '.'

set talk off

set safety off

public xtbt

…… 此处隐藏0字 ……

xtbt="学生信息管理系统"

_screen.caption =xtbt

_screen.picture="Home.jpg"

do form 系统主页

release window 常用

read events

修改密码中确认修改