Ошибка в программе с базой

[sergeant94]

07062013174.jpg
Вложение 61179

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

[Человек_Борща]

Не не парень, я шею ломать себе не буду.
Код тегом "КОД" в студию, и ошибки которые возникают тоже в студию.

Телепаты телепортировались в никуда.

[Аватар]

У-у-у. BDE и paradox. Сомневаюсь, что кто-то будет тестить. Лучше показывай куски кода и полный текст ошибок. Там кода того считай что и нет. А так сразу вопрос - кто будет метод Edit вызывать перед редактированием?

procedure TForm5.Button1Click(Sender: TObject);
begin
     dmg.clients.FieldValues['kol']:=1;
     dmg.clients.post;
     DBEdit7.Text:=dmg.clients.FieldValues['CLId'];
     DBEdit8.Text:=dmg.clients.FieldValues['Fam'];
     dmg.active_rooms.post;
    close;
end;

[sergeant94]

на счет эдита это я просто так сделал, то что ты выделил вроде бы работает, но у меня основная проблема не в этом, у меня программа вообще перестала запускаться вот что пишет
project Pr_gost.exe raised exception class EAccessViolation with message 'Access violation at address 004E618E in module 'Pr_gost.exe'. Read of address 0000030C. Process stopped. Use Step or Run to continue.

шею не ломай) исправил, но это просто на всякий случай смысл понять что от меня требуется, я вообще хочу найти причину ошибки, а иногда не выходит ошибка просто статус Running стоит и все, типа грузится, главная форма даже не появляется. дело в том что я не знаю где ошибка, все работало, а потом когда работал в 5 форме, пытался сделать фильтры для комбобокс, чтобы его итемы создавались, от выбора других комбобоксов, все они связаны с таблицы, ну короче, ну вообщем потом вдруг перестало все работать, когда выходит ошибка
project Pr_gost.exe raised exception class EAccessViolation with message 'Access violation at address 004E618E in module 'Pr_gost.exe'. Read of address 0000030C. Process stopped. Use Step or Run to continue.
после того как все закоментили убирать комментарии, начал запускаться, потихоньку.. ругается на:

procedure TDMG.roomsFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
     IF form1.edit2.visible=true then
     accept:=(dmg.rooms.FieldValues['number'])=form1.Edit2.Text;

     IF form3.RadioButton1.Checked=true then
     Accept:=(dmg.rooms.FieldValues['comfort'])='îáû÷íûé';

     IF form3.RadioButton2.Checked=true then
     Accept:=(dmg.rooms.FieldValues['comfort'])='ïîëóëþêñ';

     IF form3.RadioButton3.Checked=true then
     Accept:=(dmg.rooms.FieldValues['comfort'])='ëþêñ';

      IF form4.cb2.Checked=true then
     accept:=(dmg.rooms.FieldValues['number'])=form4.Edit2.Text;

     IF Form5.cb1.Checked=true then
     begin
     accept:=((dmg.rooms.FieldValues['comfort'])=form5.DBComboBox1.text) and
       ((dmg.rooms.FieldValues['kol'])=form5.DBComboBox2.text);
     form5.DBComboBox3.items.Add(dmg.rooms.FieldValues['number']);
     end;
end;

а до этого ругался на

IF form1.edit2.visible=true then
     accept:=(dmg.rooms.FieldValues['number'])=form1.Edit2.Text;

сейчас

IF form3.RadioButton1.Checked=true then
     Accept:=(dmg.rooms.FieldValues['comfort'])='îáû÷íûé';

закоментил появился такая ошибка
An error occured while attempting to initialize the Borland Database Engine (error $2501)
после нее уже так project Pr_gost.exe raised exception class EAccessViolation with message 'Access violation at address 004D618E in module 'Pr_gost.exe'. Read of address 00000310. Process stopped. Use Step or Run to continue. и начал ругатся на

IF form3.RadioButton2.Checked=true then
     Accept:=(dmg.rooms.FieldValues['comfort'])='ïîëóëþêñ';

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

[Аватар]

Для начала сделай Connected=False в TDateBase. И попробуй соединяться с базой в TForm1.FormActivate. И

Application.CreateForm(TForm1, Form1);

поставь перед

Application.Run;

[sergeant94]

если под connected ты имеешь ввиду active то все что ты написал, так и стоит..блин неужели мне никто не поможет

а все, Database connected false стоит..

проблема решена..в свойствах table filtered стоял true..теперь запускается все

подскажите как можно сделать чтобы в DBComboBox3 появились номера гостиницы(это поле number с типом Alpha таблицы rooms.db), отфильтровавшихся по DBComboBox1 и DBComboBox2(когда там пользователь выберет комфортность(komfort - Alpha-rooms.db) и количество человек в номере(kol - number - rooms.db)) естесственно, после выбора DBComboBox1 и DBComboBox2, надо занести в DBComboBox3 итемы для выбора номера то же поле number. Вообщем это все одна таблица, только на другой форме, для регистрации клиента.

я понимаю что не настолько начитан, чтобы все понятно объяснить, ну я страюсь) это мой первый проект, идет практика осталось не много, а мне еще по ней писать распечатку, может кто знает предмет ТРПО, там тоже куча делов..так что спрашивайте, что не понятно, ну главное помогите, буду очень благодарен

procedure TForm5.DBComboBox3Click(Sender: TObject);
begin
     cb1.Checked:=true;
     dmg.rooms.filtered:=true;
end;

procedure TDMG.roomsFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
     IF Form5.cb1.Checked=true then
    begin
     accept:=((dmg.rooms.FieldValues['comfort'])=form5.DBComboBox1.text) and
       ((dmg.rooms.FieldValues['kol'])=form5.DBComboBox2.text);
     form5.DBComboBox3.items.Add(dmg.rooms.FieldValues['number']);
     end;
end;

но код не работает, помогите что исправить или как вообще сделать лучше

отзовитесь людии(((

[Stilet]

чтобы в DBComboBox3 появились номера гостиницы

Если номера берутся из таблицы, то нужно использовать не DBComboBox а DBLookupComboBox, который по ключевому значению выводит список из таблицы.
Я сразу признаюсь: С DB компонентами не работаю вообще, и делал бы это SQL запросами, так что врядли что скажу дополнительно, но в ненужности DBComboBox уверен на 100%

[sergeant94]

спасибо хоть какойто прогресс, sql как то не проходил, я вообще в делфи толком не работал, паскаль только проходил, так что благодаря этому проекту только начал потихоньку понимать что к чему, просто в колледже писали базу данных, я только под конец появился, когда уже ничего не понятно, но там работали с paradox и этими компонентами

[Stilet]

Тогда тебе срочно нужна книжка по компонентам Делфи. особенно по DB компонентам.