BD

[Killbrum]

Всем доброго времени суток! Вот тут пишу Базу Данных. И вопрос почему когда я пишу

if not (BookName.Locate('Фамилия', Edit1.Text, [loCaseInsensitive])) or (BookName.Locate('Имя', Edit2.Text, [loCaseInsensitive])) or (BookName.Locate('Отчество', Edit3.Text, [loCaseInsensitive])) then

то эта прцедура не выполняетса? тоисть если

if not BookName.Locate('Фамилия', Edit1.Text, [loCaseInsensitive]) then

то идет проверка на наличие чегото в поле 1, а если как первый вариант то проверка не идет вобще? Почему так?
Почему когда я переношу это все на Форм2 у меня подчеркиваетса loCaseInsensitive и говорит что неправильная команда хотя я пишу

if not Form1.BookName.Locate('Фамилия', Edit1.Text, [loCaseInsensitive] ...

Как зделать правильное удаление?
Я пишу

if BookName.IndexFieldCount<0 then
begin
Application.MessageBox('Больше нечего удалять','Внимание');
exit;
end
else
if MessageDlg('Удалить текущую запись?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then
BookName.Delete;

что тут нетак?

И последнее чем отличаетса AppendRecord от InsertRecord ? На практике разницы не заметил
Зарание большое спасибо за ответы

[Stilet]

то эта прцедура не выполняетса?

Думается мне что дело в том что locate перескакивает на найденую запись, тем самым мешая другим locate в этой упряжке.
Попробуй замени его на lookup

Почему когда я переношу это все на Форм2 у меня подчеркиваетса loCaseInsensitive и говорит что неправильная команда

НАпример модуль DB не подключен на форме...

что тут нетак?

Да все тут так. Пройдись по шагам. Доходит ли выполнение до удаления?

И последнее чем отличаетса AppendRecord от InsertRecord ?

А в хелп заглянуть?

[Killbrum]

Пробовал с lookup и оно мне орет что Стринг и Сет разные команды
Прошолся шагами. Самое интересное что до удаления то доходит )))) но манипулируя знаками и т.д. я не добилса того чтоб оно проверило или строк в таблице менше нуля. Тоисть в

   if BookName.IndexFieldCount<0 then  
   begin  
   Application.MessageBox('Больше нечего удалять','Внимание');  
   exit;  
   end  
   else  
    if MessageDlg('Удалить текущую запись?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then  
    BookName.Delete;

Делает оно всегда так

if BookName.IndexFieldCount<0 then  
   begin
else  
    if MessageDlg('Удалить текущую запись?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then  
    BookName.Delete;

[Killbrum]

Вот ещо проблемка
Почему когда я ввожу

if Edit1.Text<>'' then
Form1.BookName.Filtered:=true
else
Form1.BookName.Filtered:=false;
Form1.BookName.Filter:='Фамилия>'''+Edit1.Text+'''';

То оно коректно не ищет? Что тут не так?

[Killbrum]

Вот ещо в догонку вопросик. Почему когда я пишу

if Length(Edit7.Text)>0 then
Form1.BookName.Filtered:=true
else
Form1.BookName.Filtered:=false;
Form1.BookName.Filter:='Дом. Тел.>'''+Edit7.Text+'''';

то у меня возникает ошибка? "Аргументы имеют неверный тип, выходят за пределы диапазона, или входят в конфликт друг с другом" . Что я неправильно зделал?

[Serge_Bliznykov]

а скажите, Вы сознательно для текстовых (строковых) полей задаёте в фильтре условие "больше" ?
Теоретически, конечно, фамилия 'Сидоров' > фамилии 'Брежнев' :-)) но я бы на Вашем месте проверил.
Я думал, что Вы хотели отфильтровать записи, которые РАВНЫ заданным в EditXXX условиям...

Кстати, а "Дом.Тел." - это не числовое поле? :-)
Структуру исходной таблицы посмотрите...

[Killbrum]

Извените просто я не до конца понимаю что вы сказали . Я просто читаю 2 книги и в них все написано именно так как я тут выложил. Как проверять?
Да Дом.Тел - числовое а там по другому надо переводить? Извените меня просто я делаю как написано в книге а оно не получается :Р . Помогите исправить ошибки пожалуйста. Зарание большое спасибо!

[дмидми]

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

Помогите исправить ошибки пожалуйста

1. "Извините" пишется через "и".
2. Между "понимаю" и "что" нужна запятая. А также между "так" и "как", "Да" и "Дом.Тел.", "числовое" и "а" etc. вплоть до "ошибки" и "пожалуйста".
3. Показывать язык малознакомому человеку неприлично.
4. В слове "заранее" нет и никогда не было буквы "и".
5. Заранее - большое "пожалуйста".

(Добавлено.)
Уж если имитировать просторечие, то не "тоисть", а "тоись".

[Killbrum]

Извините меня пожалуйста просто учился я в Украинской школе. А Русское правописание изучаю в Мозиле

[дмидми]

Ну уж лапшу-то на уши вешать ни к чему. Украинцы в русском языке совсем другие ошибки делают.