type

　　　TDataArrange=class

　　private

　　procedureMoveUp(CLB—Field：TFlatcheckListBox)；，，记录上移

　　procedureMoveDown(CLB—Field：TFlatCheckListBox)；

／／记录下移

　　procedureCheckAll(CLB—Field：TFlatCheckListBox)

／／选中所有选项

　　procedureAddData(CLB—Field：TFlatCheckListBox；

／／向DBGrid加载数据

　　DBGrid1-TDBGrid；ADOQuery1：TADOQuery)；

　　end；

　　其中AddData方法的实现函数如下f0ri：=0tOCLB—Field．Items．Count-1do

　　begin

　　ifCLB

　　——

　　FieldChecked[i]then

　　begin

　　DBGrid1．Columns．Add；

　　DBGrid1Co1umns【AddCount】．FieldName：=CLB—Field．hems[i]；

　　end；

　　end；

　　该方法的好处是：因为用户对于报表数据的要求时有变化，程序员用ADOQuery组织的数据相对固定；所以需要提供比较灵活的用户接El。DataArrange正符合这种要求，既可以让用户自由选择打印数据字段，又可以自由调整打印先后顺序，此外还可以添加空数据列。