使用ADO追加数据时需调用Refresh

   使用TADOTable追加记录时，要在最后调用Refresh，否则，最后一条记录不会追加到数据库中，如：

           for I := 1 to 100 do

           begin

                adoTbl1.Append;

                adoTbl1.Fields[0].Value := I;

                ...

          end;

          adoTbl1.Refresh;    // 一定要有这句，否则实际追加的只有99条，而不是100条。