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,
  IWCompListbox, IWBaseComponent, IWBaseHTMLComponent, IWBaseHTML40Component,
  IWCompMenu, Vcl.Menus, System.Variants, Unit8, Vcl.Dialogs;

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;
    IWRegion7: TIWRegion;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWList3: TIWList;
    IWImage1: TIWImage;
    IWFrame8: TIWFrame8;
    IWLink3: TIWLink;
    IWLink4: TIWLink;
    procedure IWAppFormRender(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWLink1Click(Sender: TObject);
    procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);
    procedure IWFrame8IWButton1Click(Sender: TObject);
    procedure IWFrame8IWLink1Click(Sender: TObject);
    procedure IWLink3Click(Sender: TObject);
    procedure IWLink4Click(Sender: TObject);
  private
    Filter: Boolean;
    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, Unit4;

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;
  IWGrid1.RowCount := 0;
end;

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

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
const
  i = 120;
var
  s: Integer;
begin
  Page := UserSession.FPage;
  s := DM.FDTable3.FieldByName('BGCOLOR').AsInteger;
  IWLabel2.BGColor := s;
  IWLabel3.BGColor := s;
  IWLabel5.BGColor := s;
  IWLabel7.BGColor := s;
  IWLabel8.BGColor := s;
  IWRegion1.Width := i;
  IWRegion2.Width := i;
  IWRegion4.Width := i;
  IWRegion5.Width := i;
  IWRegion6.Width := i;
  IWRegion7.Width := i;
end;

procedure TIWForm1.IWAppFormRender(Sender: TObject);
var
  s: string;
  i, j: Integer;
begin
  IWList1.Items.Clear;
  with DM.FDTable2 do
  begin
    if Filtered = true then
    begin
      FindFirst;
      while Found = true do
      begin
        s := FieldByName('CATEGORY').AsString;
        if s = '' then
        begin
          FindNext;
          continue;
        end;
        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;
        FindNext;
      end;
    end
    else
    begin
      First;
      while Eof = false do
      begin
        s := FieldByName('CATEGORY').AsString;
        if s = '' then
        begin
          Next;
          continue;
        end;
        i := IWList1.Items.IndexOf(s);
        if i = -1 then
          IWList1.Items.Add(s);
        Next;
      end;
    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[0].AsInteger * 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;
  if IWGrid1.Visible = true then
  begin
    IWLabel6.Visible := Filter;
    LoadImage;
  end
  else
    DM.FDTable2.Locate('SERIAL', UserSession.Serial, []);
end;

procedure TIWForm1.IWButton1Click(Sender: TObject);
var
  i: Integer;
begin
  IWFrame8IWLink1Click(Sender);
  if IWEdit1.Text <> '' then
  begin
    DM.FDTable2.Filter := 'NAME like ' + QuotedStr('%' + IWEdit1.Text + '%');
    DM.FDTable2.Filtered := true;
    i := DM.FDTable2.RecordCount;
    IWLabel6.Caption := Format(IWEdit1.Text + '����������������:%d��', [i]);
    if i = 0 then
      DM.FDTable2.Filtered := false;
    Filter := true;
  end
  else
  begin
    DM.FDTable2.Filtered := false;
    Filter := false;
  end;
end;

procedure TIWForm1.IWFrame8IWButton1Click(Sender: TObject);
var
  i: Integer;
