Читать «Советы по Delphi. Версия 1.0.6» онлайн - страница 36

Валентин Озеров

Некоторые варианты решения задачи:

Пример #1: Пример #1 создает и конфигурирует псевдоним для базы данных STANDARD (.DB, .DBF). Псевдоним затем используется компонентом TTable.

Пример #2: Пример #2 создает и конфигурирует псевдоним для базы данных INTERBASE (.gdb). Псевдоним затем используется компонентом TQuery для подключения к двум таблицам базы данных.

Пример #3: Пример #3 создает и конфигурирует псевдоним для базы данных STANDARD (.DB, .DBF). Демонстрация ввода псевдонима пользователем и его конфигурация во время выполнения программы.

Пример #1: Используем базу данных .DB или .DBF (STANDARD)

1. Создаем новый проект.

2. Располагаем на форме следующие компоненты: – TDatabase, TTable, TDataSource, TDBGrid, and TButton.

3. Дважды щелкаем на компоненте TDatabase или через контекстное меню (правая кнопка мыши) вызываем редактор базы данных.

4. Присваиваем базе данных имя 'MyNewAlias'. Это имя будет выполнять роль псевдонима в свойстве DatabaseName для компонентов типа TTable, TQuery, TStoredProc.

5. Выбираем в поле Driver Name (имя драйвера) пункт STANDARD.

6. Щелкаем на кнопке Defaults. Это автоматически добавляет путь (PATH=) в секцию перекрытых параметров (окно Parameter Overrides).

7. Устанавливаем PATH= to C:\DELPHI\DEMOS\DATA (PATH=C:\DELPHI\DEMOS\DATA).

8. Нажимаем кнопку OK и закрываем окно редактора.

9. В компоненте TTable свойству DatabaseName присваиваем 'MyNewAlias'.

10. В компоненте TDataSource свойству DataSet присваиваем 'Table1'.

11. В компоненте DBGrid свойству DataSource присваиваем 'DataSource1'.

12. Создаем в компоненте TButton обработчик события OnClick.

procedure TForm1.Button1Click(Sender: TObject);

begin

 Table1.Tablename:= 'CUSTOMER';

 Table1.Active:= True;

end;

13. Запускаем приложение.

*** В качестве альтернативы шагам 3 – 11, вы можете включить все эти действия в сам обработчик:

procedure TForm1.Button1Click(Sender: TObject);

begin

 Database1.DatabaseName:= 'MyNewAlias';

 Database1.DriverName:= 'STANDARD';

 Database1.Params.Clear;

 Database1.Params.Add('PATH=C:\DELPHI\DEMOS\DATA');

 Table1.DatabaseName:= 'MyNewAlias';

 Table1.TableName:= 'CUSTOMER';

 Table1.Active:= True;

 DataSource1.DataSet:= Table1;

 DBGrid1.DataSource:= DataSource1;

end;

Пример #2: Используем базу данных INTERBASE

1. Создаем новый проект.

2. Располагаем на форме следующие компоненты: – TDatabase, TQuery, TDataSource, TDBGrid, and TButton.

3. Дважды щелкаем на компоненте TDatabase или через контекстное меню (правая кнопка мыши) вызываем редактор базы данных.

4. Присваиваем базе данных имя 'MyNewAlias'. Это имя будет выполнять роль псевдонима в свойстве DatabaseName для компонентов типа TTable, TQuery, TStoredProc.

5. Выбираем в поле Driver Name (имя драйвера) пункт INTRBASE.

6. Щелкаем на кнопке Defaults. Это автоматически добавляет путь (PATH=) в секцию перекрытых параметров (окно Parameter Overrides).

SERVER NAME=IB_SERVEER:/PATH/DATABASE.GDB

USER NAME=MYNAME

OPEN MODE=READ/WRITE

SCHEMA CACHE SIZE=8