Дельфи7 + Paradox (read\write)

@VampireKB · Регистрация: 12.06.2009

Студворк — интернет-сервис помощи студентам

Доброго времени суток
Предыстория :
Есть файл *.DB (с паролем)
есть BDE-Database,Query, Mastersource1,2 ,Table1 , DBGRID ,SQLupdate

Что работает:
БД коннектится,потом ручками вводим пароль и в DBGRID отображаются данные из Table .При изменении данных в DBGRID ,данные автоматом меняются и в файлике *.DB

Суть вопроса:
Почему-то при всех моих настройках( кривые руки тоже причастны

) ф-ция записи в файлик из других вводных строк(например Едит1.Текст) -не происходит

Программа туте выдаёт ошибку,что Таблица не находится в режиме Update\insert

При попытке прописывания параметра
Table1.CanModify:=True
Дельфи 7 ругается на то,что Таблица является read only (100 раз смотрел,в самой форме таблицы параметр readyonly = false !! )

З.Ы.
Все ф-ции сами по себе составлены верно

Delphi
1
2
3
4
5
6
7
Table1.Open
Table1.First
While not Table1.EOF do
begin
Table1.fieldbyname('abc').AsInteger:=Table1.fieldbyname('dfg').AsInteger
Table1.Next
end

Пожалуйста,помогите

(
(Буду благодарен за любые предположения!!)

@MAcK · 18.06.2009, 19:08

Table1.Edit -- перед изменением данных

@VampireKB · 18.06.2009, 19:25 **[ТС]**

Спасибо )
Добавил,ща пишет про Dataset ...Думаю,через часик допру

Добавлено через 13 минут 26 секунд
СПАСИБО !!!
Получилось Только посл того,как я Edit внутрь цикла добавил.

Привожу код для остальных,т.к. Темы про BDE ОЧЕНЬ редкие и их практически не найти

Delphi
1
2
3
4
5
6
7
8
9
10
table1.Close;
table1.ReadOnly:=False;
table1.Open;
table1.First;
while not table1.Eof do
begin
DataSource1.Edit;
Table1.Edit;
Table1.fieldbyname('QntP').AsInteger:=Table1.fieldbyname('QntR').AsInteger;
table1.Next;

@Lord_Voodoo · 18.06.2009, 20:29

VampireKB, тем хватает, просто бде уже просто морально устарело, а в связи с тем, что борланд отказался от этой технологии, то вас могут ожидать масса неразрешимых сюрпризов, лучше на ней не останавливаться, разве что в плане окунуться в историю

@VampireKB · 18.06.2009, 20:56 **[ТС]**

VoodooMan,
Самая знаменитая программа в ресторанном бизнесе написана на PARADOX

)
А Склад к ней на interbase

Сюрпризами с реиндексацией,битыми наполовину таблицами и остальной фигнёй,я уже года 2-3 назад прошел

)

@Lord_Voodoo · 19.06.2009, 01:16

а как на счет бага, когда база кратна 4 мб... да я знаю кучу коммерческих проектов на foxpro древнем или клиппере... просто бде - есть тупиковая ветвь развития, как не крути... можно постоянно выкручиваться из этих постоянных багов, но зачем создавать себе проблемы и потом с ними героически бороться...

@VampireKB · 19.06.2009, 01:46 **[ТС]**

VoodooMan,
с этим я абсолютно согласен !
Тот же Interbase*,не говоря уже об Оракле, намного проще...

*Interbase проще начиная с версии 6.5 ,где база стала устойчивее к потере данных по сети .

@Lord_Voodoo · 19.06.2009, 01:47

Беркли ДБ - рулит

@VampireKB · 19.06.2009, 01:55 **[ТС]**

VoodooMan,
Не сталкивался

Ссылочку в РМ ,если можно ) И какие проги требуется установить

Ладно,у нас тут тема в флуд с оффтопом превращается по-тихоньку:rolleyes:
\\close;

@Kasper89 · 24.06.2009, 00:18

Вот кусок моего кода думаю поймешь что он ругался.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
form1.Table1.Open;
    form3.Table1.Open;
    form1.Table1.Insert;
    form3.Table1.Insert;
    form1.Table1.FieldByName('Users').AsString:=form3.Edit8.Text;
    form1.Table1.FieldByName('Passwords').AsString:=form3.MaskEdit1.Text;
    form3.Table1.FieldByName('Users').AsString:=form3.Edit8.Text;
    form3.Table1.FieldByName('F.I.O').AsString:=form3.Edit1.Text;
    form3.Table1.FieldByName('God rojdenii').AsString:=form3.Edit2.Text;
    form3.Table1.FieldByName('Pol').AsString:=Form3.Edit3.Text;
    form3.Table1.FieldByName('Obrazovanii').AsString:=form3.Edit4.Text;
    form3.Table1.FieldByName('Doljnost').AsString:=form3.Edit5.Text;
    form3.Table1.FieldByName('Prikaz').AsString:=form3.Edit6.Text;
    form3.Table1.FieldByName('Zarplata').AsString:=form3.Edit7.Text;
    form3.Table1.Post;
    form1.Table1.Post;

