unit3.cpp

一个建立在BDE引擎上的

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cmp_TBackDrop"
#pragma link "XPMenu"
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::FormActivate(TObject *Sender)
{
Table1->Active=true;        
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)
{
  Query1->SQL->Clear();     //清除以前的SQL语句
  bool haha=false;
DataSource1->Enabled = false;
    Query1->Active=false;
//形成SQL语句的开始部分
    Query1->SQL->Add("select *");
    Query1->SQL->Add("FROM"+Edit2->Text+" where");
 if(CheckBox1->Checked)
 { if (haha)
     Query1->SQL->Add(" AND ");
     Query1->SQL->Add(" BuNa = '"+buname->Text+AnsiString("'"));
     if(!haha)haha=true;
     DataSource1->Enabled =true;
     Query1->Active=true;   }
     if(CheckBox2->Checked)
 { if (haha)
     Query1->SQL->Add(" AND ");
     Query1->SQL->Add(" KeNa like '"+hao->Text+Edit3->Text+hao->Text+AnsiString("'"));
     if(!haha)haha=true;
     DataSource1->Enabled =true;
     Query1->Active=true;   }

     if(CheckBox3->Checked)
 { if (haha)
     Query1->SQL->Add(" AND ");
     Query1->SQL->Add(" RName like '"+hao->Text+Edit1->Text+hao->Text+AnsiString("'"));
     if(!haha)haha=true;
     DataSource1->Enabled =true;
     Query1->Active=true;   }

      if(CheckBox4->Checked)
 { if (haha)
     Query1->SQL->Add(" AND ");
     Query1->SQL->Add(" Rwei like '"+hao->Text+Edit4->Text+hao->Text+AnsiString("'"));
     if(!haha)haha=true;
     DataSource1->Enabled =true;
     Query1->Active=true;   }

      if(CheckBox5->Checked)
 { if (haha)
     Query1->SQL->Add(" AND ");
     Query1->SQL->Add(" RAge >= '"+ynian->Text+AnsiString("'"));
      Query1->SQL->Add(" AND ");
     Query1->SQL->Add(" RAge <= '"+tnian->Text+AnsiString("'"));
     if(!haha)haha=true;
     DataSource1->Enabled =true;
     Query1->Active=true;   }
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Button2Click(TObject *Sender)
{
 Form2->Show();Form1->Hide();Form3->Hide();
}
//---------------------------------------------------------------------------

void __fastcall TForm3::Button3Click(TObject *Sender)
{
Form1->Show();Form3->Hide();Form2->Hide();        
}
//---------------------------------------------------------------------------