по ID поиск выдает результат, а по Фамилии нет. как осуществить поиск по фамилии

[Евгений174]

Добрый день, вечер.
есть база данных Access, прикручена на делфи.
по ID поиск выдает результат, а по Фамилии нет. как осуществить поиск по фамилии. помогите. В архиве исходник

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Menus, StdCtrls, ExtCtrls, Buttons;

type
  Tmain = class(TForm)
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    Edit1: TEdit;
    Button1: TButton;
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FindEditChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses Data, LessonUnit, EditUnit, StudentsUnit, ClassUnit, FindUnit;

{$R *.dfm}

procedure Tmain.N4Click(Sender: TObject);
begin
  close;
end;

procedure Tmain.N5Click(Sender: TObject);
begin
  Lessons.ShowModal;      
end;

procedure Tmain.N7Click(Sender: TObject);
begin
  DataUnit.ADOTable1.Insert;
  EditForm.ShowModal;
end;

procedure Tmain.N8Click(Sender: TObject);
begin
  EditForm.ShowModal;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
  StudentsForm.ShowModal;
end;

procedure Tmain.N11Click(Sender: TObject);
begin
  ClassForm.ShowModal;
end;

procedure Tmain.N13Click(Sender: TObject);
begin
  DataUnit.ADOTable1.IndexFieldNames:='Ученик';
end;

procedure Tmain.N14Click(Sender: TObject);
begin
  DataUnit.ADOTable1.IndexFieldNames:='Предмет';
end;

procedure Tmain.FindEditChange(Sender: TObject);
begin
//  if Length(FindEdit.Text)>0 then
//    DataUnit.ADOTable1.Filtered:=true else
//    DataUnit.ADOTable1.Filtered:=false;
//  DataUnit.ADOTable1.Filter:='Ученик >'''+FindEdit.Text+'''';
end;

procedure Tmain.BitBtn1Click(Sender: TObject);
begin
  DataUnit.FindQuery.Active:=false;
  
  DataUnit.FindQuery.Active:=true;
  if DataUnit.FindQuery.IsEmpty then Application.MessageBox('Нету такой фимилиё', 'Оп-па!', MB_ICONINFORMATION) else
  FindForm.ShowModal;
end;

procedure Tmain.Edit1Change(Sender: TObject);

begin
//  if Length(FindEdit.Text)>0 then
//    DataUnit.ADOTable1.Filtered:=true else
//    DataUnit.ADOTable1.Filtered:=false;
//  DataUnit.ADOTable1.Filter:='Ученик >'''+FindEdit.Text+'''';
end;



procedure Tmain.Button1Click(Sender: TObject);
begin
  DataUnit.FindQuery.Active:=false;
  DataUnit.FindQuery.Parameters.ParamByName('student').Value:=Edit1.Text;
  DataUnit.FindQuery.Active:=true;
  FindForm.ShowModal;
end;


end.

[Dvoishnik]

запрос где??

[Евгений174]

Сообщение от Dvoishnik

запрос где??

объясните пожалуйста подробнее

[Dvoishnik]

что объяснить??
покажи запрос из FindQuery

[kropotkina-alice]

Сообщение от Евгений174

объясните пожалуйста подробнее

Запрос должен быть вот тут:

DataUnit.FindQuery.SQL.Text:='select откуда, чего, по каким условиям'

Посмотрите хотя бы примеры в хэлпе дельфи...

[ИгорьFM]

procedure Tmain.BitBtn1Click(Sender: TObject);
begin
  DataUnit.FindQuery.Active:=false;
  DataUnit.FindQuery.SQL.Text:='select * from tabl_name where {Поля с фамилиями}={откуда берутся фамилии для поиска}'
  DataUnit.FindQuery.Active:=true;
  if DataUnit.FindQuery.IsEmpty then Application.MessageBox('Нету такой фимилиё', 'Оп-па!', MB_ICONINFORMATION) else
  FindForm.ShowModal;
end;