Продолжая использовать наш сайт, вы даете согласие на обработку файлов cookie, которые обеспечивают правильную работу сайта. Благодаря им мы улучшаем сайт!
Принять и закрыть

Читать, слущать книги онлайн бесплатно!

Электронная Литература.

Бесплатная онлайн библиотека.

РАЗМЕР ШРИФТА:
 
   
ШРИФТ:
   
ЦВЕТ ФОНА:       
   
ЦВЕТ ШРИФТА:       


Главная
Все книги
Назад
ЖАНРЫ
Читать: S. D. F. - W Cat на бесплатной онлайн библиотеке Э-Лит


Помоги проекту - поделись книгой:

250    begin // запрос выполнен

260      Hi.Lines.Add('ok');

270      Memo1.Clear; // и переход на закладку History

280      if DataModule2.IBSQL1.SQLType = SQLSelect

290       then PrintSELECT(S)  // распечатка результата запроса SELECT

300       else PageControl1.ActivePageIndex := 3;

310    end

320   else

330    begin // была ошибка

340     ShowMessage(Mistake); // сообщение об ошибке

350     Hi.Lines.Add('Error');

360     Hi.Lines.Add(Mistake); // запись в историю

370    end;

380  Hi.Lines.Add('------------');

390 end;

- Самое интересное происходит, когда запрос НЕ выполняется.

* Прочитал, все понятно, и над чем тут было биться?

- Все понятно? Отлично, объясни тогда строки 280, 290.

* Так, интересно. Определяется тип запроса и если это SELECT. Нечестно, ты еще ничего не сказал о PrintSELECT.

- Давай, это исправим:

010 procedure PrintSELECT(S:string);

020 var

030  i : integer;

040  a : string;

050  LHTML : TStringList;

060 begin

070  LHTML := TStringList.Create;

080   HTMLHead(LHTML);

090   LHTML.Add('<center><p> '+ s + '</p>');

100 with DataModule2.IBSQL1 do

110 if RecordCount > 0 then

120   BEGIN

130    LHTML.Add('<h2>'+UniqueRelationName+'</h2>');

140    LHTML.Add('<center><table cellspacing=0 cellpadding=0 ><tr>');

150    S := ''; // формирование заголовка таблицы

160       for i := 0 to Current.Count-1 do

170           S := S + '<th>'+ Fields[i].Name +'</th>';

180     S := S + '</tr>'; // конец заголовка таблицы

190    LHTML.Add(S); // печать заголовка таблицы

200     while not EOF do

210      begin

220       S := '<tr>';   //

230       for i := 0 to Current.Count-1 do

240         begin // формирование строки данных

250          a := Fields[i].AsString;

260          if a = '' then a := ' - ';

270          S := S + '<td>'+a+'</td>';

280         end; // for

290       Next;

300       S := S + '</tr>';

310      LHTML.Add(S);

320      end; // while

330   LHTML.Add('</table></center>');

340  END

350  ELSE

360  LHTML.Add('<h3> EMPTY</h3>');

370  LHTML.Add('</body>');

380  LHTML.SaveToFile(Path+'~.htm');

390    Web.Navigate(Path+'~.htm');

400    PageControl1.ActivePageIndex := 2;

410   LHTML.Free;

420 end;

* Не маленький кусочек.

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

* Да ладно, расхвастался, к делу. В начале готовится заголовок HTML.

- Ну это просто:

procedure HTMLHead(LHTML : TStringList);

begin

  LHTML.add('<html><head>');

  LHTML.add('<meta http-equiv=<Content-Type< content=<text/html; charset=windows-1251<>');

  LHTML.add('<style>');

 LHTML.add('table {border:1px solid #c3c3c3; border-collapse:collapse;');

 LHTML.add(' text-align: center; width:90%;}');

 LHTML.add('table th {background-color:#e5eecc; border:1px solid #c3c3c3;');

 LHTML.add('padding:3px; vertical-align:top; }');

 LHTML.add('table td {border:1px solid #c3c3c3; padding:3px; vertical-align:top;');

 LHTML.add('</style></head><body>');

end;

- Тут, я ничего объяснять не буду HTML сегодня не наша тема.

- В цикле стр 200 – 320 выдается результат предшествующего запроса. Остальное все просто.

* Опять, таки не вижу, чему тут гордится.

- Мартышка, к старости, слаба глазами, стала? У меня есть предложение, после того как мы закончим разговор, отложи этот файл в далекую папку, и через пол года, напиши такую же программу самостоятельно, пользуясь справочниками, интернетом, но не этим текстом. Вот тогда, посмотрим.

* Хорошо! Спорим, что я напишу лучше!

- Вполне возможно. Я буду только рад. Выиграет только вселенский разум.

* Ладно, успокоились, что у нас еще есть неясного.

* А, что такое MakeSQL – по смыслу делается строка запроса?

- Да, это очень простая функция, и возможно это надо еще упростить…

010 function MakeSQL:string;

020 var

030  i : integer;

040 begin





Поделиться книгой:



Регистрация

© Электронная библиотека Э-Лит.
Все права сохранены.

 ★ Для правообладателей ★ Пользовательское соглашение ★ Статистика ★