给你一个简单例子:
STRING LI_QING,LI_RING,ls_id
ls_id=trim(sle_1.text)
LI_QING = trim(SLE_2.TEXT)
SELECT MM INTO :LI_RING FROM DS_MM where id=:ls_id USING SQLCA ;
IF LI_QING = LI_RING THEN
OPENSHEET(W_dab,W_MAIN,1,ORIGINAL!)
CLOSE(W_MM)
ELSE
MESSAGEBOX("提示","密码错误,请重新输入密码...")
SLE_1.TEXT =""
SLE_1.SETFOCUS()
END IF