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

EditButton.Click;

end;

end.

Проект EDIT DLL

{ EDITDLL.DPR }

libraryeditdll;

usesSysUtils, Classes, editform in'editform.pas' {DBEditForm};

exportsEditData;

begin

end.

{ EDITFORM.PAS }

uniteditform;

interface

uses SysUtils, Windows, Messages, Classes, Graphics, Controls, StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, BDE;

type

TTableClone = class;

TDBEditForm = class(TForm);

ScrollBox: TScrollBox;

Label1: TLabel;

EditName: TDBEdit;

Label2: TLabel;

EditCapital: TDBEdit;

Label3: TLabel;

EditContinent: TDBEdit;

Label4: TLabel;

EditArea: TDBEdit;

Label5: TLabel;

EditPopulation: TDBEdit;

DBNavigator: TDBNavigator;

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

Database1: TDatabase;

OKButton: TButton;

private

TableClone: TTableClone;

end;

{ TTableClone }

TTableClone = class(TTable)

private

SrcHandle: HDBICur;

protected

functionCreateHandle: HDBICur; override;

public

procedureOpenClone(ASrcHandle: HDBICur);

end;

functionEditData( constDBHandle: HDBIDB; constDSHandle: HDBICur): Boolean; stdcall;

varDBEditForm: TDBEditForm;

implementation

{$R *.DFM}

{ Экспорт }

functionEditData( constDBHandle: HDBIDB; constDSHandle: HDBICur): Boolean; stdcall;

varDBEditForm: TDBEditForm;

begin

DBEditForm := TDBEditForm.Create(Application);

withDBEditForm do try

// Устанавливаем дескриптор Database1 на открытую в текущий момент базу данных

Database1.Handle := DBHandle;

TableClone := TTableClone.Create(DBEditForm);

try

TableClone.DatabaseName := 'DB1';

DataSource1.DataSet := TableClone;

TableClone.OpenClone(DSHandle);

Result := (ShowModal = mrOK);

ifResult then begin

TableClone.UpdateCursorPos;

DbiSetToCursor(DSHandle, TableClone.Handle);

end;

finally

TableClone.Free;

end;

finally

Free;

end;

end;

{ TTableClone }

procedureTTableClone.OpenClone(ASrcHandle: HDBICur);

begin

SrcHandle := ASrcHandle;

Open;

DbiSetToCursor(Handle, SrcHandle);

Resync([]);

end;

functionTTableClone.CreateHandle: HDBICur

begin

Check(DbiCloneCursor(SrcHandle, False, False, Result));

end;

end.

{ EDITFORM.DFM }

objectDBEditForm: TDBEditForm

Left = 201

Top = 118

Width = 354

Height = 289

ActiveControl = Panel1

Caption = 'DBEditForm'

Font.Color = clWindow

TextFont.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

Position = poScreenCenter

PixelsPerInch = 96

TextHeight = 13

objectPanel1: TPanel

Left = 0

Top = 0

Width = 346

Height = 41

Align = alTop

TabOrder = 0

objectDBNavigator: TDBNavigator

Left = 8

Top = 8

Width = 240

Height = 25

DataSource = DataSource1

Ctl3D = FalseParent

Ctl3D = False

TabOrder = 0

end

objectOKButton: TButton

Left = 260

Top = 8

Width = 75

Height = 25

Caption = 'OK'

Default = True

ModalResult = 1

TabOrder = 1

end

end

objectPanel2: TPanel

Left = 0

Top = 41

Width = 346

Height = 221

Align = alClient

BevelInner = bvLoweredBorder

Width = 4

Caption = 'Panel2'

TabOrder = 1

objectScrollBox: TScrollBox

Left = 6

Top = 6

Width = 334

Height = 209

HorzScrollBar.Margin = 6

HorzScrollBar.Range = 147

VertScrollBar.Margin = 6

VertScrollBar.Range = 198

Align = alClient

AutoScroll = False

BorderStyle = bsNone

TabOrder = 0

object Label1: TLabel

Left = 6

Top = 6

Width = 28

Height = 13

Caption = 'Name'

FocusControl = EditName

end

objectLabel2: TLabel

Left = 6

Top = 44

Width = 32

Height = 13

Caption = 'Capital'

FocusControl = EditCapital

end

objectLabel3: TLabel

Left = 6

Top = 82

Width = 45

Height = 13

Caption = 'Continent'

FocusControl = EditContinent

end

objectLabel4: TLabel

Left = 6