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;

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

implementation

{$R *.dfm}

uses Unit3;

function TUserForm.Check: Boolean;
begin
  result := false;
  if Length(IWEdit5.Text) < 5 then
  begin
    WebApplication.ShowMessage('TśČăĚpX[hđgpľÄžł˘');
    Exit;
  end;
  if IWEdit5.Text <> IWEdit6.Text then
    WebApplication.ShowMessage('pX[hüÍŞęvľÜšń')
  else if DM.FDTable1.Locate('EMAIL', DM.FDTable1.FieldByName('EMAIL').AsString,
    []) = 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.AppendRecord([IWEdit1.Text, IWEdit2.Text, IWEdit3.Text,
      IWEdit4.Text, IWEdit5.Text]);
    Release;
  end;
end;

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

end.