Ctri+V

[DAOSisTeaMm]

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

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

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

Пример #1: Используем базу данных .DB или .DBF (STANDARD)
Создаем новый проект.
Располагаем на форме следующие компоненты: - TDatabase, TTable, TDataSource, TDBGrid, and TButton.
Дважды щелкаем на компоненте TDatabase или через контекстное меню (правая кнопка мыши) вызываем редактор базы данных.
Присваиваем базе данных имя 'MyNewAlias'. Это имя будет выполнять роль псевдонима в свойстве DatabaseName для компонентов типа TTable, TQuery, TStoredProc.
Выбираем в поле Driver Name (имя драйвера) пункт STANDARD.
Щелкаем на кнопке Defaults. Это автоматически добавляет путь (PATH=) в секцию перекрытых параметров (окно Parameter Overrides).
Устанавливаем PATH= to C:\DELPHI\DEMOS\DATA (PATH=C:\DELPHI\DEMOS\DATA).
Нажимаем кнопку OK и закрываем окно редактора.
В компоненте TTable свойству DatabaseName присваиваем 'MyNewAlias'.
В компоненте TDataSource свойству DataSet присваиваем 'Table1'.
В компоненте DBGrid свойству DataSource присваиваем 'DataSource1'.
Создаем в компоненте TButton обработчик события OnClick.
--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Tablename:= 'CUSTOMER';
Table1.Active:= True;
end;

Запускаем приложение.
*** В качестве альтернативы шагам 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
Создаем новый проект.
Располагаем на форме следующие компоненты: - TDatabase, TQuery, TDataSource, TDBGrid, and TButton.
Дважды щелкаем на компоненте TDatabase или через контекстное меню (правая кнопка мыши) вызываем редактор базы данных.
Присваиваем базе данных имя 'MyNewAlias'. Это имя будет выполнять роль псевдонима в свойстве DatabaseName для компонентов типа TTable, TQuery, TStoredProc.
Выбираем в поле Driver Name (имя драйвера) пункт INTRBASE.
Щелкаем на кнопке Defaults. Это автоматически добавляет путь (PATH=) в секцию перекрытых параметров (окно Parameter Overrides).
SERVER NAME=IB_SERVEER:/PATH/DATABASE.GDB
USER NAME=MYNAME
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=NOT SHARED
SCHEMA CACHE TIME=-1
PASSWORD=

Устанавливаем следующие параметры
SERVER NAME=C:\IBLOCAL\EXAMPLES\EMPLOYEE.GDB
USER NAME=SYSDBA
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=NOT SHARED
SCHEMA CACHE TIME=-1
PASSWORD=masterkey

