* ----------------------------------------------------------------------- \\ 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