Советы по Delphi


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


/li>
  • Запускаем приложение.
  • Пример #3: Ввод псевдонима пользователем

    Этот пример выводит диалоговое окно и создает псевдоним на основе информации, введенной пользователем.

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

    1. Выполняем шаги 1-11 из примера #1.
    2. Пишем следующий обработчик события 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 thenbeginDatabase1.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;
    3. Запускаем приложение. [000035]




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



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