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

type
  TIWForm1 = class(TIWAppForm)
    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;
    IWLink4: TIWLink;
    IWLink3: TIWLink;
    IWLink5: TIWLink;
    IWFrame1: TIWFrame1;
    IWLink6: TIWLink;
    IWLink7: TIWLink;
    IWLink8: 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 IWLink4Click(Sender: TObject);
    procedure IWLink3Click(Sender: TObject);
    procedure IWLink5Click(Sender: TObject);
    procedure IWLink6Click(Sender: TObject);
    procedure IWLink8Click(Sender: TObject);
  private
    function SearchCount: Integer;
    function GetPage: Boolean;
    procedure SetPage(const Value: Boolean);
    procedure LoadImage;
    procedure ClearImage;
    function GetThumbnail: Boolean;
    procedure CallBack(EventParams: TStringList);
    procedure SetThumbnail(const Value: Boolean);
  public
    property Page: Boolean read GetPage write SetPage;
    property Thumbnail: Boolean read GetThumbnail write SetThumbnail;
  end;

var
  IWForm1: TIWForm1;

implementation

{$R *.dfm}

uses Unit3, ServerController, Unit6, Unit4, Unit9, Unit10, Unit5, Unit11,
  Unit13, Unit14;

const
  table2filter = 'AGREE = true and ACTIVATE = true';

procedure TIWForm1.CallBack(EventParams: TStringList);
begin
  if SameText(EventParams.Values['RetValue'], 'true') = true then
    TCartForm.Create(WebApplication).Show;
  IWFrame8.IWEdit1.Text := '0';
end;

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: Boolean;
begin
  result := UserSession.FPage;
end;

function TIWForm1.GetThumbnail: Boolean;
begin
  result := UserSession.FThumbnail;
end;

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
const
  i = 120;
var
  s: Integer;
begin
  IWForm1 := Self;
  Page := UserSession.FPage;
  Thumbnail := UserSession.FThumbnail;
  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;
  WebApplication.RegisterCallBack('callback', CallBack);
  DM.FDTable2.Filter := table2filter;
end;

procedure TIWForm1.IWAppFormRender(Sender: TObject);
var
  s: string;
  i, j: Integer;
begin
  IWList1.Items.Clear;
  with DM.FDTable2 do
  begin
    FindFirst;
    while Found = true do
    begin
      s := FieldByName('CATEGORY').AsString;
      if s = '' then
      begin
        FindNext;
        continue;
      end;
      if Filter = table2filter then
      begin
        i := IWList1.Items.IndexOf(s);
        if i = -1 then
          IWList1.Items.Add(s);
      end
      else
      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;
      FindNext;
    end;
  end;
  if DM.FDTable2.Filter <> table2filter then
  begin
    for i := 0 to IWList1.Items.Count - 1 do
    begin
      s := IWList1.Items.ValueFromIndex[i];
      IWList1.Items[i] := IWList1.Items.Names[i] + '(' + s + ')';
    end;
  end;
  IWList2.Items.Clear;
  with DM.FDQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select volume,name,price from cart_data,item_data');
    SQL.Add(' where cart_data.serial = item_data.serial');
    SQL.Add(' and number = :num;');
    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,item_data');
    SQL.Add(' where recent_data.serial = item_data.serial');
    SQL.Add(' and number = :num;');
    ParamByName('num').AsInteger := UserSession.user_number;
    Open;
    First;
    while Eof = false do
    begin
      IWList3.Items.Add(Fields.Fields[0].AsString);
      Next;
    end;
    Close;
  end;
  LoadImage;
  if IWGrid1.Visible = false then
    DM.FDTable2.Locate('SERIAL', UserSession.Serial);
end;

procedure TIWForm1.IWButton1Click(Sender: TObject);
var
  s: TStringList;
  t: string;
  i: Integer;
begin
  Thumbnail := true;
  if IWEdit1.Text <> '' then
  begin
    s := TStringList.Create;
    try
      s.Delimiter := ' ';
      s.DelimitedText := IWEdit1.Text;
      for i := 0 to s.Count - 1 do
      begin
        t := t + 'NAME like ' + QuotedStr('%' + s[i] + '%');
        if i < s.Count - 1 then
          t := t + ' or '
        else
          t := '(' + t + ')';
      end;
      DM.FDTable2.Filter := table2filter + ' and ' + t;
      i := SearchCount;
      if i = 0 then
      begin
        DM.FDTable2.Filter := table2filter;
        IWLabel6.Caption := '�Y���������i����������������������';
      end
      else
        IWLabel6.Caption := Format(IWEdit1.Text + '����������������:%d��', [i]);
      IWLabel6.Visible := true;
    finally
      s.Free;
    end;
  end
  else
  begin
    DM.FDTable2.Filter := table2filter;
    IWLabel6.Visible := false;
  end;
end;

procedure TIWForm1.IWFrame8IWButton1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
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;
  s := WebApplication.Request.CookieFields.Values['user_cookie'];
  if s = '' then
  begin
    DM.FDTable1.Last;
    j := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
    while DM.FDTable1.Lookup('NUMBER', j, 'NUMBER') = j do
      inc(j);
    UserSession.user_number := j;
    DM.FDTable1.AppendRecord([nil, nil, nil, nil, nil, nil,
      UserSession.user_number, Date]);
    WebApplication.Response.Cookies.AddCookie('user_cookie',
      UserSession.user_number.ToString, '/', Date + 10);
  end;
  with DM.FDQuery1 do
  begin
    Open('select * from cart_data;');
    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;
  WebApplication.ShowConfirm('�J�[�g��������������', 'callback', '����', '����', '������');
