main.cpp

万能集成查询器,能够对系统中所有的数据库系统进行查询、转库、及整理。

     for(int k=0;k<this->CheckListBox1->Items->Count;k++)
     {
         this->CheckListBox1->Checked[k]=true;
     };
      ComboBox21->Items=ComboBox17->Items;
     ComboBox11->Items=ComboBox17->Items;
     ComboBox23->Items=ComboBox17->Items;
     ComboBox14->Items=ComboBox17->Items;
     ComboBox24->Items=ComboBox17->Items;
     this->ListBox1->Items=this->CheckListBox2->Items;


}

bool TForm1::ComplexityQuery()
{
        //TODO: Add your source code here
     this->Memo1->Lines->Clear();
     String sql;
     if(this->RadioGroup1->ItemIndex==0) {
      sql="Select ";
      bool flag;
      flag=false;
      for(int i=0;i<CheckListBox1->Items->Count;i++)
      {
         if(CheckListBox1->Checked[i]){
              if(!flag){
              sql=sql+CheckListBox2->Items->Strings[i]+"  AS  "+CheckListBox1->Items->Strings[i];
              flag=true;
              }else{
                 sql=sql+", ";
                 sql=sql+CheckListBox2->Items->Strings[i]+"  AS  "+CheckListBox1->Items->Strings[i];
              };
         };
      };
      this->Memo1->Lines->Add(sql);
      if(!flag) return false;
     }
     String TabName;
     if(this->RadioGroup1->ItemIndex==1)
     {
        
        TabName=ini->ReadString("数据表名",ComboBox10->Text.Trim(),"");
        sql="Select " +TabName+".*";
        if(ComboBox19->Text.Trim()!="")
        {
           TabName=ini->ReadString("数据表名",ComboBox19->Text.Trim(),"");
           sql=sql+","+TabName+".*";
        };
        if(ComboBox25->Text.Trim()!="")
        {
           TabName=ini->ReadString("数据表名",ComboBox25->Text.Trim(),"");
           sql=sql+","+TabName+".*";
        };
        this->Memo1->Lines->Add(sql);
     }
     if(this->RadioGroup1->ItemIndex==2) {

        TabName=ini->ReadString("数据表名",ComboBox10->Text.Trim(),"");
        sql="Select " +TabName+".*";
        if(ComboBox19->Text.Trim()!="")
        {
           TabName=ini->ReadString("数据表名",ComboBox19->Text.Trim(),"");
           sql=sql+","+TabName+".*";
        };
        if(ComboBox25->Text.Trim()!="")
        {
           TabName=ini->ReadString("数据表名",ComboBox25->Text.Trim(),"");
           sql=sql+","+TabName+".*";
        };
           for(int i=0;i<CheckListBox1->Items->Count;i++)
      {
         if(CheckListBox1->Checked[i]){
                 sql=sql+", ";
                 sql=sql+CheckListBox2->Items->Strings[i]+"  AS  "+CheckListBox1->Items->Strings[i];
         };
      };
      this->Memo1->Lines->Add(sql);
     };
  //-----------------------------
  if(ComboBox10->Text.Trim()=="") { ShowMessage("请选择查询表!");  return false;}
         TabName=ini->ReadString("数据表名",ComboBox10->Text.Trim(),"");
        sql="From " +TabName;
        if(ComboBox19->Text.Trim()!="")
        {
           TabName=ini->ReadString("数据表名",ComboBox19->Text.Trim(),"");
           sql=sql+","+TabName;
        };
        if(ComboBox25->Text.Trim()!="")
        {
           TabName=ini->ReadString("数据表名",ComboBox25->Text.Trim(),"");
           sql=sql+","+TabName;
        };
    this->Memo1->Lines->Add(sql);


  //-----------------------------
  if(ComboBox11->Text.Trim()=="")  return 0;
  sql="Where ( ";
  TabName=this->ListBox1->Items->Strings[ComboBox11->ItemIndex];
  sql=sql+TabName+" = ";
  TabName=this->ListBox1->Items->Strings[ComboBox23->ItemIndex];
  sql=sql+TabName+")";
  this->Memo1->Lines->Add(sql);

  if(ComboBox15->Text.Trim()!="不参与"){
  sql=ComboBox15->Text.Trim()+" ( ";
  TabName=this->ListBox1->Items->Strings[ComboBox14->ItemIndex];
  sql=sql+TabName+" = ";
  TabName=this->ListBox1->Items->Strings[ComboBox24->ItemIndex];
  sql=sql+TabName+")";
  this->Memo1->Lines->Add(sql);
  };


  if(ComboBox16->Text.Trim()!="不参与"){
  sql=ComboBox16->Text.Trim()+" ( ";
  TabName=this->ListBox1->Items->Strings[ComboBox17->ItemIndex];
  sql=sql+TabName+" "+ComboBox18->Text.SubString(0,ComboBox18->Text.Length()-6)+" :PARAM0 ) ";
  this->Memo1->Lines->Add(sql);
  };

  if(ComboBox22->Text.Trim()!="不参与"){
  sql=ComboBox22->Text.Trim()+" ( ";
  TabName=this->ListBox1->Items->Strings[ComboBox21->ItemIndex];
  sql=sql+TabName+" "+ComboBox20->Text.SubString(0,ComboBox20->Text.Length()-6)+" :PARAM1 ) ";
  this->Memo1->Lines->Add(sql);
  };

  return true;
}
void __fastcall TForm1::MarshFields(TObject *Sender)
{
    MarshFields();
}
//---------------------------------------------------------------------------


