svn/view/Unit6.pas

unit Unit6;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,
  IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
  IWContainerLayout, IWTemplateProcessorHTML, IWCompButton, Vcl.Forms, Unit2,
  IWCompGrids, IWCompCalendar, IWCompLabel, IWDBGrids;

type
  TUserForm = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWEdit1: TIWEdit;
    IWEdit2: TIWEdit;
    IWEdit3: TIWEdit;
    IWEdit4: TIWEdit;
    IWEdit5: TIWEdit;
    IWButton1: TIWButton;
    IWEdit6: TIWEdit;
    IWButton2: TIWButton;
    IWFrame1: TIWFrame1;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
  public
  private
    function Check: Boolean;
  end;

implementation

{$R *.dfm}

uses Unit3, Unit1, ServerController;

function TUserForm.Check: Boolean;
begin
  result := false;
  if IWEdit1.Text = '' then
  begin
    WebApplication.ShowMessage('�����O������������������');
    Exit;
  end;
  if Length(IWEdit5.Text) < 5 then
  begin
    WebApplication.ShowMessage('�T�����������p�X���[�h���g�p������������');
    Exit;
  end;
  if IWEdit5.Text <> IWEdit6.Text then
    WebApplication.ShowMessage('�p�X���[�h���������v��������')
  else if DM.FDTable1.Locate('EMAIL', IWEdit3.Text, []) = false then
  begin
    result := (IWEdit1.Text <> '') and (IWEdit2.Text <> '') and
      (IWEdit3.Text <> '') and (IWEdit4.Text <> '');
    if result = false then
      WebApplication.ShowMessage('����������������������');
  end
  else if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
    WebApplication.ShowMessage('e-mail�������o�^������������');
  if result = false then
  begin
    IWEdit5.Text := '';
    IWEdit6.Text := '';
  end;
end;

procedure TUserForm.IWButton1Click(Sender: TObject);
begin
  if Check = true then
  begin
    if UserSession.user_number = 0 then
    begin
    DM.FDTable1.Last;
    UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
    DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,
      IWEdit4.Text, nil, UserSession.hash(IWEdit5.Text), UserSession.user_number, Date]);
    end
    else
    begin
      DM.FDTable1.Edit;
      with DM.FDTable1.Fields do
      begin
        Fields[0].AsString:=IWEdit1.Text;
        Fields[1].AsString:=IWEdit3.Text;
        Fields[2].AsString:=IWEdit2.Text;
        Fields[3].AsString:=IWEdit4.Text;
        Fields[5].AsString:=UserSession.hash(IWEdit5.Text);
      end;
      DM.FDTable1.Post;
    end;
    WebApplication.Response.Cookies.AddCookie('user_cookie',UserSession.user_number.ToString,'/',Date+10);
    Release;
    IWForm1.Page := false;
  end;
end;

procedure TUserForm.IWButton2Click(Sender: TObject);
begin
  Release;
end;

end.