Search options (Page 5 of 10)

Please have a look at this for me
The table rows are numbered according to it's offset and limit.
Everything works well but when you click on search and after that next, it does not function well.

Details
1. Run project
2. Click next button : the numbering will continue from 51 to 100. Also when you change the number of rows per page it works well.
3. Click on search: problem start
4. Click on next : the numbering is not able to continue on clicking next.
Regards

Thank you
I have been able to figure it out.

procedure callForm(Form: TAForm);
begin
    TdbEdit(Form.FindComponent('Edit1')).Text :='Worked';
end;

procedure Form1_Button1_OnClick (Sender: String; var Cancel: boolean);
begin
    callForm(TAForm(TControl(Sender).Owner))
end;

I just had to change the Parent to Owner

Hello Dmitry,

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.TableGrid1.dbLimit := 10;
end;

procedure Form1_TableGrid1_OnChange(Sender: TObject; ACol, ARow: Integer);
var
    i : integer;
    rowFrom : integer = 0;
    rowTo : integer = 0;
    rowDBTotal : integer = 0;
begin
    rowFrom := Form1.TableGrid1.dbOffSet + 1;//rTo := Form1.TableGrid1.dbOffSet + Form1.TableGrid1.dbLimit;
    rowTo := Form1.TableGrid1.dbOffSet + Form1.TableGrid1.RowCount;
    //rowDBTotal := Form1.TableGrid1.dbTotalRows;//Total rows from database and not from tableGrid(not RowCount)

    Form1.lblRows.Caption := IntToStr(rowFrom) + ' to ' + IntToStr(rowTo) + ' of ' +  IntToStr(SQLExecute('SELECT COUNT(ID) FROM employees'));
    //so that instead of the above I will just do the following
    Form1.lblRows.Caption := IntToStr(rowFrom) + ' to ' + IntToStr(rowTo) + ' of ' +  IntToStr(rowDBTotal);
end;

Instead of

Form1.lblRows.Caption := IntToStr(rowFrom) + ' to ' + IntToStr(rowTo) + ' of ' +  IntToStr(SQLExecute('SELECT COUNT(ID) FROM employees'));

It will be

Form1.lblRows.Caption := IntToStr(rowFrom) + ' to ' + IntToStr(rowTo) + ' of ' +  IntToStr(rowDBTotal);

THE REASON FOR THIS IS I DONT WANT TO REQUERY THE DATABASE SINCE THE TABLEGRID HAS ALREADY QUERIED THE DATABASE ON UPDATE.
I mean that on tableGrid update or tableGrid load should come with the total rows from that query which should be attached to the tableGrid.
This will really help for the navigation through the table to be simplier and fast and will also reduce the number of queries to the database.
I hope to hear from you.
Regards

Thank you all.
Really appreciated

Again Dmitry,
I wish this feature will added to the tableGrid for easy alignment of column cells.
Find attached image below

It will be very nice to align the columns without having to write code.
Thank you.

The attached shows a tableGrid with pagination (first,previous, next and last)
I have added the code for the first three.

What will be the best code for the last button.
Regards.

Hello Dmitey,
Please can you add the dbLimit to the property window of the tableGrid?
So that we can set the default limit without coding.
And I wish a navigation control will be added to the tableGrid soon. Thank you.
Regards

You can also do it without writing script. Check whether this helps

Thank you once again Dmitry,
Based on your response I have been able to achieve restarting of the app with the following block of code

procedure Form1_btnRestart_OnClick(Sender: TObject; var Cancel: boolean);
begin
    Form1.Close;
    OpenFile(Application.ExeName);
end;

I think it may be useful to others.
Regards

Please find attached.
To use this project, pls dont forget to create a mySQL database first.
You can install xampp and access it phpMyAdmin to do that.
Import the zims.sql after you create the database.
Provide the database settings when prompted.
Example

Server(Host) : localhost
Port : 3306
User : root (default)
Password : (empty default)
Database : zims (the name of the database you created)

Sorry for the delay

The component I'm talking about is in respect with this post
http://myvisualdatabase.com/forum/viewtopic.php?id=4447