end;

procedure TIWForm1.IWFrame8IWLink1Click(Sender: TObject);
begin
  Thumbnail := true;
end;

procedure TIWForm1.IWGrid1CellClick(ASender: TObject;
  const ARow, AColumn: Integer);
begin
  Thumbnail := false;
  UserSession.Serial := Integer(IWGrid1.Cell[ARow, AColumn].Tag);
end;

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

procedure TIWForm1.IWLink2Click(Sender: TObject);
var
  i: Integer;
begin
  if Page = true then
  begin
    i := UserSession.user_number;
    if (DM.FDTable1.Locate('EMAIL;PASSWORD',
      VarArrayOf([IWEdit2.Text, UserSession.hash(IWEdit3.Text)]),
      [loCaseInsensitive]) = true) and
      (DM.FDTable1.FieldByName('EMAIL').AsString <> '') then
    begin
      IWEdit2.Text := '';
      UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger;
      if i <> 0 then
      begin
        with DM.FDQuery1 do
        begin
          Open('select * from user_data where number = :num', [i]);
          Delete;
          Open('select number from cart_data where number = :num;', [i]);
          First;
          while Eof = false do
          begin
            Edit;
            FieldByName('number').AsInteger := UserSession.user_number;
            Next;
          end;
        end;
      end;
      Page := false;
    end;
    IWEdit3.Text := '';
  end
  else
    Page := true;
end;

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

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

procedure TIWForm1.IWLink5Click(Sender: TObject);
begin
  TIWForm10.Create(WebApplication).Show;
end;

procedure TIWForm1.IWLink6Click(Sender: TObject);
begin
  Page := true;
  if Sender = IWLink6 then
    TAdminPage.Create(WebApplication).Show
  else
    TAdminFile.Create(WebApplication).Show;
end;

procedure TIWForm1.IWLink8Click(Sender: TObject);
begin
  TMasterForm.Create(WebApplication).Show;
end;

procedure TIWForm1.LoadImage;
var
  pic: TIWImage;
  i: Integer;
  j: Integer;
  t: string;
label label1;
begin
  ClearImage;
  if Thumbnail = true then
  begin
    i := DM.FDTable2.RecordCount div IWGrid1.ColumnCount;
    if DM.FDTable2.RecordCount mod IWGrid1.ColumnCount > 0 then
      inc(i);
    IWGrid1.RowCount := i;
    DM.FDTable2.FindLast;
    for i := 0 to IWGrid1.RowCount - 1 do
      for j := 0 to IWGrid1.ColumnCount - 1 do
      begin
        if DM.FDTable2.Found = false then
          goto label1;
        pic := TIWImage.Create(IWGrid1);
        UserSession.FieldToImg(pic.Picture,
          DM.FDTable2.FieldByName('THUMBNAIL'));
        IWGrid1.Cell[i, j].Control := pic;
        t := DM.FDTable2.FieldByName('NAME').AsString;
        if Length(t) > 10 then
          t := Copy(t, 1, 8) + '..';
        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;
        DM.FDTable2.FindPrior;
      end;
  label1:
  end
  else if DM.FDTable2.Locate('SERIAL', UserSession.Serial, []) = true then
    UserSession.FieldToImg(IWFrame8.IWImage1.Picture,
      DM.FDTable2.FieldByName('IMAGE'));
  Randomize;
  DM.FDTableView.Filter := 'DATE > ' + QuotedStr(DateTimeToStr(Date - 10));
  DM.FDTableView.First;
  DM.FDTableView.MoveBy(Random(DM.FDTableView.RecordCount));
  UserSession.FieldToImg(IWImage1.Picture,
    DM.FDTableView.FieldByName('THUMBNAIL'));
  IWLabel4.Caption := DM.FDTableView.FieldByName('NAME').AsString;
end;

function TIWForm1.SearchCount: Integer;
begin
  with DM.FDTable2 do
  begin
    if FindFirst = true then
    begin
      result := 1;
      while FindNext = true do
        inc(result);
    end
    else
      result := 0;
  end;
end;

procedure TIWForm1.SetPage(const Value: Boolean);
begin
  UserSession.FPage := Value;
  IWRegion7.Visible := not Value;
  IWDBLabel1.Visible := not Value;
  IWLink3.Visible := not Value;
  IWLink1.Visible := Value;
  IWText1.Visible := Value;
  if Value = false then
  begin
    IWLabel1.Caption := '��������';
    IWLink2.Caption := '���O�A�E�g';
    WebApplication.Response.Cookies.AddCookie('user_cookie',
      UserSession.user_number.ToString, '/', Date + 10);
  end
  else
  begin
    IWLabel1.Caption := '���������Q�X�g�l';
    IWLink2.Caption := '���O�C��';
    Thumbnail := true;
    IWText1.Text := '';
    DM.FDTable2.Filter := table2filter;
    if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
    begin
      WebApplication.Response.Cookies.AddCookie('user_cookie', '0', '/',
        Date - 1);
      UserSession.user_number := 0;
    end;
  end;
end;

procedure TIWForm1.SetThumbnail(const Value: Boolean);
begin
  UserSession.FThumbnail := Value;
  IWGrid1.Visible := Value;
  IWFrame8.IWEdit1.Text := '1';
  IWFrame8.Visible := not Value;
end;

initialization

TIWForm1.SetAsMainForm;

end.