unit2.cpp

一个建立在BDE引擎上的

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

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm2::Button4Click(TObject *Sender)
{
Form1->Show();Form2->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::DBGrid3DblClick(TObject *Sender)
{   DBGrid7->Visible=false;  DBMemo3->Visible=false;
   DBGrid2->Visible=false;  DBMemo2->Visible=false;
   DBGrid8->Visible=false;   DBMemo4->Visible=false;
DBGrid1->Visible=true;    DBMemo1->Visible=true;
Query2->SQL->Clear();     //清除以前的SQL语句

DataSource2->Enabled = false;
    Query2->Active=false;
     Query2->SQL->Add("select *");
     Query2->SQL->Add("FROM"+Edit4->Text+" where");
      Query2->SQL->Add(" BuNa like '"+hao->Text+buname->Text+hao->Text+AnsiString("'"));
       Query2->Active=true;
        DataSource2->Enabled = true;
        Query1->Active=true;
}
//---------------------------------------------------------------------------

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

void __fastcall TForm2::DBGrid4DblClick(TObject *Sender)
{ DBGrid7->Visible=false;  DBMemo3->Visible=false;
DBGrid2->Visible=true;  DBMemo2->Visible=true;
DBGrid8->Visible=false;   DBMemo4->Visible=false;
DBGrid1->Visible=false;    DBMemo1->Visible=false;
 Query3->SQL->Clear();     //清除以前的SQL语句
Query5->SQL->Clear();     //清除以前的SQL语句
DataSource5->Enabled = false;
    Query5->Active=false;
     Query5->SQL->Add("select *");
     Query5->SQL->Add("FROM"+Edit4->Text+" where");
      Query5->SQL->Add(" KeNa = '"+kename->Text+AnsiString("'"));
      Query5->SQL->Add(" AND ");
       Query5->SQL->Add(" BuNa = '"+buname->Text+AnsiString("'"));
       Query5->Active=true;
        DataSource5->Enabled = true;
        DataSource3->Enabled = false;
    Query3->Active=false;
     Query3->SQL->Add("select *");
     Query3->SQL->Add("FROM"+Edit5->Text+" where");
      Query3->SQL->Add(" KeNa like '"+hao->Text+kename->Text+hao->Text+AnsiString("'"));
       Query3->SQL->Add(" AND ");
       Query3->SQL->Add(" BuNa = '"+buname->Text+AnsiString("'"));
       Query3->Active=true;
        DataSource3->Enabled = true;

      
}
//---------------------------------------------------------------------------

void __fastcall TForm2::DBGrid5DblClick(TObject *Sender)
{DBGrid7->Visible=true;  DBMemo3->Visible=true;
 DBGrid2->Visible=false;   DBMemo2->Visible=false;
  DBGrid8->Visible=false;   DBMemo4->Visible=false;
DBGrid1->Visible=false;    DBMemo1->Visible=false;
 Query6->SQL->Clear();     //清除以前的SQL语句
DataSource6->Enabled = false;
    Query6->Active=false;
     Query6->SQL->Add("select *");
     Query6->SQL->Add("FROM"+Edit5->Text+" where");
      Query6->SQL->Add(" BanNa = '"+banname->Text+AnsiString("'"));
       Query6->SQL->Add(" AND ");
       Query6->SQL->Add(" BuNa = '"+buname->Text+AnsiString("'"));
        Query6->SQL->Add(" AND ");
       Query6->SQL->Add(" KeNa = '"+kename->Text+AnsiString("'"));
       Query6->Active=true;
        DataSource6->Enabled = true;

Query4->SQL->Clear();     //清除以前的SQL语句
DataSource4->Enabled = false;
    Query4->Active=false;
     Query4->SQL->Add("select *");
     Query4->SQL->Add("FROM"+Edit6->Text+" where");
      Query4->SQL->Add(" BanNa like '"+hao->Text+banname->Text+hao->Text+AnsiString("'"));
      Query4->SQL->Add(" AND ");
       Query4->SQL->Add(" BuNa = '"+buname->Text+AnsiString("'"));
        Query4->SQL->Add(" AND ");
       Query4->SQL->Add(" KeNa = '"+kename->Text+AnsiString("'"));
       Query4->Active=true;
        DataSource4->Enabled = true;
}
//---------------------------------------------------------------------------





void __fastcall TForm2::DBGrid6DblClick(TObject *Sender)
{     DBGrid7->Visible=false;  DBMemo3->Visible=false;
   DBGrid2->Visible=false;  DBMemo2->Visible=false;
   DBGrid1->Visible=false;   DBMemo1->Visible=false;
DBGrid8->Visible=true;    DBMemo4->Visible=true;
Query7->SQL->Clear();     //清除以前的SQL语句
DataSource7->Enabled = false;
    Query7->Active=false;
     Query7->SQL->Add("select *");
     Query7->SQL->Add("FROM"+Edit6->Text+" where");
      Query7->SQL->Add(" RName = '"+rname->Text+AnsiString("'"));
       Query7->Active=true;
        DataSource7->Enabled = true;
}
//---------------------------------------------------------------------------

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