Продолжение… Начало в теме - Немного о создаваемых динамически псевдонимах. Часть 1
if Query1.RecordCount <> 0 then
DataSource1.DataSet := Query1 // нужно отобразить итог выполнения запроса
else begin
ShowMessage('В БД вообще нет записей, которые удовлетворяют критерии нашего запроса.');
DataSource1.DataSet := Table1;
end;
end;
end;
// здесь щелчок на кнопке Все записи
procedure TForm1.Button2Click(Sender: TObject);
begin
DataSource1.DataSet := Table1; // источник данных - таблица
end;
// здесь активизация формы
procedure TForm1.FormActivate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
{ В том случае, когда файл данных в том же находиться каталоге,
что и сам файл выполняемый программы, то в проге,
путь именно к файлу данных получен может быть из командной
строки с помощью функции ExtractFilePath(ParamStr(0)).
В данном примере файл данных в подкаталоге находиться
DATA каталога программы. }
// давайте создадим для базы данных временный псевдоним
AddStandardAlias('Школа',
ExtractFilePath(ParamStr(0)) + 'DATA\',
'PARADOX');
Table1.Active := True; // здесь откроем базу данных
finally
ConfigMode := cmAll;
end;
end;
end;
end.
В приведенном выше варианте программки имеется ввиду, что находится база данных в подкаталоге DATA именно того каталога, находится в котором и выполняемый файл нашей программы.
Создает сам псевдоним вот такая процедура - TForm1.FormActivate. Само создание псевдонима процедура выполняет AddstandardAlias, которой передается в качестве параметра имя псевдонима и его имя каталога.
Потому как во время самой разработки проги невозможно точно знать, в каком именно каталоге размещена будет программа наша работы с базой данных и, выходя из этого, подкаталог базы данных под названием DATA, имя каталога во время самой работы программы определяется, путем запроса к функциям ParamStr(0) и еще ExtractFilePatch.
Значение первой функции – это есть полное имя файла выполняемой программы.
Вторая представляет собой путь к данному файлу.
Исходя из этого, процедуре AddstandardAiias полное имя передается каталога базы данных.
Спонсор поста: вас интересуют самые последние новости из мира мобильных телефонов? Заходите на веб-сайт mobi-info.ru. Только у нас размещены программы symbian, предназначенные для смартфонов, а также последняя информация о телефонах Nokia, Alcatel, Samsung.