![](https://csdnimg.cn/release/download_crawler_static/31624588/bg1.jpg)
登陆界面
确认:
if thisform.USER.value=alltrim( 用户表 .用户名 ).and.thisform.PASSWORD.value=alltrim( 用户
表.密码 )
do form 主界面 .scx
release thisform
else
=messagebox("对不起,用户名或密码错误! ",0+56+0," 用户名 +密码错误 ")
thisform.USER.value=""
thisform.PASSWORD.value=""
thisform.USER.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
xtbt=" 学生信息管理系统 "
_screen.caption =xtbt
_screen.picture="Home.jpg"
do form 系统主页
release window 常用
read events
修改密码中确认修改