First commit 14/02/1999

TDlgBuscar.h

@@ -0,0 +1,54 @@
+//----------------------------------------------------------------------------
+#ifndef TDlgBuscarH
+#define TDlgBuscarH
+//----------------------------------------------------------------------------
+#include <vcl\ExtCtrls.hpp>
+#include <vcl\Buttons.hpp>
+#include <vcl\StdCtrls.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\Forms.hpp>
+#include <vcl\Graphics.hpp>
+#include <vcl\Classes.hpp>
+#include <vcl\SysUtils.hpp>
+#include <vcl\Windows.hpp>
+#include <vcl\System.hpp>
+#include <vcl\DBGrids.hpp>
+#include "Grids.hpp"
+#include <vcl\DBTables.hpp>
+#include <vcl\DB.hpp>
+#include <Db.hpp>
+//----------------------------------------------------------------------------
+
+#define PRIOR -1
+#define NEW    0
+#define NEXT   1
+
+class TDlgBuscar : public TForm
+{
+__published:
+	TButton *OKBtn;
+	TButton *CancelBtn;
+	TBevel *Bevel1;
+	TDBGrid *DBGrid1;
+	TComboBox *ComboBox1;
+	TEdit *Edit1;
+	TLabel *Label1;
+	TLabel *Label2;
+    TDataSource *DsBusquedas;
+    TTable *TbBusquedas;
+	void __fastcall ComboBox1Change(TObject *Sender);
+	void __fastcall Edit1Change(TObject *Sender);
+
+	void __fastcall DBGrid1DblClick(TObject *Sender);
+    void __fastcall TbBusquedasAfterOpen(TDataSet *DataSet);
+private:
+public:
+    AnsiString Filter, DefaultField;
+    bool __fastcall Buscar(int Tipo, TTable *Sender);
+
+	virtual __fastcall TDlgBuscar(TComponent* AOwner);
+};
+//----------------------------------------------------------------------------
+extern TDlgBuscar *DlgBuscar;
+//----------------------------------------------------------------------------
+#endif