这个类基本上可以定型，还需要什么功能，可以在使用的过程中逐步完善，大的方面不需要变动了。

类代码的用法：把从DEFINE CLASS……ENDDEFINE这部分代码，放在一个.PRG文档中，在主程序的开始，用SET PROCEDURE TO "文件名" ADDITIVE把类定义加载到内存中，即可在任何位置如示例代码般使用这个类。

非常感谢各位师傅的回复，我选择sdta师傅的办法，问题完美解决