unit1.cpp

来自「有视频」· C++ 代码 · 共 36 行

//---------------------------------------------------------------------------
#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)
{
  Table1->Append();
  Table1->FieldByName("科目代码")->AsString=Edit1->Text.Trim();
  Table1->FieldByName("科目名称")->AsString=Edit2->Text.Trim();
  Table1->Post();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString filename;
  filename="test.dbf";
  Query1->Active=False;
  Query1->SQL->Clear();
  Query1->SQL->Add("INSERT INTO \""+filename+"\" (科目代码,科目名称)");
  Query1->SQL->Add("VALUES('"+Edit1->Text.Trim()+"','"+Edit2->Text.Trim()+"')");
  Query1->ExecSQL();
}
//---------------------------------------------------------------------------