Текст предназначен для продвинутых пользователей, пишущих свои программы доступа к данным, при переходе на ADT:

 

Adt файлы входят в словарь Data.Add.

При открытии справочников или баз данных необходимо указывать путь на словарь данных (Например, F:\APPLICAT\REFLIS\Data.Add)

В словаре зарегистрирован пользователь USER, пока без пароля

 

Пример открытия справочника R13.dbf

 

 

var Connection:TADSConnection;Table:TAdsTable;

begin

  Connection:=TADSConnection.create(Application);

  With Connection do

           begin

                  ConnectPath:='F:\APPLICAT\REFLIS\Data.Add';

                   LoginPrompt:=false;

                   Username:='USER';

            end;

 

  Table:= TAdsTable.Create(Application)

  With Table do

          begin

              TableType:=ttAdsADT;

              AdsTableOptions.AdsCharType:=ANSI;

              AdsTableOptions.AdsRightsCheck:=False;

              AdsConnection:=Connection;

              DatabaseName:=Connection.ConnectPath;

              TableName:='R13';

               Open;

 

              ....

 

 

              Free;

          end;

Connection.Free;