Помогите написать код в Delphi для БД.

[Sentinel2h]

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

Дико извиняюсь за придирчивость, но вообще-то внешний вид таблицы не имеет отношения к её структуре.

Структура - это тот код, который описывает поля таблицы (наименования, типы, ограничения, ключи таблицы). В случае с Акцессом: открываете таблицу в режиме конструктора и заводите там наименования полей и типы - это и есть структура.

UPDATE
Удалил последний комментарий, так как прочитал наконец про Paradox 7. Не думал, что он ещё жив...

Вы имели ввиду эту структуру?

[Sciv]

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

Извините что я не очень понял,не могли бы вы исправить код.

Мог бы (кстати, перед and ещё пробел нужен был):

Form1.Table1.Filter := 'Vid = ' + QuotedStr(ComboBox1.text) + ' and Cena = ' + Edit1.Text;
Form1.Table1.Filtered := true;

Остальное убрать, оно для фильтрации не нужно.

P.S. И всё же: что именно непонятно-то?

[Sciv]

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

Вы имели ввиду эту структуру?

Её, родную

Как я и предполагал - у Вас поле Cena типа N (от NUMERIC). Ваш запрос в фильтре выглядел так:

Form1.Table1.Filter := 'Vid=''Текст из Комбо''and Cena=''10''';

а должен (после моего исправления) выглядеть так:

Form1.Table1.Filter := 'Vid=''Текст из Комбо'' and Cena=10;

[Sentinel2h]

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

т.е. мы были правы - и это надо сделать через SQL запросы?

p.s. покажите структуру таблицы

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

Её, родную
Теперь программа просто зависает при запуске.

Как я и предполагал - у Вас поле Cena типа N (от NUMERIC). Ваш запрос в фильтре выглядел так:

Form1.Table1.Filter := 'Vid=''Текст из Комбо''and Cena=''10''';

а должен (после моего исправления) выглядеть так:

Form1.Table1.Filter := 'Vid=''Текст из Комбо'' and Cena=10;

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

Её, родную

Как я и предполагал - у Вас поле Cena типа N (от NUMERIC). Ваш запрос в фильтре выглядел так:

Form1.Table1.Filter := 'Vid=''Текст из Комбо''and Cena=''10''';

а должен (после моего исправления) выглядеть так:

Form1.Table1.Filter := 'Vid=''Текст из Комбо'' and Cena=10;

Теперь программа при запуске зависает.Приходится делать reset

[Sentinel2h]

Делаю в Paradox7

procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Table1.First;
repeat;
if (form1.Table1.FieldValues['Vid']=combobox1.Text) and (form1.Table1.FieldValues['Cena']<Edit1.Text) then
Form1.Table1.Next;
until Form1.Table1.eof;
form1.table1.First;
Form1.Table1.Filter := 'Vid = ' + QuotedStr(ComboBox1.text) + ' and Cena = ' + Edit1.Text;
Form1.Table1.Filtered := true;
 end;
end.

[Serge_Bliznykov]

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

Теперь программа при запуске зависает.Приходится делать reset

УБЕРИТЕ ЦИКЛ!!!!

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

Form1.Table1.First;
repeat;
if (form1.Table1.FieldValues['Vid']=combobox1.Text) and (form1.Table1.FieldValues['Cena']<Edit1.Text) then
Form1.Table1.Next;
until Form1.Table1.eof;

[Sentinel2h]

Цикл я уже убирал ничего не изменилось.При запуске фильтрации таблица просто очищается.

[Serge_Bliznykov]

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

Цикл я уже убирал ничего не изменилось

как же не изменилось, если перестало зависать?! Вы же тут про reset жаловались, нет?

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

При запуске фильтрации таблица просто очищается.

значит, нет ни одной подходящей записи.
той, где "вид отдыха" равен "Экзотический" и при этом цена равна ровно 20000

судя по вашему скриншоту, у вас не только нет вида отдыха "Экзотический",
но и НИ ОДНОГО тура нет с ценой ровно 20000

что Вы ожидаете увидеть?

[Sentinel2h]

Вы задание прочитайте:Определить количество путевок заданного вида отдыха,цена которые не превышает заданную.

[Sentinel2h]

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

как же не изменилось, если перестало зависать?! Вы же тут про reset жаловались, нет?


значит, нет ни одной подходящей записи.
той, где "вид отдыха" равен "Экзотический" и при этом цена равна ровно 20000

судя по вашему скриншоту, у вас не только нет вида отдыха "Экзотический",
но и НИ ОДНОГО тура нет с ценой ровно 20000

что Вы ожидаете увидеть?

Вы задание прочитайте:Определить количество путевок заданного вида отдыха,цена которые не превышает заданную.