Структура рабочей сети Internet
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: решебник по математике 6 виленкин, реферат по математиці
| Добавил(а) на сайт: Veronika.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная