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;

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

implementation

{$R *.dfm}

uses Unit3, Unit1, UserSessionUnit, ServerController;

function TUserForm.Check: Boolean;
begin
  result := false;
  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 = true then
      Exit
    else
      WebApplication.ShowMessage('����������������������');
  end
  else if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
    WebApplication.ShowMessage('e-mail�������o�^������������');
  IWEdit5.Text := '';
  IWEdit6.Text := '';
end;

procedure TUserForm.IWButton1Click(Sender: TObject);
begin
  if Check = true 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, IWEdit5.Text, UserSession.user_number]);
    Release;
    (Form as TIWForm1).Page := false;
  end;
end;

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

end.