svn/view/Unit9.pas

unit Unit9;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
  Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
  IWContainerLayout, IWTemplateProcessorHTML, IWCompEdit;

type
  TMyPage = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWLink2: TIWLink;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWEdit1: TIWEdit;
    IWEdit2: TIWEdit;
    IWButton3: TIWButton;
    IWEdit3: TIWEdit;
    IWEdit4: TIWEdit;
    IWButton4: TIWButton;
    IWEdit5: TIWEdit;
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
    Form: TIWAppForm;
  private
    procedure DeleteUser(EventParams: TStringList);
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController, Unit1;

procedure TMyPage.DeleteUser(EventParams: TStringList);
begin
  if EventParams.Values['RetValue'] = 'true' then
  begin
    IWButton1Click(nil);
    if DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true then
      DM.FDTable1.Delete;
    with DM.FDQuery1 do
    begin
      Open('select serial from cart_data where number = :num;',
        [UserSession.user_number]);
      First;
      while Eof = false do
        Delete;
    end;
    (Form as TIWForm1).Page := true;
    UserSession.user_number := 0;
    WebApplication.Response.Cookies.AddCookie('user_cookie', '0', '/',
      Date - 1);
    Release;
    WebApplication.ShowMessage('������������');
  end;
end;

procedure TMyPage.IWAppFormCreate(Sender: TObject);
begin
  WebApplication.RegisterCallBack('callback', DeleteUser);
  with DM.FDTable1 do
  begin
    IWEdit1.Text := FieldByName('EMAIL').AsString;
    IWEdit2.Text := FieldByName('ADDRESS').AsString;
    IWEdit4.Text := FieldByName('PASSWORD').AsString;
  end;
end;

procedure TMyPage.IWButton1Click(Sender: TObject);
begin
  with DM.FDQuery1 do
  begin
    Open('select * from recent_data where number = :num;',
      [UserSession.user_number]);
    First;
    while Eof = false do
      Delete;
  end;
end;

procedure TMyPage.IWButton2Click(Sender: TObject);
begin
  WebApplication.ShowConfirm('OK��������������������������', 'callback', '�m�F',
    'OK', '������');
end;

procedure TMyPage.IWButton3Click(Sender: TObject);
begin
  with DM.FDTable1 do
    if IWEdit1.Text <> FieldByName('EMAIL').AsString then
    begin
      if IWEdit1.Text = IWEdit3.Text then
      begin
        Edit;
        FieldByName('EMAIL').AsString := IWEdit1.Text;
        FieldByName('ADDRESS').AsString := IWEdit2.Text;
        Post;
      end
      else
      begin
        WebApplication.ShowMessage('���������v��������');
        IWEdit1.Text := FieldByName('EMAIL').AsString;
        IWEdit3.Text := '';
      end;
    end
    else
    begin
      Edit;
      FieldByName('ADDRESS').AsString := IWEdit2.Text;
      Post;
    end;
end;

procedure TMyPage.IWButton4Click(Sender: TObject);
begin
  if IWEdit4.Text <> IWEdit5.Text then
  begin
    WebApplication.ShowMessage('���������v��������');
    Exit;
  end
  else if Length(IWEdit4.Text) < 5 then
    WebApplication.ShowMessage('�p�X���[�h���T�����������K�v����')
  else
    with DM.FDTable1 do
    begin
      Edit;
      FieldByName('PASSWORD').AsString := IWEdit4.Text;
      Post;
    end;
end;

procedure TMyPage.IWLink2Click(Sender: TObject);
begin
  Release;
end;

end.