Советы по Delphi


Задание псевдонима программным путем - часть 2


/li>
  • Запускаем приложение.
  • *** В качестве альтернативы шагам 3 - 11, вы можете включить все эти действия в сам обработчик:

    procedure TForm1.Button1Click(Sender: TObject);beginDatabase1.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 LANGDRIVER= SQLQRYMODE= SQLPASSTHRU MODE=NOT SHARED SCHEMA CACHE TIME=-1 PASSWORD=
    7. Устанавливаем следующие параметры 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
    8. В компоненте TDatabase свойство LoginPrompt устанавливаем в 'False'. Если в секции перекрытых параметров (Parameter Overrides) задан пароль (ключ PASSWORD) и свойство LoginPrompt установлено в 'False', при соединении с базой данный пароль запрашиваться не будет. Предупреждение: при неправильно указанном пароле в секции Parameter Overrides и неактивном свойстве LoginPrompt вы не сможете получить доступ к базе данных, поскольку нет возможности ввести правильный пароль - диалоговое окно "Ввод пароля" отключено свойством LoginPrompt.
    9. Нажимаем кнопку OK и закрываем окно редактора.
    10. В компоненте TQuery свойству DatabaseName присваиваем 'MyNewAlias'.
    11. В компоненте TDataSource свойству DataSet присваиваем 'Query1'.
    12. В компоненте DBGrid свойству DataSource присваиваем 'DataSource1'.
    13. Создаем в компоненте TButton обработчик события OnClick.
      procedure TForm1.Button1Click(Sender: TObject);beginQuery1.SQL.Clear;Query1.SQL.ADD('SELECT DISTINCT * FROM CUSTOMER C, SALES SWHERE (S.CUST_NO = C.CUST_NO)ORDER BY C.CUST_NO, C.CUSTOMER');Query1.Active:= True;end;
      <


      Начало  Назад  Вперед



      Книжный магазин