- В книге оказалось, очень много ошибок. Ну, очень много ошибок, и все они полезные.
* Догадываюсь, задумано издевательство.
- Точно! Мне так понравилась идея с ошибками, что я задумался, не наделать их и в этом тексте.
* Вот этого, не надо!
- Хорошо, но ошибки неизбежны, где-то что-то я упущу, в этом случае я сделаю вид, что все так и задумано…
* Ну, ты и жук!
- Учись, студент. Учись, как сдавать программу заказчику, главное держать невозмутимое выражение морды лица: “Как, при запуске программы включилось форматирование диска? Ну, это у вас устаревший Windows, давайте я его переставлю, это будет стоить… что, при этом утеряны данные за 3 года работы. Но, это же хорошо (хорошо-то хорошо, да ничего хорошего – что бы еще соврать) – Слава, Богу, это был только сон…”
* Хе-хе, ну у тебя и шуточки. Давай все-таки вернемся к книге [1].
- Да! Как я уже раньше думал сказать, если бы все примеры в книге были бы без ошибок, пользы от нее было бы намного меньше. Копируй запросы, выполняй, проверяй результат… скучно. А тут, наполненная описками жизнь бурлит и хлещет.
* И какие там ошибки?
- Например:
SELECT sname, sity
FROM Salespeople;
WHERE city=LONDON;
или еще:
SELECT * FROM Order WHERE NOT
((odate=10/03/1990 AND cnum < > 1002)OR amt > 2000.00);
- Тут пару ошибок достаточно очевидны (лишний символ “;” и нет апострофов вокруг даты ну и прочее, и прочее.
- В процессе поиска ошибок, возникла потребность изменить программу. А именно, при ошибке выводится сообщение, и часто там указывается на какой строке, и в какой позиции найдена ошибка. Проблема в том, что на исполнение мы даем запрос одной строкой, и соотнести место ошибки, с тем, что на экране…
- Посему, изменяем RunSQL
В разделе переменных добавляем:
LPos : integer; // позиция ошибки
- Между строками 330 и 340 добавляем текст:
330 begin // была ошибка
331 Memo1.Clear;
332 Memo1.Lines.Add(S); // перезапись запроса одной строкой
333 LPos := GetSelStart(Mistake); // поиск места ошибки
334 if LPos > -1 then begin
335 Memo1.SelStart := LPos-1; // вкл индикатора
336 Memo1.SelLength := 1;
337 Memo1.SetFocus;
338 Panel5.Caption := IntToStr(LPos); // дополнительная информ.
339 end;
340 ShowMessage(Mistake); // сообщение об ошибке
- Как видишь, GetSelStart получает строку с описанием ошибки и пытается найти там информация о ее позиции:
function GetSelStart(S: string):integer;
var
i, n : integer;
ss : string;
begin
result := -1;
n := pos('column ',S);
if n > 0
then begin
delete(S,1,n+6);
ss := '';
for i := 1 to length(s) do
if S[i] in ['0'..'9']
then ss := ss + s[i]
else break;
if ss <> '' then
result := StrToInt(ss);
// ShowMessage(S);
end;
end;
- Согласись, тут все довольно просто. Но результат, впечатляет.
- Да, как всегда, что-то да упустишь, во-первых, в компоненте Memo1 измени свойство HideSelection на false – очень помогает, и второе под этим Memo поставь панельку (у меня это Panel5), которая будет показывать текущее положение курсора в строке, для этого вставь обработчик:
procedure TFMain.Memo1Click(Sender: TObject);
begin
Panel5.Caption := IntToStr( Memo1.SelStart );
end;
* Ну, ты загонял, то тут добавить, то там исправить.
- С моей точки зрения, это нормальная работа. Программа, как и живое существо, не рождается полностью функционирующей. Растем, развиваемся, главное, четко понимать, почему и для чего производятся эти манипуляции…
- Ну, что, теперь, твоя очередь тестировать программу.
- * -
- * -
- Ну, как успехи. Выходит?
* И входит, и выходит. Вообще-то мне нравится, но я обнаружил бревно в твоем глазу.
* Как-то раз вылезло такое сообщение:
“Cannot perform operation - DB is currently open”
- Так, так, в каких обстоятельствах появилась ошибка.
* Я отрывал базу.
- И чё сея строчка значит?
* Грит не может выполнять работу – база сейчас открыта.
- Объясни понятнее.
* Т.е. не может открыть базу, потому, что она уже открыта.
- Не обязательно она, но какая-то база открыта.
* Ну, и чего делать?
- Конечно, исправлять.
* Как?
- Думай.
* Ну, если какая-то база открыта, надо ее закрыть.
- Отлично, вот тебе две строчки, вставь их в двух местах… где сам найдешь.
if IBDatabase1.Connected then
IBDatabase1.Connected := false;
* Ты хочешь сказать, что все было запланировано?
- J
- Еще, есть целый ряд ситуаций в книге [1] которые формально не являются ошибкой, но…
* Ну-ка, ну-ка.
- Например такой запрос:
SELECT first.cname, second.cname, first.rating
FROM Customers first, Customers second
WHERE first.rating=second.rating;
* И в чем прикол?
- Попробуй.
* Останавливается на слове second.
- Я тоже не сразу понял, открой в книге [2] список зарезервированных слов.
* Да, не все йогурты одинаковы.
- Как и реализации SQL, но, все они полезны.
* Еще я заметил, что в некоторых случаях запросы выполняется, но порядок строк, не такой как в книге [1].
- Это, та же ситуация. Разные реализации SQL имеют разные установки (по умолчанию) для сортировки, т.е. если будет явно задан порядок, тогда таблица должны 100% совпасть.
* Так, что, задача выполнена?
- Нет, не совсем.
* И в чем дело, какие-то исправления?
- Поправки? Да, так, по мелочи, SetFocus для Memo1 при сбросах.
* И что дает?
- Попробуй, удобнее. Но как сказано это мелочь, а интереснее двигаться дальше.
* А куда дальше, мне кажется, что у меня появилось понимание SQL. Правда, хочется еще раз внимательно перечитать книгу [1].
- Это хорошо, но требуется еще понимание Firebird.
* ?
- Ну, вот сейчас, мы выяснили, что требуется знать зарезервированные слова Firebird. Но в этой системе есть и много вкусненького, что грех не использовать.
* Например?
- Мне очень нравится организация функции AutoIncrement.
- Часто в таблица нужно ключевое поле с уникальными значениями, проще всего его заполнять значениями счетчика.
- Знакомься:
CREATE GENERATOR gl;
SET GENERATOR gl TO 1;
CREATE TRIGGER Persons FOR Persons
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.P_Id IS NULL) THEN
NEW.P_Id = GEN_ID(gl, 1);
END
// (- * -) умножить примерно на 1024.
* Продолжение следует??
- Даже не знаю, что тебе ответить. Предыдущий текст я писал примерно год назад, затем запал спал, появились новые задачи, то да сё, сам понимаешь.
* Не отбрешешься!
- Да, помнится, были задумки, но чтобы продолжить надо опять сосредоточится в нужное состояние, лень! А стоит ли!
* А я?!
- Ну, давай прикинем, сколько это будет «я». Скачают, сей файл раз 100 – 200, если отфильтровать скачки по ошибке, удаленные по прочтении двух предложений, прочтенные, но не понятые, и тд и тп, то останется 0.75 читателя, пусть из вежливости будет 1.
Так вот, мой дорогой единственный читатель, ежели тебе, почему-то захотелось продолжения нашего общения, оставь отзыв на флибусте (flibusta.net) я там регулярно пасусь.
А пока, прощаюсь. Успехов!
W Cat.