svn/view/Unit10.pas

unit Unit10;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,
  IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
  IWContainerLayout, IWTemplateProcessorHTML, IWCompButton, IWHTMLControls, System.Variants;

type
  TIWForm10 = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWEdit1: TIWEdit;
    IWButton1: TIWButton;
    IWEdit2: TIWEdit;
    IWLink1: TIWLink;
    procedure IWButton1Click(Sender: TObject);
    procedure IWLink1Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;


procedure TIWForm10.IWButton1Click(Sender: TObject);
begin
  if DM.FDTable1.Locate('EMAIL;BIRTH',VarArrayOf([IWEdit1.Text,IWEdit2.Text]),[]) = true then
  begin
    //send email
    WebApplication.ShowMessage('MľÜľ˝');
  end
  else
    WebApplication.ShowMessage('o^łęÄ˘Üšń');
end;

procedure TIWForm10.IWLink1Click(Sender: TObject);
begin
  Release;
end;

end.