|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
ошибки в DELPHI при задании алиаса, что делать?
Необходима помощь умных людей которые в этом соображают, написала код для создания алиаса моей БД в 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. Последний раз редактировалось Antidelphik, 03.05.2011 в 22:25. |
#2
|
|||
|
|||
Цитата:
|
#3
|
||||
|
||||
Да, спасибо, эту ошибку и некоторые другие я уже увидела, теперь проблема с тем что делфи у меня ругается на 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 |
#4
|
||||
|
||||
и ещё подскажите пожалуйста, как лучше сделать, если у меня БД про инструменты и оборудование и прочие атрибуты, при чем инструменты-отдельная таблица, а оборудование отдельная, мне нужно разработать прогу на делфи для вывода списка оборудования и списка инструментов, подходящего к выбранному оборудованию, мне как лучше сделать, сначала написать связь для этих таблиц, а потом вывод ?
|