本程序是基于delphi编写的,希望大家共同学习