//--------------------------------------------------------------------------- #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