131 lines
4.7 KiB
C++
131 lines
4.7 KiB
C++
//---------------------------------------------------------------------------
|
|
#include <Classes.hpp>
|
|
#include <Controls.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include <Forms.hpp>
|
|
#include <Menus.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
#include "Esergui.h"
|
|
#include "string.h"
|
|
#include "stdlib.h"
|
|
#include "stdio.h"
|
|
|
|
//---------------------------------------------------------------------------
|
|
#ifndef PrincipalH
|
|
#define PrincipalH
|
|
#define N_TABLA 5
|
|
#define N_SUM 4
|
|
#define N_PED 5
|
|
#define N_CON 8
|
|
#define N_CIS 20
|
|
#define N_TRA 10
|
|
#define N_CAMPO N_CON+N_CIS+N_TRA+N_SUM+N_PED
|
|
#define NUM_MAX_TAM_BUFFER 10
|
|
#define NUM_MAX_TECLAS 17
|
|
#define OpConductor 1
|
|
#define OpCisterna 2
|
|
#define OpTractor 3
|
|
#define OpSuministrador 4
|
|
#define OpPedidos 5
|
|
//---------------------------------------------------------------------------
|
|
class TForm1 : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TMainMenu *MainMenu1;
|
|
TMenuItem *Informaciondeestructura1;
|
|
TMenuItem *InformacionEstructura1;
|
|
TMenuItem *Salir1;
|
|
TMenuItem *Autorizacion1;
|
|
TMenuItem *Conductor;
|
|
TMenuItem *Tractor;
|
|
TMenuItem *Comprobar1;
|
|
TMenuItem *Cisterna;
|
|
TMenuItem *Suministrador;
|
|
TMenuItem *Pedidos;
|
|
TMenuItem *Todos;
|
|
TListBox *ListBox1;
|
|
TMenuItem *ComprobarPeso1;
|
|
TMenuItem *ComprobarPeso2;
|
|
TMenuItem *DistribuirCarga1;
|
|
TMenuItem *ComprobarEstado1;
|
|
TButton *Button1;
|
|
TMenuItem *PesodeEntrada1;
|
|
TMenuItem *PesoEntrada1;
|
|
TMenuItem *PesodeSalida1;
|
|
TMenuItem *PesodeSalida2;
|
|
TMenuItem *Albaran1;
|
|
TMenuItem *Albaran2;
|
|
TMenuItem *Lecturafichero1;
|
|
TMenuItem *Transfer1;
|
|
TMenuItem *Elemento1;
|
|
TMenuItem *Linea1;
|
|
TMenuItem *Driver1;
|
|
TMenuItem *LeerOcasional1;
|
|
TMenuItem *EscribirOcasional1;
|
|
TLabel *Label1;
|
|
TEdit *Edit1;
|
|
TMenuItem *Dialogo1;
|
|
TMenuItem *Autorizacion2;
|
|
TMenuItem *PesodeEntrada2;
|
|
TMenuItem *PesodeSalida3;
|
|
TMenuItem *Albaran3;
|
|
TMenuItem *CargarThreads1;
|
|
TLabel *Label2;
|
|
TLabel *Label3;
|
|
TLabel *Label4;
|
|
TLabel *Label5;
|
|
TEdit *Edit2;
|
|
TEdit *Edit3;
|
|
TEdit *Edit4;
|
|
TEdit *Edit5;
|
|
void __fastcall Salir1Click(TObject *Sender);
|
|
void __fastcall ConductorClick(TObject *Sender);
|
|
void __fastcall FormCreate(TObject *Sender);
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
void __fastcall InformacionEstructura1Click(TObject *Sender);
|
|
void __fastcall CisternaClick(TObject *Sender);
|
|
void __fastcall TractorClick(TObject *Sender);
|
|
void __fastcall SuministradorClick(TObject *Sender);
|
|
void __fastcall PedidosClick(TObject *Sender);
|
|
void __fastcall TodosClick(TObject *Sender);
|
|
void __fastcall ComprobarPeso1Click(TObject *Sender);
|
|
void __fastcall ComprobarPeso2Click(TObject *Sender);
|
|
void __fastcall DistribuirCarga1Click(TObject *Sender);
|
|
void __fastcall ComprobarEstado1Click(TObject *Sender);
|
|
void __fastcall Button1Click(TObject *Sender);
|
|
void __fastcall ComprobarEstado2Click(TObject *Sender);
|
|
void __fastcall PesoEntrada1Click(TObject *Sender);
|
|
void __fastcall PesodeSalida2Click(TObject *Sender);
|
|
void __fastcall Albaran2Click(TObject *Sender);
|
|
void __fastcall Transfer1Click(TObject *Sender);
|
|
void __fastcall Elemento1Click(TObject *Sender);
|
|
void __fastcall Linea1Click(TObject *Sender);
|
|
void __fastcall Driver1Click(TObject *Sender);
|
|
void __fastcall LeerOcasional1Click(TObject *Sender);
|
|
void __fastcall EscribirOcasional1Click(TObject *Sender);
|
|
void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
|
|
void __fastcall CargarThreads1Click(TObject *Sender);
|
|
void __fastcall FinalizarThreads1Click(TObject *Sender);
|
|
|
|
private: // User declarations
|
|
char sDatoTecleado[NUM_MAX_TECLAS];
|
|
BYTE byOpcion;
|
|
bool bTodos;
|
|
|
|
public: // User declarations
|
|
TPanel *Panel[N_TABLA+N_CAMPO];
|
|
HANDLE HDContadores,HDAUT,HDPSE,HDPSS,HDALB;
|
|
BYTE Error;
|
|
hDBIDb hBaseDatos;
|
|
void BoolACadena(bool bVariable,char *cadena);
|
|
void MuestraLista(char *cadena);
|
|
void MuestraError(int Error);
|
|
bool LeerFichero(char *NombreFichero,char *NombreEstructura);
|
|
__fastcall TForm1(TComponent* Owner);
|
|
__fastcall ~TForm1();
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TForm1 *Form1;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|