How to Append a new line and save it in DBGrid?

[panoss]

This one works perfectly!!!
Now, what if I want the record to be appended (that is to be added to the end of the rows) and not just inserted after the current?
(ok, there have been some suggestions that I should make my own button that calls append, but I was thinking of something more...elegant...like...subclassing the dbnavigator... ...what do you think?)

[wp]

No - just look at the DBNavigator events: There's an OnClick and it has the NavButton clicked as a parameter!

I tested this to work (hopefully, again...):

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TDBNavButtonType);
2. begin
3.   if Button = nbInsert then
4.     DBNavigator1.DataSource.Dataset.Append;
5. end;

You should also consider sorting the query by the ID (SELECT ... FROM ... ORDER BY ...) then the new record will be put to the correct location automatically after posting.

[egsuh]

I want the record to be appended

You may press down keys until a new blank row is created. But the position in database is meaningless. Well, might have had some meaning at dBASE or Paradox days, but not now. You'd better get accustomed  to using index, 'order by', etc.

[taazz]

This one works perfectly!!!
Now, what if I want the record to be appended (that is to be added to the end of the rows) and not just inserted after the current?
(ok, there have been some suggestions that I should make my own button that calls append, but I was thinking of something more...elegant...like...subclassing the dbnavigator... ...what do you think?)

it is far easier and faster to drop a toolbar wiht some tool buttons that emulate or even replicate the dbnavigator behavior than to subclass dbnavigator to add a button. So I personally wouldn't waste time on it unless you plan to
1) create a feature request in the bug tracker with the new control
2) create a component library or extend an existing component library

in which case I would suggest to either get intouch with the library authors before any decisions to see how they would like to proceed.

[mangakissa]

Use DBGrid for info and a new form with editfields for modifying / insert  reords.

[panoss]

I think I finished it!
(check the attached file)

The essence of the changes I made is in the before post event of the Query2:

Code: Pascal  [Select][+][-]

1. procedure TForm1.SQLQuery2BeforePost(DataSet: TDataSet);
2. var SQLQuery1_country_id: Integer;
3. begin
4.   SQLQuery1_country_id := SQLQuery1.FieldByName('country_id').AsInteger;
5.   if Dataset.FieldByname('country_id').IsNull then
6.   begin
7.     Dataset.FieldByname('country_id').Value:= SQLQuery1_country_id;
8.   end;
9. end;    
10.  

I think it 's ok now, what do you think?

[panoss]

I see...silence, I 'll interprete this as an approval.
I think this project could be incuded in Lazarus' example projects.
It would have saved me a lot of time if it was there.