ydsjbf.cpp

营业用电管理系统(网络版)是本公司推出的新一代软件产品

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

#include <vcl.h>
#pragma hdrstop

#include "YDsjbf.h"
#include "YDdatam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFsjbf *Fsjbf;
//---------------------------------------------------------------------------
__fastcall TFsjbf::TFsjbf(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFsjbf::FormCreate(TObject *Sender)
{
   q->DatabaseName="YDDB";
    TTable *Table2=new TTable(this);
    Table2->DatabaseName="YDDB";
    Table2->TableName="H_YEAR";
    Table2->Open();
    Table2->First();
    while (!Table2->Eof)
     {
      ComboBox1->Items->Add(Table2->FieldByName("Y_YEAR")->AsString);
      Table2->Next();
     }
    ComboBox1->Text=ComboBox1->Items->Strings[0];
    Table2->Close();
    delete Table2;
}
//---------------------------------------------------------------------------
void __fastcall TFsjbf::BitBtn3Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------
void __fastcall TFsjbf::BitBtn1Click(TObject *Sender)
{
 AnsiString dr=AnsiString(DriveComboBox1->Drive);
 AnsiString dir=dr+":\\YD_Bak";
 if(!DirectoryExists(dir))
 if (!CreateDir(dir))
  {
    throw Exception("不能再"+dr+"盘建立目录！");
  //  return;
   }
 AnsiString sql="EXEC master..xp_cmdshell 'bcp Yddb.dbo.YHDA_DB out "+Trim(dr)+":\\YD_Bak\\ydbak1.dat -c -q -Slzlzx -Usa -P'";
 q->SQL->Clear();
 q->SQL->Add(sql);
 Animate1->Active=true;
 q->ExecSQL();
 Animate1->Active=false;


//     MessageBox(NULL,"软盘容量不足,请备份到硬盘!","提示",MB_OK|MB_ICONWARNING);

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