85 lines
2.7 KiB
C++
85 lines
2.7 KiB
C++
//---------------------------------------------------------------------------
|
|
#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ó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;
|
|
}
|
|
//---------------------------------------------------------------------------
|