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, UITypes;

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);
    procedure IWDBGrid2RenderCell(ACell: TIWGridCell;
      const ARow, AColumn: Integer);
    procedure IWDBGrid2Render(Sender: TObject);
    procedure IWCheckBox1Change(Sender: TObject);
  private
    dummy: TComponent;
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TAdminPage.FDQuery1AfterScroll(DataSet: TDataSet);
begin
  if DM.FDTable5.MasterSource = DM.order then
    IWDBGrid1.RowCurrentColor := TColorRec.Red
  else
    IWDBGrid1.RowCurrentColor := TColorRec.White;
end;

procedure TAdminPage.IWAppFormCreate(Sender: TObject);
begin
  if DM.FDTable5.MasterSource = nil then
    DM.FDTable5.MasterSource := DM.order;
  DM.FDTable6.First;
  FDQuery1.Open;
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.IWCheckBox1Change(Sender: TObject);
begin
  with Sender as TIWCheckBox do
  begin
    Checked := true;
    if DM.FDTable5.Locate('KEYFIELD', Tag) = true then
    begin
      DM.FDTable5.Edit;
      DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;
      DM.FDTable5.Post;
    end;
  end;
end;

procedure TAdminPage.IWDBGrid2Render(Sender: TObject);
begin
  dummy.Free;
  dummy := TComponent.Create(IWDBGrid2);
  DM.FDTable5.First;
end;

procedure TAdminPage.IWDBGrid2RenderCell(ACell: TIWGridCell;
  const ARow, AColumn: Integer);
var
  s: TIWCheckBox;
begin
  if (ARow > 0) and (AColumn = 4) then
  begin
    s := TIWCheckBox.Create(dummy);
    s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
    s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;
    s.OnChange := IWCheckBox1Change;
    s.Caption := s.Tag.ToString;
    ACell.Control := s;
  end;
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.