Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблема [D5, Paradox]

insmod © (2002-04-05 19:14:00)
Приветствую. Такая вот проблема: имеется fsMDIForm из нее запускается fsMDIChild на ней есть DBGrid, Database1, Table1, DataSource1 вот, а из fsMDIChild (назовем ее DBForm) запускается Form1 по form1.showmodal; так вот из это формы я хочу ввести инфу в базу на DBForm, пишу:
DBForm.Database1.Edit;
DBForm.Database1.Insert;
DBForm.Database1.FindField("мое поле").AsString:=Edit1.Text;
DBForm.Database1.Post;
при выполнении кода вылетает ошибка, чего то там с доступом, и выделяет красным первую строчку и больше никаких ошибок, если убрать первую строку то выделяет вторую в общем не хочет добавлять запись в БД. Помогите разобраться, я в дельфи новичок и многого не знаю, и книги нет.

insmod (2002-04-07 18:01:00) [1]
Спасибо, помогло :)

dnk (2002-04-07 15:25:00) [2]
Привет!
Все свои Database1, Table1, DataSource1 кидай на[File/New...] Data Module (UnitDM), потом пиши во всех своих юнитах с формами примерNо такое
implementation
Uses UnitDM,... ;
после этого все формы будут видеть базы и работать с ними.
Базы открывать (Active:=True) можно при создании DataModule.

insmod (2002-04-06 17:10:00) [3]
мда, проблема :)
при таком раскладе выделяет первую строчку и пишет:
Record, object or class type required

Synochka (2002-04-06 13:32:00) [4]
With TDBForm ( fsMDIForm.ActiveMDIChild ) do begin Table1.Edit ; Table1.FieldByName ( "Мое поле" ).AsString := Edit1.Text ; Table1.Post ; end ;

insmod (2002-04-06 11:43:00) [5]
и так тоже не работает :(

amamed_3071 (2002-04-06 10:40:00) [6]
form1.showmodal zameni na form1.show

insmod (2002-04-06 09:50:00) [7]
блин, таже самая ошибка. Я проверил, если DBForm сделать обратно fsNormal, а не fsMDIChild то все работает. Но мне надо fsMDIChild :(

amamed_3071 (2002-04-06 08:17:00) [8]
DBForm.Table1.Active:=True;DBForm.Table1.Edit;
DBForm.Table1.FieldByName("Мое поле").AsString := Edit1.Text;
DBForm.Table1.Post;

insmod (2002-04-05 19:50:00) [9]
Спасибо, но так тоже не работает :(
Опять таже ошибка и тоже выделяет первую строку DBForm.Table1.Edit;

aus (2002-04-05 19:20:00) [10]
DBForm.Table1.Edit; DBForm.Table1.FieldByName("Мое поле").AsString := Edit1.Text; DBForm.Table1.Post;

А у тебя при компиляции ошибка, т.к. TDatabase не имеет методов Edit, Post и т.д.

Наверх

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