150 'order by R.RDB$RELATION_NAME, R.RDB$FIELD_POSITION');
160 ExecQuery;
170 LHTML.Add('
');
180 LHTML.Add('
');
190 LHTML.Add('
');
200 LHTML.Add('
');
210 LHTML.Add('
');
220 LHTML.Add('
');
230 while not EOF do
240 begin
250 S := '
'+
260 '
'+
270 '
'+
280 '
';
290 LHTML.Add(s);
300 Next;
310 end;
320 LHTML.Add('
Position |
Name |
Length |
Type |
' +Fields[0].AsString + ' |
'+ trim(Fields[1].AsString)+' |
'+ trim(Fields[2].AsString) +' |
'+ FieadType(Fields[3].AsInteger)+' |
');
330 end;
340 end;
* А я стал привыкать к этим крокозябрам.
- Тем более, что текст во многом повторяется.
- Как видишь, на экран выдается название таблицы, а затем таблица с описанием полей.
* Погоди! А что это в 280 строке?
- О, кота то я, и не заметил.
function FieadType(n:integer):string;
begin
case n of
7 : result := 'smallint';
8 : result := 'integer';
9 : result := 'quad';
10 : result := 'float';
11 : result := 'd_float';
12 : result := 'date';
13 : result := 'time';
14 : result := 'char';
27 : result := 'double';
35 : result := 'date';
37 : result := 'varchar';
261 : result := 'blob';
else result := IntToStr(n)+' ?';
end; // case
end;
В результате отобразится, нечто такое:

- * -
- Ну, и чего так долго, конечно, пива много не бывает, но…
* В общем-то, получилось, но никак не могу скопировать получившееся.
- Да, есть такая задача. Вставь в самом конце (перед end.) в файле Unit1:
initialization
OleInitialize(nil);
finalization
OleUninitialize;
А в самом начале этого файла вставь ActiveX в разделе uses.
* Так, просто! Да что же это такое. Просто хочется рвать и метать!!
- Это Windows.
* Ну, что теперь отображаем данные?
- Нет, не к спеху, да и отображать еще нечего, давай отдохни, а я подготовлюсь к последнему рывку.
«Продолжение следует»
- Предлагаю вернуться к выполнению SQL запроса.
- Бывают запросы SELECT и все остальные. Результат выполнения SELECT – будем выдавать в закладку result, а остальные просто выполнять.
- Переделываем Button1Click:
010 procedure TFMain.Button1Click(Sender: TObject);
020 begin // кнопка run SQL
030 RunSQL(MakeSQL); // выполение команды SQL
040 end;
- Пойдем дальше.
- Теперь можно заняться кнопочкой «Show Data»
010 procedure TFMain.Button5Click(Sender: TObject);
020 var
030 i : integer;
040 S : string;
050 begin // Show Data
060 with CheckListBox1 do
070 begin // составляем список полей
080 if Items.Count = 0 then exit; // если список пуст - уходим
090 S := 'SELECT ';
100 for i := 0 to Items.Count - 1 do // список полей вставляем в запрос
110 if Checked[i] then
120 S := S + LowerCase(Items[i]) + ', ';
130 end; // with CheckListBox1
140 delete(S, length(S)-1, 2);
150 Memo1.Clear;
160 Memo1.Lines.Add(S);
170 S := 'FROM '+ LowerCase( ListBox1.Items[ ListBox1.ItemIndex] );
180 Memo1.Lines.Add(S);
190 RunSQL( MakeSQL);
200 end;
- Тут все должно быть ясно: кнопка вырабатывает команду SELECT для полей отмеченных галочкой и распечатывает результат.
* Ну, как теперь-то все готово.
- Вот же шило в одном месте. Ладно, следующий пункт:
- Как ты помнишь, тренироваться мы будем по книге Мартина Грубера «Понимание SQL»[1], при потребности будем поглядывать в «Firebird. Руководство разработчика баз данных» Хелен Борри[2].
* Ну и в интернете найдется масса материала.
- Для нашей игры понадобится база с определенными таблицами, полюбуйся на них приложении к [1].
* Не сказать, что 3 таблицы это очень много, но…
- Я так понимаю, что тебе лень, а лень двигатель прогресса.
- В данном случае, я тебе помогу…
- На закладке SQL ставим еще одну кнопку «Run SQL by List».
- Будут выполнятся запросы записанные в текстовом файле.
- Каждый запрос должен заканчиваться «;», допускается перенос запроса на несколько строк, не допускается несколько запросов в одной строке.
- Не отображается результат запросов SELECT
- При ошибочном запросе, выполнение списка прекращается.
010 procedure TFMain.Button6Click(Sender: TObject);
020 var
030 i : integer;
040 L : TStringList;
050 S : string;
060 begin // Run SQL by List
070 with OpenDialog1 do
080 begin // подготавливаем диалог
090 Filter := 'File with SQL|*.txt';
100 DefaultExt := 'txt';
110 if Execute then
120 with DataModule2 do
130 begin
140 L := TStringList.Create;
150 L.LoadFromFile(FileName); // открываем файл
160 His.Lines.Add('Run SQL by List '+FileName);// запись в историю
170 S := '';
180 for i := 0 to L.Count - 1 do
190 begin
200 S := S + ' ' + L[i]; // складываем строки
210 if pos(';', S) > 0 then // пока в строке не появится ';'
220 begin
230 S := trim(S); // ??
240 His.Lines.Add(S); // записываем запрос в историю
250 if RunSQL(S) then break; // если запрос не выполнился выходим.
260 S := '';
270 end; // if
280 end; // for
290 L.Free;
300 end; // if Execute
310 end; // OpenDialog1
320 end;
* В общем все понятно…
* Что за безобразие, хочу чтобы SELECT тоже выполнялись списком.
- Надо подумать. Минуточку. «Раз, два... Меркурий во втором доме... луна ушла... шесть – несчастье... вечер – семь...»
Читать дальше