oberdan
asked on
DBGrid Cells II
I have now a simple question:
Using que ansWer to my previous question I acess the data in a DBGrid cell and check if this data exists in another table. Now I don't know how to make the DBGRid accept the typed text. I try the Post method to send the data to the table, but I receiva the message "Stack Overflow Error". I thing that when the post is called it calls the OnSetText event againg. How can I send the data to the table after typed?
Using que ansWer to my previous question I acess the data in a DBGrid cell and check if this data exists in another table. Now I don't know how to make the DBGRid accept the typed text. I try the Post method to send the data to the table, but I receiva the message "Stack Overflow Error". I thing that when the post is called it calls the OnSetText event againg. How can I send the data to the table after typed?
ASKER
Explaining better:
On the Form OnCreate event I have:
begin
Table1.Open;
Table1.Append;
Table1.Setkey;
end
The first field of the table is called "Number", and is indexed.
On the event TForm1.Table1NumberSetText
begin
Table1.FieldByName('Number
if Table1.GotoKey then
begin
MessageDlg('Number already exists!',mtError,[mbok],o)
{here I'd like to cancel the operation and clear the cell}
end
else
{Here I'd like to send the data to the table}
end;
My problem is the Stack Overflow. When I do any change whit the data the event is called again.
What I want is:
1 - Get the user's text.
2 - Search in Table1 for the text.
3 - If exist, display message and cancel operation.
Else send the data to table
Do you know any good book that explain how to make this operations? Something like "Mastering Databases in Delphi"?
On the Form OnCreate event I have:
begin
Table1.Open;
Table1.Append;
Table1.Setkey;
end
The first field of the table is called "Number", and is indexed.
On the event TForm1.Table1NumberSetText
begin
Table1.FieldByName('Number
if Table1.GotoKey then
begin
MessageDlg('Number already exists!',mtError,[mbok],o)
{here I'd like to cancel the operation and clear the cell}
end
else
{Here I'd like to send the data to the table}
end;
My problem is the Stack Overflow. When I do any change whit the data the event is called again.
What I want is:
1 - Get the user's text.
2 - Search in Table1 for the text.
3 - If exist, display message and cancel operation.
Else send the data to table
Do you know any good book that explain how to make this operations? Something like "Mastering Databases in Delphi"?
Hi oberdan,
Sorry, but this I don't understand! What's the purpose of this code? On the OnCreate you open the table (ok, i can get this) but you also append a record to it (I already find it strange if you append it when you activate it, but when you create a form? That's only at the startup!).
Please, explain us what you want to happen.
But now, for the question : I think it has to do with the fact that when you search the table, you move the pointer away from the record you want to insert (I think, am not sure) So you can try this. Before you search :
var RecordBookmark : TBookmark; (in procedure heading)
RecordBookmark := table1.GetBookMark;
After you have searched and before you cancel the record (table1.Cancel) or post the record (table1.post) you first go back to the record by
table1.GotoBookMark(Record
and offcourse free the bookmark
table1.FreeBookMark(Record
You can also use the try except on ... end if you want to check for existing indexes, because at key violation delphi sends an exception.
Sorry, but this I don't understand! What's the purpose of this code? On the OnCreate you open the table (ok, i can get this) but you also append a record to it (I already find it strange if you append it when you activate it, but when you create a form? That's only at the startup!).
Please, explain us what you want to happen.
But now, for the question : I think it has to do with the fact that when you search the table, you move the pointer away from the record you want to insert (I think, am not sure) So you can try this. Before you search :
var RecordBookmark : TBookmark; (in procedure heading)
RecordBookmark := table1.GetBookMark;
After you have searched and before you cancel the record (table1.Cancel) or post the record (table1.post) you first go back to the record by
table1.GotoBookMark(Record
and offcourse free the bookmark
table1.FreeBookMark(Record
You can also use the try except on ... end if you want to check for existing indexes, because at key violation delphi sends an exception.
ASKER
Hello ZifNab
My Problem is:
In a DBGrid, to verify if the user's entry already exist in a Table. If exists, Display a message and cancel the entry, else, proceed. I don't know if to make this I really want check an exception. I was trying the OnSetText method of the TField, but it results in a infinite recursion and Stack Overflow.
Maybe you don't understand me because my english is bad.
[]'s
My Problem is:
In a DBGrid, to verify if the user's entry already exist in a Table. If exists, Display a message and cancel the entry, else, proceed. I don't know if to make this I really want check an exception. I was trying the OnSetText method of the TField, but it results in a infinite recursion and Stack Overflow.
Maybe you don't understand me because my english is bad.
[]'s
ASKER
Adjusted points to 60
Hi again!
Maybe you should try to create another Table object and
in it you will check if this value already exists,
and not to move from record to record in the editted
table object.
You can also use SQL objects to find if that value was entered.
Good luck !
Maybe you should try to create another Table object and
in it you will check if this value already exists,
and not to move from record to record in the editted
table object.
You can also use SQL objects to find if that value was entered.
Good luck !
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
( My previous example uses the Animals table in DBDEMOS. )
ASKER
The Abort procedure I'd never thing.
Dbgrid to edit?