unitjbbj.cpp

通过oci实现的oracle查询分析器功能和可以 尤其对BLOB字段的度曲

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

#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unitjbbj.h"
#include "Unitmain.h"
#include "values.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormjbbj *Formjbbj;
//---------------------------------------------------------------------------
__fastcall TFormjbbj::TFormjbbj(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFormjbbj::BitBtn4Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFormjbbj::BitBtn1Click(TObject *Sender)
{
  for (int i=0;i<CheckListBox1->Items->Count ;i++)
  {
    CheckListBox1->Checked[i]=true;
  }

}
//---------------------------------------------------------------------------
void __fastcall TFormjbbj::BitBtn2Click(TObject *Sender)
{
   for (int i=0;i<CheckListBox1->Items->Count ;i++)
   {
      CheckListBox1->Checked[i]=false;
   }

}
//---------------------------------------------------------------------------
void __fastcall TFormjbbj::BitBtn3Click(TObject *Sender)
{
  DATABASEHANDLE        DBHandle;
  int j=0;
  Memo1->Lines->Clear();
  for (int i=0;i<CheckListBox1->Items->Count ;i++)
  {
    if (CheckListBox1->Checked[i]==true)
     j++;
  }
  if (j==0)
  {
    Application->MessageBox("未选中导出条目！","系统提示",MB_OK);
    Abort() ;
  }
   if (!SaveDialog1->Execute())
     return;
   AnsiString jbsql="",s1,s2,s;
   ProgressBar1->Max=j;
   ProgressBar1->Position=0;
   int status = Formmain->DBDatabase->ConnectDataBase( DBHandle),pos;
   if( status >= 0 )
   {
     Panel3->Height=30;
     TOCIQuery * Query;
     Query = new TOCIQuery();
     Query->DBHandle=DBHandle;
     for (int i=0;i<CheckListBox1->Items->Count ;i++)
     {
       if (CheckListBox1->Checked[i]==true)
       {
         jbsql=Formmain->jbjg->Strings[i];
         pos=jbsql.Pos("*");
         s1=jbsql.SubString(1,pos-1);
         s2=jbsql.SubString(pos+1,MAXINT);
         jbsql="select dbms_metadata.get_DDL("+QuotedStr(s1)+","+QuotedStr(s2)+","+QuotedStr(UpperCase(Formmain->Connectedyh))+") as jb from dual";
         Query->AddSQL(jbsql.c_str());
         Query->ExecSQL();
         if (!Query->Eof)
         {
           Memo1->Lines->Add(Query->GetFieldValueByIndex(0));
           Memo1->Lines->Add(";");
         }
         ProgressBar1->Position++;
         //int h=floor(ProgressBar1->Position/j)*100;
         Panel5->Caption=IntToStr(ProgressBar1->Position)+"/"+IntToStr(j);
         Application->ProcessMessages();
       }
     }
     delete Query;
     Formmain->DBDatabase->DisConnectDataBase( DBHandle);
     Panel3->Height=1;
     Memo1->Lines->SaveToFile(SaveDialog1->FileName);
     Application->MessageBox( "脚本成功导出！","系统提示",MB_OK);
   }
   else
   {
     Application->MessageBox( "ConnectDataBase失败\n","系统提示",MB_OK);
     Formmain->DBDatabase->DisConnectDataBase( DBHandle);
   }


}
//---------------------------------------------------------------------------
void __fastcall TFormjbbj::FormCreate(TObject *Sender)
{
Panel3->Height=1;
}
//---------------------------------------------------------------------------