В компоненте TDatabase свойство LoginPrompt устанавливаем в 'False'. Если в секции перекрытых параметров (Parameter Overrides) задан пароль (ключ PASSWORD) и свойство LoginPrompt установлено в 'False', при соединении с базой данный пароль запрашиваться не будет. Предупреждение: при неправильно указанном пароле в секции Parameter Overrides и неактивном свойстве LoginPrompt вы не сможете получить доступ к базе данных, поскольку нет возможности ввести правильный пароль - диалоговое окно "Ввод пароля" отключено свойством LoginPrompt.
Нажимаем кнопку OK и закрываем окно редактора.
В компоненте TQuery свойству DatabaseName присваиваем 'MyNewAlias'.
В компоненте TDataSource свойству DataSet присваиваем 'Query1'.
В компоненте DBGrid свойству DataSource присваиваем 'DataSource1'.
Создаем в компоненте TButton обработчик события OnClick.
--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.SQL.Clear;
Query1.SQL.ADD(
'SELECT DISTINCT * FROM CUSTOMER C, SALES S
WHERE (S.CUST_NO = C.CUST_NO)
ORDER BY C.CUST_NO, C.CUSTOMER');
Query1.Active:= True;
end;

Запускаем приложение.
Пример #3: Ввод псевдонима пользователем
Этот пример выводит диалоговое окно и создает псевдоним на основе информации, введенной пользователем.

Директория, имя сервера, путь, имя базы данных и другая необходимая информация для получения псевдонима может быть получена приложением из диалогово окна или конфигурационного .INI файла.


Выполняем шаги 1-11 из примера #1.
Пишем следующий обработчик события OnClick компонента TButton:
--------------------------------------------------------------------------------
procedure TForm1.Buttton1Click(Sender: TObject);
var

NewString: string;
ClickedOK: Boolean;
begin

NewString := 'C:\';
ClickedOK := InputQuery('Database Path',
'Path: --> C:\DELPHI\DEMOS\DATA', NewString);
if ClickedOK then
begin
Database1.DatabaseName:= 'MyNewAlias';
Database1.DriverName:= 'STANDARD';
Database1.Params.Clear;
Database1.Params.Add('Path=' + NewString);
Table1.DatabaseName:= 'MyNewAlias';
Table1.TableName:= 'CUSTOMER';
Table1.Active:= True;
DataSource1.DataSet:= Table1;
DBGrid1.DataSource:= DataSource1;
end;
end;

Запускаем приложение. [000035]

[wLiim3R]

[00:02:39] <ram1z> четакое флудиш
[00:02:39] <-_-wLiim3R_K!nG-_-> занят или еще чо нить,потом напишу -_-
[00:02:57] <-_-wLiim3R_K!nG-_-> флуд
[00:02:59] <-_-wLiim3R_K!nG-_-> вкурсе
[00:03:00] <-_-wLiim3R_K!nG-_-> чо такое?
[00:03:15] <ram1z> нет

[Птычка]

http://greendayauthority.com/music/meanings/21cb

[wLiim3R]

___9117;'___9120; ___9117;'___9120;
________ 22222222

[Medved]

magnet:?xt=urn:tree:tiger:ISPFWMIONJLNTZBLF52FSMPV SZ4FJ3B3KGCWS4Q&xl=358410240&dn=Warehouse.13.s01e0 5.avi

[wLiim3R]

___12484; хы111111!!

[HeLioS]

Приключения яиц и цыпленка

[Immelman]

[19:14:11] <Crystal.> solker: норм размер, но качество желает лучшего т.е не картинки, а воспроизведение видео

[Immelman]

[02:41:27] <Sacrament> ...
[02:41:37] <Sacrament> я пива набухался
[02:41:41] <Sacrament> че делать
[02:41:59] <JoNn!> скока надо выпить чтоб от пива набухатса )
[02:42:04] <JoNn!> литров
[02:42:08] <Sacrament> меня напоили уроды
[02:42:13] <JoNn!> клизма?
[02:42:15] <JoNn!> ))
[02:42:30] <--==Wolk==-->
[02:42:33] <Sacrament> 3 литра не меньше выпил
[02:43:09] <Sacrament> правда незнаю насколько больше
[02:46:02] <--==Wolk==--> если не чем не убиватся и с оргонизмом дружить то всё будет заеби.......
[02:46:30] <JoNn!> что значит с организмом дружить?
[02:46:40] <--==Wolk==--> ненаю
[02:46:48] <JoNn!> если ни чем не убиватса то уже дружба)
[02:46:58] <JoNn!> скучная правдо
[02:47:05] <Sacrament> типа
[02:47:06] <--==Wolk==--> хаха
[02:47:13] <Sacrament> непереборщить
[02:48:35] <Sacrament> смотря
[02:48:47] <Sacrament> чем убиться
[02:48:56] <Sacrament> можно
[02:48:59] <Sacrament> убиться
[02:49:19] <Sacrament> алкоголем
[02:49:22] <Sacrament> можно
[02:49:25] <Sacrament> убиться
[02:49:29] <Sacrament> дурью
[02:49:35] <--==Wolk==--> хм разница
[02:49:39] <--==Wolk==--> главно убится
[02:49:42] <Sacrament> можно убиться героином
[02:49:45] <--==Wolk==--> а чем уже не важно
[02:49:49] <Sacrament> можно убиться
[02:50:03] <--==Wolk==--> можно убится об стену
[02:50:10] <Sacrament> от
[02:50:20] <Sacrament> суицида
[02:50:21] <Sacrament> )
[02:50:24] <--==Wolk==--> ахха
[02:50:25] <--==Wolk==--> лол
[02:50:32] ** Egshm. playing: Wisp - Cultus Klatawa (320kbps)
[02:50:33] <--==Wolk==--> афк нахер спат
[02:50:40] <--==Wolk==--> ато тут суицидники пришли
[02:50:41] <--==Wolk==--> ахахаха
[02:50:56] <--==Wolk==--> лол
[02:51:10] <JoNn!> а можно вены порезать)
[02:51:11] <JoNn!> ахахахаха
[02:51:15] <Sacrament> суицид
[02:51:21] <JoNn!> и чолку отростить
[02:51:29] <Sacrament> это сатанинская тема
[02:51:36] <JoNn!> )))
[02:51:42] <Sacrament> а я не сатанист


Эээ, как там? Мы живем в непобедимой стране. У них какой-то свой язык и вроде даже понимают друг друга :D
Сейте разумное, доброе, вечное
Вот красненьким мне больше всего понравилось :D

[KusoK]

21:47:23] <Boots.> афк дрочить
[21:47:28] <-_-KusoK-_-> удачки
[21:48:10] <Boots.> мне твоя удача не нужна ! падонаг
[21:48:11] <Boots.> жв
[21:48:42] <Boots.> заразил мення этой ...ней потом удачи желает !
[21:48:53] <Boots.> \уй в пиз\у !