unitcfg.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unitcfg.h"
#include "Unitmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormfig *Formfig;
//---------------------------------------------------------------------------
__fastcall TFormfig::TFormfig(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormfig::BitBtn2Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFormfig::BitBtn1Click(TObject *Sender)
{

Formmain->DBDatabase = new OCIDatabase;
Formmain->status = Formmain->DBDatabase->InitG_ConnPool(ComboBox1->Text.c_str(),ComboBox2->Text.c_str(),Edit1->Text.c_str(),5);
if( Formmain->status != 0 )
{
         ShowMessage( "初始化ORACLE连接池失败.\n" );
         delete Formmain->DBDatabase;
         return ;
}
  Formfig->Hide();
  Formmain->Connectedfw=WideString(ComboBox1->Text);
  Formmain->Connectedyh=WideString(ComboBox2->Text);
  Formmain->Connectedmm=WideString(Edit1->Text);
  Formmain->DataConnected=true;
  Formmain->SpeedButton1Click(Sender);
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormfig::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 try
  {
    if  (Trim(ComboBox1->Text)!="" )
    {
      myinifile->WriteString("当前配置","服务名",ComboBox1->Text);
      myinifile->WriteString("服务名",ComboBox1->Text,"");

    }
    if  (Trim(ComboBox2->Text)!="" )
    {
      myinifile->WriteString("当前配置","用户名",ComboBox2->Text);
      myinifile->WriteString("用户名",ComboBox2->Text,"");

    }

   }
  catch(...)
  {
  }
  delete  myinifile;
}
//---------------------------------------------------------------------------

void __fastcall TFormfig::FormShow(TObject *Sender)
{
  AnsiString IniFileName=ExtractFilePath(ParamStr(0))+"PASS.ini";
  myinifile = new TIniFile(IniFileName);
  myinifile->ReadSection("服务名",ComboBox1->Items);
  myinifile->ReadSection("用户名",ComboBox2->Items);
  ComboBox1->Text=myinifile->ReadString("当前配置","服务名","");
  ComboBox2->Text=myinifile->ReadString("当前配置","用户名","");
}
//---------------------------------------------------------------------------

void __fastcall TFormfig::ComboBox1Change(TObject *Sender)
{
  ComboBox2->ItemIndex=ComboBox1->ItemIndex ;
}
//---------------------------------------------------------------------------

void __fastcall TFormfig::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key==13)
  {
    BitBtn1Click(Sender);
  }
}
//---------------------------------------------------------------------------