jianku.cpp

C++

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

#include <vcl.h>
#pragma hdrstop

#include "jianku.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Table1->Active=false;
Table1->DatabaseName="d:\\user";
Table1->TableName="student.db";
Table1->TableType=ttParadox;
Table1->FieldDefs->Clear();
Table1->FieldDefs->Add("StdNo",ftString,8,false);
Table1->FieldDefs->Add("Name",ftString,12,true);
Table1->FieldDefs->Add("Sex",ftString,2,true);
Table1->FieldDefs->Add("Dept",ftString,24,true);
Table1->CreateTable();
Table1->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Table1->AppendRecord(OPENARRAY(TVarRec,("960337","张晓东","男","环境工程系")));
Table1->AppendRecord(OPENARRAY(TVarRec,("960003","王东","男","环境工程系")));
Table1->AppendRecord(OPENARRAY(TVarRec,("961122","张宁","女","机械工程系")));
Table1->AppendRecord(OPENARRAY(TVarRec,("960432","黎明","男","电子工程系")));
Table1->AppendRecord(OPENARRAY(TVarRec,("961034","李敬","女","材料工程系")));

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------