@Lord_Voodoo · 24.06.2009, 01:05

Kasper89, не понял сути вопроса уважаемый, и что именно говорит?

@VampireKB · 24.06.2009, 09:49 **[ТС]**

думаю у него на присваивании ругается

Каспер,проводи вначале работы с таблицой1 в форме 1,запиши данные куда-нить,а лишь уже потом проведи работу с таблицей1 в форме 3...

да и ,как ты видишь,я юзал не insert,а Edit ...
\\теоретический ответ на теоретический вопрос.

@Lord_Voodoo · 24.06.2009, 10:02

VampireKB, а если ему надо не отредактировать, а добавить запись? вообще скажу по своему опыту, что лучше использовать запросы, чем эти методы, прирост в скорости есть приличный...

@VampireKB · 24.06.2009, 10:19 **[ТС]**

VoodooMan,
я честно пытался юзать Query с Updater-ом для БДЕ,но у мну не получилось

))
Насчет прироста - я согласен.Если б я так данные в Интербейз вбивал,я б до сих пор данные только заносил

З.Ы.
а разве БДЕ поддерживает что-то типа:

Delphi
1
2
3
4
5
update.Sql:='insert AB(:A,...:Z)';
fieldbyname('A').asstring:= ;
...
fieldbyname('Z').asstring:= ;
update.execSql;

тут это тоже сработает ? О_О СУБД вроде разное же

@Lord_Voodoo · 24.06.2009, 10:25

VampireKB, у sql есть стандарт, ваш запрос работать не будет...

SQL
1
INSERT INTO TABLE(<field1>, ... <fieldN>) VALUES (<value1>, ... <valueN>)

или

SQL
1
INSERT INTO TABLE(<field1>, ... <fieldN>) SELECT <field1>, ... <fieldN> FROM table1

или

SQL
1
INSERT INTO TABLE(<field1>, ... <fieldN>) SELECT * FROM table1

сработает в любой базе данных... аналогично и с Update... а что у вас с запросами не получилось-то?

@VampireKB · 24.06.2009, 14:00 **[ТС]**

VoodooMan,
тот пример я писал 6-ым пальцем третеьй руки)0(т.е. от балды

)
у меня есть свой маааленький хелпик для того,чтобы оживить инфу в голове

а по-поводу "не получалось",- я даже и не пытался,потому что думал,что там такого нет

Кстати,о 2 и 3-ем способе я не знал,спасибо

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	18.06.2009, 19:08
	Table1.Edit -- перед изменением данных 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	18.06.2009, 20:29
	VampireKB, тем хватает, просто бде уже просто морально устарело, а в связи с тем, что борланд отказался от этой технологии, то вас могут ожидать масса неразрешимых сюрпризов, лучше на ней не останавливаться, разве что в плане окунуться в историю 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	18.06.2009, 20:56 [ТС]
	VoodooMan, Самая знаменитая программа в ресторанном бизнесе написана на PARADOX ) А Склад к ней на interbase Сюрпризами с реиндексацией,битыми наполовину таблицами и остальной фигнёй,я уже года 2-3 назад прошел ) 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.06.2009, 01:16
	а как на счет бага, когда база кратна 4 мб... да я знаю кучу коммерческих проектов на foxpro древнем или клиппере... просто бде - есть тупиковая ветвь развития, как не крути... можно постоянно выкручиваться из этих постоянных багов, но зачем создавать себе проблемы и потом с ними героически бороться... 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	19.06.2009, 01:46 [ТС]
	VoodooMan, с этим я абсолютно согласен ! Тот же Interbase,не говоря уже об Оракле, намного проще... Interbase проще начиная с версии 6.5 ,где база стала устойчивее к потере данных по сети . 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.06.2009, 01:47
	Беркли ДБ - рулит 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	19.06.2009, 01:55 [ТС]
	VoodooMan, Не сталкивался Ссылочку в РМ ,если можно ) И какие проги требуется установить Ладно,у нас тут тема в флуд с оффтопом превращается по-тихоньку:rolleyes: \\close; 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.06.2009, 01:05
	Kasper89, не понял сути вопроса уважаемый, и что именно говорит? 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	24.06.2009, 09:49 [ТС]
	думаю у него на присваивании ругается Каспер,проводи вначале работы с таблицой1 в форме 1,запиши данные куда-нить,а лишь уже потом проведи работу с таблицей1 в форме 3... да и ,как ты видишь,я юзал не insert,а Edit ... \\теоретический ответ на теоретический вопрос. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.06.2009, 10:02
	VampireKB, а если ему надо не отредактировать, а добавить запись? вообще скажу по своему опыту, что лучше использовать запросы, чем эти методы, прирост в скорости есть приличный... 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	24.06.2009, 14:00 [ТС]
	VoodooMan, тот пример я писал 6-ым пальцем третеьй руки)0(т.е. от балды ) у меня есть свой маааленький хелпик для того,чтобы оживить инфу в голове а по-поводу "не получалось",- я даже и не пытался,потому что думал,что там такого нет Кстати,о 2 и 3-ем способе я не знал,спасибо 0