1 files changed, 114 insertions, 0 deletions
diff --git a/examples/gui/dbftest/dbftest.pas b/examples/gui/dbftest/dbftest.pas
new file mode 100644
index 00000000..32c70484
--- /dev/null
+++ b/examples/gui/dbftest/dbftest.pas
@@ -0,0 +1,114 @@
+{
+    $Id: dbftest.pp,v 1.2 2001/01/18 12:40:41 sg Exp $
+
+    fpGUI  -  Free Pascal Graphical User Interface
+    Copyright (C) 2001 by
+      Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org
+
+    DBF database test
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+}
+
+
+program DBFTest;
+
+uses SysUtils, Classes, fpGUI, fpGUI_DB, DB, DBF;
+
+type
+
+  TMainForm = class(TForm)
+    DataSet: TDBF;
+    DataSource: TDataSource;
+    Box: TBoxLayout;
+    ListBox: TListBox;
+    CurDatasetLabel: TLabel;
+    CurNameText, CurEMailText: TDBText;
+    Navi: TBoxLayout;
+    FirstDataset, PrevDataset, NextDataset, LastDataset: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure FirstDatasetClick(Sender: TObject);
+    procedure PrevDatasetClick(Sender: TObject);
+    procedure NextDatasetClick(Sender: TObject);
+    procedure LastDatasetClick(Sender: TObject);
+  end;
+
+
+// -------------------------------------------------------------------
+//   TMainForm
+// -------------------------------------------------------------------
+
+procedure TMainForm.FormCreate(Sender: TObject);
+var
+  x: Integer;
+  s: String;
+begin
+  DataSet := TDBF.Create(Self);
+  DataSet.TableName := 'test.dbf';
+  DataSource := TDataSource.Create(Self);
+  DataSource.DataSet := DataSet;
+
+  CurNameText.DataSource := DataSource;
+  CurNameText.DataField := 'Name';
+  CurEMailText.DataSource := DataSource;
+  CurEMailText.DataField := 'Address';
+
+  DataSet.Open;
+
+  while not DataSet.EOF do
+  begin
+    SetLength(s, 0);
+    for x := 0 to DataSet.FieldCount - 2 do
+      s := s + DataSet.Fields[x].AsString + ', ';
+    s := s + DataSet.Fields[DataSet.FieldCount - 1].AsString;
+    ListBox.Items.Add(s);
+    DataSet.Next;
+  end;
+
+  DataSet.First;
+end;
+
+procedure TMainForm.FirstDatasetClick(Sender: TObject);
+begin
+  DataSet.First;
+end;
+
+procedure TMainForm.PrevDatasetClick(Sender: TObject);
+begin
+  DataSet.Prior;
+end;
+
+procedure TMainForm.NextDatasetClick(Sender: TObject);
+begin
+  DataSet.Next;
+end;
+
+procedure TMainForm.LastDatasetClick(Sender: TObject);
+begin
+  DataSet.Last;
+end;
+
+
+var
+  MainForm: TMainForm;
+begin
+  Application.Title := 'Interbase Test';
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.
+
+
+{
+  $Log: dbftest.pp,v $
+  Revision 1.2  2001/01/18 12:40:41  sg
+  * Now uses the correct field names for the data links ;)
+
+  Revision 1.1  2001/01/17 21:33:28  sg
+  * First version
+
+}