ydbsjl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDbsjl.h"
#include "YDdatam.h"
#include "YDbssbxz.h"
#include "YDbzyw.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFbsjl *Fbsjl;
//---------------------------------------------------------------------------
__fastcall TFbsjl::TFbsjl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TFbsjl::Modify()
{
        //TODO: Add your source code here
   SpeedButton5->Caption="保存";
   SpeedButton6->Caption="还原";
   SpeedButton5->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\save.bmp");
   SpeedButton6->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\Undo.bmp");
   SpeedButton1->Enabled=false;
   SpeedButton2->Enabled=false;
   SpeedButton3->Enabled=false;
   SpeedButton4->Enabled=false;
   SpeedButton7->Enabled=false;
   SpeedButton9->Enabled=false;
   SpeedButton10->Enabled=false;
   Panel1->Enabled=true;
   DBGrid1->Enabled=false;
}

void TFbsjl::Browse()
{
   //TODO: Add your source code here
   SpeedButton5->Caption="新增";
   SpeedButton6->Caption="修改";
   SpeedButton5->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\add.bmp");
   SpeedButton6->Glyph->LoadFromFile("c:\\ydgl_c\\bmps\\wzedit.bmp");
   SpeedButton1->Enabled=true;
   SpeedButton2->Enabled=true;
   SpeedButton3->Enabled=true;
   SpeedButton4->Enabled=true;
   SpeedButton7->Enabled=true;
   SpeedButton9->Enabled=true;
   SpeedButton10->Enabled=true;
   Panel1->Enabled=false;
   DBGrid1->Enabled=true;
}

void TFbsjl::Narefresh()
{
     SpeedButton1->Enabled=!YDData->TBbsjl->Bof;
     SpeedButton2->Enabled=!YDData->TBbsjl->Bof;
     SpeedButton3->Enabled=!YDData->TBbsjl->Eof;
     SpeedButton4->Enabled=!YDData->TBbsjl->Eof;
    if(YDData->TBbsjl->Eof&&YDData->TBbsjl->Bof)
    {
      SpeedButton1->Enabled=false;
      SpeedButton2->Enabled=false;
      SpeedButton3->Enabled=false;
      SpeedButton4->Enabled=false;
      SpeedButton7->Enabled=false;

    };

}
void __fastcall TFbsjl::SpeedButton2Click(TObject *Sender)
{
 YDData->TBbsjl->Prior();
 Narefresh();

}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::SpeedButton1Click(TObject *Sender)
{
 YDData->TBbsjl->First();
 Narefresh();

}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::SpeedButton3Click(TObject *Sender)
{
 YDData->TBbsjl->Next();
 Narefresh();

}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::SpeedButton4Click(TObject *Sender)
{
 YDData->TBbsjl->Last();
 Narefresh();

}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::SpeedButton7Click(TObject *Sender)
{
  if ( Application->MessageBox("真的要删除这条记录吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
  {
   YDData->TBbsjl->Delete();
   Narefresh();
  };


}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::SpeedButton6Click(TObject *Sender)
{
  if (SpeedButton6->Caption=="修改")
   {
    Modify();
    YDData->TBbsjl->Edit();
   }
   else
   {
     YDData->TBbsjl->Cancel();
     Browse();
   }

}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::DBEdit7DblClick(TObject *Sender)
{
  Fbssbxz=new TFbssbxz(Application);
  Fbssbxz->ShowModal();
  YDData->TBbsjl->FieldByName("bs_bsbh")->AsString=Fbssbxz->sbbh;
  YDData->TBbsjl->FieldByName("bs_CQDW")->AsString=Fbssbxz->cqdw;
  delete Fbssbxz;
}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::SpeedButton5Click(TObject *Sender)
{
 if (SpeedButton5->Caption=="新增")
   {
    if (Fbzyw->TreeView1->Selected!=NULL&&Fbzyw->TreeView1->Selected->Text.Length()>3)
    {
      Modify();
      YDData->TBbsjl->Append();
      YDData->TBbsjl->FieldByName("bs_zfgx")->AsString=
      YDData->TBdbcs->FieldByName("db_zfgx")->AsString;
      YDData->TBbsjl->FieldByName("bs_bzh")->AsString=
      YDData->TBdbcs->FieldByName("db_bzh")->AsString;
      YDData->TBbsjl->FieldByName("bs_dblb")->AsString=
      YDData->TBdbcs->FieldByName("db_dblb")->AsString;
      YDData->TBbsjl->FieldByName("bs_cbbj")->AsString=
      YDData->TBdbcs->FieldByName("db_cbbj")->AsString;
      YDData->TBbsjl->FieldByName("bs_sd")->AsString=
      YDData->TBdbcs->FieldByName("db_sd")->AsString;
     }
     else
     {
      ShowMessage("未选定计损电表,请重新选择!");
      Close();
     }
   }
   else
   {
    if (Trim(DBEdit7->Text)!="")
     {
//       YDData->TBbsjl->FieldByName("bs_sqh")->AsString=
//       YDData->TBbzsq->FieldByName("sq_bh")->AsString;
//       YDData->TBbsjl->FieldByName("bs_qh")->AsString=
 //      YDData->TBbzsq->FieldByName("sq_qh")->AsString;
//       YDData->TBbsjl->FieldByName("bs_hh")->AsString=
//       YDData->TBbzsq->FieldByName("sq_hh")->AsString;
       YDData->TBbsjl->Post();
       YDData->TBbsjl->Close();
       YDData->TBbsjl->Open();
       Browse();
      }
      else
       MessageBox(NULL,"设备编号不能为空！","提示",MB_OK|MB_ICONWARNING);
   }
}
//---------------------------------------------------------------------------
void __fastcall TFbsjl::SpeedButton10Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------






void __fastcall TFbsjl::FormCreate(TObject *Sender)
{
 Caption=YDData->TBbzyhda->FieldByName("YD_HH")->AsString+
         YDData->TBbzyhda->FieldByName("YD_YHMC")->AsString+"变损记录";
 }
//---------------------------------------------------------------------------