添加两个标签控件、一个文本控件、两个命令控件
登陆的click事件代码:
MM=THISFORM.TEXT1.TEXT &&将文本框中的内容保存到变量MM中
IF MM="0203" &&判断密码是否正确的双分支选择结构开始
THISFORM.RELEASE &&关闭当前表单
DO FORM xsda &&调用显示表单
ELSE
THISFORM.LABEL2.CAPTION="密码错误" &&设置标签控件的caption属性值
THISFORM.TEXT1.VALUE="" &&设置文本框控件的value属性值
tHISFORM.TEXT1.SETFOCUS &&设置文本框属性焦点
endif
退出的事件代码:
thisform.release