ydfl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDfl.h"
#include "YDdatam.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFydfl *Fydfl;
TTreeNode *j,*Node1;
//---------------------------------------------------------------------------
__fastcall TFydfl::TFydfl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFydfl::FormCreate(TObject *Sender)
{
  AnsiString jdmc,jddm,bkdj,djdm,djmc;
  YDData->TBmldj->Open();
  YDData->TBydfl->Open();
  while (!YDData->TBydfl->Eof)
     {
      jdmc=YDData->TBydfl->FieldByName("fl_mc")->AsString;
      bkdj=YDData->TBydfl->FieldByName("fl_bkdj")->AsString;
      Node1=TreeView1->Items->Add(NULL,jdmc);
      YDData->TBmldj->First();
      while (!YDData->TBmldj->Eof)
       {
         djdm=YDData->TBmldj->FieldByName("dy")->AsString;
         djmc=YDData->TBmldj->FieldByName("lb")->AsString;
        if (bkdj.AnsiPos(djdm)>0)
          TreeView1->Items->AddChild(Node1,djdm+" "+djmc);
        YDData->TBmldj->Next();

       }
       YDData->TBydfl->Next();
     }
  YDData->TBmldj->First();
  while (!YDData->TBmldj->Eof)
    {
      djdm=YDData->TBmldj->FieldByName("dy")->AsString;
      djmc=YDData->TBmldj->FieldByName("lb")->AsString;
    if (!bljd(djdm+" "+djmc))
       if (djmc!="")
        ListBox1->Items->Add(djdm+" "+djmc);
     YDData->TBmldj->Next();
    }
}
//---------------------------------------------------------------------------
bool TFydfl::bljd(AnsiString jdmc)
 {
  bool y=false;
  j=TreeView1->Items->GetFirstNode();
  while(j)
     {
      if (j->Text.SubString(1,j->Text.Length())==jdmc)
       {
         j->Selected=true;
         y=true;
         return y;
        }
       j=j->GetNext();
     }
  return y;
}
void __fastcall TFydfl::FormClose(TObject *Sender, TCloseAction &Action)
{
 Fmain->gnjs(Fmain->tcjc);
 YDData->TBmldj->Close();
 YDData->TBydfl->Close();
 delete j,Node1;        
}
//---------------------------------------------------------------------------
void __fastcall TFydfl::BitBtn2Click(TObject *Sender)
{
 AnsiString jdmc,nr;
 YDData->TBydfl->First();
 while (!YDData->TBydfl->Eof)
   {
     jdmc=YDData->TBydfl->FieldByName("fl_mc")->AsString;
      nr="";
      bljd(jdmc);
      j=TreeView1->Selected;
      Node1=TreeView1->Selected;
      for (int x=0;x<j->Count;x++)
        {
          Node1=Node1->GetNext();
          nr=nr+Node1->Text.SubString(1,Node1->Text.AnsiPos(" ")-1)+",";

         }
     YDData->TBydfl->Edit();
     YDData->TBydfl->FieldByName("fl_bkdj")->AsString=nr.SubString(1,nr.Length()-1);
     YDData->TBydfl->Next();
   }

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

void __fastcall TFydfl::ListBox1DblClick(TObject *Sender)
{
if (TreeView1->Items->Count==0) return;
if (TreeView1->Selected->Parent!=NULL) return;

 int i;
 for (i=0;i<ListBox1->Items->Count;i++)
 {
   if (ListBox1->Selected[i]==true)
    {
     Node1=TreeView1->Selected;
     TreeView1->Items->AddChild(Node1,ListBox1->Items->Strings[i]);
     ListBox1->Items->Delete(i);
    }
  }

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

void __fastcall TFydfl::TreeView1DblClick(TObject *Sender)
{
 if (TreeView1->Selected->Parent==NULL) return;
   {
     ListBox1->Items->Add(TreeView1->Selected->Text);
     TreeView1->Selected->Delete();
    }
}
//---------------------------------------------------------------------------