Курсовая работа: Базы данных. Создание программы Телефонный справочник

else handled := false;

end;

end;

end;

procedure TPhoneForm.SearchClick(Sender: TObject);

var

filters: string;

i: integer;

begin

filters := '';

for i:= 0 to 4 do

begin

if Inputs[i].Text <> ''

then filters := filters + '('+Table1.Fields[i].FieldName + '='+ QuotedStr(Inputs[i].Text + '*')+ ') and';

end;

if filters <> '' then

Filters := copy(Filters, 0, Length(filters)-4);

table1.Filter := filters;

UpdateStatusBar;

end;

procedure TPhoneForm.SortMode (Sender: tObject);

var

i: integer;

begin

for i := 0 to 2 do

PopupMenu1.Items[i].Checked := false;

(sender as TMenuItem).Checked := true;

end;

procedure TPhoneForm.FormClose(Sender: TObject; var Action: TCloseAction);