TForm1::SQLSimple()
{
        //TODO: Add your source code here
     if(ComboBox3->Text.Trim()=="like[文本]") Edit1->Text="%"+Edit1->Text.Trim()+"%";
     if(ComboBox6->Text.Trim()=="like[文本]") Edit2->Text="%"+Edit2->Text.Trim()+"%";
     if(ComboBox9->Text.Trim()=="like[文本]") Edit3->Text="%"+Edit3->Text.Trim()+"%";

    if(ComboBox2->Text.Trim()!=""){
        if(ComboBox3->Text.SubString(ComboBox3->Text.Length()-4,4)=="文本")
           this->Query1->Params->FindParam("PARAM0")->AsString=Edit1->Text.Trim();
        if(ComboBox3->Text.SubString(ComboBox3->Text.Length()-4,4)=="数字")
           this->Query1->Params->FindParam("PARAM0")->AsInteger=StrToIntDef(Edit1->Text.Trim(),0);
        if(ComboBox3->Text.SubString(ComboBox3->Text.Length()-4,4)=="日期")
           this->Query1->Params->FindParam("PARAM0")->AsDateTime=StrToDate(Edit1->Text.Trim());
    };

    if(ComboBox4->Text!="不参与"){
        if(ComboBox6->Text.SubString(ComboBox6->Text.Length()-4,4)=="文本")
           this->Query1->Params->FindParam("PARAM1")->AsString=Edit2->Text.Trim();
        if(ComboBox6->Text.SubString(ComboBox6->Text.Length()-4,4)=="数字")
           this->Query1->Params->FindParam("PARAM1")->AsInteger=StrToIntDef(Edit2->Text.Trim(),0);
        if(ComboBox6->Text.SubString(ComboBox6->Text.Length()-4,4)=="日期")
           this->Query1->Params->FindParam("PARAM1")->AsDateTime=StrToDate(Edit2->Text.Trim());
    };
    if(ComboBox7->Text!="不参与"){
       if(ComboBox9->Text.SubString(ComboBox9->Text.Length()-4,4)=="文本")
           this->Query1->Params->FindParam("PARAM2")->AsString=Edit3->Text.Trim();
        if(ComboBox9->Text.SubString(ComboBox9->Text.Length()-4,4)=="数字")
           this->Query1->Params->FindParam("PARAM2")->AsInteger=StrToIntDef(Edit3->Text.Trim(),0);
        if(ComboBox9->Text.SubString(ComboBox9->Text.Length()-4,4)=="日期")
           this->Query1->Params->FindParam("PARAM2")->AsDateTime=StrToDate(Edit3->Text.Trim());
    };
}

