svn/view/Unit1.pas

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, Vcl.Controls, Vcl.Forms, Unit2, IWVCLBaseContainer,
  IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion, IWDBStdCtrls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompLabel,
  IWCompGrids, IWCompText, IWCompTabControl, IWCompButton, IWCompEdit,
  IWHTMLControls, IWCompExtCtrls, UserSessionUnit, PngImage, Data.DB;

type
  TIWForm1 = class(TIWAppForm)
    IWFrame1: TIWFrame1;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWLabel1: TIWLabel;
    IWDBLabel1: TIWDBLabel;
    IWRegion1: TIWRegion;
    IWRegion2: TIWRegion;
    IWText1: TIWText;
    IWGrid1: TIWGrid;
    IWRegion3: TIWRegion;
    IWRegion4: TIWRegion;
    IWLink1: TIWLink;
    IWLabel2: TIWLabel;
    IWList1: TIWList;
    IWLabel3: TIWLabel;
    IWEdit1: TIWEdit;
    IWButton1: TIWButton;
    IWEdit2: TIWEdit;
    IWEdit3: TIWEdit;
    IWLink2: TIWLink;
    IWRegion5: TIWRegion;
    IWLabel7: TIWLabel;
    IWRegion6: TIWRegion;
    IWLabel8: TIWLabel;
    IWList2: TIWList;
    IWLabel4: TIWLabel;
    IWImageFile1: TIWImageFile;
    IWRegion7: TIWRegion;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWList3: TIWList;
    procedure IWAppFormRender(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWLink1Click(Sender: TObject);
  private
    function GetPage: TPage;
    procedure SetPage(const Value: TPage);
    procedure LoadImage;
    procedure ClearImage;
  public
    property Page: TPage read GetPage write SetPage;
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController, Unit6;

procedure TIWForm1.ClearImage;
var
  i: Integer;
  j: Integer;
begin
  for i := 0 to IWGrid1.RowCount - 1 do
    for j := 0 to IWGrid1.ColumnCount - 1 do
      IWGrid1.Cell[i, j].Control.Free;
end;

function TIWForm1.GetPage: TPage;
begin
  result := UserSession.FPage;
end;

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  Page := UserSession.FPage;
end;

procedure TIWForm1.IWAppFormRender(Sender: TObject);
var
  s: string;
  i, j: Integer;
begin
  IWList1.Items.Clear;
  with DM.FDTable2 do
  begin
    First;
    while Eof = false do
    begin
      s := FieldByName('CATEGORY').AsString;
      if s = '' then
      begin
        Next;
        continue;
      end;
      if Filtered = true then
      begin
        i := IWList1.Items.IndexOfName(s);
        if i = -1 then
          IWList1.Items.Add(s + '=1')
        else
        begin
          j := IWList1.Items.ValueFromIndex[i].ToInteger + 1;
          IWList1.Items[i] := s + '=' + j.ToString;
        end;
      end
      else
      begin
        i := IWList1.Items.IndexOf(s);
        if i = -1 then
          IWList1.Items.Add(s);
      end;
      Next;
    end;
  end;
  if DM.FDTable2.Filtered = true then
    for i := 0 to IWList1.Items.Count - 1 do
    begin
      s := IWList1.Items.ValueFromIndex[i];
      if s = '1' then
        IWList1.Items[i] := IWList1.Items.Names[i]
      else
        IWList1.Items[i] := IWList1.Items.Names[i] + '(' + s + ')';
    end;
  IWList2.Items.Clear;
  if Page = TPage.Info then
  begin
    with DM.FDQuery1 do
    begin
      SQL.Clear;
      SQL.Add('select volume,name,price from cart_data join item_data');
      SQL.Add(' on (cart_data.serial = item_data.serial)');
      SQL.Add(' where number = :num;');
      Params.ParamByName('num').AsInteger := UserSession.user_number;
      Open;
      First;
      i := 0;
      while Eof = false do
      begin
        s := Fields.Fields[0].AsString + 'x' + Fields.Fields[1].AsString;
        i := i + Fields.Fields[2].AsInteger;
        IWList2.Items.Add(s);
        Next;
      end;
      IWList2.Items.Add(i.ToString + '�~');
      Close;
      IWList3.Items.Clear;
      SQL.Clear;
      SQL.Add('select name from recent_data join item_data');
      SQL.Add(' on (recent_data.serial = item_data.serial)');
      SQL.Add(' where number = :num;');
      Params.ParamByName('num').AsInteger := UserSession.user_number;
      Open;
      First;
      while Eof = false do
      begin
        IWList3.Items.Add(Fields.Fields[0].AsString);
        Next;
      end;
      Close;
    end;
  end;
  LoadImage;
end;

procedure TIWForm1.IWButton1Click(Sender: TObject);
const
  Filter = 'NAME like ''%s''';
begin
  if IWEdit1.Text = '' then
    DM.FDTable2.Filtered := false
  else
  begin
    DM.FDTable2.Filter.Format(Filter, ['%' + IWEdit1.Text + '%']);
    DM.FDTable2.Filtered := true;
    IWLabel6.Caption := IWEdit1.Text + '����������������';
  end;
  IWLabel6.Visible := DM.FDTable2.Filtered;
end;

procedure TIWForm1.IWLink1Click(Sender: TObject);
begin
  TUserForm.Create(WebApplication).Show;
  Release;
end;

procedure TIWForm1.IWLink2Click(Sender: TObject);
const
  Filter = 'EMAIL = ''%s'' and PASSWORD = ''%s''';
begin
  case Page of
    Main:
      begin
        DM.FDTable1.Filter.Format(Filter, [IWEdit2.Text, IWEdit3.Text]);
        DM.FDTable1.Filtered := true;
        if DM.FDTable1.RecordCount = 1 then
        begin
          Page := Info;
          UserSession.user_number := DM.FDTable1.FieldByName('NUMBER')
            .AsInteger;
          IWEdit2.Text := '';
        end;
        IWEdit3.Text := '';
      end;
    Info:
      begin
        DM.FDTable1.Filtered := false;
        Page := Main;
      end;
  end;
  IWLink1.Visible := UserSession.user_number = 0;
end;

procedure TIWForm1.LoadImage;
var
  s: TStream;
  png: TPngImage;
  pic: TIWImageFile;
  i: Integer;
  j: Integer;
  k: Integer;
begin
  ClearImage;
  png := TPngImage.Create;
  try
    IWGrid1.RowCount := DM.FDTable2.RecordCount div IWGrid1.ColumnCount;
    k := 1;
    for i := 0 to IWGrid1.RowCount - 1 do
      for j := 0 to IWGrid1.ColumnCount - 1 do
      begin
        s := DM.FDTable2.CreateBlobStream
          (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
        try
          png.LoadFromStream(s);
          pic := TIWImageFile.Create(IWGrid1);
          pic.Picture.Assign(png);
          IWGrid1.Cell[i, j].Control := pic;
          IWGrid1.Cell[i, j].Text := k.ToString;
          inc(k);
        finally
          s.Free;
        end;
      end;
  finally
    png.Free;
  end;
end;

procedure TIWForm1.SetPage(const Value: TPage);
var
  x: Boolean;
begin
  UserSession.FPage := Value;
  x := Value = Info;
  IWRegion7.Visible := x;
  IWLabel6.Visible := x;
  IWDBLabel1.Visible := x;
  IWLink1.Visible := not x;
  IWText1.Visible := not x;
  if x = true then
  begin
    IWLabel1.Caption := '��������';
    IWLink2.Caption := '���O�A�E�g';
  end
  else
  begin
    IWLabel1.Caption := '���������Q�X�g�l';
    IWLink2.Caption := '���O�C��';
  end;
end;

initialization

TIWForm1.SetAsMainForm;

end.