БД деканат

[Ba4ok]

Здраствуйте! Помогите пожалуйста новичку. Я хочу создать БД Деканат. Все сделал. Теперь у меня не работает "ЗАПРОС". Когда я нажимаю на кнопку запрос, он должен по фамилиям искать.

[Sparky]

Здраствуйте! Помогите пожалуйста новичку. Я хочу создать БД Деканат. Все сделал. Теперь у меня не работает "ЗАПРОС". Когда я нажимаю на кнопку запрос, он должен по фамилиям искат

И что тебе на это ответить?
Сделай так и получи это.
Во первых нужна структура, то что вы пишите в запросе, и ваша субд

[artemavd]

Автор, если тебе нужен поиск по фамилии, но без SQL, то это можно сделать например так (если делаете в BDE):

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
 if not Form2.Table_infa.Locate('LAST_NAME;FIRST_NAME;OTCHESTVO',VarArrayOf([Form6.Edit1.Text,
                                                             Form6.Edit2.Text,
                                                             Form6.Edit3.Text]),
                                         [loCaseInsensitive,loPartialKey]) then
  begin
   ShowMessage(' Запись не найдена. Проверьте правильность ' + #13 +
   '             ввода значений для поиска! ');
  end;
end;

А если с использованием SQL то как то так например:

procedure TForm5.BitBtn11Click(Sender: TObject);
var
 WHERE, DELIM, i:string;
begin
 with  Form5.Query1 do
  Form5.Query1.SQL.Clear;
  Form5.Query1.SQL.Add('SELECT * ');
  Form5.Query1.SQL.Add('FROM tab');
  Form5.Query1.SQL.ADD('WHERE Familiy=+'QuotedStr(Form5.Edit1.Text);
  Form5.Query1.Active:=True;
 end;

[nn377]

А зачем в with Form5.Query1 do всё время with Form5.Query1 do писать?

[Шульц]

Это типа не доглядел, наверно

[artemavd]

Это мой стиль просто)

[Stilet]

Это мой стиль просто)

Нелогичный стиль учитывая что with Form5.Query1 do охватывает только следующий за ним оператор. Отказывайся от такого левописания - сам же потом замучаешся.

[soleil@mmc]

по-хорошему, with - это грабли, на которые сам потом и наступишь
например, при переносе кода куда-нить еще где есть уже with, либо компилятор выберет не того к кому применить описанные методы/процедуры, либо будет тяжело дебажить

[artemavd]

Я кажись вас не допонял всех . Я имел ввиду, что если я пишу такой код:

procedure TForm5.BitBtn11Click(Sender: TObject);
begin
 with  Query1 do
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * ');
  Query1.SQL.Add('FROM tab');
  Query1.SQL.ADD('WHERE Familiy=+'QuotedStr(Edit1.Text);
  Query1.Active:=True;
 end;

То так я пишу:

procedure TForm5.BitBtn11Click(Sender: TObject);
var
 WHERE, DELIM, i:string;
begin
 with  Form5.Query1 do
  Form5.Query1.SQL.Clear;
  Form5.Query1.SQL.Add('SELECT * ');
  Form5.Query1.SQL.Add('FROM tab');
  Form5.Query1.SQL.ADD('WHERE Familiy=+'QuotedStr(Form5.Edit1.Text);
  Form5.Query1.Active:=True;
 end;

Это у еня для того, чтобы не запутаться что это за Query1. А на счет with я с вами со всеми согласен

[soleil@mmc]

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

Это у еня для того, чтобы не запутаться что это за Query1. А на счет with я с вами со всеми согласен

в таком случае лучше вообще не пользоваться with-ом