[Antidelphik]

Необходима помощь умных людей которые в этом соображают, написала код для создания алиаса моей БД в Delphi, а он выдает ошибки типа

Код:

[Error] Unit2.pas(42): Undeclared identifier: 'DataBase'

код следующий

Код:

unit Unit2;

interface

uses
  SysUtils, Classes, DBTables, DB;

type
  TDataModule2 = class(TDataModule)
    Table1: TTable;
    Session1: TSession;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const my_alias = 'instruments';
      datapth = 'C:\Documents and Settings\1\Рабочий стол\моя работа в delphi\БД';

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
 with session do
  begin
   Active:=false;
   PrivateDir:=ExstractFilePath(PARAMSTR(0));
   Active:=true;
   if not (IsAlias(my_alias)) then
    begin
     ConfigMode:=cmPersistent;
     AddStandartAlias(my_alias,ExstractFilePath(PARAMSTR(0))+datapth,'PARADOX');
     SaveConfigFile
    end;
   DataBase.AliasName:=my_alias;
   DataBase.Connected:=true;
   with instruments do
    begin
     Prepare;
     Open
    end;
  end;

end;

procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
 with datebase do
  if connected then
   begin
    CloseDataSets;
    Connected:=false;
   end;
 with session do
  if active then
   close

end;

end. 

[ChinYan]

ExstractFilePath

Что это за функция? Читайте имя внимательно

[Antidelphik]

Да, спасибо, эту ошибку и некоторые другие я уже увидела, теперь проблема с тем что делфи у меня ругается на alias.name, вот код

Код:

unit Unit2;

interface

uses
  SysUtils, Classes, DBTables, DB;

type
  TDataModule2 = class(TDataModule)
    Table1: TTable;
    Session1: TSession;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const my_alias = 'instruments';
      datapth = 'C:\Documents and Settings\1\Рабочий стол\моя работа в delphi\БД';

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
 with session do
  begin
   Active:=false;
   PrivateDir:=ExtractFilePath(PARAMSTR(0));
   Active:=true;
   if not (IsAlias(my_alias)) then
    begin
     ConfigMode:=cmPersistent;
     AddStandardAlias(my_alias,ExtractFilePath(PARAMSTR(0))+datapth,'PARADOX');
     SaveConfigFile
    end;
   DB.AliasName:=my_alias;
   DB.Connected:=true;
   with instruments do
    begin
     Prepare;
     Open
    end;
  end;

end;

procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
 with DB do
  if connected then
   begin
    CloseDataSets;
    Connected:=false;
   end;
 with session do
  if active then
   close

end;

end.

а ошибки выдает на AliasName,Connected,instruments,Prepare,даже на with DB do выдает ошибку

Код:

[Error] Unit2.pas(55): '.' expected but 'DO' found

[Antidelphik]

и ещё подскажите пожалуйста, как лучше сделать, если у меня БД про инструменты и оборудование и прочие атрибуты, при чем инструменты-отдельная таблица, а оборудование отдельная, мне нужно разработать прогу на делфи для вывода списка оборудования и списка инструментов, подходящего к выбранному оборудованию, мне как лучше сделать, сначала написать связь для этих таблиц, а потом вывод ?