使用Delphi6实现B_S模式下的复杂程序