on error do errhand with program( ) ***下面一行应该生成一个错误 *** use nodatabase on error &&返回默认的系统错误处理程序 procedure errhand parameters gcprogram wait 'an error occurred in the program ' + gcprogram window