svn/view/Unit1.pas

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWHTMLControls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompLabel,
  Vcl.Controls, Vcl.Forms, IWVCLBaseContainer, IWContainer, IWHTMLContainer,
  IWHTML40Container, IWRegion, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.IB,
  FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, Datasnap.DBClient,
  Datasnap.Provider, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
  FireDAC.DApt, FireDAC.Comp.DataSet, IWCompGrids, IWDBGrids, IWCompEdit,
  IWDBStdCtrls, IWCompExtCtrls, IWDBExtCtrls, Unit3, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, Data.Bind.EngExt, Vcl.Bind.DBEngExt, System.Rtti,
  System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.Components,
  Data.Bind.DBScope, IWCompListbox, IWCompButton, Web.HTTPApp, Web.HTTPProd,
  Vcl.ImgList, IWImageList, PngImage, IWCompTabControl, IWCompMemo, IWCompText,
  UserSessionUnit;

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

implementation

{$R *.dfm}

uses Unit2, ServerController, Unit4, Unit6;

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

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

procedure TTopForm.IWAppFormCreate(Sender: TObject);
const
  i = 150;
var
  s: integer;
begin
  s:=DM.FDTable3.FieldByName('BGCOLOR').AsInteger;
  IWLabel1.BGColor := s;
  IWLabel3.BGColor := s;
  IWLabel5.BGColor := s;
  IWLabel6.BGColor := s;
  IWLabel8.BGColor := s;
  IWRegion1.Width := i;
  IWRegion2.Width := i;
  IWRegion3.Width := i;
  IWRegion4.Width := i;
  IWRegion7.Width := i;
  IWRegion8.Width := i;
  Page := UserSession.FPage;
end;

procedure TTopForm.IWAppFormDestroy(Sender: TObject);
begin
  ClearImage;
end;

procedure TTopForm.IWAppFormRender(Sender: TObject);
var
  s: string;
  i, j: integer;
  x: Boolean;
begin
  IWList1.Items.Clear;
  with DM.FDTable2 do
    if RecordCount > 0 then
    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;
  IWList3.Items.Clear;
  if Page = 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;
      if RecordCount > 0 then
      begin
        First;
        i := 0;
        while Eof = false do
        begin
          s := Fields.Fields[0].AsString + 'x' + Fields.Fields[1].AsString;
          inc(i, Fields.Fields[2].AsInteger);
          IWList3.Items.Add(s);
          Next;
        end;
        IWList3.Items.Add(i.ToString + '�~');
      end;
      Close;
    end;
    IWList2.Items.Clear;
    with DM.FDQuery1 do
    begin
      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;
      if RecordCount > 0 then
      begin
        First;
        while Eof = false do
        begin
          IWList2.Items.Add(Fields.Fields[0].AsString);
          Next;
        end;
      end;
      Close;
    end;
  end;
  x := Page = Info;
  IWRegion4.Visible := x;
  IWLabel2.Visible := x;
  IWDBLabel1.Visible := x;
  IWLink2.Visible := not x;
  LoadImage;
end;

procedure TTopForm.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;
    IWLabel9.Text := IWEdit1.Text + '����������������';
  end;
  IWLabel9.Visible := DM.FDTable2.Filtered;
end;

procedure TTopForm.IWLink1Click(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
          IWLink1.Caption := '���O�A�E�g';
          Page := Info;
          UserSession.user_number := DM.FDTable1.FieldByName('NUMBER')
            .AsInteger;
          IWEdit2.Text := '';
        end;
        IWEdit3.Text := '';
      end;
    Info:
      begin
        DM.FDTable1.Filtered := false;
        IWLink1.Caption := '���O�C��';
        Page := Main;
        DM.FDQuery1.Params.ParamByName('num').AsInteger := 0;
      end;
  end;
  IWLabel9.Visible := UserSession.user_number <> 0;
end;

procedure TTopForm.IWLink2Click(Sender: TObject);
begin
  UserSession.FPage := Info;
  TUserForm.Create(WebApplication).Show;
end;

procedure TTopForm.LoadImage;
var
  i, j, k: integer;
  png: TPngImage;
  pic: TIWImageFile;
  st: TStream;
label label1;
begin
  ClearImage;
  if DM.FDTable2.RecordCount > 0 then
  begin
    IWGrid1.RowCount := (DM.FDTable2.RecordCount div IWGrid1.ColumnCount) + 1;
    k := 1;
    DM.FDTable2.Last;
    png := TPngImage.Create;
    try
      for i := 0 to IWGrid1.RowCount - 1 do
      begin
        for j := 0 to IWGrid1.ColumnCount - 1 do
        begin
          st := DM.FDTable2.CreateBlobStream
            (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
          try
            png.LoadFromStream(st);
            pic := TIWImageFile.Create(Self);
            pic.Picture.Assign(png);
            IWGrid1.Cell[i, j].Control := pic;
            IWGrid1.Cell[i, j].Text := k.ToString;
            inc(k);
            DM.FDTable2.Prior;
          finally
            st.Free;
          end;
          if DM.FDTable2.Bof = true then
            goto label1;
        end;
      end;
    label1:
    finally
      png.Free;
    end;
  end
  else
    IWGrid1.RowCount := 0;
  st := nil;
  png := nil;
  Randomize;
  DM.FDTable2.Last;
  DM.FDTable2.MoveBy(-Random(DM.FDTable2.RecordCount div 5));
  st := DM.FDTable2.CreateBlobStream
    (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
  png := TPngImage.Create;
  try
    png.LoadFromStream(st);
    IWImageFile1.Picture.Assign(png);
  finally
    st.Free;
    png.Free;
  end;
  IWLabel4.Caption := DM.FDTable2.FieldByName('NAME').AsString;
end;

procedure TTopForm.SetPage(const Value: TPage);
var
  s: string;
begin
  UserSession.FPage := Value;
  case Value of
    Main:
      s := 'toppage.htm';
    Info:
      s := 'mypage.htm';
  end;
  IWTemplateProcessorHTML1.Templates.Default := s;
end;

initialization

TTopForm.SetAsMainForm;

end.