我运行的时候发现了编号长度不够的提示。检查你的程序,好象问题不仅仅是这个,看来你要重新思考如何分析、设计、修改程序了。
我首先观察表单的LOAD和INIT里的代码,感觉好象重复,这本身也没有严重问题,但感觉你设计的思路需要更加清晰。
其次,发现在你的PAGE1的TEXT1的VALID里,代码特别长,而且前后频繁地打开关闭表,编写程序的时候你会感觉到烦,计算机执行起来的效率不高。建议别在VALID里写代码,可在某个需要用到这个TEXT的命令按钮里写这部分代码,无非是满足要求就处理,不满足要求就不处理而已。
其他的没有时间看。你自己好好地琢磨吧。