Чтение онлайн

на главную - закладки

Жанры

Cat W

Шрифт:

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

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> '+ s + '');

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

050 result := '';

060 with FMain.Memo1 do

070 for i := 0 to Lines.Count - 1 do

080 if trim(Lines[i]) <> '' then

090 begin

100 FMain.His.Lines.Add(Lines[i]);

110 result := result + Lines[i] + ' ';

120 end;

130 result := trim(result);

140 end;

Все, что находится в Memo1 записывается в одну строку(стр. 110) и одновременно сохраняется в истории(стр. 100).

* Так значит мы можем теперь выполнять SQL запросы?

– И да, и нет.

* ??

– Выполнять запросы можем, но не всегда увидим результат. Ну, еще не все готово.

* Так давай! Беги, покупай, эти тр-ан-зис-то-ры!

– Не спеши. Выполним, те SQL, что запланированы.

– Но сначала еще одна мелочь. Сделай обработчик для кнопки Show DB это на самой первой закладке.

procedure TFMain.Button3Click(Sender: TObject);

begin // Show DB

 ShowTables;

end;

???????

Первые запросы

– Ну, что, давай попробуем.

– Открой или сделай новую базу и выполни следующий запрос:

CREATE TABLE Salespeople

( snum integer,

sname char (10),

city char (10),

comm decimal );

* Говорит что все OK.

– Перейди на первую закладку и нажми кнопку Show DB.

* Ура!! Заработало!!

– Рано кричать, закрой программу, включи опять и открой твою базу.

* Есть, таблица сразу отобразилась.

* Есть вопросик, для чего у нас на форме CheckListBox1 и закладка Result.

– Ну, с итоговой закладкой погоди, а вот по первому пункту поболтаем.

Поделиться:
Популярные книги

Шериф

Астахов Евгений Евгеньевич
2. Сопряжение
Фантастика:
боевая фантастика
постапокалипсис
рпг
6.25
рейтинг книги
Шериф

Кодекс Охотника. Книга VI

Винокуров Юрий
6. Кодекс Охотника
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Кодекс Охотника. Книга VI

Адаптация

Кораблев Родион
1. Другая сторона
Фантастика:
фэнтези
6.33
рейтинг книги
Адаптация

Темный Патриарх Светлого Рода 4

Лисицин Евгений
4. Темный Патриарх Светлого Рода
Фантастика:
фэнтези
юмористическое фэнтези
аниме
5.00
рейтинг книги
Темный Патриарх Светлого Рода 4

Как я строил магическую империю

Зубов Константин
1. Как я строил магическую империю
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Как я строил магическую империю

Ротмистр Гордеев 2

Дашко Дмитрий
2. Ротмистр Гордеев
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Ротмистр Гордеев 2

Проданная Истинная. Месть по-драконьи

Белова Екатерина
Любовные романы:
любовно-фантастические романы
5.00
рейтинг книги
Проданная Истинная. Месть по-драконьи

Мимик нового Мира 10

Северный Лис
9. Мимик!
Фантастика:
юмористическое фэнтези
альтернативная история
постапокалипсис
рпг
5.00
рейтинг книги
Мимик нового Мира 10

СД. Том 14

Клеванский Кирилл Сергеевич
Сердце дракона
Фантастика:
фэнтези
героическая фантастика
7.44
рейтинг книги
СД. Том 14

Убивать чтобы жить 2

Бор Жорж
2. УЧЖ
Фантастика:
героическая фантастика
боевая фантастика
рпг
5.00
рейтинг книги
Убивать чтобы жить 2

Иван Московский. Том 5. Злой лев

Ланцов Михаил Алексеевич
5. Иван Московский
Фантастика:
попаданцы
альтернативная история
6.20
рейтинг книги
Иван Московский. Том 5. Злой лев

Купидон с топором

Юнина Наталья
Любовные романы:
современные любовные романы
7.67
рейтинг книги
Купидон с топором

Не кровный Брат

Безрукова Елена
Любовные романы:
эро литература
6.83
рейтинг книги
Не кровный Брат

Хозяйка Междуречья

Алеева Елена
Фантастика:
фэнтези
попаданцы
5.00
рейтинг книги
Хозяйка Междуречья