From daf17154bf13139d9375f48525d19d6aaba08155 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= <debian@jff-webhosting.net>
Date: Sat, 2 Aug 2014 08:43:31 +0200
Subject: Imported Upstream version 3.1.2

---
 examples/sample4.cpp | 135 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 135 insertions(+)
 create mode 100755 examples/sample4.cpp

(limited to 'examples/sample4.cpp')

diff --git a/examples/sample4.cpp b/examples/sample4.cpp
new file mode 100755
index 0000000..16acada
--- /dev/null
+++ b/examples/sample4.cpp
@@ -0,0 +1,135 @@
+/*  sample4.cpp
+
+    Xbase64 project source code
+
+    This sample program reads the database created and updated by the sample1 
+    and sample2 program
+
+    This program demonstrates the use of the following functions/methods
+    DeleteRecord, UndeleteRecord, RecordDeleted
+
+    Copyright (C) 1997,2003  Gary A. Kunkel   
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    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.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+    Contact:
+    
+     Email:
+    
+      xbase64-devel@lists.sourceforge.net
+      xbase64-users@lists.sourceforge.net
+      
+      
+     Regular Mail:
+     
+       XBase Support
+       149C South Main St
+       Keller Texas, 76248     
+       USA
+
+*/
+
+#include <xbase64/xbase64.h>
+
+int main()
+{
+  xbShort rc;
+  xbXBase x;
+  xbDbf MyFile( &x );
+  MyFile.AutoLockOff();
+
+#ifdef XB_INDEX_NDX
+  xbNdx MyIndex1( &MyFile );
+  xbNdx MyIndex2( &MyFile );
+  xbNdx MyIndex3( &MyFile );
+#endif
+#ifdef XB_INDEX_NTX
+  xbNtx MyIndex4( &MyFile );
+  xbNtx MyIndex5( &MyFile );
+#endif
+
+  if(( rc = MyFile.OpenDatabase( "MYFILE.DBF" )) != XB_NO_ERROR ){
+     std::cout << "Error opening file" << std::endl;
+     x.DisplayError( rc );
+     exit(1);
+  }
+  
+#ifdef XB_INDEX_NDX
+  if(( rc = MyIndex1.OpenIndex( "MYINDEX1.NDX" )) != XB_NO_ERROR ){
+     std::cout << "\nError opening index1"  << std::endl;
+     x.DisplayError( rc );
+     exit(1);
+  }
+
+  if(( rc = MyIndex2.OpenIndex( "MYINDEX2.NDX" )) != XB_NO_ERROR ){
+     std::cout << "\nError opening index2" << std::endl;
+     x.DisplayError( rc );
+     exit(1);
+  }
+
+  if(( rc = MyIndex3.OpenIndex( "MYINDEX3.NDX" )) != XB_NO_ERROR ){
+     std::cout << "\nError opening index3" << std::endl;
+     x.DisplayError( rc );
+     exit(1);
+  }
+
+#endif
+#ifdef XB_INDEX_NTX
+  if(( rc = MyIndex4.OpenIndex( "MYINDEX4.NTX" )) != XB_NO_ERROR ){
+     std::cout << "\nError opening index4" << std::endl;
+     x.DisplayError( rc );
+     exit(1);
+  }
+  if(( rc = MyIndex5.OpenIndex( "MYINDEX5.NTX" )) != XB_NO_ERROR ){
+     std::cout << "\nError opening index5" << std::endl;
+     x.DisplayError( rc );
+     exit(1);
+  }
+#endif
+
+  std::cout << "Sample GetRecord\n"; 
+
+//  MyFile.ExclusiveLock( XB_LOCK ); /* lock the files for our exclusive use */
+
+  MyFile.GetRecord( 2L );          /* get the second record */
+
+  MyFile.DeleteRecord();           /* delete it */
+  
+  if( MyFile.RecordDeleted() )
+    std::cout << "Record is deleted..." << std::endl;
+  else 
+    std::cout << "Record is not deleted..." << std::endl;
+
+/* to undelete a record the following commented code could be used
+  MyFile.UndeleteRecord();
+  if( MyFile.RecordDeleted() )
+     std::cout << "Record is deleted...\n";
+  else 
+    std::cout << "Record is not deleted...\n";
+*/
+
+/* to permanently remove deleted records from the file, pack the database */
+
+   if(( rc = MyFile.PackDatabase( XB_LOCK )) != XB_NO_ERROR ){
+      std::cout << "Error packing database" << std::endl;
+      x.DisplayError( rc );
+   }
+   else
+      std::cout << "Database packed." << std::endl;
+
+//  MyFile.ExclusiveUnlock();         /* unlock the files */
+  MyFile.CloseDatabase();	    /* close database */
+  return 0;
+}     
-- 
cgit v1.2.3