Unit1.cpp
上传用户:lhxd_sz
上传日期:2014-10-02
资源大小:38814k
文件大小:1k
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
- #include "Unit1.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- #pragma resource "*.dfm"
- TForm1 *Form1;
- //---------------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button1Click(TObject *Sender)
- {
- int ii;
- AnsiString fieldname;
- if(!OpenDialog1->Execute())return;
- //Table1初始化
- Table1->Active=False;
- Table1->TableName=OpenDialog1->FileName;
- // Table1->Active=True;
- //Table2初始化
- Table2->Active=False;
- Table2->TableName="~temp";
- //复制到临时文件
- BatchMove1->Source=Table1;
- BatchMove1->Destination=Table2;
- BatchMove1->Mappings->Clear();
- for(ii=0;ii<Table1->FieldCount;ii++)
- {
- fieldname=Table1->Fields->Fields[ii]->FieldName;
- BatchMove1->Mappings->Add(fieldname);
- }
- BatchMove1->Mode=batCopy;
- BatchMove1->Execute();
- //从临时文件拷回
- Table1->Active=False;
- Table1->EmptyTable();
- BatchMove1->Source=Table2;
- BatchMove1->Destination=Table1;
- BatchMove1->Mode=batAppend;
- BatchMove1->Execute();
- }
- //---------------------------------------------------------------------------