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

78
MySQL_ADO.h Normal file
View File

@ -0,0 +1,78 @@
//---------------------------------------------------------------------------
#ifndef MySQL_ADOH
#define MySQL_ADOH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Db.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include "mySQLDbTables.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
TDataSource *DataSource1;
TDBGrid *DBGrid1;
TADOTable *ADOTable1;
TSplitter *Splitter1;
TButton *Button1;
TDBGrid *DBGrid2;
TDataSource *DataSource2;
TTable *Table1;
TButton *Button2;
TDatabase *Database1;
TQuery *Query1;
TUpdateSQL *UpdateSQL1;
TADOQuery *ADOQuery1;
TStringField *Query1name;
TStringField *Query1owner;
TStringField *Query1species;
TStringField *Query1sex;
TDateField *Query1birth;
TDateField *Query1death;
TIntegerField *Query1id;
TAutoIncField *ADOQuery1id;
TStringField *ADOQuery1name;
TStringField *ADOQuery1owner;
TStringField *ADOQuery1species;
TStringField *ADOQuery1sex;
TDateField *ADOQuery1birth;
TDateField *ADOQuery1death;
TStringField *ADOTable1name;
TStringField *ADOTable1owner;
TStringField *ADOTable1species;
TStringField *ADOTable1sex;
TDateField *ADOTable1birth;
TDateField *ADOTable1death;
TAutoIncField *ADOTable1id;
TmySQLDatabase *mySQLDatabase1;
TmySQLTable *mySQLTable1;
TStringField *mySQLTable1name;
TStringField *mySQLTable1owner;
TStringField *mySQLTable1species;
TStringField *mySQLTable1sex;
TDateField *mySQLTable1birth;
TDateField *mySQLTable1death;
TLargeintField *mySQLTable1id;
void __fastcall ADOTable1RecordChangeComplete(
TCustomADODataSet *DataSet, const TEventReason Reason,
const int RecordCount, const Error *Error,
TEventStatus &EventStatus);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif