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;
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController, Unit1;

procedure TMyPage.IWAppFormCreate(Sender: TObject);
begin
  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
  DM.FDQuery1.Open('select * from recent_data where number = :num;',
    [UserSession.user_number]);
  DM.FDQuery1.Open;
  while DM.FDQuery1.Eof = false do
    DM.FDQuery1.Delete;
end;

procedure TMyPage.IWButton2Click(Sender: TObject);
begin
  IWButton1Click(Sender);
  while DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true do
    DM.FDTable1.Delete;
  with DM.FDQuery1 do
  begin
    Open;
    while Eof = false do
      Delete;
    Open('select serial from cart_data where number = :num;',
      [UserSession.user_number]);
    Open;
    while Eof = false do
      Delete;
  end;
  (Form as TIWForm1).Page := true;
  UserSession.user_number := 0;
  WebApplication.ShowMessage('������������������');
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.