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
    str: string;
    dummy: TComponent;
    procedure Agree(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController;

procedure TMasterForm.Agree(Sender: TObject);
begin
  if (IWRadioGroup1.ItemIndex = 1) and
    (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;
  if DM.FDTable3.FieldByName('ENABLE').AsBoolean = true then
    IWRadioGroup1.ItemIndex := 0
  else
    IWRadioGroup1.ItemIndex := 1;
  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;
  case AColumn of
    0:
      if FDQuery1.FieldByName('SERIAL').AsInteger = -1 then
        str := '����'
      else
        str := '����';
    3:
      begin
        s := TIWImage.Create(dummy);
        UserSession.FieldToImg(s.Picture, FDQuery1.FieldByName('THUMBNAIL'));
        ACell.Control := s;
      end;
    9:
      begin
        t := TIWButton.Create(dummy);
        t.Tag := FDQuery1.FieldByName('SERIAL').AsInteger;
        t.Caption := str;
        t.OnClick := Agree;
        ACell.Control := t;
      end;
  end;
end;

procedure TMasterForm.IWRadioGroup1Click(Sender: TObject);
var
  x: Boolean;
begin
  x := IWRadioGroup1.ItemIndex = 0;
  IWButton1.Enabled := not x;
  if Sender <> Self then
    with DM.FDTable3 do
    begin
      Edit;
      FieldByName('ENABLE').AsBoolean := x;
      Post;
    end;
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.