这是用Delphi6.0+Access2000 编写的程序