Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Проблема 


insmod   (2002-04-05 19:14) [0]

Приветствую. Такая вот проблема: имеется 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;
при выполнении кода вылетает ошибка, чего то там с доступом, и выделяет красным первую строчку и больше никаких ошибок, если убрать первую строку то выделяет вторую в общем не хочет добавлять запись в БД. Помогите разобраться, я в дельфи новичок и многого не знаю, и книги нет.



aus   (2002-04-05 19:20) [1]

DBForm.Table1.Edit;
DBForm.Table1.FieldByName("Мое поле").AsString := Edit1.Text;
DBForm.Table1.Post;


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



insmod   (2002-04-05 19:50) [2]

Спасибо, но так тоже не работает :(
Опять таже ошибка и тоже выделяет первую строку DBForm.Table1.Edit;



amamed_3071   (2002-04-06 08:17) [3]

DBForm.Table1.Active:=True;DBForm.Table1.Edit;
DBForm.Table1.FieldByName("Мое поле").AsString := Edit1.Text;
DBForm.Table1.Post;



insmod   (2002-04-06 09:50) [4]

блин, таже самая ошибка. Я проверил, если DBForm сделать обратно fsNormal, а не fsMDIChild то все работает. Но мне надо fsMDIChild :(



amamed_3071   (2002-04-06 10:40) [5]

form1.showmodal zameni na form1.show



insmod   (2002-04-06 11:43) [6]

и так тоже не работает :(



Synochka   (2002-04-06 13:32) [7]


With TDBForm ( fsMDIForm.ActiveMDIChild ) do
begin
Table1.Edit ;
Table1.FieldByName ( "Мое поле" ).AsString := Edit1.Text ;
Table1.Post ;
end ;



insmod   (2002-04-06 17:10) [8]

мда, проблема :)
при таком раскладе выделяет первую строчку и пишет:
Record, object or class type required



dnk   (2002-04-07 15:25) [9]

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



insmod   (2002-04-07 18:01) [10]

Спасибо, помогло :)




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.023 c
1-94415           ymin                  2002-04-17 17:36  2002.04.29  
закрытие программы


1-94465           Reticent              2002-04-16 12:13  2002.04.29  
Подскажите


3-94259           kopachev              2002-04-07 15:03  2002.04.29  
Отчет в fast report


1-94387           Darlok                2002-04-17 16:24  2002.04.29  
Проблема с Delphi6


3-94293           binsprog              2002-04-08 20:14  2002.04.29  
Getting username using TDatabase