//--------------------------------------------------------------------------- #include #pragma hdrstop #include "MySQL_ADO.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "mySQLDbTables" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::ADOTable1RecordChangeComplete( TCustomADODataSet *DataSet, const TEventReason Reason, const int RecordCount, const Error *Error, TEventStatus &EventStatus) { /* if ( Reason == erAddNew ) ADOTable1->Refresh(); */ } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { ADOTable1->Refresh(); /* ADOTable1->Insert(); ADOTable1->FieldByName("name")->AsString = "JODERING"; ADOTable1->Post(); */ } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { // Query1->Refresh(); } //---------------------------------------------------------------------------