mainform.cpp

C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部分 数据库应用

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

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ //批量删除数据库记录
  this->BatchMove1->Source=this->Table2;
  this->BatchMove1->Destination=this->Table1;
  this->BatchMove1->Mappings->Clear();
  this->BatchMove1->Mode=batDelete;
  this->BatchMove1->Execute();
  this->DataSource1->DataSet=this->Table1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{  //创建数据库表一
   this->Table1->Close();
   this->Table1->DatabaseName="C:";
   this->Table1->TableName="Table1.db";
   this->Table1->TableType=ttParadox;
   this->Table1->FieldDefs->Clear();
   TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
   pNewDef->Name = "No";
   pNewDef->DataType = ftString;
   pNewDef->Required = true;
   pNewDef->Size = 15;
   Table1->IndexDefs->Clear();
   Table1->IndexDefs->Add("","No", TIndexOptions() <<ixPrimary << ixUnique);
   this->Table1->FieldDefs->Add("Name",ftString,12,true);
   this->Table1->FieldDefs->Add("Sex",ftString,2,true);
   this->Table1->FieldDefs->Add("Dept",ftString,24,true);
   this->Table1->CreateTable();
   this->Table1->Open();
   this->Table1->AppendRecord(OPENARRAY(TVarRec,("2004100701","王彬","男","轻工机械")));
   this->Table1->AppendRecord(OPENARRAY(TVarRec,("2004100702","汪兰","女","轻工机械")));
   this->Table1->AppendRecord(OPENARRAY(TVarRec,("2004100703","刘功德","男","轻工机械")));
   this->Table1->AppendRecord(OPENARRAY(TVarRec,("2004100704","汤栏兰","女","幼师")));
   this->Table1->AppendRecord(OPENARRAY(TVarRec,("2004100705","汤小敏","男","国际贸易")));
   this->Table1->AppendRecord(OPENARRAY(TVarRec,("2004100706","罗成","女","农机")));
   this->Table1->AppendRecord(OPENARRAY(TVarRec,("2004100707","汤波","男","农业种植")));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{  //创建数据库表二
   this->Table2->Close();
   this->Table2->DatabaseName="C:";
   this->Table2->TableName="Table2.db";
   this->Table2->TableType=ttParadox;
   this->Table2->FieldDefs->Clear();
   TFieldDef *pNewDef = Table2->FieldDefs->AddFieldDef();
   pNewDef->Name="No";
   pNewDef->DataType = ftString;
   pNewDef->Required = true;
   pNewDef->Size = 15;
   Table2->IndexDefs->Clear();
   Table2->IndexDefs->Add("","No", TIndexOptions() <<ixPrimary << ixUnique);
   this->Table2->FieldDefs->Add("Name",ftString,12,true);
   this->Table2->FieldDefs->Add("Sex",ftString,2,true);
   this->Table2->FieldDefs->Add("Dept",ftString,24,true);
   this->Table2->CreateTable();
   this->Table2->Open();
   this->Table2->AppendRecord(OPENARRAY(TVarRec,("2004100701","王彬","男","轻工机械")));
   this->Table2->AppendRecord(OPENARRAY(TVarRec,("2004100702","汪兰","女","轻工机械")));
   this->Table2->AppendRecord(OPENARRAY(TVarRec,("2004100703","刘功德","男","轻工机械")));
   this->Table2->AppendRecord(OPENARRAY(TVarRec,("2004100704","汤栏兰","女","幼师")));
   this->Table2->AppendRecord(OPENARRAY(TVarRec,("2004100705","汤小敏","男","国际贸易")));
   this->Table2->AppendRecord(OPENARRAY(TVarRec,("2004100706","罗成","女","农机")));
   this->Table2->AppendRecord(OPENARRAY(TVarRec,("2004100707","汤波","男","农业种植")));
   this->DataSource1->DataSet=this->Table2;
}
//---------------------------------------------------------------------------