Скачать: CL | DM;

Проблемы при работе с 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c