|
Вопрос # 6 098/ вопрос решён / |
|
Здравствуйте, эксперты! Только начала разбираться в Делфи,практически ничего не умею. Делаю курсовую на тему Учет ПК в организации. Помогите, пожалуйста, создать в ADOTable фильтр выполняющий поиск по инвентарному номеру. Пишу код
procedure TForm1.btn1Click(Sender: TObject);
begin
with tbl1 do begin
Filtered := False;
Filter := 'Инвентарный номер LIKE ' + QuotedStr(edt1.Text+'*');
Filtered := True;
end;
end;
end.
Всё компилируется,проект запускается, номер вводится,но как только нажимаешь кнопку для начала поиска пишет, что аргументы имеют неверный тип, выходят за пределы диапазона или конфликтуют друг с другом.
Помогите!Как можно это исправить?
 |
Вопрос задала: Грищенко Анна Витальевна (статус: Посетитель)
Вопрос отправлен: 25 апреля 2012, 13:39
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 13; последнее сообщение — 25 мая 2012, 02:45; участников в обсуждении: 2.
|
Мережников Андрей (статус: Абитуриент), 25 апреля 2012, 18:25 [#1]:
"уж сколько раз твердили миру" - не используйте русские названия для столбцов таблиц, особенно из нескольких слов. А если нелегкая угораздила на этот подвиг, то такое имя обрамляйте соответствующими знаками - квадратными скобками
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 26 апреля 2012, 02:27 [#2]:
спасибо,но у меня еще один глупый вопрос,а как это будет выглядеть? У меня в коде прогр после того как выдает ошибку строка где fаlsе становится красной.извините за мою тупость.но я правда ничего понять не могу..
|
|
|
Мережников Андрей (статус: Абитуриент), 26 апреля 2012, 05:44 [#3]:
выглядеть, примерно так:
Filter := '[Инвентарный номер] LIKE ' + QuotedStr(edt1.Text+'*');
Красной точно становится строка, где false?
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 26 апреля 2012, 08:27 [#4]:
спасибо,мой спаситель,вроде заработало. теперь проблема с создание кнопки сброса поиска. Пишу
procedure TForm1.btn2Click(Sender: TObject);
begin
'[Инвентарный номер]'=False;
end;
end.
Воде так учили, а строка краснеет.
Р.S. Наверно, я слишком тупа для программироания...
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 26 апреля 2012, 09:33 [#5]:
Извиняюсь,поторопилась с вопросом. справилась с созданием кнопки сброса поиска.
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 26 апреля 2012, 10:21 [#6]:
procedure TForm1.btn4Click(Sender: TObject);
begin
with tbl1 do begin
Filtered := False;
Filter := '[Номер кабинета] LIKE ' + QuotedStr(edt1.Text+'*');
Filtered := True;
end;
end;
end.
то же самое,только имя столбца в таблице меняю. а не работает.
Filtered := True- краснеет=(((
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 23 мая 2012, 14:22 [#8]:
Здравствуйте!Вы мне здорово помогли в прошлый раз. Делаю вторую курсовую.Аналогично пишу код для поиска
with tbl1 do begin
Filtered := False;
Filter := '[nomer_poezda] LIKE ' + QuotedStr(edt1.Text+'*');
Filtered := True;
end;
end;
end.
проект компилируется.ошибок нет.но после того как запускаешь его и вводишь значение в строку для поиска выводится ошибка о том что фильтр не удается запустить.а в коде краснеет строка
Filtered := True;
Что делать? подскажите пожалуйста.делаю всё аналогично;а не работает. я в отчаянии..
|
|
|
Мережников Андрей (статус: Абитуриент), 23 мая 2012, 19:49 [#9]:
какое конкретно сообщение об ошибке выдается?
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 24 мая 2012, 04:18 [#10]:
Project Project1.exeraised exception class EOle exception with message «Не удается открыть фильтр». Process stopped. Use Step or Run to continue.
Потом я нажимаю ОК и в коде краснееет строка Filtered := True
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 24 мая 2012, 04:37 [#11]:
Если вас не затруднит,возможно как-либо с вами связаться и отправить вам проект чтобы вы посмотрели? Извините за наглость..просто у меня даже не у кого спросить..осталось сделать эту злополучную кнопку поиска..
|
|
|
Мережников Андрей (статус: Абитуриент), 24 мая 2012, 19:51 [#12]:
возможно поле [nomer_poezda] из другой таблицы, либо не совпадает тип данных: поле [nomer_poezda] - какого типа? Смотреть весь проект у меня нет времени. К тому же могут не совпадать версии Delphi.
|
|
|
Грищенко Анна Витальевна (статус: Посетитель), 25 мая 2012, 02:45 [#13]:
Спасибо за помощь в любом случае!)мне на другом форуме уже помогли.но вам огромное спасибо.
|
20 июня 2012, 10:48: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
