Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

Проект главной формы

{ MAINDB.DPR }

program maindb;

uses Forms, mainform in 'mainform.pas' {dbmainform};

{$R *.RES}

begin

 Application.Initialize;

 Application.CreateForm(TDBMainForm, DBMainForm);

 Application.Run;

end.

{ MAINFORM.PAS }

unit mainform;

interface

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

type TDBMainForm = class(TForm)

 Table1Name: TStringField;

 Table1Capital: TStringField;

 Table1Continent: TStringField;

 Table1Area: TFloatField;

 Table1Population: TFloatField;

 DBGrid1: TDBGrid;

 DBNavigator: TDBNavigator;

 Panel1: TPanel;

 DataSource1: TDataSource;

 Panel2: TPanel;

 Table1: TTable;

 EditButton: TButton;

 procedure FormCreate(Sender: TObject);

 procedure EditButtonClick(Sender: TObject);

 procedure DBGrid1DblClick(Sender: TObject);

private

 { private declarations }

public

 { public declarations }

end;

var DBMainForm: TDBMainForm;

implementation

{$R *.DFM}

procedure TDBMainForm.FormCreate(Sender: TObject);

begin

Table1.Open;

end;

// {ПРИМЕЧАНИЕ: DBHandle -

дескриптор базы данных & DSHandle - курсор

// рассматриваемой записи. Кроме того, если вы имеете цель в

// динамической загрузке DLL во время выполнения приложения,

// используйте вызовы API LoadLibrary, GetProcAddress и

// FreeLibrary вместо подразумевающихся вызовов загрузки при

// запуске. Пример использования API

для динамической загрузки: }

// Type

// {Для GetProcAddress}

// BDEDataSync =

// function(const DBHandle: HDBIDB; const DSHandle: HDBICur): Boolean;

// stdcall;

// {Организация перехвата ошибок загрузки DLL}

// EDLLLoadError = class(Exception);

// var h: hwnd;

// p: BDEDataSync;

// LastError: DWord;

// begin

// UpdateCursorPos;

// Try

// h := loadLibrary('EDITDLL.DLL');

// {Примечание для пользователей Delphi 1.0: Поскольку Win32

// LoadLibrary при неудачной загрузке DLL возвращает NULL,

// поэтому для поиска ошибки необходим вызов GetLastError,

// Win16 LoadLibrary возвращает значение ошибки (меньше чем

// HINSTANCE_ERROR), которая для выяснения причин неудачной

// загрузки может затем провериться с помощью Win16API SDK.}

// if h = 0 then begin

// LastError := GetLastError;

// Raise EDLLLoadError.create(IntToStr(LastError) +

// ': Невозможно загрузить DLL');

// end;

// try

// p := getProcAddress(h, 'EditData');

// if p(DBHandle, Handle) then Resync([]);

// finally

// freeLibrary(h);

// end;

// Except

// On E: EDLLLoadError do

// MessageDLG(E.Message, mtInformation, [mbOk],0);

// end;

// end;

// {или}

function EditData(const DBHandle: HDBIDB; const DSHandle: HDBICur): Boolean; stdcall external 'EDITDLL.DLL' name 'EditData';

procedure TDBMainForm.EditButtonClick(Sender: TObject);

begin

 with Table1 do begin

UpdateCursorPos;// Вызываем процедуру EditData из EditDll.dll.

if EditData(DBHandle, Handle) then Resync([]);

 end;

end;

<