Subject | How to solve Updaterecordtypes |
---|---|
Author | Delmar |
Post date | 2004-01-27T12:59:44Z |
I´m migrating from BDE to IBO and I get some problem:
I don´t have found the command updaterecordtypes in IBO 4.2.Ie. I like one suggestion to substitute this command
This is the example code:
if (state=dsdragenter) and (source=ListBox1) then
begin
dmq.QcomporTurma.UpdateRecordTypes:= [rtDeleted]; {torna somente os deletados visiveis}
dmq.QcomporTurma.DisableControls;
dmq.QcomporTurma.First; {move to beginning of dataset}
if dmq.QcomporTurma.locate('codigo',strtoint(listaAluno.strings[listbox1.itemindex]),[]) then
dmq.QcomporTurma.RevertRecord; {undelete the current record}
dmq.QcomporTurma.UpdateRecordTypes := [rtModified, rtInserted, rtUnmodified];
dmq.QcomporTurma.EnableControls;
listaAluno.Delete(listBox1.itemIndex);
listbox1.Items.Delete(listbox1.ItemIndex);
edit2.Text:=inttostr(listbox1.Items.Count);
end;
[Non-text portions of this message have been removed]
I don´t have found the command updaterecordtypes in IBO 4.2.Ie. I like one suggestion to substitute this command
This is the example code:
if (state=dsdragenter) and (source=ListBox1) then
begin
dmq.QcomporTurma.UpdateRecordTypes:= [rtDeleted]; {torna somente os deletados visiveis}
dmq.QcomporTurma.DisableControls;
dmq.QcomporTurma.First; {move to beginning of dataset}
if dmq.QcomporTurma.locate('codigo',strtoint(listaAluno.strings[listbox1.itemindex]),[]) then
dmq.QcomporTurma.RevertRecord; {undelete the current record}
dmq.QcomporTurma.UpdateRecordTypes := [rtModified, rtInserted, rtUnmodified];
dmq.QcomporTurma.EnableControls;
listaAluno.Delete(listBox1.itemIndex);
listbox1.Items.Delete(listbox1.ItemIndex);
edit2.Text:=inttostr(listbox1.Items.Count);
end;
[Non-text portions of this message have been removed]