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;

type
  TAdminPage = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWGrid1: TIWGrid;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWCheckBox1: TIWCheckBox;
    IWDBLabel1: TIWDBLabel;
    IWDBLabel2: TIWDBLabel;
    IWDBGrid1: TIWDBGrid;
    IWDBNavigator1: TIWDBNavigator;
    IWButton5: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWGrid1Render(Sender: TObject);
    procedure IWCheckBox1Change(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton5Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TAdminPage.IWAppFormCreate(Sender: TObject);
begin
  with DM.FDQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select id,address,email from order_data,user_info');
    SQL.Add(' where order_data.number = user_info.number;');
    Open;
  end;
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;
      DM.FDQuery1.Close;
      DM.FDQuery1.Open;
    end
    else
      DM.FDTable6.Next;
  end;
end;

procedure TAdminPage.IWCheckBox1Change(Sender: TObject);
begin
  with Sender as TIWCheckBox do
    if (Checked = true) and (DM.FDTable5.Locate('KEYFIELD', Tag, []) = true)
    then
    begin
      DM.FDTable5.Edit;
      DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := true;
      DM.FDTable5.Post;
    end;
end;

procedure TAdminPage.IWGrid1Render(Sender: TObject);
var
  i: integer;
  s: TIWCheckBox;
begin
  for i := 1 to IWGrid1.RowCount - 1 do
    IWGrid1.Cell[i, 4].Control.Free;
  IWGrid1.RowCount := DM.FDTable5.RecordCount + 1;
  with IWGrid1 do
  begin
    Cell[0, 0].Text := '���t';
    Cell[0, 1].Text := '������';
    Cell[0, 2].Text := '���[�J�[';
    Cell[0, 3].Text := '����';
    Cell[0, 4].Text := '��������';
  end;
  DM.FDTable5.First;
  i := 1;
  while DM.FDTable5.Eof = false do
  begin
    IWGrid1.Cell[i, 0].Text := DM.FDTable6.FieldByName('DATE').AsString;
    IWGrid1.Cell[i, 1].Text := DM.FDTable5.FieldByName('NAME').AsString;
    IWGrid1.Cell[i, 2].Text := DM.FDTable5.FieldByName('MAKER').AsString;
    IWGrid1.Cell[i, 3].Text := DM.FDTable5.FieldByName('VOLUME').AsString;
    s := TIWCheckBox.Create(IWGrid1);
    s.Text := '��������';
    s.Checked := DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean;
    s.Tag := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
    s.OnChange := IWCheckBox1Change;
    IWGrid1.Cell[i, 4].Control := s;
    DM.FDTable5.Next;
    inc(i);
  end;
end;

end.