Возникла проблема в программировании SQL запроса с помощью компонента TQuery

[mihali4]

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

таблицу прикрепил

Теперь интересно узнать - куда ?
Или, может, я с ума сошел ?

[Herly]

procedure cunh();
Begin
Mpr.Table1.DatabaseName:='Pr';
Mpr.Table1.TableName:='Lat.db';
Mpr.Table1.Active:=true;
Mpr.DataSource1.DataSet:=Mpr.Table1 ;
Mpr.Query1.DatabaseName:='Pr';
Mpr.DBGridSP.DataSource:=Mpr.DataSo urce1;
Mpr.Query1.DataSource:=Mpr.DataSour ce1;
end;
procedure find();
Begin
Mpr.Query1.Close;
Mpr.Query1.SQL.Clear;
Mpr.Query1.SQL.Text:='select fam from lat where fam like('+Quotedstr('Бобров')+')';
Mpr.Query1.Open;
Mpr.DataSource1:=Mpr.Query1.DataSou rce;
Mpr.DBGridOp.DataSource:=Mpr.DataSo urce1;
end;
Вот 2 процедурки которые есть в моей программе, 1-ая загружает таблицу вторая собственно ищет фамилию, может я просто результат запроса неправильно вывожу. Я пробовал использовать и другой датасорс но результат не менялся. Если тут всё правильно, то я незнаю в чём тогда дело(((.
(каждая процедура на отдельной кнопочки)

[Herly]

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

Теперь интересно узнать - куда ?
Или, может, я с ума сошел ?

В самом первом посту, вложения архив, но на всякий прикреплю и тут)

[mihali4]

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Text:='select fam from lat where fam='+QuotedStr(Edit1.Text);
Query1.Open;
end;

Вводим в эдит "Иванов" и все нормально выбирается.
Заканчивайте головы людям морочить - закрою тему...

[Herly]

Если написать ровно как вы то вообще ничё никуда не выводиться, если добавить после строчки Query1.Open вот это
DataSource1:=Mpr.Query1.DataSou rce;
DBGridOp.DataSource:=Mpr.DataSo urce1;
то у меня выводится не строка с данными о человеке с этой фамилией, а вся таблица. Я неморочу голову, я прошу помощи или подсказки как сделать, чтоб выводилась толька строка с нужной мне фамилией.

[Herly]

Фамилию я естественно пишу с большой букве в эдите...

[mihali4]

Вы значения для DataSource1 и DBGridOp.DataSource задайте в режиме проектирования и увидите, что все будет нормально.
А то у вас сейчас получается так - сначала голову полотенцем вытираете, и только потом моете ее...

procedure TForm1.Button1Click(Sender: TObject);
begin
DataSource1:=Query1.DataSource;
DBGridOp.DataSource:=DataSource1;
Query1.Close;
Query1.SQL.Text:='select fam from lat where fam='+QuotedStr(Edit1.Text);
Query1.Open;
end;

[Herly]

Что-то я запутался.
У меня есть две таблицы DBgridSP & DBgridOp
когда я вызываю посредствам нажатия 1-ой кнопочки первую процедуру
у меня в Table1 заносится исходная таблица, В DataSourse1 заносится тоже исходная таблица.
в конце я компоненту Query1 говорю к какому псевданиму ему обращаться при поиски таблицы, а затем указываю источник данных.
Во второй процедуре когда вы пишите DataSource1:=Query1.DataSource;
DBGridOp.DataSource:=DataSource1; это перед самим запросом я непонимаю зачем так. Тут кокрас получается что запрос делается, но не выводится.
И вот про режим проэктирования я несовсем понял, что именно задавать.

[mihali4]

Это я с вами уже запутался...

procedure TForm1.Button1Click(Sender: TObject);
begin
DataSource1.DataSet:=Query1;
DBGridOp.DataSource:=DataSource1;
Query1.Close;
Query1.SQL.Text:='select fam from lat where fam='+QuotedStr(Edit1.Text);
Query1.Open;
end;

Режим проектирования - это то самый режим, когда вы кидаете на форму новые компоненты и можете задавать их свойства в инспекторе объектов (окошко слева, вызывается по F11).
Так вот первые две строки спокойно заменяются на непосредственную установку их в инспекторе объектов...

[Herly]

Знаете, вот когда я поставил DataSourse1.Dataset:=Query1
произошёл сдвиг и у меня вывелось поле фам а в нём фамилия, видимо в этом и был касяк, я неправильно выводил(, только вот почему вывелась не вся строка а только это поле?, можно ли вывести всю строку? в которой есть данная фамилия?