Предыдущая страница реферата | 26  27  28  29  30  31  32  33  34  35  36 | Следующая страница реферата

   srch:=0;

   if ch=1 then exit;

   ch:=1;

   if assigned(onchange2) then onchange2(sender);

   if not TDBSearchEdit(sender).needsearch_ then exit;

   try

      s1:=table1_.Indexname;

      table1_.indexname:=indexname_;

      s:=compress(TDBSearchEdit(sender).text);

      table1_.findnearest([s]);

      if pos(s,table1_.fieldbyname(keyfieldname_.fieldname).asstring)=1 then

      begin

         poz:=length(TDBSearchEdit(sender).text);

         TDBSearchEdit(sender).text:=Table1_.fieldbyname(textfieldname_.fieldname).asstring;

         TDBSearchEdit(sender).perform(em_setsel,poz,length(TDBSearchEdit(sender).text));

      end

      else begin beep; beep; beep; beep; beep; beep; end;

   finally

      try

         ch:=0;

         table1_.indexname:=s1

      except

      end;

   end;

end;

procedure TDBSearchEdit.onkeypress_(Sender: TObject; var Key: Char);

begin

   if assigned(onkeypress2) then onkeypress2(sender,key);

   if key<>#8 then srch:=1;

end;

constructor TDBSearchEdit.Create(aOwner: TComponent);

begin

   inherited create(aOwner);

   needsearch:=true;

   onchange:=onchange_;

   onkeypress:=onkeypress_;

end;

destructor TDBSearchEdit.destroy;

begin

   inherited destroy;

end;

procedure Register;

begin

  RegisterComponents('Diplom',[TDBSearchEdit]);

end;

end.

4.1.3 Модуль блокировки программы от несанкционированного доступа

unit lockScreen_;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Рекомендуем скачать другие рефераты по теме: реферат на тему характеристика, виды рефератов.



Предыдущая страница реферата | 26  27  28  29  30  31  32  33  34  35  36 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки