deldatabase.cpp

这是个16路采集器的上位机源码。该套程序是由C++builder开发的

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DelDatabase.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Button3D"
#pragma resource "*.dfm"
TDelDatabaseFrm *DelDatabaseFrm;
//---------------------------------------------------------------------------
__fastcall TDelDatabaseFrm::TDelDatabaseFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TDelDatabaseFrm::FormCreate(TObject *Sender)
{
  ADOTable1->Open();
  ADOTable1->First();
  Edit1->Text=ADOTable1->FieldByName("datetime")->AsString;
  ADOTable1->Last();
  Edit2->Text=ADOTable1->FieldByName("datetime")->AsString;
  ADOTable1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TDelDatabaseFrm::Button1Click(TObject *Sender)
{
  StartTime=StrToDateTime(Edit1->Text);
  EndTime=StrToDateTime(Edit2->Text);
  ADOTable1->Open();
   ADOTable1->First();
   while(!ADOTable1->Eof)
     { if((ADOTable1->FieldByName("datetime")->AsDateTime>=StartTime)&& (ADOTable1->FieldByName("datetime")->AsDateTime<=EndTime))
         ADOTable1->Delete();
       else
         ADOTable1->Next();
     }
    ADOTable1->Close();
    ShowMessage("删除成功！");
    this->Close();
}
//---------------------------------------------------------------------------
void __fastcall TDelDatabaseFrm::Button2Click(TObject *Sender)
{
  this->Close();      
}
//---------------------------------------------------------------------------
void __fastcall TDelDatabaseFrm::Button3D1Click(TObject *Sender)
{
  Button1Click(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TDelDatabaseFrm::Button3D2Click(TObject *Sender)
{
  Button2Click(Sender);      
}
//---------------------------------------------------------------------------