First commit 16/08/1996

Builder/barmatic/articulos.cpp

@@ -0,0 +1,66 @@
+//---------------------------------------------------------------------------
+#include <vcl\vcl.h>
+#pragma hdrstop
+
+#include "articulos.h"
+//---------------------------------------------------------------------------
+#pragma resource "*.dfm"
+TForm2 *Form2;
+//---------------------------------------------------------------------------
+__fastcall TForm2::TForm2(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm2::Button6Click(TObject *Sender)
+{
+	Panel3->Caption = "Busca Art<72>culo";
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm2::Button1Click(TObject *Sender)
+{
+	Panel3->Caption = "Crea Art<72>culo";
+    Table1->Edit();
+    Table1->Insert();
+    DBEdit1->SetFocus();
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm2::Button2Click(TObject *Sender)
+{
+	Panel3->Caption = "Modifica Art<72>culo";
+    Table1->Edit();
+    Table1->Post();
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm2::Button3Click(TObject *Sender)
+{
+	Panel3->Caption = "Borra Art<72>culo";
+    Table1->Edit();
+    Table1->Delete();
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm2::Button4Click(TObject *Sender)
+{
+	int registro;
+	Panel3->Caption = "Siguiente Art<72>culo";
+    Table1->Next();
+    registro = Table1->RecNo;
+    Label3->Caption = registro;
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm2::Button5Click(TObject *Sender)
+{
+	int registro;
+	Panel3->Caption = "Anterior Art<72>culo";
+    Table1->Prior();
+    registro = Table1->RecNo;
+    Label3->Caption = registro;
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm2::FormActivate(TObject *Sender)
+{
+	int registro;
+    registro = Table1->RecNo;
+    Label3->Caption = registro;
+}
+//--------------------------------------------------------------------------- 

Builder/barmatic/articulos.h

@@ -0,0 +1,75 @@
+//---------------------------------------------------------------------------
+#ifndef articulosH
+#define articulosH
+//---------------------------------------------------------------------------
+#include <vcl\Classes.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\StdCtrls.hpp>
+#include <vcl\Forms.hpp>
+#include <vcl\ExtCtrls.hpp>
+#include <vcl\DB.hpp>
+#include <vcl\DBTables.hpp>
+#include <vcl\DBCtrls.hpp>
+#include <vcl\Mask.hpp>
+//---------------------------------------------------------------------------
+class TForm2 : public TForm
+{
+__published:	// IDE-managed Components
+	TPanel *Panel1;
+	TLabel *Label1;
+	TLabel *Label2;
+	TLabel *Label3;
+	TPanel *Panel2;
+	TPanel *Panel3;
+	TLabel *Label4;
+	TLabel *Label5;
+	TLabel *Label6;
+	TLabel *Label7;
+	TLabel *Label8;
+	TLabel *Label9;
+	TLabel *Label10;
+	TLabel *Label11;
+	TLabel *Label12;
+	TLabel *Label13;
+	TLabel *Label14;
+	TLabel *Label15;
+	TLabel *Label16;
+	TLabel *Label17;
+	TDataSource *DataSource1;
+	TTable *Table1;
+	TDBEdit *DBEdit1;
+	TDBEdit *DBEdit2;
+	TDBEdit *DBEdit3;
+	TDBEdit *DBEdit4;
+	TDBEdit *DBEdit5;
+	TDBEdit *DBEdit6;
+	TDBEdit *DBEdit7;
+	TDBEdit *DBEdit8;
+	TDBEdit *DBEdit9;
+	TButton *Button1;
+	TButton *Button2;
+	TButton *Button3;
+	TButton *Button4;
+	TButton *Button5;
+	TButton *Button6;
+	void __fastcall Button6Click(TObject *Sender);
+	void __fastcall Button1Click(TObject *Sender);
+	void __fastcall Button2Click(TObject *Sender);
+	void __fastcall Button3Click(TObject *Sender);
+	void __fastcall Button4Click(TObject *Sender);
+	void __fastcall Button5Click(TObject *Sender);
+	
+
+	void __fastcall FormActivate(TObject *Sender);
+	
+	
+	
+	
+private:	// User declarations
+public:		// User declarations
+	__fastcall TForm2(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern TForm2 *Form2;
+//---------------------------------------------------------------------------
+#endif

Builder/barmatic/barmati.cpp

@@ -0,0 +1,84 @@
+//---------------------------------------------------------------------------
+#include <vcl\vcl.h>
+#pragma hdrstop
+
+#include "articulos.h"
+#include "barmati.h"
+#include "claves.h"
+#include "listado.h"
+#include "repartidores.h"
+//---------------------------------------------------------------------------
+#pragma resource "*.dfm"
+TForm1 *Form1;
+int acceso;
+String clave = "bar";
+//---------------------------------------------------------------------------
+__fastcall TForm1::TForm1(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::Salida2Click(TObject *Sender)
+{
+	Close();	
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::Creditos1Click(TObject *Sender)
+{
+	ShowMessage("Barmatic 1.0 \nProgramado por OGA.");	
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::ModificarArticulo1Click(TObject *Sender)
+{
+   Form2->Visible=true;
+   Form2->Panel3->Caption = "Elija Opci<63>n",
+   Form2->Table1->Edit();
+   Form2->Table1->Insert();
+   Form2->DBEdit1->SetFocus();
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::ListadosdeProductos1Click(TObject *Sender)
+{
+    Form3->DataSource1->DataSet = Form3->Table1;
+	Form3->Visible=true;
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::ListadosdeStocksbajos1Click(TObject *Sender)
+{
+//Query1->Prepare();
+// Form3->Table1->Filtered = true;
+// Form3->Table1->FieldValues["Minimo_stock"];
+// Form3->Table1->Filter = " Unidades_actuales > 0";
+// Form3->Table1->Refresh();
+//  TLocateOptions SearchOptions;
+//  SearchOptions << loPartialKey;
+//  Form3->Table1->Locate("cod-ariculo", "Professional Divers, Ltd.",
+//    SearchOptions);
+// Form3->Query1->Close();
+// Form3->Query1->SQL->Add("SELECT * FROM articulo WHERE Minimo_stock > Unidades_actuales");
+// Form3->Query1->Active=true;
+// Form3->Query1->Open();
+// Form3->Table1->Refresh();
+ Form3->DataSource1->DataSet = Form3->Query1;
+ Form3->Visible=true;
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::N1Click(TObject *Sender)
+{
+    acceso=1;
+    Form4->Edit1->Clear();
+	Form4->Visible=true;
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::Cambiarclave1Click(TObject *Sender)
+{
+    acceso=2;
+    Form4->Edit1->Clear();
+	Form4->Visible=true;
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::Repartidores1Click(TObject *Sender)
+{
+	Form5->Visible=true;
+}
+//---------------------------------------------------------------------------

Builder/barmatic/barmati.h

@@ -0,0 +1,78 @@
+//---------------------------------------------------------------------------
+#ifndef barmatiH
+#define barmatiH
+//---------------------------------------------------------------------------
+#include <vcl\Classes.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\StdCtrls.hpp>
+#include <vcl\Forms.hpp>
+#include <vcl\Menus.hpp>
+#include <vcl\ExtCtrls.hpp>
+#include <vcl\DBTables.hpp>
+#include <vcl\DB.hpp>
+//---------------------------------------------------------------------------
+class TForm1 : public TForm
+{
+__published:	// IDE-managed Components
+	TMainMenu *MainMenu1;
+	TMenuItem *BasedeDatos1;
+	TMenuItem *Accesos1;
+	TMenuItem *Listados1;
+	TMenuItem *Mesas1;
+	TMenuItem *Salida1;
+	TMenuItem *Creditos1;
+	TMenuItem *Salida2;
+	TMenuItem *ModificarArticulo1;
+	TMenuItem *CajayAlmacen1;
+	TMenuItem *MantenimientoFactura1;
+	TMenuItem *Repartidores1;
+	TMenuItem *ClientesDomicilio1;
+	TMenuItem *N1;
+	TMenuItem *Cambiarclave1;
+	TMenuItem *ListadosdeProductos1;
+	TMenuItem *ListadosdeStocksbajos1;
+	TMenuItem *Abrirunamesa1;
+	TMenuItem *Consultarmesa1;
+	TMenuItem *Reservarmesa1;
+	TMenuItem *Facturarmesa1;
+	TMenuItem *Cambiarmesa1;
+	TPanel *Panel1;
+	TLabel *Label1;
+	TLabel *Label2;
+	TLabel *Label3;
+	TLabel *Label4;
+	TPanel *Panel2;
+	TPanel *Panel3;
+	TLabel *Label5;
+	TLabel *Label6;
+	TLabel *Label7;
+	TLabel *Label8;
+	TLabel *Label9;
+	TListBox *ListBox1;
+	TListBox *ListBox2;
+	TListBox *ListBox3;
+	TListBox *ListBox4;
+	TPanel *Panel4;
+	TLabel *Label10;
+	void __fastcall Salida2Click(TObject *Sender);
+	void __fastcall Creditos1Click(TObject *Sender);
+	
+	
+	
+	
+	void __fastcall ModificarArticulo1Click(TObject *Sender);
+	void __fastcall ListadosdeProductos1Click(TObject *Sender);
+	void __fastcall ListadosdeStocksbajos1Click(TObject *Sender);
+	void __fastcall N1Click(TObject *Sender);
+	void __fastcall Cambiarclave1Click(TObject *Sender);
+	void __fastcall Repartidores1Click(TObject *Sender);
+private:	// User declarations
+public:		// User declarations
+	__fastcall TForm1(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern TForm1 *Form1;
+extern acceso;
+extern String clave;
+//---------------------------------------------------------------------------
+#endif

Builder/barmatic/barmatic.cpp

@@ -0,0 +1,30 @@
+//---------------------------------------------------------------------------
+#include <vcl\vcl.h>
+#pragma hdrstop
+//---------------------------------------------------------------------------
+USEFORM("barmati.cpp", Form1);
+USERES("barmatic.res");
+USEFORM("articulos.cpp", Form2);
+USEFORM("listado.cpp", Form3);
+USEFORM("claves.cpp", Form4);
+USEFORM("repartidores.cpp", Form5);
+//---------------------------------------------------------------------------
+WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
+{
+	try
+	{
+		Application->Initialize();
+		Application->CreateForm(__classid(TForm1), &Form1);
+		Application->CreateForm(__classid(TForm2), &Form2);
+		Application->CreateForm(__classid(TForm3), &Form3);
+		Application->CreateForm(__classid(TForm4), &Form4);
+		Application->CreateForm(__classid(TForm5), &Form5);
+		Application->Run();
+	}
+	catch (Exception &exception)
+	{
+		Application->ShowException(&exception);
+	}
+	return 0;
+}
+//---------------------------------------------------------------------------

Builder/barmatic/barmatic.mak

@@ -0,0 +1,59 @@
+# ---------------------------------------------------------------------------
+VERSION = BCB.01
+# ---------------------------------------------------------------------------
+!ifndef BCB
+BCB = $(MAKEDIR)\..
+!endif
+# ---------------------------------------------------------------------------
+PROJECT = barmatic.exe
+OBJFILES = barmatic.obj barmati.obj articulos.obj listado.obj claves.obj \
+   repartidores.obj
+RESFILES = barmatic.res
+RESDEPEN = $(RESFILES) barmati.dfm articulos.dfm listado.dfm claves.dfm \
+   repartidores.dfm
+LIBFILES = 
+DEFFILE = 
+# ---------------------------------------------------------------------------
+CFLAG1 = -Od -Hc -w -k -r- -y -v -vi- -c -a4 -b- -w-par -w-inl -Vx -Ve -x
+CFLAG2 = -I$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl \
+   -H=$(BCB)\lib\vcld.csm 
+PFLAGS = -U$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib \
+   -I$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl \
+   -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -v \
+   -$Y -$W -$O- -JPHNV -M     
+RFLAGS = -i$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl 
+LFLAGS = -L$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib -aa -Tpe -x -v -V4.0 
+IFLAGS = 
+LINKER = ilink32
+# ---------------------------------------------------------------------------
+ALLOBJ = c0w32.obj $(OBJFILES)
+ALLRES = $(RESFILES)
+ALLLIB = $(LIBFILES) vcl.lib import32.lib cp32mt.lib 
+# ---------------------------------------------------------------------------
+.autodepend
+
+$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
+    $(BCB)\BIN\$(LINKER) @&&!
+    $(LFLAGS) +
+    $(ALLOBJ), +
+    $(PROJECT),, +
+    $(ALLLIB), +
+    $(DEFFILE), +
+    $(ALLRES) 
+!
+
+.pas.hpp:
+    $(BCB)\BIN\dcc32 $(PFLAGS) { $** }
+
+.pas.obj:
+    $(BCB)\BIN\dcc32 $(PFLAGS) { $** }
+
+.cpp.obj:
+    $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $* 
+
+.c.obj:
+    $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**
+
+.rc.res:
+    $(BCB)\BIN\brcc32 $(RFLAGS) $<
+#-----------------------------------------------------------------------------

Builder/barmatic/claves.cpp

@@ -0,0 +1,45 @@
+//---------------------------------------------------------------------------
+#include <vcl\vcl.h>
+#pragma hdrstop
+
+#include "barmati.h"
+#include "claves.h"
+//---------------------------------------------------------------------------
+#pragma resource "*.dfm"
+TForm4 *Form4;
+//---------------------------------------------------------------------------
+__fastcall TForm4::TForm4(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm4::Edit1KeyPress(TObject *Sender, char &Key)
+{
+ 	if (Key=='\r' && Edit1->Text == clave)
+    	{
+        ShowMessage("Clave correcta");
+        if (acceso==2)
+        	{
+            Label2->Visible=true;
+            Edit2->Visible=true;
+            Edit2->SetFocus();
+            }
+        else
+        	Form4->Visible=false;
+        }
+    else if (Key=='\r')
+    	ShowMessage("Clave incorrecta");
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm4::Edit2KeyPress(TObject *Sender, char &Key)
+{
+	if (Key=='\r')
+    	{
+        clave = Edit2->Text;
+        Edit2->Clear();
+        Label2->Visible=false;
+        Edit2->Visible=false;
+        Form4->Visible=false;
+        }
+}
+//---------------------------------------------------------------------------

Builder/barmatic/claves.h

@@ -0,0 +1,28 @@
+//---------------------------------------------------------------------------
+#ifndef clavesH
+#define clavesH
+//---------------------------------------------------------------------------
+#include <vcl\Classes.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\StdCtrls.hpp>
+#include <vcl\Forms.hpp>
+#include <vcl\ExtCtrls.hpp>
+//---------------------------------------------------------------------------
+class TForm4 : public TForm
+{
+__published:	// IDE-managed Components
+	TPanel *Panel1;
+	TLabel *Label1;
+	TEdit *Edit1;
+	TLabel *Label2;
+	TEdit *Edit2;
+	void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
+	void __fastcall Edit2KeyPress(TObject *Sender, char &Key);
+private:	// User declarations
+public:		// User declarations
+	__fastcall TForm4(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern TForm4 *Form4;
+//---------------------------------------------------------------------------
+#endif

Builder/barmatic/listado.cpp

@@ -0,0 +1,15 @@
+//---------------------------------------------------------------------------
+#include <vcl\vcl.h>
+#pragma hdrstop
+
+#include "listado.h"
+//---------------------------------------------------------------------------
+#pragma link "Grids"
+#pragma resource "*.dfm"
+TForm3 *Form3;
+//---------------------------------------------------------------------------
+__fastcall TForm3::TForm3(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------

Builder/barmatic/listado.h

@@ -0,0 +1,33 @@
+//---------------------------------------------------------------------------
+#ifndef listadoH
+#define listadoH
+//---------------------------------------------------------------------------
+#include <vcl\Classes.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\StdCtrls.hpp>
+#include <vcl\Forms.hpp>
+#include <vcl\DBGrids.hpp>
+#include "Grids.hpp"
+#include <vcl\DB.hpp>
+#include <vcl\DBTables.hpp>
+#include <vcl\QuickRep.hpp>
+//---------------------------------------------------------------------------
+class TForm3 : public TForm
+{
+__published:	// IDE-managed Components
+	TDataSource *DataSource1;
+	TTable *Table1;
+	TQuery *Query1;
+	TDBGrid *DBGrid1;
+	TStringField *Query1Codarticulo;
+	TStringField *Query1Descripcion;
+	TIntegerField *Query1Precio_compra;
+	TIntegerField *Query1Unidades_actuales;
+private:	// User declarations
+public:		// User declarations
+	__fastcall TForm3(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern TForm3 *Form3;
+//---------------------------------------------------------------------------
+#endif

Builder/barmatic/repartidores.cpp

@@ -0,0 +1,33 @@
+//---------------------------------------------------------------------------
+#include <vcl\vcl.h>
+#pragma hdrstop
+
+#include "repartidores.h"
+//---------------------------------------------------------------------------
+#pragma resource "*.dfm"
+TForm5 *Form5;
+//---------------------------------------------------------------------------
+__fastcall TForm5::TForm5(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm5::Button1Click(TObject *Sender)
+{
+    Table1->Edit();
+    Table1->Insert();
+    DBEdit1->SetFocus();
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm5::Button2Click(TObject *Sender)
+{
+    Table1->Edit();
+    Table1->Delete();
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm5::Button3Click(TObject *Sender)
+{
+    Table1->Edit();
+    Table1->Post();
+}
+//--------------------------------------------------------------------------- 

Builder/barmatic/repartidores.h

@@ -0,0 +1,41 @@
+//---------------------------------------------------------------------------
+#ifndef repartidoresH
+#define repartidoresH
+//---------------------------------------------------------------------------
+#include <vcl\Classes.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\StdCtrls.hpp>
+#include <vcl\Forms.hpp>
+#include <vcl\ExtCtrls.hpp>
+#include <vcl\DBTables.hpp>
+#include <vcl\DB.hpp>
+#include <vcl\DBCtrls.hpp>
+#include <vcl\Mask.hpp>
+//---------------------------------------------------------------------------
+class TForm5 : public TForm
+{
+__published:	// IDE-managed Components
+	TPanel *Panel1;
+	TLabel *Label1;
+	TLabel *Label3;
+	TPanel *Panel2;
+	TLabel *Label2;
+	TButton *Button1;
+	TButton *Button2;
+	TButton *Button3;
+	TButton *Button4;
+	TTable *Table1;
+	TDataSource *DataSource1;
+	TDBEdit *DBEdit1;
+	TPanel *Panel3;
+	void __fastcall Button1Click(TObject *Sender);
+	void __fastcall Button2Click(TObject *Sender);
+	void __fastcall Button3Click(TObject *Sender);
+private:	// User declarations
+public:		// User declarations
+	__fastcall TForm5(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern TForm5 *Form5;
+//---------------------------------------------------------------------------
+#endif