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;

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);
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;
  LoadImage;
  IWLabel6.Visible:=DM.FDTable2.Filtered;
end;

procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
  DM.FDTable2.Filtered := false;
  if IWEdit1.Text <> '' then
  begin
    DM.FDTable2.Filter := 'NAME like ' + QuotedStr('%' + 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;
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;
      end;
  end;
end;

procedure TIWForm1.LoadImage;
var
  s: TStream;
  png: TPngImage;
  pic: TIWImageFile;
  i: Integer;
  j: Integer;
  k: Integer;
label label1;
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
        if DM.FDTable2.FieldByName('THUMBNAIL') = nil then
          continue;
        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;
        if DM.FDTable2.Bof = true then
          goto label1;
      end;
  label1:
  finally
    png.Free;
  end;
  png := nil;
  s := nil;
  Randomize;
  DM.FDTable2.Last;
  DM.FDTable2.MoveBy(-Random(DM.FDTable2.RecordCount div 5));
  if DM.FDTable2.FieldByName('THUMBNAIL') <> nil then
  begin
    s := DM.FDTable2.CreateBlobStream
      (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
    png := TPngImage.Create;
    try
      png.LoadFromStream(s);
      IWImageFile1.Picture.Assign(png);
    finally
      png.Free;
      s.Free;
    end;
  end;
  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;
  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.