Unit3.cpp

Package: data [view]
Upload User: gmgdxu
Upload Date: 2013-01-31
Package Size: 238k
Code Size: 3k
Development Platform: C++ Builder
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "Unit1.h"
  5. #include "Unit2.h"
  6. #include "Unit3.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "cmp_TBackDrop"
  10. #pragma link "XPMenu"
  11. #pragma resource "*.dfm"
  12. TForm3 *Form3;
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm3::TForm3(TComponent* Owner)
  15.         : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm3::FormActivate(TObject *Sender)
  20. {
  21. Table1->Active=true;        
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TForm3::Button1Click(TObject *Sender)
  25. {
  26.   Query1->SQL->Clear();     //清除以前的SQL语句
  27.   bool haha=false;
  28. DataSource1->Enabled = false;
  29.     Query1->Active=false;
  30. //形成SQL语句的开始部分
  31.     Query1->SQL->Add("select *");
  32.     Query1->SQL->Add("FROM"+Edit2->Text+" where");
  33.  if(CheckBox1->Checked)
  34.  { if (haha)
  35.      Query1->SQL->Add(" AND ");
  36.      Query1->SQL->Add(" BuNa = '"+buname->Text+AnsiString("'"));
  37.      if(!haha)haha=true;
  38.      DataSource1->Enabled =true;
  39.      Query1->Active=true;   }
  40.      if(CheckBox2->Checked)
  41.  { if (haha)
  42.      Query1->SQL->Add(" AND ");
  43.      Query1->SQL->Add(" KeNa like '"+hao->Text+Edit3->Text+hao->Text+AnsiString("'"));
  44.      if(!haha)haha=true;
  45.      DataSource1->Enabled =true;
  46.      Query1->Active=true;   }
  47.      if(CheckBox3->Checked)
  48.  { if (haha)
  49.      Query1->SQL->Add(" AND ");
  50.      Query1->SQL->Add(" RName like '"+hao->Text+Edit1->Text+hao->Text+AnsiString("'"));
  51.      if(!haha)haha=true;
  52.      DataSource1->Enabled =true;
  53.      Query1->Active=true;   }
  54.       if(CheckBox4->Checked)
  55.  { if (haha)
  56.      Query1->SQL->Add(" AND ");
  57.      Query1->SQL->Add(" Rwei like '"+hao->Text+Edit4->Text+hao->Text+AnsiString("'"));
  58.      if(!haha)haha=true;
  59.      DataSource1->Enabled =true;
  60.      Query1->Active=true;   }
  61.       if(CheckBox5->Checked)
  62.  { if (haha)
  63.      Query1->SQL->Add(" AND ");
  64.      Query1->SQL->Add(" RAge >= '"+ynian->Text+AnsiString("'"));
  65.       Query1->SQL->Add(" AND ");
  66.      Query1->SQL->Add(" RAge <= '"+tnian->Text+AnsiString("'"));
  67.      if(!haha)haha=true;
  68.      DataSource1->Enabled =true;
  69.      Query1->Active=true;   }
  70. }
  71. //---------------------------------------------------------------------------
  72. void __fastcall TForm3::Button2Click(TObject *Sender)
  73. {
  74.  Form2->Show();Form1->Hide();Form3->Hide();
  75. }
  76. //---------------------------------------------------------------------------
  77. void __fastcall TForm3::Button3Click(TObject *Sender)
  78. {
  79. Form1->Show();Form3->Hide();Form2->Hide();        
  80. }
  81. //---------------------------------------------------------------------------