ydcbysz.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDCBYSZ.h"
#include "YDdatam.h"
#include "YDmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFcbysz *Fcbysz;
//---------------------------------------------------------------------------
__fastcall TFcbysz::TFcbysz(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFcbysz::FormCreate(TObject *Sender)
{
 YDData->TByhda->Open();
 YDData->TBpqdm->Open();
 YDData->TBcbysz->Open();
  YDData->TBcbysz->First();
  while (!YDData->TBcbysz->Eof)
    {
     ComboBox1->Items->Add(YDData->TBcbysz->FieldByName("CBY_XM")->AsString);
     YDData->TBcbysz->Next();
    }
 ComboBox1->Text=ComboBox1->Items->Strings[0];
 addlist();
}
//---------------------------------------------------------------------------
void TFcbysz::addlist()
{
  ListBox1->Items->Clear();
  ListBox2->Items->Clear();
  if (RadioButton2->Checked)
   {
    YDData->TByhda->First();
    while (!YDData->TByhda->Eof)
     {
      if (Trim(YDData->TByhda->FieldByName("CBY")->AsString)=="")
         ListBox1->Items->Add(YDData->TByhda->FieldByName("HHHH")->AsString+"("+
         YDData->TByhda->FieldByName("YHMC")->AsString+")");
      if (YDData->TByhda->FieldByName("CBY")->AsString==ComboBox1->Text)
         ListBox2->Items->Add(YDData->TByhda->FieldByName("HHHH")->AsString+"("+
         YDData->TByhda->FieldByName("YHMC")->AsString+")");
      YDData->TByhda->Next();
     }
   }
   else
   {
     YDData->TBpqdm->First();
     while (!YDData->TBpqdm->Eof)
       {
        ListBox1->Items->Add(YDData->TBpqdm->FieldByName("PQDM")->AsString+"("+
        YDData->TBpqdm->FieldByName("PQMC")->AsString+")");
        YDData->TByhda->First();
        while (!YDData->TByhda->Eof)
          {
           if (YDData->TByhda->FieldByName("XZQ")->AsString==
           YDData->TBpqdm->FieldByName("PQDM")->AsString&&
           YDData->TByhda->FieldByName("CBY")->AsString==
           ComboBox1->Text)
            {
             ListBox2->Items->Add(YDData->TBpqdm->FieldByName("PQDM")->AsString+"("+
              YDData->TBpqdm->FieldByName("PQMC")->AsString+")");
             break;
             }



           YDData->TByhda->Next();
          }

        YDData->TBpqdm->Next();
       }
   }
}
//---------------------
void __fastcall TFcbysz::RadioButton1Click(TObject *Sender)
{
 addlist();
}
//---------------------------------------------------------------------------

void __fastcall TFcbysz::RadioButton2Click(TObject *Sender)
{
 addlist();

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

void __fastcall TFcbysz::ComboBox1Change(TObject *Sender)
{
 addlist();

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

void __fastcall TFcbysz::SpeedButton1Click(TObject *Sender)
{
if (RadioButton2->Checked)
{
 for (int i=0;i<ListBox1->Items->Count;i++)
 {
   if (ListBox1->Selected[i]==true)
    {
     YDData->TByhda->First();
     while (!YDData->TByhda->Eof)
       {
        if (YDData->TByhda->FieldByName("HHHH")->AsString+"("+
        YDData->TByhda->FieldByName("YHMC")->AsString+")"==
        ListBox1->Items->Strings[i])
          {
           YDData->TByhda->Edit();
           YDData->TByhda->FieldByName("CBY")->AsString=ComboBox1->Text;
           YDData->TByhda->Post();
           break;
           }
         YDData->TByhda->Next();
       }
     ListBox2->Items->Add(ListBox1->Items->Strings[i]);
     ListBox1->Items->Delete(i);
     i--;
    }
  }
 }
 else
 {
 AnsiString qh;
 for (int i=0;i<ListBox1->Items->Count;i++)
 {
   if (ListBox1->Selected[i]==true)
    {
     qh=ListBox1->Items->Strings[i].SubString(1,ListBox1->Items->Strings[i].AnsiPos("(")-1);
     YDData->TByhda->First();
     while (!YDData->TByhda->Eof)
       {
        if (YDData->TByhda->FieldByName("XZQ")->AsString==qh&&
        Trim(YDData->TByhda->FieldByName("CBY")->AsString)=="")
          {
            YDData->TByhda->Edit();
            YDData->TByhda->FieldByName("CBY")->AsString=ComboBox1->Text;
            YDData->TByhda->Post();
           }
        YDData->TByhda->Next();
       }
       bool pqcz=false;
       int h=ListBox2->Items->Count;
       for (int x=0;x<h;x++)
        {
         if (ListBox2->Items->Strings[x]==ListBox1->Items->Strings[i])
          {
            pqcz=true;
            break;
          }
        }
      if (!pqcz)
        ListBox2->Items->Add(ListBox1->Items->Strings[i]);
      ListBox1->Items->Delete(i);
      i--;
    }
   }
 }
}
//---------------------------------------------------------------------------

void __fastcall TFcbysz::BitBtn1Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TFcbysz::SpeedButton3Click(TObject *Sender)
{
if (RadioButton2->Checked)
 {
 for (int i=0;i<ListBox2->Items->Count;i++)
 {
   if (ListBox2->Selected[i]==true)
    {
     YDData->TByhda->First();
     while (!YDData->TByhda->Eof)
       {
        if (YDData->TByhda->FieldByName("HHHH")->AsString+"("+
        YDData->TByhda->FieldByName("YHMC")->AsString+")"==
        ListBox2->Items->Strings[i])
          {
           YDData->TByhda->Edit();
           YDData->TByhda->FieldByName("CBY")->AsString="";
           YDData->TByhda->Post();
           break;
           }
         YDData->TByhda->Next();
       }

     ListBox1->Items->Add(ListBox2->Items->Strings[i]);
     ListBox2->Items->Delete(i);
     i--;
    }
  }
 }
 else
 {
 AnsiString qh;
 for (int i=0;i<ListBox2->Items->Count;i++)
 {
   if (ListBox2->Selected[i]==true)
    {
     qh=ListBox2->Items->Strings[i].SubString(1,ListBox2->Items->Strings[i].AnsiPos("(")-1);
     YDData->TByhda->First();
     while (!YDData->TByhda->Eof)
       {
        if (YDData->TByhda->FieldByName("XZQ")->AsString==qh&&
        Trim(YDData->TByhda->FieldByName("CBY")->AsString)==ComboBox1->Text)
          {
            YDData->TByhda->Edit();
            YDData->TByhda->FieldByName("CBY")->AsString="";
            YDData->TByhda->Post();
           }
        YDData->TByhda->Next();
       }
       bool pqcz=false;
       int h=ListBox1->Items->Count;
       for (int x=0;x<h;x++)
        {
         if (ListBox1->Items->Strings[x]==ListBox2->Items->Strings[i])
          {
            pqcz=true;
            break;
          }
        }
      if (!pqcz)
        ListBox1->Items->Add(ListBox2->Items->Strings[i]);
     ListBox2->Items->Delete(i);
     i--;
    }
  }

 }

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



void __fastcall TFcbysz::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TByhda->Close();
 YDData->TBpqdm->Close();
 YDData->TBcbysz->Close();
 Fmain->gnjs(Fmain->tcjc); 
}
//---------------------------------------------------------------------------