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;

type
  TAdminPage = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWGrid1: TIWGrid;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWCheckBox1: TIWCheckBox;
    IWListbox1: TIWListbox;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWGrid1Render(Sender: TObject);
    procedure IWCheckBox1Change(Sender: TObject);
    procedure IWListbox1Change(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TAdminPage.IWAppFormCreate(Sender: TObject);
begin
  IWListbox1.Items.Clear;
  IWListbox1.Items.Add(' -- ALL --');
  IWListbox1.ItemIndex := 0;
  DM.FDTable6.First;
  while DM.FDTable6.Eof = false do
  begin
    IWListbox1.Items.Add('���� '+DM.FDTable6.FieldByName('ORDER').AsString);
    DM.FDTable6.Next;
  end;
end;

procedure TAdminPage.IWButton1Click(Sender: TObject);
begin
  IWGrid1Render(nil);
end;

procedure TAdminPage.IWButton4Click(Sender: TObject);
begin
  Release;
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.FDTable6.FieldByName('DATE').AsDateTime := Date;
      DM.FDTable5.Post;
    end;
end;

procedure TAdminPage.IWGrid1Render(Sender: TObject);
var
  i: integer;
  j: integer;
  s: TIWCheckBox;
begin
  for i := 1 to IWGrid1.RowCount - 1 do
    IWGrid1.Cell[i, 4].Control.Free;
  IWGrid1.RowCount := DM.FDQuery1.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.FDTable6.First;
  while DM.FDTable6.Eof = false do
  begin
    DM.FDTable5.First;
    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.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;
    end;
    DM.FDTable6.Next;
  end;
end;

procedure TAdminPage.IWListbox1Change(Sender: TObject);
var
  s: string;
begin
  if IWListbox1.ItemIndex = 0 then
  begin
    DM.FDQuery1.Filtered := false;
    IWLabel1.Text := '';
    IWLabel2.Text := '';
  end
  else
  begin
    s := IWListbox1.Items.ValueFromIndex[IWListbox1.ItemIndex];

    DM.FDQuery1.Filtered := true;;
    IWLabel1.Text := DM.FDQuery1.FieldByName('ADDRESS').AsString;
    IWLabel2.Text := DM.FDQuery1.FieldByName('ID').AsString;
  end;
  IWGrid1Render(nil);
end;

end.