|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Изменение месторасположения PDOXUSRS.NET-файла во время работы
Кто-нибудь знает как изменить месторасположение файла PDOXUSRS.NET
во время выполнения программы? Тем, кого волнует этот вопрос, могу ответить - Элементарно, Ватсон! В Delphi, и в BilderC++ тоже, существует невизуальный компоненент Session, который осуществляет общее управление связыванием приложения с базами данных. Свойства и Методы этого компанента подробно изложены в книге А.Я. Архангельского "Delphi 7 справочное пособие". Издательство "БИНОМ" Москва, 2003 год, на страницах 711 - 716. Используя выше сказанное предлагаю свой код программы. Код на Delphi Код:
procedure TForm1.FormCreate(Sender: TObject); begin Session.AutoSessionName := False; //Запретить создание сессии автоматически Session.SessionName := 'New Session';//Задать имя сессии, какое Вам нравится Table1.SessionName := Session.SessionName; //Присвоить свойству таблици имя сессии //Указать директортю для файла PDOXUSRS.NET Session.NetFileDir := Table1.DatabaseName; //Это директория БД //Или нужная Вам директория, например //Session.NetFileDir := 'D:\'; Session.Active := True; //Активизировать новую сессию Table1.TableType := ttParadox; //Присвоить свойству Таблици значение Table1.Active := True; //Активировать Таблицу end; Код:
void __fastcall TForm1::FormCreate(TObject *Sender) { Session->AutoSessionName = false;//Запретить создание сессии автоматически Session->SessionName = "New Session";//Задать имя сессии, какое Вам нравится Table1->SessionName = Session->SessionName; //Присвоить свойству таблици имя сессии //Указать директортю для файла PDOXUSRS.NET Session->NetFileDir = Table1->DatabaseName; //Это директория БД //Или нужная Вам директория, например //Session->NetFileDir = "D:\\"; Session->Active = true; //Активизировать новую сессию Table1->TableType = ttParadox; /.Присвоить свойству Таблици значение Table1->Active = true; //Активировать Таблицу } Элементарней некуда! Последний раз редактировалось Admin, 14.09.2010 в 13:44. |