ADO, Access, SQL, Магазин

 if not CheckBox2.Checked then Exit;
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='NameDis';
  1: strField:='Prepod';
  2: strField:='WeekDay';
 end;
 // выполнить поиск
 Query1.Close;                              // |
 Query1.SQL.Clear;                 //  ' LIKE "%'+Edit3.Text+'%"' - ищет фрагмент текста
 Query1.SQL.Add('Select * from kurs_predm.db where '+strField+' LIKE "'+Edit3.Text+'%"');
 Query1.Open;
 Query1.FieldByName('NameDis').DisplayLabel:='Наименование дисциплины';
 Query1.FieldByName('Prepod').DisplayLabel:='Преподаватель';
 Query1.FieldByName('WeekDay').DisplayLabel:='День недели';
 Query1.FieldByName('DisTime').DisplayLabel:='Время';

if Query.recordCount>0 then begin
Edit1.Text:=Query.Fields[0].asString; 
// в Эдит пишем данные из колонки 0. Колонки берутся из запроса SELECT
 
end

procedure TfMain.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Filter := ADOQuery1.FieldByName('code').FullName + ' = ' +
      QuotedStr(Edit1.Text);
  if ADOQuery1.Filtered then
  begin
    BitBtn1.Caption := 'Filter On';
    ADOQuery1.Filtered := false;
  end
  else
  begin
    BitBtn1.Caption := 'Filter Off';
    ADOQuery1.Filtered := true;
  end;
end;
 
end;

fDM.ADOQuery1.First;

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Buttons, DBCtrls;
 
type
  TfMain = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    Panel4: TPanel;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Bevel2: TBevel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    CheckBox1: TCheckBox;
    RadioGroup1: TRadioGroup;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fMain: TfMain;
 
implementation
 
uses DM;
 
{$R *.dfm}
 
procedure TfMain.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked then
    DBGrid2.DataSource := fDM.DSKlientData;
end;
 
procedure TfMain.RadioButton3Click(Sender: TObject);
begin
if RadioButton3.Checked then
    DBGrid2.DataSource := fDM.DSTovarData;
end;
 
procedure TfMain.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked=true
 then
  begin
   CheckBox1.Caption:='Режим поиска включен';
   Edit3.SetFocus;
  end
 else CheckBox1.Caption:='Режим поиска выключен';
end;
 
end.

'SELECT * from [имя_таблицы] where date='''+Edit1.text+''' order by [имя поля]'

procedure TfMain.BitBtn1Click(Sender: TObject);
begin
 if Edit1.text <> '' // пользователь ввел инф
 then begin
 fDM.ADOQuery1.Close; // закрыть файл-результат выполнения предыдущего запроса
 fDM.ADOQuery1.SQL.Clear; // удалить текст предыдущего запроса
 // записываем новый запрос в свойство SQL
 fDM.ADOQuery1.SQL.Add('SELECT *');
 fDM.ADOQuery1.SQL.Text:='select * from Zakazi where ДатаЗаказа  = :p1';
 fDM.ADOQuery1.ParamByName('p1').AsDate:=DateTimePicker1.Date;
 fDM.ADOQuery1.Open; // активизируем выполнение запроса
 DBGrid1.DataSource:=fDM.DSQuery1;
end else
 DBGrid1.DataSource:=fDM.DSZakaziData;
end;

 if Edit1.text <> '' // пользователь ввел инф
 then begin
 fDM.ADOQuery1.Close; // закрыть файл-результат выполнения предыдущего запроса
 fDM.ADOQuery1.SQL.Clear; // удалить текст предыдущего запроса
 // записываем новый запрос в свойство SQL
 fDM.ADOQuery1.SQL.Text:='select * from Zakazi where ДатаЗаказа  = :p1';
 fDM.ADOQuery1.Parameters.ParamByName('p1').Value:=DateTimePicker1.Date;
 fDM.ADOQuery1.Open; // активизируем выполнение запроса
 DBGrid1.DataSource:=fDM.DSQuery1;