【vfp开源代码栏目提醒】:网学会员鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“badusertest.prg”一文,供大家参考学习
LOCAL nHandle
=SQLSETPROP(0,'DispLogin',3) &&不显示提示
nHandle=SQLCONNECT("MySQLServerNorthwind","bad_user", "")
IF nHandle<0
LOCAL ARRAY laError[1]
AERROR(laError)
=MESSAGEBOX(laError[2],0+16,"错误:"+TRANSFORM(laError[1]))
ENDIF