[Maks19]

Здравствуйте.

Из одной таблицы удаление:

Код:

1 2 3 4 5 6 7 8 9 10 11

if (Table1.RecordCount>0)   then     begin u:=MessageDlg('Удалить проект?',mtCustom,[mbYes,mbNo],0); if u=mrYes then begin   Table1.Delete; //Table2.Delete; end;

Но в связанных с таблицей 1, таблицах записи не удаляются. Я понимаю , что есть каскадное удаление, но там при удалении ошибка появлялась.
И второй вопрос.
Что надо добавить в строке u:=MessageDlg('Удалить проект?',mtCustom,[mbYes,mbNo],0);
чтобы в диалоговом окне удалить проект стояло ,то что введено в таблицу 1, т.е в combobox?

[lmikle]

на второй вопрос:

Код:

1	u:=MessageDlg('Удалить проект '+Table1.FieldByName('...').AsSTring + '?',mtCustom,[mbYes,mbNo],0);

На первый вопрос. Если база - СУБД (MS SQL, Oracle, Interbase, etc), то действительно можно применять каскадное удаление.Тогда БД сама по ключам удалит нужные записи.
Если БД локальная (типа Paradox, dBase), то придется удалять руками. Т.е. из главной таблицы запоминаешь уникальный id записи, удаляешь из подчиненных таблиц записи с соотв. значением, указывающем на главную запись и в конце удаляешь соотв. запись из главной таблицы.

[Maks19]

Сообщение от lmikle

на второй вопрос:

Код:

На запись

Код:

1	u:=MessageDlg('Удалить проект'+'Table1.FieldByname('Projname').AsString'+'?',mtCustom,[mbYes,mbNo],0);

Выдает ошибку Not enocugh actual parametrs

[Maks19]

Сообщение от Maks19

На запись

Код:

Выдает ошибку Not enocugh actual parametrs

Работает. кавычки не там поставил.

[lmikle]

не просто не там, а по своей инициативе добавил лишних...

[Maks19]

Сообщение от lmikle

на второй вопрос:

Код:

На первый вопрос. Если база - СУБД (MS SQL, Oracle, Interbase, etc), то действительно можно применять каскадное удаление.Тогда БД сама по ключам удалит нужные записи.
Если БД локальная (типа Paradox, dBase), то придется удалять руками. Т.е. из главной таблицы запоминаешь уникальный id записи, удаляешь из подчиненных таблиц записи с соотв. значением, указывающем на главную запись и в конце удаляешь соотв. запись из главной таблицы.

Зная id из главной таблицы ,как

[lmikle]

Сообщение от Maks19

Зная id из главной таблицы ,как

Ну есть же у тебя какое-то поле, по которому осуществляется связь таблиц. Вот оно и является id записи в главной таблице...

[Maks19]

Код:

1	Table3.Delete

Код удаляет только одну запись. Подскажите, как удалить записи (не вообще все в таблице) с нужным id? Может в цикле надо ?

[lmikle]

Ага, именно в цикле.
Тут интересный вопрос, что у тебя в таблице. Если она уже отфильтрована что бы показывать только те записи, которые тебе нужны, то просто надо удалить все записи. Если же там вообще все записи, то тогда надо делать проверку. Например, как-то так (код не проверял):

Код:

1 2 3 4 5

Table3.first; while not Table3.eof do   if Table3.FieldByName('...').AsInteger = ... // условие на поиск записи, которые надо удалять     Then Table3.Delete     Else Table3.Next;

[Zerg06969_]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

var DS : TDataSource;   procedure TForm1.DBGrid1Enter(Sender: TObject); begin DS := DataSource1; end;   procedure TForm1.DBGrid2Enter(Sender: TObject); begin DS := DataSource2; Table1.Refresh; end;   procedure TForm1.Button1Click(Sender: TObject); var i:integer;   begin     if DS = DataSource1 then //Если активно DBGrid1       begin       if Table2.RecordCount <> 0 then       if MessageDlg('Удалить все записи из таблицы Table1 и Table2?',mtCustom,[mbYes,mbNo],0)  = mrNo then exit         else           begin             Table2.First; // Установка позиции курсора на начало таблицы Table2               for i := 1 to Table2.RecordCount do Table2.Delete; //цикл удаления всех записей в дочерней Table2           end;       if Table1.RecordCount <> 0 then Table1.Delete; // Далее удаление записи в главной Table1       end else //иначе удаляем выделенную запись из таблицы Table2     if DS = DataSource2 then //Если активно DBGrid2     begin     if Table2.RecordCount <> 0 then     if MessageDlg('Удалить выделенную запись из таблицы Table2?',mtCustom,[mbYes,mbNo],0)  = mrNo then exit     else      Table2.Delete;     end;

lmikle: Пользуемся тегами.

[Maks19]

Здравствуйте! Как сделать чтобы при удалении записи из таблицы удалилась строка в комбобоксе? Т. е изначально при вводе в комбокс текст попадает в таблицу.
По коду привед. ниже удаляется строка в комбобокс, но она не соответствует выбранной записи в таблице.

Код:

1 2	for i:=0 to  ComboBox1.Items.Count do  ComboBox1.Items.Delete(i-1);

[lmikle]

Этот код вообще должен с ошибкой выпадать...

Код:

1 2 3 4 5 6 7 8

var   Idx : Integer; begin   DeletedProjectName := '...';   ...   Idx := ComboBox1.Items.IndexOf(DeletedProjectName);   If Idx > -1 Then ComboBox1.Items.Delete(Idx); end;

[Maks19]

А в deletedProjectName что ? Пустая строка?
Не удаляется

[lmikle]

Это то, что ты удаляешь. Т.е. имя, я просто сделал переменную для простоты. Если ты удаляешь выбранный в ComboBox проект, то тогда код будет примерно таким:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   Idx : Integer; begin   DeletedProjectName := ComboBox1.Text;   ...   Idx := ComboBox1.Items.IndexOf(DeletedProjectName);   If Idx > -1 Then     Begin       ComboBox1.Items.Delete(Idx);       ComboBox1.Text := '';     End; end;

[Maks19]

Сообщение от lmikle

Это то, что ты удаляешь. Т.е. имя, я просто сделал переменную для простоты. Если ты удаляешь выбранный в ComboBox проект, то тогда код будет примерно таким:

Код:

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