Динамически создаваемые псевдонимы

unit school3_;
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls;
 
type
TForm1 = class(TForm)
Table1: TTable; // таблица (вся база данных)
Query1: TQuery; // запрос (записи БД, удовлетворяющие критерию выбора)
DataSource1: TDataSource; // источник данных - таблица или запрос
DBGrid1: TDBGrid; // таблица для отображения БД или результата выполнения запроса
 
DBNavigator1: TDBNavigator;
DBText1: TDBText;
Button1: TButton; // кнопка запрос
Button2: TButton; // кнопка Все записи
 
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
 
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
{$R *.DFM}
 
// щелчок на кнопке Запрос
 
procedure TForm1.Button1Click(Sender: TObject);
var
 
fam: string[30];
 
begin
 
fam:=InputBox('Выборка информации из БД',
'Укажите фамилию и щелкните на OK.', '');
 
if fam <> '' then// пользователь ввел фамилию
begin
 
with form1.Query1 do 
begin
 
Close; // закрыть файл-результат выполнения предыдущего запроса
SQL.Clear; // удалить текст предыдущего запроса
// записываем новый запрос в свойство SQL
SQL.Add('SELECT Fam, Name, Class');
SQL.Add('FROM ":Школа:school.db"');
SQL.Add('WHERE');
SQL.Add('(Fam = "'+ fam + '")');
SQL.Add('ORDER BY Name, Fam');
Open; // активизируем выполнение запроса
 
end;
 
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.