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;

type
  TIWForm3 = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWGrid1: TIWGrid;
    IWComboBox1: TIWComboBox;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    procedure IWButton1Click(Sender: TObject);
    procedure IWAppFormRender(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWComboBox1Change(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TIWForm3.IWAppFormCreate(Sender: TObject);
var
  s: string;
begin
  IWComboBox1.Items.Clear;
  IWComboBox1.Items.Add(' -- All -- ');
  IWComboBox1.ItemIndex := 0;
  DM.FDQuery1.Open('select * from order_data order by email;');
  while DM.FDQuery1.Eof = false do
  begin
    s := DM.FDQuery1.FieldByName('USER').AsString + '=' +
      DM.FDQuery1.FieldByName('EMAIL').AsString;
    if IWComboBox1.Items.IndexOf(s) = -1 then
      IWComboBox1.Items.Add(s);
    DM.FDQuery1.Next;
  end;
end;

procedure TIWForm3.IWAppFormRender(Sender: TObject);
var
  i: integer;
  j: integer;
begin
  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 := '����';
  end;
  DM.FDQuery1.First;
  for i := 1 to IWGrid1.RowCount - 1 do
  begin
    for j := 0 to IWGrid1.ColumnCount - 1 do
      IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields.Fields[j + 4].AsString;
    DM.FDQuery1.Next;
  end;
end;

procedure TIWForm3.IWButton1Click(Sender: TObject);
begin
  IWAppFormCreate(Sender);
  IWAppFormRender(Sender);
end;

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

procedure TIWForm3.IWComboBox1Change(Sender: TObject);
begin
  if IWComboBox1.ItemIndex = 0 then
  begin
    DM.FDQuery1.Filtered := false;
    IWLabel1.Text := '';
    IWLabel2.Text := '';
  end
  else
  begin
    DM.FDQuery1.Filter := 'EMAIL = ' +
      QuotedStr(IWComboBox1.Items.ValueFromIndex[IWComboBox1.ItemIndex]);
    DM.FDQuery1.Filtered := true;;
    IWLabel1.Text := DM.FDQuery1.FieldByName('ADDRESS').AsString;
    IWLabel2.Text := DM.FDQuery1.FieldByName('USER').AsString;
  end;
  IWAppFormRender(Sender);
end;

end.