Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Чтоб при вводе запроса небыло подвязки к регистру? [D7, Paradox]

Страницы: 1 2 >
Starcom © (2005-09-05 16:10:00)
Привет Мастера!

При таком раскладе, при вводе фамилии с большой буквы (Петров) запрос выполняется
т.к в Бд Paradox фамилия так и записана.

Как мне сделать так чтоб при вводе фамилии с маленькой буквы запрос тоже выполнялся?
т.е при вводе небыло подвязки к регистру.

Желательна врезка к уже имеюшемуся коду...!

var
fam: string[30];
begin
fam:=InputBox('Поиск Сотрудника в Базе данных',
'Укажите Фамилию и щелкните на OK.', '');
if fam <> '' // пользователь ввел фамилию
then // проверяем на предмет пустого ввода
Query1.SQL.Add(fam) {Назначаем свойству SQL текст fam}
else
begin
MessageDlg('Вы не ввели Фамилию, попробуйте ещё раз!', mtError,[mbOk], 32);
exit;
end;
begin
with DbElek.Query1 do begin
Close; // закрыть файл-результат выполнения предыдущего запроса
SQL.Clear; // удалить текст предыдущего запроса
// записываем новый запрос в свойство SQL
SQL.Add('SELECT Fam, Name, Otch, Dol, Adr, Dtel, Stel, Tabn, Staj');
SQL.Add('FROM ":Список:spisok.db"');
SQL.Add('WHERE');
SQL.Add('(Fam = "'+ fam + '")');
SQL.Add('ORDER BY Name, Fam');
Open; // активизируем выполнение запроса
StatusBar1.Panels[2].Text :='';
StatusBar1.Panels[2].Text :='Поиск Завершен!';
end;

if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // отобразить результат выполнения запроса
else begin
MessageDlg('В Базе Данных, нет данной Фамилии!', mtInformation,[mbOk], 32);
DataSource1.DataSet:=Table1;
end;
end;
end;

С Уважением Starcom! ;)

Starcom (2005-09-14 20:03:00) [1]
ANB © (14.09.05 17:19) [21]

Беру свои слова на счёт ошибки - Обратно! Пасибо Огромное!
Ну и помурыжили же Вы Меня! ;)

С Уважением Starcom! :)))

Starcom (2005-09-14 19:32:00) [2]
Anatoly Podgoretsky © (14.09.05 19:23) [22]

Пасиба добрый Вы! :)

ANB © (14.09.05 17:19) [21]

Скромность, вежливость Мастеров!
Вы за кого меня принимаете! ЗЫ. Поправил не слепой, но тема таже,
вот и написал что ошибка! :(

Anatoly Podgoretsky (2005-09-14 19:23:00) [3]
Starcom © (14.09.05 17:05) [20]
Парни если енто что я прошу невозможно так и скажите, а то кутерьма какая-то!

А сколько раз надо это говорить , тебе и доказательство привели, а все равно без толку.

ANB (2005-09-14 17:19:00) [4]

> Starcom © (14.09.05 17:05) [20]
- ошибка компиляции ?

SQL.Add('(Fam = :Fam)'); Params.ParamByName('Fam').AsString := AnsiUpperCase(Copy(Fam,1,1)) + AnsiLowerCase(Copy(Fam,2,Length(Fam)));
ЗЫ. Мог бы и сам опечатку поправить

Starcom (2005-09-14 17:05:00) [5]
Anatoly Podgoretsky © (14.09.05 09:41) [18]

Перечитал и переписал, но нифига не получилось. Дык!!!

ЮЮ © (14.09.05 12:08) [19]

Попробовал твой код, выдаёт ошибку!

Парни если енто что я прошу невозможно так и скажите, а то кутерьма какая-то!

С Уважением Starcom!

ЮЮ (2005-09-14 12:08:00) [6]
SQL.Add('(Fam = :Fam)');
Params.ParamByName('Fam').AsString :=
AnsiUpperCase(Copy(Fam,1,1)) + AnsiLowerCase(Copy(Fam,2,Length(Fam))) +;

Anatoly Podgoretsky (2005-09-14 09:41:00) [7]
Смотри еще раз Турист (10.09.05 22:36) [9],только очень внимательно, выписывая буква за буквой на бумажку, а потом читай Anatoly Podgoretsky © (11.09.05 21:28) [13]

Starcom (2005-09-14 09:05:00) [8]
Парни не бросайте, помогите разобратся!

С Уважением Starcom! ;-(

Starcom (2005-09-12 19:09:00) [9]
Смотрю но не догоняю, поконкретнее Плиз!!!
От чего всё енто происходит (не про не догоняю)с поиском хэ!

Anatoly Podgoretsky (2005-09-12 18:48:00) [10]
Смотри Турист (10.09.05 22:36) [9]

Starcom (2005-09-12 18:22:00) [11]
Anatoly Podgoretsky © (11.09.05 21:28) [13]

Уважаемый Анатолий! Можно мне обьяснить вчём именно проблемма?

А то мне тут ...
насоветовали и в кусты :( Shaman_ © (05.09.05 17:31) [2]

С Уважением Starcom! :|

Anatoly Podgoretsky (2005-09-11 21:28:00) [12]
Без вариантов

Starcom (2005-09-11 21:05:00) [13]
Парни есть варианты! :|

Starcom (2005-09-11 18:57:00) [14]
Anatoly Podgoretsky © (10.09.05 22:06) [8]

Да вы и без того Лучший, действительно Ткаченко, Поляков.

Ну а мне поконкретней мона! :]

C Уважением Starcom ! ;-)

Турист (2005-09-10 23:09:00) [15]
uses BDE; procedure TForm1.Button1Click(Sender: TObject); var Buffer: array[0..255] of Char; begin StrPCopy(Buffer, 'Ткаченко'); OsLdStrToUpper(Table1.Locale, PByte(@Buffer)); ShowMessage(Buffer) end;

Турист (2005-09-10 22:36:00) [16]
По Anatoly Podgoretsky © (10.09.05 22:06) [8]
Upper(FAM)
ТКАчЕНКО
ПОЛџКОВ

Anatoly Podgoretsky (2005-09-10 22:06:00) [17]
Тка ченко, Пол яков

Starcom (2005-09-10 17:37:00) [18]
До внесения изменений, поиск по всёй базе был на все 100%
а после перестал находить некоторие записи на Тка..., Пол...,

Чё за хрень! :(

Турист (2005-09-10 11:39:00) [19]
>Starcom ©
При просмотре результата запроса
SELECT UPPER(Fam) FROM ":Список:spisok.db"
видимых проблем нет ?

Mike Kouzmine (2005-09-10 07:43:00) [20]
А что до этого Fam?

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »