svn/view/Unit13.pas

unit Unit13;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompButton,
  IWCompExtCtrls, IWCompGrids, IWDBGrids, FireDAC.Stan.Intf,
  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML;

type
  TMasterForm = class(TIWAppForm)
    IWButton1: TIWButton;
    IWRadioGroup1: TIWRadioGroup;
    IWDBGrid1: TIWDBGrid;
    DataSource1: TDataSource;
    FDQuery1: TFDQuery;
    IWRadioGroup2: TIWRadioGroup;
    IWButton2: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    procedure IWButton1Click(Sender: TObject);
    procedure IWRadioGroup1Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWDBGrid1RenderCell(ACell: TIWGridCell;
      const ARow, AColumn: Integer);
    procedure IWDBGrid1Render(Sender: TObject);
    procedure IWAppFormDestroy(Sender: TObject);
    procedure IWRadioGroup2Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
  private
    dummy: TComponent;
    procedure Agree(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController;

procedure TMasterForm.Agree(Sender: TObject);
begin
  if FDQuery1.Locate('SERIAL', (Sender as TIWButton).Tag) = true then
  begin
    if FDQuery1.FieldByName('SERIAL').AsInteger = -1 then
      FDQuery1.Delete
    else
    begin
      FDQuery1.Edit;
      FDQuery1.FieldByName('AGREE').AsBoolean := true;
      FDQuery1.Post;
    end;
    DM.FDTableView.Refresh;
  end;
end;

procedure TMasterForm.IWAppFormCreate(Sender: TObject);
begin
  FDQuery1.Open;
  IWRadioGroup1Click(Sender);
end;

procedure TMasterForm.IWAppFormDestroy(Sender: TObject);
begin
  FDQuery1.Close;
end;

procedure TMasterForm.IWButton1Click(Sender: TObject);
var
  s: TList;
  p: PInteger;
  i, j: Integer;
begin
  i := 1;
  s := TList.Create;
  try
    DM.FDTable2.IndexFieldNames := 'SERIAL';
    DM.FDTable2.Refresh;
    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;
    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
        SQL.Clear;
        SQL.Add('select serial from cart_data where serial = :num');
        ParamByName('num').AsInteger := j;
        Open;
        First;
        while Eof = false do
        begin
          Edit;
          Fields[0].AsInteger := p^;
          Post;
          Next;
        end;
        SQL.Clear;
        SQL.Add('select serial from recent_data where serial = :num');
        ParamByName('num').AsInteger := j;
        Open;
        First;
        while Eof = false do
        begin
          Edit;
          Fields[0].AsInteger := p^;
          Post;
          Next;
        end;
      end;
      DM.FDTable2.Edit;
      DM.FDTable2.FieldByName('SERIAL').AsInteger := p^;
      DM.FDTable2.Post;
      DM.FDTable1.Prior;
      System.Dispose(p);
      s.Delete(0);
    end;
  finally
    s.Free;
    DM.FDTable2.IndexFieldNames := 'MASTER';
  end;
end;

procedure TMasterForm.IWButton2Click(Sender: TObject);
begin
  Release;
end;

procedure TMasterForm.IWDBGrid1Render(Sender: TObject);
begin
  dummy.Free;
  dummy := TComponent.Create(IWDBGrid1);
end;

procedure TMasterForm.IWDBGrid1RenderCell(ACell: TIWGridCell;
  const ARow, AColumn: Integer);
var
  s: TIWImage;
  t: TIWButton;
begin
  if (ARow = 0) or (IWRadioGroup2.ItemIndex <> 0) then
    Exit;
  if AColumn = FDQuery1.FieldByName('THUMBNAIL').Index then
  begin
    s := TIWImage.Create(dummy);
    UserSession.FieldToImg(s.Picture, FDQuery1.FieldByName('THUMBNAIL'));
    ACell.Control := s;
  end
  else if AColumn = FDQuery1.FieldByName('AGREE').Index then
  begin
    t := TIWButton.Create(dummy);
    t.Tag := FDQuery1.FieldByName('SERIAL').AsInteger;
    t.OnClick := Agree;
    ACell.Control := t;
  end;
end;

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

procedure TMasterForm.IWRadioGroup2Click(Sender: TObject);
begin
  case IWRadioGroup2.ItemIndex of
    0:
      FDQuery1.Open('select * from item_data where agree = false');
    1:
      FDQuery1.Open('select * from item_data where agree = true');
    2:
      FDQuery1.Open
        ('select * from item_data where agree = true and activate = true');
  end;
end;

end.