Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Копач Дмитрий
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 5
1

Не работает програма в делфи!

17.03.2014, 18:03. Просмотров 847. Ответов 4
Метки нет (Все метки)

Подкорректируйте програму, очень надо скоро курсач сдавать! не работает поиск!
0
Вложения
Тип файла: zip new.zip (493.1 Кб, 3 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2014, 18:03
Ответы с готовыми решениями:

нужно делфи связать с аксесом, Таблица "Table1" работает в делфи, а мне нужно "Table2"
Вообщем нужно делфи связать с аксесом, Таблица "Table1" работает в делфи, а мне нужно "Table2"...

Не работает программа в делфи
Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Вывести...

Не работает запрос SQL в делфи
На форме 3 разных RadioGroup. В зависимости от выбора Items'ов каждого RadioGroup'а присваиваются...

Работа с БД на Делфи, Sql запрос не работает
Только начала изучать. И тут заблуждала в Unit2 dbgrid2 не выводит цену.хотя с товаром все в...

ПРограма клиент сервер на Делфи
есть клиент серверная програма... с одной програмы отравляетса сообщение другая принимает... уже...

4
Скандербег
960 / 911 / 302
Регистрация: 07.08.2012
Сообщений: 2,534
17.03.2014, 19:58 2
Лучший ответ Сообщение было отмечено Копач Дмитрий как решение

Решение

Меню Project -> Options...
Найти и ткнуть в дереве слева строку "Forms"
Переместить Form6 из правого списка в левый.
Поиск будет работать.
1
Копач Дмитрий
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 5
17.03.2014, 20:49  [ТС] 3
Спасибо большое!!! Только поиск по фамилии не работает(
0
Скандербег
960 / 911 / 302
Регистрация: 07.08.2012
Сообщений: 2,534
17.03.2014, 20:59 4
Лучший ответ Сообщение было отмечено Копач Дмитрий как решение

Решение

Исправить надо так:
Delphi
1
2
3
4
5
6
7
8
procedure TPacientForm.Edit1Change(Sender: TObject);
begin
  DataModuleUnit.Pacienty.Filtered:=False;
  If Length(Edit1.Text)>0 then begin
    DataModuleUnit.Pacienty.Filter:='Прізвище LIKE '+QuotedStr(Edit1.Text+'%');
    DataModuleUnit.Pacienty.Filtered:=True
  end;
end;
1
Копач Дмитрий
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 5
17.03.2014, 21:40  [ТС] 5
Спасибо большое!!!Очень выручил!!
0
17.03.2014, 21:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2014, 21:40

То что работает в Делфи 7 - не работает в Делфи 2010
Здравствуйте есть прога создана в Delphi 7. Хочу теперь ее скомпилировать в Делфи 2010. Но выходят...

Не работает програма
Program lab8; var a,y:real; function Sh(x:real):real; begin Sh:=(exp(x)-exp(-x))/2; end;...

Не работает програма
Код #include <iostream> #include <stdio.h> #include <math.h> using namespace std; int main ()...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru