Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Использование Data Module [D7]


myaucher ©   (2007-01-30 12:25:00) 

Здравствуйте. глупый вопрос. есть компонент Data Module. после сохранения и закрытия проекта я немогу отобразить его форму. только редактор кода. везде смотрел как открыть его но не нашел.
наверное попаду в орешник с таким вопросом...


myaucher   (2007-01-30 16:05:00) [1]

выкладываю
program TelephonDB;

uses
 Forms,
 MainUnit in 'MainUnit.pas' {frmMain},
 dtmMainUnit in 'dtmMainUnit.pas' {dtmMain: TDataModule},
 TownUnit in 'TownUnit.pas' {frmTown},
 EditRecUnit in 'EditRecUnit.pas' {frmEditRecord};

{$R *.res}

begin
 Application.Initialize;
 Application.CreateForm(TfrmMain, frmMain);
 Application.CreateForm(TdtmMain, dtmMain);
 Application.CreateForm(TfrmTown, frmTown);
 Application.CreateForm(TfrmEditRecord, frmEditRecord);
 Application.Run;
end.

вот pas
unit dtmMainUnit;

interface

uses
 SysUtils, Classes, DB, ADODB, XPMan;

type
 TdtmMain = class(TDataModule)
   ADOConnMain: TADOConnection;
   ADOTabTelBook: TADOTable;
   DSMain: TDataSource;
   ADOTabTelBookKey: TAutoIncField;
   ADOTabTelBookDSDesigner: TWideStringField;
   ADOTabTelBookDSDesigner2: TWideStringField;
   ADOTabTelBookDSDesigner3: TWideStringField;
   ADOTabTelBookT: TWideStringField;
   ADOTabTelBookEmail: TWideStringField;
   ADOTabTelBookDSDesigner4: TIntegerField;
   ADOTabTelBookDSDesigner5: TDateTimeField;
   ADOTabTelBookDSDesigner6: TBooleanField;
   DSTown: TDataSource;
   ADOTabTown: TADOTable;
   ADOTabTownKey: TAutoIncField;
   ADOTabTownDSDesigner: TWideStringField;
   XPManifest1: TXPManifest;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 dtmMain: TdtmMain;

implementation

{$R *.dfm}

end.


Elen   (2007-01-30 15:48:00) [2]


>  выложи сюда dpr - файл

... И может быть Pas (хотя б начало)


Alarm   (2007-01-30 15:25:00) [3]

>myaucher  

Чтобы снять все сомнения, выложи сюда dpr - файл (надеюсь он не более 20 - 30 строк)


Elen   (2007-01-30 15:21:00) [4]


> myaucher

А нет ли в модуле Потерянного DataModule каких нибудь паразитирующих или лишних директив, ато некоторые любят поставить что нить типа {$R} где нибудь не там (по середине implementation например) ?


myaucher   (2007-01-30 15:13:00) [5]

есть конечно


medved_68   (2007-01-30 14:13:00) [6]


> Здравствуйте. глупый вопрос. есть компонент Data Module.
>  после сохранения и закрытия проекта я немогу отобразить
> его форму. только редактор кода. везде смотрел как открыть
> его но не нашел.

myaucherА менеджер проекта открывал???? Он у тебя (датамодуль) вообще в проекте есть????


alex_***   (2007-01-30 13:59:00) [7]

делай новый DM и начинай в него copy+paste компоненты с твоего DM. Когда перестанет открываться, тогда настанет просветление


myaucher   (2007-01-30 13:57:00) [8]

нет :)


DrPass   (2007-01-30 13:56:00) [9]


> есть компонент Data Module. после сохранения и закрытия
> проекта я немогу отобразить его форму. только редактор кода.
>  везде смотрел как открыть его но не нашел

А на нем нет какой-нибудь глючной дряни вроде FIBDataSet шестой версии?


myaucher   (2007-01-30 13:42:00) [10]

dfm - наместе. и копия на месте


Ega23   (2007-01-30 13:22:00) [11]

.dfm потерялся? Посмотри, должна быть копия .~dfm


myaucher   (2007-01-30 13:12:00) [12]

Пробовал и F12 и шифт F12. и открывал перед этим другие формы (с ними все нормально) е мое... неужеле день работы потерян.


Elen   (2007-01-30 12:48:00) [13]


> myaucher   (30.01.07 12:31) [2]
>
> пробовал :) . непомогает

Он имел ввиду Shift+F12.


alex_***   (2007-01-30 12:43:00) [14]

попробуй перед этим другое чтоть открыть, у меня бывает иногда по F12 не хочет форму открывать - надо что-ть другое открыть


myaucher   (2007-01-30 12:31:00) [15]

пробовал :) . непомогает


Рамиль   (2007-01-30 12:29:00) [16]

F12 ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо