svn/view/Unit5.pas

unit Unit5;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
  IWBaseHTMLControl, IWControl, IWCompButton, IWCompGrids, IWCompListbox,
  IWCompLabel, IWDBStdCtrls, IWCompCheckbox, System.Variants, 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;

type
  TAdminPage = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWCheckBox1: TIWCheckBox;
    IWDBLabel1: TIWDBLabel;
    IWDBLabel2: TIWDBLabel;
    IWDBGrid1: TIWDBGrid;
    IWDBNavigator1: TIWDBNavigator;
    IWButton5: TIWButton;
    IWDBGrid2: TIWDBGrid;
    FDQuery1: TFDQuery;
    user_info: TDataSource;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton5Click(Sender: TObject);
    procedure FDQuery1AfterScroll(DataSet: TDataSet);
    procedure IWDBNavigator1First(Sender: TObject);
    procedure IWDBNavigator1Last(Sender: TObject);
    procedure IWDBNavigator1Next(Sender: TObject);
    procedure IWDBNavigator1Prior(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TAdminPage.FDQuery1AfterScroll(DataSet: TDataSet);
begin
  IWDBGrid1.RowCurrentColor := 200;
end;

procedure TAdminPage.IWAppFormCreate(Sender: TObject);
begin
  FDQuery1.Open;
  IWDBLabel1.DataField := 'ID';
  IWDBLabel2.DataField := 'ADDRESS';
end;

procedure TAdminPage.IWButton1Click(Sender: TObject);
begin
  if DM.FDTable5.MasterSource = DM.order then
    DM.FDTable5.MasterSource := nil
  else
    DM.FDTable5.MasterSource := DM.order;
end;

procedure TAdminPage.IWButton4Click(Sender: TObject);
begin
  Release;
end;

procedure TAdminPage.IWButton5Click(Sender: TObject);
var
  x: Boolean;
begin
  DM.FDTable5.MasterSource := DM.order;
  DM.FDTable6.First;
  while DM.FDTable6.Eof = false do
  begin
    DM.FDTable5.First;
    x := true;
    while DM.FDTable5.Eof = false do
    begin
      if DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean = false then
      begin
        x := false;
        break;
      end;
      DM.FDTable5.Next;
    end;
    if x = true then
    begin
      DM.FDTable5.First;
      while DM.FDTable5.Eof = false do
        DM.FDTable5.Delete;
      DM.FDTable4.Delete;
      DM.FDTable6.Delete;
    end
    else
      DM.FDTable6.Next;
  end;
  DM.FDTable6.First;
  FDQuery1.Close;
  FDQuery1.Open;
  FDQuery1AfterScroll(nil);
end;

procedure TAdminPage.IWDBNavigator1First(Sender: TObject);
begin
  Dm.FDTable6.First;
end;

procedure TAdminPage.IWDBNavigator1Last(Sender: TObject);
begin
  DM.FDTable6.Last;
end;

procedure TAdminPage.IWDBNavigator1Next(Sender: TObject);
begin
  DM.FDTable6.Next;
end;

procedure TAdminPage.IWDBNavigator1Prior(Sender: TObject);
begin
  DM.FDTable6.Prior;
end;

end.