svn/view/Unit13.pas

unit Unit13;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompButton,
  IWCompExtCtrls;

type
  TIWForm13 = class(TIWAppForm)
    IWButton1: TIWButton;
    IWRadioGroup1: TIWRadioGroup;
    procedure IWButton1Click(Sender: TObject);
    procedure IWRadioGroup1Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TIWForm13.IWAppFormCreate(Sender: TObject);
begin
  IWRadioGroup1Click(Sender);
end;

procedure TIWForm13.IWButton1Click(Sender: TObject);
var
  s: TList;
  p: PInteger;
  i, j: Integer;
begin
  s := TList.Create;
  try
    DM.FDTable2.First;
    while (DM.FDTable2.Eof = false) and (i < 100) do
    begin
      if DM.FDTable2.FieldByName('SERIAL').AsInteger <> i then
      begin
        New(p);
        s.Add(p);
        p^ := i;
      end;
      inc(i);
      DM.FDTable2.Next;
    end;
    DM.FDTable2.Last;
    DM.FDQuery1.SQL.Clear;
    DM.FDQuery1.SQL.Add('select serial from cart_data where serial = :num');
    while (DM.FDTable2.Bof = false) and (s.Count > 0) do
    begin
      p := s[0];
      j := DM.FDTable2.FieldByName('SERIAL').AsInteger;
      with DM.FDQuery1 do
      begin
        ParamByName('num').AsInteger := j;
        Open;
        First;
        while Eof = false do
        begin
          Fields[0].AsInteger := p^;
          Next;
        end;
        Close;
      end;
      DM.FDTable2.FieldByName('SERIAL').AsInteger := p^;
      DM.FDTable1.Prior;
      System.Dispose(p);
      s.Delete(0);
    end;
  finally
    s.Free;
  end;
end;

procedure TIWForm13.IWRadioGroup1Click(Sender: TObject);
begin
  IWButton1.Enabled := IWRadioGroup1.ItemIndex = 1;
end;

end.