unit1.cpp

有视频

//---------------------------------------------------------------------------
#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)
{
  AnsiString ass,tabname;
  tabname="test.dbf";
  Query1->Active=False;
  Query1->SQL->Clear();
  Query1->SQL->Add("SELECT *");
  ass="FROM \""+tabname+"\" tab";
  Query1->SQL->Add(ass);
  Query1->SQL->Add("WHERE 科目代码='"+Edit1->Text+"'");
  Query1->SQL->Add("ORDER BY 科目代码");
  Query1->Active=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString ass,tabname;
  tabname="test.dbf";
  Query1->Active=False;
  Query1->SQL->Clear();
  Query1->SQL->Add("SELECT *");
  ass="FROM \""+tabname+"\" tab";
  Query1->SQL->Add(ass);
  Query1->SQL->Add("WHERE 科目代码 LIKE '%"+Edit1->Text+"%'");
  Query1->SQL->Add("ORDER BY 科目代码");
  Query1->Active=True;
}
//---------------------------------------------------------------------------