VFP调用Sql Server的删除语句（通用类）！

 

    * ----------------------------------------------------------------------- \\ sql_delete

	    m_sql="delete FROM sys_menu where id=?n_id"  && \\ sql语句 where role_id
	    m_dbf='menu'  && \\ 临时表名称
	    m_name='菜单表'  && \\ 表提示说明
	    m_info=1         && \\ 是否有提示信息
	    DO cx\sql_delete
	    thisform.retu
	    
	    SELECT menu
	    DELETE

 

* -------------------------------------------------------------------------- \\ 从数据库menu中，调入一级菜单数据

    m_retu=0

	IF SQLEXEC(gnMyLogHandle,m_sql) = -1
	    m_retu=1
        AERROR( laError )
        MESSAGEBOX( '读取数据库错误提示：' + ALLTRIM(STR(laError[ 1 ]))  + CHR( 13 ) +laError[ 2 ])
	ENDIF

    STRTOFILE(m_sql ,"c:\sql.TXT")

	IF m_retu=1

       MESSAGEBOX(m_sql)
       STRTOFILE(m_sql ,"c:\Error.TXT")
 	   MESSAGEBOX('请注意：系统在【删除】数据【'+m_name+'】时，发生错误，请检查网络是否畅通或与系统管理员联系！'+m_message,48,m_message1)
       RETURN

	ENDIF
    
    IF m_info=1

	   MESSAGEBOX('删除记录成功！请返回！'+m_message,48,m_message1)
       m_info=0    
    ENDIF