Zeoslib Portal

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection,
  ExtCtrls;

type
  TForm1 = class(TForm)
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    Button1: TButton;
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
  public
  end;

var
  Form1   : TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.enabled := not timer1.enabled;
  edit1.readonly := timer1.enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  try
    try
      if not ZConnection1.Connected then
        ZConnection1.Connect;
      ZQuery1.SQL.text := edit1.text;
      ZQuery1.Open;
      ZQuery1.first;
      if ZQuery1.Eof then
        caption := 'empty'
      else
        caption := 'records';
    except
      on e: exception do
        caption := e.message;
    end
  finally
    ZQuery1.close;
  end;
end;

end.

Code: Select all

procedure TForm1.Timer1Timer(Sender: TObject); 
begin
  [b]Timer1.Enabled := False;[/b]
  try 
    try 
      if not ZConnection1.Connected then 
        ZConnection1.Connect; 
      ZQuery1.SQL.text := edit1.text; 
      ZQuery1.Open; 
      ZQuery1.first; 
      if ZQuery1.Eof then 
        caption := 'empty' 
      else 
        caption := 'records'; 
    except 
      on e: exception do 
        caption := e.message; 
    end 
  finally 
    ZQuery1.close; 
  end; 
  [b]Timer1.Enabled := True;[/b]
end;