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, Unit3,
  IWCompGrids, IWCompCalendar;

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

implementation

{$R *.dfm}

uses Unit1, Unit4;

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

procedure TUserForm.IWButton1Click(Sender: TObject);
begin
  if Check = true then
  begin
    DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit2.Text, IWEdit3.Text,
      IWEdit4.Text, IWEdit5.Text]);
    Release;
  end
  else
    WebApplication.ShowMessage('����������������������');
end;

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

end.