sql处理数据困难的办法--用程序处理生成单一sql

procedure TForm1.Button1Click(Sender: TObject);

type

  TSqlItem = record

    BiShu: Integer;

    Amount: Integer;

    TradeStatus: Integer;

  end;

  TSqlItemAry = array of TSqlItem;

var

  LRead, LWrite: TextFile;

  LMonth: Integer;

  LSqlAry: TSqlItemAry;

  LLine: string;

  LStrList: TStringList;

  LJinE, LDianHuaKa, LWangYin: Integer;

  LIndex: Integer;

  I: Integer;

  LTotal: Integer;

begin

  Randomize;

  LStrList := TStringList.Create;

  LStrList.Delimiter := #9;

  LStrList.StrictDelimiter := True;

  LStrList.Duplicates := dupAccept;

  for LMonth := 8 to 12 do

  begin

    AssignFile(LRead, Format('%d.txt', [Integer(LMonth)]));

    AssignFile(LWrite, Format('%d.sql', [Integer(LMonth)]));

    Reset(LRead);

    Rewrite(LWrite);

    SetLength(LSqlAry, 0);

    while not Eof(LRead) do

    begin

      Readln(LRead, LLine);

      LLine := Trim(LLine);

      if Length(LLine) > 0 then

      begin

        LStrList.DelimitedText := LLine;

        if LStrList.Count <> 3 then

          raise Exception.Create('<>3');

        LJinE := StrToIntDef(LStrList[0], 0);

        LDianHuaKa := Round(StrToFloatDef(LStrList[1], 0.0));

        LWangYin := Round(StrToFloatDef(LStrList[2], 0.0));

        if LJinE > 0 then

        begin

          if LDianHuaKa > 0 then

          begin

            LIndex := Length(LSqlAry);

            SetLength(LSqlAry, LIndex + 1);

            LSqlAry[LIndex].BiShu := LDianHuaKa;

            LSqlAry[LIndex].Amount := LJinE;

          end;

          if LWangYin > 0 then

          begin

            LIndex := Length(LSqlAry);

            SetLength(LSqlAry, LIndex + 1);

            LSqlAry[LIndex].BiShu := LWangYin;

            LSqlAry[LIndex].Amount := LJinE;

          end;

        end;

      end;

    end;

    while Length(LSqlAry) > 0 do

    begin

      LTotal := 0;

      for I := Low(LSqlAry) to High(LSqlAry) do

        Inc(LTotal, LSqlAry[I].BiShu);

      LIndex := Random(Length(LSqlAry));

      if Random(LTotal) < LSqlAry[LIndex].BiShu then

      begin

        LLine := Format('I', [

          LMonth, LSqlAry[LIndex].Amount, LSqlAry[LIndex].TradeStatus]);

        Writeln(LWrite, LLine);

        Dec(LSqlAry[LIndex].BiShu);

        if LSqlAry[LIndex].BiShu <= 0 then

        begin

          for I := LIndex to High(LSqlAry) - 1 do

          begin

            LSqlAry[I] := LSqlAry[I + 1];

          end;

          SetLength(LSqlAry, Length(LSqlAry) - 1);

        end;

      end;

    end;

    CloseFile(LRead);

    CloseFile(LWrite);

  end;

  LStrList.Free;

end;