Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Когда во время разработки вы устанавливаете "DataSource"-свойство в БД-компонентах для указания на модуль данных, VCL во время выполнения приложения будет пытаться создать связь с существующим TDataModule, основываясь на его свойтсве Name. Так, если вы добавите модуль данных к вашему проекту и переместите его в свойстве проекта из колонки автоматически создаваемых форм в колонку доступных, вы сможете разработать форму, содержащую элементы управления для работы с базами данных, после чего несколькими строчками кода можете создать экземпляр формы, имеющий экземпляр собственного модуля данных.

С помощью Репозитория создайте "standard MDI application" (стандартное MDI-приложение), в котором модуль TMDICHild будет похож на приведенный ниже. Добавленные строки имеют комментарий {!}. Хитрости спрятаны в конструкторе create и задании другого порядка следования операторов.

unitChildwin;

interface

usesWindows, Classes, Graphics, Forms, Controls,ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids,DataM; {!} // Модуль TDataModule1

type

TMDIChild = class(TForm)

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBNavigator1: TDBNavigator;

procedureFormClose(Sender: TObject; varAction: TCloseAction);

private{ Private declarations }

public{ Public declarations }

{!} DM:TDataModule1;

{!} constructorCreate(AOwner:TComponent); override;

end;

implementation

{$IFDEF XOXOXOX} // DataM должен находиться в секции interface. Необходимо для среды

usesDataM; // времени проектирования. Определение "XOXOXOX" подразумевает,{$ENDIF}

// что это никогда не будет определено, но чтобы компилятор видел это.

{$R *.DFM}

{!} constructorTMDIChild.Create;

{!} begin

{!} DM := TDataModule1.Create(Application);

{!} inheritedCreate(AOwner);

{!} DM.Name := '';

{!} end;

procedureTMDIChild.FormClose(Sender: TObject; varAction: TCloseAction);

begin

Action := caFree;

end;

end.

– Pat Ritchey

Nomadicотвечает:

В Удаленный Модуль Данных бросьте компонент TDatabase, затем добавьте процедуру автоматизации (пункт главного меню Edit | Add To Interface) для Login.

Убедитесь, что свойство HandleShared компонента TDatabase установлено в True.

procedureLogin(UserName, Password: WideString);

begin

{ DB = TDatabase }

{ Something unique between clients }

DB.DatabaseName := UserName + 'DB';

DB.Params.Values['USER NAME'] := UserName;

DB.Params.Values['PASSWORD'] := Password;

DB.Open;

end;

После того, как Вы создали этот метод автоматизации, Вы можете вызывать его с помощью:

RemoteServer1.AppServer.Login('USERNAME','PASSWORD');

Что за магия при записи в поле Paradox Byte? По этому поводу в документации ничего не сказано.

Есть 2 пути получить доступ к данным в TBytesField.

Просто вызовите метод GetData, передавая ему указатель на буфер, где сам буфер должен иметь размер, достаточный для хранения данных:

procedureSetCheckBoxStates;

varCBStates: array[1..13] ofByte;

begin

CBStateField.GetData(CBStates);

{ Здесь обрабатываем данные… }

end;

Для записи значений вы должны использовать SetData.

Используйте свойство Value, возвращающее вариантный массив байт (variant array of bytes):

procedureSetCheckBoxStates;

varCBStates: Variant;

begin

CBStates := CBStateField.Value;

{ Здесь обрабатываем данные… }

end;

Первый метод, вероятно, для вас будет легче, поскольку вы сразу докапываетесь до уровня байт. Запись данных также получится сложнее, поскольку вам нужно будет работать с variant-методами типа VarArrayCreate и др.

– Mark Edington

Тема: Доступ к таблицам Paradox на CD или на дисках c флагом только для чтения

Данный совет поможет вам разобраться в таком вопросе, как доступ к таблицам Paradox, расположенным на CD-ROM или диске, имеющем флаг "только для чтения".

Механиз блокирования файлов Paradox требует наличие файла PDOXUSRS.LCK, осуществляющий логику работы блокировки. Данный файл обычно создается во время выполнения приложения и располагается в том же каталоге, где и таблицы. Тем не менее, в случае с CD-ROM, во время выполнения программы нет никакой возможности создать на нем описанный выше файл. Решение простое: мы создаем этот файл и помещаем его на CD-ROM во время его (CD) создания. Следующая простейшая программка позволит создать вам файл PDOXUSRS.LCK и поместить его в образ компакта для его последующего копирования на CD-ROM: