[SOLVED] Get rid of DBNavigator ...
lazarus / 16-Databases

----------------------------------------------------------------------
1HuntnMan · 2024-08-11 20:33

I have a previous post with a conflict between DBNav and a
JvDBLookUpCombo.
Anyway, thought I'd try another strategy and found this in the Lazarus
Tdbf Tutorial.  See code below.  This doesn't work if I attempt to
enter and place a SpeedBtn on the panel and onclick event Dbf
Proposals.DataSet.First(); . Laz won't even recognize this??? Just
testing to cure the other post I made about the JvDBLookUpCombo
disappearing value by creating a Nav without using the DBNavigator.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Moving Thru
Table Records(Jumping to Beginning of File, End of File, Next Record,
Prior Record, etc.)DbfContacts.FilePathFull :=
'/home/somelocation/database_location/';   // Path to        the
database directoryDbfContacts.TableName := 'Contacts.dbf;    //
database file (including
extension)DbFContacts.Open;DbfContacts.DataSet.First();   // -> Go to
the first recordDbfContacts.DataSet.Prior();  // -> Go to the previous
recordDbfContacts.DataSet.Next();  //->  Go to the next
recordDbfContacts.DataSet.Last();  //->  Go to the last
recordDbfContacts.DataSet.BOF;  { Is the cursor at the beginning of
the data                                     (on the first record) ,
returns boolean }DbfContacts.DataSet.EOF;  //->  Is the cursor at the
end of the data                                     (on the last
record)

----------------------------------------------------------------------
cdbc · 2024-08-11 21:27

Hi
Skip the '.DataSet' in 'DbfContacts.DataSet.First();'. "DbfContacts"
*is* the /dataset/ 
Regards Benny

----------------------------------------------------------------------
egsuh · 2024-08-13 08:35

QuoteSkip the '.DataSet' in 'DbfContacts.DataSet.First();'.
"DbfContacts" *is* the /dataset/
I agree. Your codes should work.

----------------------------------------------------------------------
1HuntnMan · 2024-08-15 17:43

Yup, leave out the DataSet, just DbfContacts.First(),
DbfContacts.Prior(), DbfContacts.Last(), etc.

Thanks, the Lazarus TDbf Tutorial is wrong in their examples, see
below:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Moving Thru
Table Records(Jumping to Beginning of File, End of File, Next Record,
Prior Record, etc.)DbfContacts.FilePathFull :=
'/home/somelocation/database_location/';   // Path to        the
database directoryDbfContacts.TableName := 'Contacts.dbf;    //
database file (including
extension)DbFContacts.Open;DbfContacts.DataSet.First();   // -> Go to
the first recordDbfContacts.DataSet.Prior();  // -> Go to the previous
recordDbfContacts.DataSet.Next();  //->  Go to the next
recordDbfContacts.DataSet.Last();  //->  Go to the last
recordDbfContacts.DataSet.BOF;  { Is the cursor at the beginning of
the data                                     (on the first record) ,
returns boolean }DbfContacts.DataSet.EOF;  //->  Is the cursor at the
end of the data                                     (on the last
record)