dfjs.cpp

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

    YDData->TByhda->FieldByName("byll")->AsFloat=0;
    YDData->TByhda->Post();
  }
 YDData->TByhda->Edit();
 YDData->TByhda->FieldByName("cszt")->AsString="2";
 YDData->TByhda->Post();
 Query1->Close();
 Query1->SQL->Clear();
 sql="update yhda0000 set hjdf=dddf+jbdf+lldf+fjf+www,yjdfye=dddf+jbdf+lldf+fjf+www where hhhh='"+hhhh+"'";
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 YDData->TByhda->Refresh();
 delete Query1;

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

//-----------------------
void __fastcall TFdfjs::FormClose(TObject *Sender, TCloseAction &Action)
{

 YDData->TByhda->Close();
 YDData->TBdbda->Close();
 YDData->TBdjkp->Close();
 YDData->TBfjjj->Close();
 YDData->TBxtcs->Close();
 Table2->Close();
 Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------

void __fastcall TFdfjs::SpeedButton2Click(TObject *Sender)
{

 Close();
}
//-------------------------------------------
void TFdfjs::dftj(AnsiString sql)
{
 TQuery *Query2=new TQuery(this);
 Query2->DatabaseName="YDDB";
 Query2->SQL->Clear();
 Query2->SQL->Add(sql);
 Query2->ExecSQL();
 Query2->Open();
  while (!Query2->Eof)
    {
      if (Query2->FieldByName("dlp")->AsFloat!=0)
       {
        Table2->Append();
        Table2->FieldByName("lb")->AsString=Query2->FieldByName("lb")->AsString;
        Table2->FieldByName("dl")->AsFloat=Query2->FieldByName("dlp")->AsFloat;
        Table2->FieldByName("dj")->AsFloat=Query2->FieldByName("djp")->AsFloat;
        Table2->FieldByName("je")->AsFloat=Query2->FieldByName("jep")->AsFloat;
        Table2->Post();
       }
      if (Query2->FieldByName("dlf")->AsFloat!=0)
       {
        Table2->Append();
        Table2->FieldByName("lb")->AsString=Query2->FieldByName("lb")->AsString+"(峰)";
        Table2->FieldByName("dl")->AsFloat=Query2->FieldByName("dlf")->AsFloat;
        Table2->FieldByName("dj")->AsFloat=Query2->FieldByName("djf")->AsFloat;
        Table2->FieldByName("je")->AsFloat=Query2->FieldByName("jef")->AsFloat;
        Table2->Post();
       }
      if (Query2->FieldByName("dlg")->AsFloat!=0)
       {
        Table2->Append();
        Table2->FieldByName("lb")->AsString=Query2->FieldByName("lb")->AsString+"(谷)";
        Table2->FieldByName("dl")->AsFloat=Query2->FieldByName("dlg")->AsFloat;
        Table2->FieldByName("dj")->AsFloat=Query2->FieldByName("djg")->AsFloat;
        Table2->FieldByName("je")->AsFloat=Query2->FieldByName("jeg")->AsFloat;
        Table2->Post();
       }
      Query2->Next();
    }
  delete Query2;  
}
//---------------------------------------------------
void TFdfjs::dftj_fj(AnsiString sfj)
{
  TQuery *Query2=new TQuery(this);
  Query2->DatabaseName="YDDB";
  Query2->SQL->Clear();
  Query2->SQL->Add(sfj);
  Query2->ExecSQL();
  Query2->Open();
  Query2->First();
  while (!Query2->Eof)
    {
      Table2->Append();
      Table2->FieldByName("lb")->AsString=Query2->FieldByName("lb")->AsString;
      Table2->FieldByName("je")->AsFloat=Query2->FieldByName("je")->AsFloat;
      Table2->Post();
      Query2->Next();
    }
 delete Query2;

}


//-------------------------------------------------------
void TFdfjs::dftj_jb(AnsiString sjb)
{
  TQuery *Query2=new TQuery(this);
  Query2->DatabaseName="YDDB";
  Query2->SQL->Clear();
  Query2->SQL->Add(sjb);
  Query2->ExecSQL();
  Query2->Open();
  if (Query2->FieldByName("jbdf")->AsFloat!=0)
    {
     Table2->Append();
     Table2->FieldByName("lb")->AsString="基本电费";
     Table2->FieldByName("je")->AsFloat=Query2->FieldByName("jbdf")->AsFloat;
     Table2->Post();
    }

 delete Query2;

}

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

void TFdfjs::dftj_ll(AnsiString sll)
{
  TQuery *Query2=new TQuery(this);
  Query2->DatabaseName="YDDB";
  Query2->SQL->Clear();
  Query2->SQL->Add(sll);
  Query2->ExecSQL();
  Query2->Open();
  if (Query2->FieldByName("lldf")->AsFloat!=0)
    {
     Table2->Append();
     Table2->FieldByName("lb")->AsString="力率电费";
     Table2->FieldByName("je")->AsFloat=Query2->FieldByName("lldf")->AsFloat;
     Table2->Post();
    }

 delete Query2;

}

//-----------------------------------------------
void TFdfjs::dftj_wg(AnsiString swg)
{
  TQuery *Query2=new TQuery(this);
  Query2->DatabaseName="YDDB";
  Query2->SQL->Clear();
  Query2->SQL->Add(swg);
  Query2->ExecSQL();
  Query2->Open();
  if (Query2->FieldByName("www")->AsFloat!=0)
    {
      Table2->Append();
      Table2->FieldByName("lb")->AsString="维管费";
      Table2->FieldByName("je")->AsFloat=Query2->FieldByName("www")->AsFloat;
      Table2->Post();
    }

 delete Query2;

}

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

void __fastcall TFdfjs::SpeedButton1Click(TObject *Sender)
{
 SpeedButton1->Refresh();
 TQuery *Query1=new TQuery(this);
 Query1->DatabaseName="YDDB";
 AnsiString sql;
 sql="UPDATE DBDA0000 SET hjdl=zdl,hjdlf=zdlf,hjdlg=zdlg WHERE cszt='0' or cszt='1' or cszt='2'";
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 Table2->Close();
 Table2->EmptyTable();
 Table2->Open();

 if (RadioButton1->Checked)
  {
   YDData->TBdbda->Close();
   YDData->TBdbda->Open();
   sql="select 'cshs'=count(*) from yhda0000 where cszt<>'3'";
   Query1->SQL->Clear();
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   Query1->Open();
   int cshs=Query1->FieldByName("cshs")->AsInteger;
   ProgressBar1->Position=0;
   YDData->TByhda->First();
    while (!YDData->TByhda->Eof)
      {
        zdl_j=0;
       if (YDData->TBdbda->FieldByName("cszt")->AsString!="3")
         dfjs();
         ProgressBar1->Position+=100/cshs;
         YDData->TByhda->Next();
      }
  dftj("select lb,'dlp'=sum(dlp),'djp'=avg(djp),'jep'=sum(jep),'dlf'=sum(dlf),'djf'=avg(djf),'jef'=sum(jef),'dlg'=sum(dlg),'djg'=avg(djg),'jeg'=sum(jeg) from djkp0000  group by lb");
  dftj_jb("select 'jbdf'=sum(jbdf) from yhda0000");
  dftj_ll("select 'lldf'=sum(lldf) from yhda0000");
  dftj_wg("select 'www'=sum(www) from yhda0000");
  dftj_fj("select 'lb'=fj_mc,'je'=sum(fj_je) from fjjj0000 group by fj_mc");
  }

 if (RadioButton3->Checked)
  {
    zdl_j=0;
    YDData->TBdbda->Close();
    YDData->TByhda->Close();
    YDData->TByhda->IndexFieldNames="hhhh";
    YDData->TByhda->Open();
    YDData->TBdbda->Open();
    if (YDData->TByhda->FindKey(new TVarRec(Edit2->Text),0))
     {
      ProgressBar1->Position=0;
      dfjs();
      ProgressBar1->Position+=100;
     }

    dftj("select lb,'dlp'=sum(dlp),'djp'=avg(djp),'jep'=sum(jep),'dlf'=sum(dlf),'djf'=avg(djf),'jef'=sum(jef),'dlg'=sum(dlg),'djg'=avg(djg),'jeg'=sum(jeg) from djkp0000 where hhhh='"+Edit2->Text+"' group by lb");
    dftj_jb("select 'jbdf'=sum(jbdf) from yhda0000 where hhhh='"+Edit2->Text+"'");
    dftj_ll("select 'lldf'=sum(lldf) from yhda0000 where hhhh='"+Edit2->Text+"'");
    dftj_wg("select 'www'=sum(www) from yhda0000 where hhhh='"+Edit2->Text+"'");
    dftj_fj("select 'lb'=fj_mc,'je'=sum(fj_je) from fjjj0000 where fj_hhhh='"+Edit2->Text+"' group by fj_mc");

  }
 if (RadioButton2->Checked)
  {
   YDData->TBdbda->Close();
   YDData->TBdbda->Open();
   sql="select 'yhs'=count(*) from yhda0000 where klbs='"+ComboBox1->Text+"' and cszt<>'3'";
   Query1->SQL->Clear();
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   Query1->Open();
   int yhs=Query1->FieldByName("yhs")->AsInteger;
    zdl_j=0;
    ProgressBar1->Position=0;
    YDData->TByhda->First();
    while (!YDData->TByhda->Eof)
      {
       if (YDData->TByhda->FieldByName("klbs")->AsString==ComboBox1->Text&&YDData->TByhda->FieldByName("cszt")->AsString!="3")
          dfjs();
        ProgressBar1->Position+=100/yhs;
        YDData->TByhda->Next();
      }
    dftj("select lb,'dlp'=sum(dlp),'djp'=avg(djp),'jep'=sum(jep),'dlf'=sum(dlf),'djf'=avg(djf),'jef'=sum(jef),'dlg'=sum(dlg),'djg'=avg(djg),'jeg'=sum(jeg) from djkp0000 where klbs='"+ComboBox1->Text+"' group by lb");
    dftj_jb("select 'jbdf'=sum(jbdf) from yhda0000 where klbs='"+ComboBox1->Text+"'");
    dftj_ll("select 'lldf'=sum(lldf) from yhda0000 where klbs='"+ComboBox1->Text+"'");
    dftj_wg("select 'www'=sum(www) from yhda0000 where klbs='"+ComboBox1->Text+"'");
    dftj_fj("select 'lb'=fj_mc,'je'=sum(fj_je) from fjjj0000 where fj_klbs='"+ComboBox1->Text+"' group by fj_mc");
  }
 if (RadioButton4->Checked)
  {
   YDData->TBdbda->Close();
   YDData->TBdbda->Open();
   AnsiString pqdm=ComboBox2->Text.SubString(1,ComboBox2->Text.AnsiPos(":")-1);
   sql="select 'yhs'=count(*) from yhda0000 where xzq like '"+pqdm+"%' and cszt<>'3'";
   Query1->SQL->Clear();
   Query1->SQL->Add(sql);
   Query1->ExecSQL();
   Query1->Open();
   int yhs=Query1->FieldByName("yhs")->AsInteger;
    zdl_j=0;
    ProgressBar1->Position=0;
    YDData->TByhda->First();
    while (!YDData->TByhda->Eof)
      {
       if (YDData->TByhda->FieldByName("xzq")->AsString.AnsiPos(pqdm)==1&&YDData->TByhda->FieldByName("cszt")->AsString!="3")
          dfjs();
        ProgressBar1->Position+=100/yhs;
        YDData->TByhda->Next();
      }
    dftj("select lb,'dlp'=sum(dlp),'djp'=avg(djp),'jep'=sum(jep),'dlf'=sum(dlf),'djf'=avg(djf),'jef'=sum(jef),'dlg'=sum(dlg),'djg'=avg(djg),'jeg'=sum(jeg) from djkp0000 where xzq like '"+pqdm+"%' group by lb");
    dftj_jb("select 'jbdf'=sum(jbdf) from yhda0000 where xzq like '"+pqdm+"%'");
    dftj_ll("select 'lldf'=sum(lldf) from yhda0000 where xzq like '"+pqdm+"%'");
    dftj_wg("select 'www'=sum(www) from yhda0000 where xzq like '"+pqdm+"%'");
    dftj_fj("select 'lb'=fj_mc,'je'=sum(fj_je) from fjjj0000 where fj_xzq like '"+pqdm+"%' group by fj_mc");

  }
 double zdl=0;
 double zdf=0;
 Table2->First();
 while (!Table2->Eof)
   {
    zdl=zdl+Table2->FieldByName("dl")->AsFloat;
    zdf=zdf+Table2->FieldByName("je")->AsFloat;
    Table2->Next();
   }
 Table2->Append();
 Table2->FieldByName("lb")->AsString="总计";
 Table2->FieldByName("dl")->AsFloat=zdl;
 Table2->FieldByName("je")->AsFloat=zdf;
 Table2->Post();
 if (CheckBox1->Checked)
  {
   Fdydfjstj=new TFdydfjstj(Application);
   Fdydfjstj->QuickRep1->Preview();
   delete Fdydfjstj;
  }
 DBGrid1->Refresh();
 delete Query1;
}
//---------------------------------------------------------------------------

double TFdfjs::jfbljs(double sj,double bz)
{
 double jfb=0.00;
 double temp=sj*100;
 if (bz==0.90)
  {
   if (temp<65)
      jfb=15.0+2*(65-temp);
   if (temp<70&&temp>=65)
      jfb=10.0+(70-temp);
   if (temp<90&&temp>=70)
      jfb=0.5*(90-temp);
   if (temp==90)
      jfb=0.00;
   if (temp<95&&temp>90)
      jfb=-(temp-90)*0.15;
   if (temp<=100&&temp>=95)
      jfb=-0.75;
  }
 if (bz==0.85)
  {
   if (temp<60)
     jfb=15.0+2*(60-temp);
   if (temp<65&&temp>=60)
     jfb=10.0+(65-temp);
   if (temp<85&&temp>=65)
     jfb=0.5*(85-temp);
   if (temp==85)
     jfb=0.00;
   if (temp<=90&&temp>85)
     jfb=-(temp-85)*0.1;
   if (temp<94&&temp>90)
     jfb=-0.5-(temp-90)*0.15;
   if (temp<=100&&temp>=94)
     jfb=-1.10;
  }
 if (bz==0.80)
  {
    if (temp<55)
      jfb=15.0+2*(55-temp);
    if (temp<60&&temp>=55)
      jfb=10.0+(60-temp);
    if (temp<80&&temp>=60)
      jfb=0.5*(80-temp);
    if (temp==80)
      jfb=0.00;
    if (temp<=90&&temp>80)
      jfb=-(temp-80)*0.1;
    if (temp<92&&temp>90)
      jfb=-1.0-(temp-90)*0.15;
    if (temp<=100&&temp>=92)
      jfb=-1.30;
  }
 return jfb;

}


void __fastcall TFdfjs::RadioButton2Click(TObject *Sender)
{
      Edit2->Text="";
      Edit2->Enabled=false;
      ComboBox2->Text="";
      ComboBox2->Enabled=false;
      ComboBox1->Enabled=true;
      ComboBox1->SetFocus();

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

void __fastcall TFdfjs::RadioButton3Click(TObject *Sender)
{
      ComboBox1->Text="";
      ComboBox1->Enabled=false;
      ComboBox2->Text="";
      ComboBox2->Enabled=false;
      Edit2->Enabled=true;
      Edit2->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFdfjs::RadioButton1Click(TObject *Sender)
{
      ComboBox1->Text="";
      ComboBox2->Text="";
      Edit2->Text="";
      ComboBox1->Enabled=false;
      ComboBox1->Enabled=false;
      Edit2->Enabled=false;
}
//---------------------------------------------------------------------------






void __fastcall TFdfjs::RadioButton4Click(TObject *Sender)
{
      Edit2->Text="";
      Edit2->Enabled=false;
      ComboBox2->Enabled=true;
      ComboBox1->Text="";
      ComboBox1->Enabled=false;
      ComboBox2->SetFocus();
}
//---------------------------------------------------------------------------