begin
  if TryStrToInt(IWFrame8.IWEdit1.Text, i) = false then
  begin
    WebApplication.ShowMessage('�������s������');
    Exit;
  end;
  if i = 0 then
  begin
    WebApplication.ShowMessage('�P�����������������K�v����');
    Exit;
  end;
  with DM.FDQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select * from cart_data;');
    Open;
    if Locate('NUMBER;SERIAL', VarArrayOf([UserSession.user_number,
      UserSession.Serial]), []) = true then
    begin
      Edit;
      FieldByName('VOLUME').AsInteger := FieldByName('VOLUME').AsInteger + i;
      Post;
    end
    else
      AppendRecord([nil, i, UserSession.user_number, UserSession.Serial]);
  end;
  IWFrame8.IWEdit1.Text := '0';
  if MessageDlg('�J�[�g��������������', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    TCartForm.Create(WebApplication).Show;
end;

procedure TIWForm1.IWFrame8IWLink1Click(Sender: TObject);
begin
  UserSession.Thumbnail := true;
  IWFrame8.Visible := false;
  IWGrid1.Visible := true;
end;

procedure TIWForm1.IWGrid1CellClick(ASender: TObject;
  const ARow, AColumn: Integer);
begin
  UserSession.Thumbnail := false;
  IWFrame8.Visible := true;
  IWFrame8.IWEdit1.Text := '1';
  IWLabel6.Visible := false;
  IWGrid1.Visible := false;
  UserSession.Serial := Integer(IWGrid1.Cell[ARow, AColumn].Tag);
end;

procedure TIWForm1.IWLink1Click(Sender: TObject);
begin
  with TUserForm.Create(WebApplication) do
  begin
    Form := Self;
    Show;
  end;
end;

procedure TIWForm1.IWLink2Click(Sender: TObject);
begin
  case Page of
    Main:
      begin
        if DM.FDTable1.Locate('EMAIL;PASSWORD',
          VarArrayOf([IWEdit2.Text, IWEdit3.Text]), [loCaseInsensitive]) = true
        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;
        UserSession.user_number := 0;
      end;
  end;
end;

procedure TIWForm1.IWLink3Click(Sender: TObject);
begin
  WebApplication.ShowMessage('�n�j���N���b�N����������������');
  Page := Main;
  DM.FDTable1.Delete;
end;

procedure TIWForm1.IWLink4Click(Sender: TObject);
begin
  TCartForm.Create(WebApplication).Show;
end;

procedure TIWForm1.LoadImage;
var
  s: TStream;
  png: TPngImage;
  pic: TIWImage;
  i: Integer;
  j: Integer;
  x: Boolean;
  t: string;
label label1;
begin
  ClearImage;
  png := TPngImage.Create;
  try
    i := DM.FDTable2.RecordCount div IWGrid1.ColumnCount;
    if DM.FDTable2.RecordCount mod IWGrid1.ColumnCount > 0 then
      inc(i);
    IWGrid1.RowCount := i;
    if DM.FDTable2.Filtered = false then
      DM.FDTable2.Last
    else
      DM.FDTable2.FindLast;
    for i := 0 to IWGrid1.RowCount - 1 do
      for j := 0 to IWGrid1.ColumnCount - 1 do
      begin
        if DM.FDTable2.Filtered = false then
        begin
          if DM.FDTable2.Bof = true then
            goto label1;
        end
        else if DM.FDTable2.Found = false then
          goto label1;
        if DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil then
        begin
          s := DM.FDTable2.CreateBlobStream
            (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
          try
            png.LoadFromStream(s);
          finally
            s.Free;
          end;
        end;
        t := DM.FDTable2.FieldByName('NAME').AsString;
        if Length(t) > 10 then
          t := Copy(t, 1, 8) + '..';
        pic := TIWImage.Create(IWGrid1);
        pic.Picture.Assign(png);
        IWGrid1.Cell[i, j].Control := pic;
        IWGrid1.Cell[i, j].Tag :=
          Pointer(DM.FDTable2.FieldByName('SERIAL').AsInteger);
        IWGrid1.Cell[i, j].Text := t;
        IWGrid1.Cell[i, j].Alignment := taCenter;
        IWGrid1.Cell[i, j].Clickable := true;
        if DM.FDTable2.Filtered = false then
          DM.FDTable2.Prior
        else
          DM.FDTable2.FindPrior;
      end;
  label1:
  finally
    png.Free;
  end;
  png := nil;
  s := nil;
  Randomize;
  if DM.FDTable2.Filtered = true then
  begin
    x := true;
    DM.FDTable2.Filtered := false;
  end
  else
    x := false;
  DM.FDTable2.Last;
  if DM.FDTable2.Bof = true then
    Exit;
  DM.FDTable2.MoveBy(-Random(DM.FDTable2.RecordCount div 5));
  if DM.FDTable2.FieldByName('THUMBNAIL').AsBytes <> nil then
  begin
    s := DM.FDTable2.CreateBlobStream
      (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
    png := TPngImage.Create;
    try
      png.LoadFromStream(s);
      IWImage1.Picture.Assign(png);
    finally
      png.Free;
      s.Free;
    end;
  end;
  if x = true then
    DM.FDTable2.Filtered := true;
  IWLabel4.Caption := DM.FDTable2.FieldByName('NAME').AsString;
end;

procedure TIWForm1.SetPage(const Value: TPage);
var
  x: Boolean;
begin
  UserSession.FPage := Value;
  x := Value = Info;
  IWRegion7.Visible := x;
  IWDBLabel1.Visible := x;
  IWLink3.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.