C/OSCAR
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 16/08/1996

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 19:50:38 +02:00
commit 0f24b3477e
129 changed files with 10926 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
Builder/barmatic/barmati.cpp Normal file
View File

@ -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;
}
//---------------------------------------------------------------------------