Проблемы при работе с DAO

← →
R.O.O.T © (2004-07-05 16:32) [0]

При работе с DAO компанентами возникает такая ситуация
компилятор незнает параметр EmptyParam
unit UDemo;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, ToolWin, ComCtrls, Grids, DBGrids, Db, StdCtrls, DaoDS;

type
TDAODemo = class(TForm)
DataSource: TDataSource;
DAODataSet: TDAODataSet;
DBGrid: TDBGrid;
StatusBar: TStatusBar;
ToolBar1: TToolBar;
DBNavigator1: TDBNavigator;
Button1: TButton;
DAODatabase: TDAODatabase;
DAOTable1: TDAOTable;
procedure DataSourceDataChange(Sender: TObject; Field: TField);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DAODemo: TDAODemo;

implementation

uses DAO;

{$R *.DFM}

procedure TDAODemo.DataSourceDataChange(Sender: TObject; Field: TField);
begin
with DAODataSet do
StatusBar.SimpleText := "Record: " + IntToStr(RecNo) + "/" + IntToStr(RecordCount);
end;

procedure TDAODemo.Button1Click(Sender: TObject);
var TableDef: DAO.TableDef;
Index: DAO.Index;
begin

// create database
GetDBEngine(dvDAO36).CreateDatabase("Dyndemo.mdb", dbLangGeneral, EmptyParam);
DAODatabase.Open;

with DAODatabase.Handle do
begin
// create table
TableDef := CreateTableDef("COUNTRY", EmptyParam, EmptyParam, EmptyParam);

with TableDef do
begin
// create fields
Fields.Append(CreateField("Name", DAO.dbText, 24));
Fields.Append(CreateField("Capital", DAO.dbText, 24));
Fields.Append(CreateField("Area", DAO.dbDouble, EmptyParam));
Fields.Append(CreateField("Population", DAO.dbDouble, EmptyParam));

// create index
Index := CreateIndex("Index Name, Capital");
with Index do
begin
Fields.Append(CreateField("Name", EmptyParam, EmptyParam));
Fields.Append(CreateField("Capital", EmptyParam, EmptyParam));
end;
Indexes.Append(Index);
end;

// add table to table defs
TableDefs.Append(TableDef);
end;

DAODataSet.Open;
end;

end.

Непонимаю почему все модулю подключил процедуры известны

← →
sniknik © (2004-07-05 17:06) [1]

Variants

Проблемы при работе с DAO Найти похожие ветки