Телефонный справочник поиск

[grom333]

Начал делать телефонный справочник, хочу освоить базы данных. посмотрел по форуму темы. Но везде такие сложные пути решения поиска. Использую ADOConnection, DATAsource, ADOTable, TADOQuery. Как сделать поиск? Посоветуйте какие компаненты использовать для поиска и если можно ссылочку на тему где есть примеры. Спасибо.

[raxp]

как-то делал два варианта телефонных справочников:

в-первом - загнал всю базу в TClientDataSet (в ОЗУ обработка) и поиск через Filtered, обработчик в FilterRecord через свойство Accept, например так:

procedure Ttst.bdcFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var t,a,d,k,f: string;
begin
 t:= upcase(tel.text); // пользовательские поля на форме
 a:= upcase(adr.text);
 d:= upcase(dom.text);
 k:= upcase(kom.text);
 f:= upcase(fam.text);

 //
 if rb1.Checked then       //по номеру телефона
  accept:= (Pos(t, upcase(Dataset.fieldbyname('Телефон').asstring))>0);

 if rb2.Checked then begin //по улице/дому/квартире
  if (adr.Text<>'')and(dom.Text='')and(kom.Text='') then
   accept:= (Pos(a, upcase(Dataset.fieldbyname('Улица').asstring))>0);
  if (adr.Text='')and(dom.Text<>'')and(kom.Text='') then
   accept:= (Pos(d, upcase(Dataset.fieldbyname('дом').asstring))>0);
  if (adr.Text='')and(dom.Text='')and(kom.Text<>'') then
   accept:= (Pos(k, upcase(Dataset.fieldbyname('кв').asstring))>0);
  if (adr.Text<>'')and(dom.Text<>'')and(kom.Text='') then
   accept:= (Pos(a, upcase(Dataset.fieldbyname('Улица').asstring))>0)and
            (Pos(d, upcase(Dataset.fieldbyname('дом').asstring))>0);
  if (adr.Text<>'')and(dom.Text<>'')and(kom.Text<>'') then
   accept:= (Pos(a, upcase(Dataset.fieldbyname('Улица').asstring))>0)and
            (Pos(d, upcase(Dataset.fieldbyname('дом').asstring))>0)and
            (Pos(k, upcase(Dataset.fieldbyname('кв').asstring))>0);
 end;

 if rb3.Checked then //по номеру телефона/улице/дому/квартире/ФИО-Названию
  accept:= (Pos(t, upcase(Dataset.fieldbyname('Телефон').asstring))>0)or
           (Pos(a, upcase(Dataset.fieldbyname('Улица').asstring))>0)or
           (Pos(d, upcase(Dataset.fieldbyname('дом').asstring))>0)or
           (Pos(k, upcase(Dataset.fieldbyname('кв').asstring))>0)or
           (Pos(f, upcase(Dataset.fieldbyname('ФИО/Название').asstring))>0);
end;

во-втором - не использовал базы данных в прямом понимании, а хранил в виде бинарника в ресурсах (текстовым набором), загружал в tmemorystream, поиск проходом методом наименьших квадратов (изврат конечно, но при малых объемах бегает довольно шустро и не привязан к bde, ado...)

[grom333]

Я так сделал подобное нашел в нете. Но не хочет находить:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, DBTables;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    booktable: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    Query1: TQuery;
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}





procedure TForm1.Button1Click(Sender: TObject);

var
s: string[50];
begin
s := InputBox('Поиск','Введите фамилию и нажмите OK','');
if s <> '' then
begin
with form1.Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT FIO, street, home');
SQL.Add('FROM ":STANDARD1:tab1.db"');
SQL.Add('WHERE');
SQL.Add('(Famil = "'+ s + '")');
SQL.Add('ORDER BY Name, Famil');
Open;
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1
else begin
ShowMessage('Нет записей.');
DataSource1.DataSet:=booktable;
end;
  end;
   end;
end.

[raxp]

в смысле не хочет? а в базе цей точно такая-же запись существует, имею ввиду, что например вводите "петров", а в записи "Петров"... еще, выдает-ли всю таблицу без фильтрации ?

[grom333]

с учетом регистра писал

[SERG1980]

procedure TForm2.Button1Click(Sender: TObject);
var fam:string[30];
begin
 fam:=InputBox('Поиск телефонного номера',
 'Введите имя абонента целиком или его часть и нажмите OK.', '');
 if fam <> '' then // пользователь ввел фамилию
 begin
  with form2.Query1 do
  begin
   Close; // закрыть файл-результат выполнения предыдущего запроса
   SQL.Clear; // удалить текст предыдущего запроса
   // записываем новый запрос в свойство SQL
   SQL.Add('SELECT *');
   SQL.Add('FROM Fones');
   SQL.Add('WHERE');
   SQL.Add('(Name LIKE "'+ fam+'%' + '")');
   Open; // активизируем выполнение запроса
  end;
 if form2.Query1.RecordCount <> 0 then
  begin
   form2.DataSource1.DataSet:=form2.Query1; // отобразить рез-т выполнения запроса
  end else
  begin
   ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
   form2.DataSource1.DataSet:=form2.Table1;
  end;
 end; 
end;

[Дашкевна]

Всем привет,я телефонный справочник делаю чисто в delphi.Не подскажите можно ли мне как нибудь сделать поиск по данным???

procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.ItemIndex:=ListBox1.ItemIndex;
ListBox3.ItemIndex:=ListBox1.ItemIndex;
ListBox4.ItemIndex:=ListBox1.ItemIndex;
ListBox5.ItemIndex:=ListBox1.ItemIndex;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items:=ListBox1.Items;
ComboBox1.Text:='Выберите фамилию:';

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Label3.Caption:='ФИО:'+ListBox1.Items [ComboBox1.ItemIndex];
Label4.Caption:='Дата рождения:'+ListBox2.Items [ComboBox1.ItemIndex];
Label5.Caption:='Адрес:'+ListBox3.Items [ComboBox1.ItemIndex];
Label6.Caption:='Телефон:'+ListBox4.Items [ComboBox1.ItemIndex];
Label7.Caption:='Серия и номер паспорта:'+ListBox5.Items [ComboBox1.ItemIndex];
end;

procedure TForm1.Button1Click(Sender: TObject);
Var Familia, Data, Adres, Telefon, Seria: string;
begin
Familia:=InputBox('добавление новой записи',
                                'Введите ФИО нового сотрудника',
                               'Фамилия');
Data:=InputBox('добавление новой записи',
                                'Введите дату рождения сотрудника',
                               'Дата рождения');
Adres:=InputBox('добавление новой записи',
                                'Введите адрес нового сотрудника',
                               'Адрес');
Telefon:=InputBox('добавление новой записи',
                                'Введите номер нового сотрудника',
                               'Телефон');
Seria:=InputBox('добавление новой записи',
                      'Введите серию и номер паспорта нового сотрудника',
                                 'Серия и номер паспорта');

ListBox1.Items.Add(Familia);
ListBox2.Items.Add(Data);
ListBox3.Items.Add(Adres);
ListBox4.Items.Add(Telefon);
ListBox5.Items.Add(Seria);
ComboBox1.Items:= ListBox1.Items;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ListBox1.Items.SaveToFile('Familia1.txt');
ListBox2.Items.SaveToFile('Data1.txt');
ListBox3.Items.SaveToFile('Adres1.txt');
ListBox4.Items.SaveToFile('Telefon1.txt');
ListBox5.Items.SaveToFile('Seria i nomer pasporta1.txt');