ydqhxz.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDqhxz.h"
#include "YDdatam.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFqhxz *Fqhxz;

//---------------------------------------------------------------------------
__fastcall TFqhxz::TFqhxz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFqhxz::FormCreate(TObject *Sender)
{
 TTreeNode * nd1,* p,* p1;
 YDData->TBbzyhda->Filtered=false;
 nd1=TreeView1->Items->Add(NULL,"所有区户");
 YDData->TBpqdm->Open();
 YDData->TBpqdm->First();
 AnsiString pq;
 while (!YDData->TBpqdm->Eof)
 {
    pq="("+YDData->TBpqdm->FieldByName("PQDM")->AsString+")"+YDData->TBpqdm->FieldByName("PQMC")->AsString;
    nd1->ImageIndex=0;
    nd1->SelectedIndex=0;
    TreeView1->Items->AddChild(nd1,pq);
    YDData->TBpqdm->Next();
 }
 AnsiString pqh,hhhm;
 YDData->TBbzyhda->First();
 while (!YDData->TBbzyhda->Eof)
  {
    pqh=YDData->TBbzyhda->FieldByName("YD_QH")->AsString;
    hhhm="<"+YDData->TBbzyhda->FieldByName("YD_HH")->AsString+">"+YDData->TBbzyhda->FieldByName("YD_YHMC")->AsString;
    p=TreeView1->Items->GetFirstNode();
    while(p)
     {
      if (p->Text.SubString(2,p->Text.AnsiPos(")")-2)==pqh)
        {
          p->Selected=true;
          p1=TreeView1->Items->AddChild(p,hhhm);
          p1->ImageIndex=1;
          p1->SelectedIndex=1;
          break;
         }
       p=p->GetNext();
      }
    YDData->TBbzyhda->Next();
  }
}
//---------------------------------------------------------------------------

void __fastcall TFqhxz::TreeView1DblClick(TObject *Sender)
{
 AnsiString qh="";
 AnsiString hh="";
  if (TreeView1->Selected->Text.AnsiPos(")")>0&&TreeView1->Selected->Count>0)
   {
     qh=TreeView1->Selected->Text.SubString(2,TreeView1->Selected->Text.AnsiPos(")")-2);
     hh=TreeView1->Selected->GetNext()->Text.SubString(2,TreeView1->Selected->GetNext()->Text.AnsiPos(">")-2);
   }
  if (TreeView1->Selected->Text.AnsiPos(">")>0)
   {
     qh=TreeView1->Selected->Parent->Text.SubString(2,TreeView1->Selected->Parent->Text.AnsiPos(")")-2);
     hh=TreeView1->Selected->Text.SubString(2,TreeView1->Selected->Text.AnsiPos(">")-2);
   }
  YDData->TBbzyhda->First();
  while (!YDData->TBbzyhda->Eof)
    {
      if (YDData->TBbzyhda->FieldByName("YD_QH")->AsString==qh&&
           YDData->TBbzyhda->FieldByName("YD_HH")->AsString==hh) break;
      YDData->TBbzyhda->Next();
    }


  Close();
}
//---------------------------------------------------------------------------