CPP_Builder/Pruebas_DB_sobre_IP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 18/11/2001

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:14:42 +02:00
commit 8d47d749e6
47 changed files with 12209 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

130
Esergui -BDE utilizando API/EserguiBDE/Principal.h Normal file
View File

@ -0,0 +1,130 @@
//---------------------------------------------------------------------------
#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