unit1.cpp

来自「将电子表格Excel中的数据保存到SQL数据库中」· C++ 代码 · 共 54 行

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

#include <vcl.h>
#pragma hdrstop
#include "vcl\utilcls.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure
int i=1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  i=i+1;
  Enter();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Enter()
{
  Variant Ex,Wb,Sh1;
  Ex=Variant::CreateObject("Excel.Application");
  //Ex.OlePropertySet("Visible",(Variant)true); //使Excel启动后可见
  Ex.PG("WorkBooks").PR("Open","D:\\Book1.xls");
  Wb=Ex.PG("ActiveWorkBook");
  Sh1=Wb.PG("ActiveSheet");
  DM->Table1->Open();
  DM->Table1->Insert();
  Edit2->Text=Sh1.PG("Cells",i,1).PG("Value");
  Edit3->Text=Sh1.PG("Cells",i,2).PG("Value");
  DM->Table1BDEDesigner->Value=StrToDate(Edit2->Text);
  DM->Table1BDEDesigner2->Value=StrToFloat(Edit3->Text);
  DM->Table1->Post();
  Wb.PR("Close");
}
//---------------------------------------------------------------------------