TForm1::SQLComplexity()
{
        //TODO: Add your source code here
     if(ComboBox18->Text.Trim()=="like[文本]") Edit6->Text="%"+Edit6->Text.Trim()+"%";
     if(ComboBox20->Text.Trim()=="like[文本]") Edit9->Text="%"+Edit9->Text.Trim()+"%";

     if(ComboBox16->Text.Trim()!="不参与"){
        if(ComboBox18->Text.SubString(ComboBox18->Text.Length()-4,4)=="文本")
           this->Query1->Params->FindParam("PARAM0")->AsString=Edit6->Text.Trim();
        if(ComboBox18->Text.SubString(ComboBox18->Text.Length()-4,4)=="数字")
           this->Query1->Params->FindParam("PARAM0")->AsInteger=StrToIntDef(Edit6->Text.Trim(),0);
        if(ComboBox18->Text.SubString(ComboBox18->Text.Length()-4,4)=="日期")
           this->Query1->Params->FindParam("PARAM0")->AsDateTime=StrToDate(Edit6->Text.Trim());
    };

    if(ComboBox22->Text!="不参与"){
        if(ComboBox20->Text.SubString(ComboBox20->Text.Length()-4,4)=="文本")
           this->Query1->Params->FindParam("PARAM1")->AsString=Edit9->Text.Trim();
        if(ComboBox20->Text.SubString(ComboBox20->Text.Length()-4,4)=="数字")
           this->Query1->Params->FindParam("PARAM1")->AsInteger=StrToIntDef(Edit9->Text.Trim(),0);
        if(ComboBox20->Text.SubString(ComboBox20->Text.Length()-4,4)=="日期")
           this->Query1->Params->FindParam("PARAM1")->AsDateTime=StrToDate(Edit9->Text.Trim());
    };

}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
       switch (this->PageControl1->ActivePageIndex)
    {
      case 0:  if(!SimpleQuery()) return;
               break;
      case 1:  if(!ComplexityQuery()) return;
               break;
      case 2:  break;
      default: return;
    };

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

void __fastcall TForm1::Button3Click(TObject *Sender)
{
    if(!Query1->Active) return;
    if(Query1->IsEmpty()) return;


   if(!this->SaveDialog1->Execute())
   {
     return;
   };
   Memo1->Lines->Clear();
   Query1->DisableControls();
    Query1->First();
    if(this->SaveDialog1->FilterIndex==4){
        Memo1->Lines->Add("<?xml version='1.0' encoding='GB2312'?>");
    };

   if(this->SaveDialog1->FilterIndex==2 || this->SaveDialog1->FilterIndex==3
        || this->SaveDialog1->FilterIndex==4 )
   {
    Memo1->Lines->Add("<Table>");
    int i;
    Memo1->Lines->Add("    <tr>");
    for(i=0;i<this->Query1->FieldCount;i++)
    {
        Memo1->Lines->Add("         <td>"+Query1->Fields->Fields[i]->FieldName+"</td>");
    }
    Memo1->Lines->Add("    </tr>");
    while (! Query1->Eof)
    {
      Memo1->Lines->Add("    <tr>");
    for(i=0;i<this->Query1->FieldCount;i++)
    {
        Memo1->Lines->Add("         <td>"+Query1->Fields->Fields[i]->AsString+"</td>");
    }
    Memo1->Lines->Add("    </tr>");
     Query1->Next();
    };
    Memo1->Lines->Add("</Table>");
   };

   if(this->SaveDialog1->FilterIndex==1)
   {
    String oneline;
    int i;
    oneline="  ";
    for(i=0;i<this->Query1->FieldCount;i++)
    {
        oneline=oneline+Query1->Fields->Fields[i]->FieldName+"     ";
    }
    Memo1->Lines->Add(oneline);
    while (! Query1->Eof)
    {
      oneline="  ";
    for(i=0;i<this->Query1->FieldCount;i++)
    {
        oneline=oneline+Query1->Fields->Fields[i]->AsString+"     ";
    }
    Memo1->Lines->Add(oneline);
     Query1->Next();
    };
   };

   Query1->EnableControls();

  // this->SaveDialog1->f
  String filtername;
  if(this->SaveDialog1->FilterIndex==1) filtername=".txt";
  if(this->SaveDialog1->FilterIndex==2) filtername=".htm";
  if(this->SaveDialog1->FilterIndex==3) filtername=".xls";
  if(this->SaveDialog1->FilterIndex==4) filtername=".xml";

   Memo1->Lines->SaveToFile(this->SaveDialog1->FileName+filtername);
   Memo1->Lines->Clear();
   ShowMessage("数据导出成功！");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TabSheet3Show(TObject *Sender)
{
   Memo1->Lines->Clear();
   Memo1->Lines->Add(" 请在此输入标准的SQL查询语句。");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Label9Click(TObject *Sender)
{
    ShellExecute(NULL,"open","http://asp5.6to23.com/swtech",NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TabSheet4Show(TObject *Sender)
{
    if(FileExists("SQL_help.hps"))
       Memo2->Lines->LoadFromFile("SQL_help.hps");
}
//---------------------------------------------------------------------------