yddftzd.cpp

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

       YDData->TBfjjj->FieldByName("fj_dj")->AsFloat;
       Table1->FieldByName(bz)->AsString="";
       YDData->TBfjjj->Next();
      }

     }
    Table1->FieldByName("dlhj")->AsFloat=YDData->TByhda->FieldByName("zjygdl")->AsFloat;
    Table1->FieldByName("dfhj")->AsFloat=YDData->TByhda->FieldByName("hjdf")->AsFloat;
    AnsiString dfhj=FloatToStr(YDData->TByhda->FieldByName("hjdf")->AsFloat);
    Table1->FieldByName("rmbdx")->AsString=Fmain->GetBigMoney(dfhj);
    Table1->Post();
   }
  YDData->TByhda->Next();
 }

}
//------------------------------------------------
int TFdftzd::ydjs(int ks)
{
 TQuery *Query3=new TQuery(this);
 Query3->DatabaseName="YDDB";
 AnsiString sql,jsfsp,dl,dj,df,lb,bz;
 jsfsp=YDData->TBdjkp->FieldByName("jsfsp")->AsString;
 int ss=ks;
 if (jsfsp=="居民优待")
   sql="select * from djsjk where lb like '%居民优待%'";
 else
   sql="select * from djsjk where lb like '%职工优待%'";
   Query3->Close();
   Query3->SQL->Clear();
   Query3->SQL->Add(sql);
   Query3->ExecSQL();
   Query3->Open();
   int djs=Query3->RecordCount;
   if (djs==0)
   {
    YDData->TBdjkp->Edit();
    YDData->TBdjkp->FieldByName("dlp")->AsFloat=YDData->TBdbda->FieldByName("zdl")->AsFloat;
    YDData->TBdjkp->FieldByName("jep")->AsFloat=YDData->TBdbda->FieldByName("zdl")->AsFloat*
    YDData->TBdjkp->FieldByName("djp")->AsFloat;
    YDData->TBdjkp->Post();
    lb="F"+IntToStr(ss)+"01";
    dl="F"+IntToStr(ss)+"02";
    dj="F"+IntToStr(ss)+"03";
    df="F"+IntToStr(ss)+"04";
    bz="F"+IntToStr(ss)+"05";
    Table1->FieldByName(lb)->AsString=YDData->TBdjkp->FieldByName("lb")->AsString;
    Table1->FieldByName(dl)->AsFloat=YDData->TBdjkp->FieldByName("dlp")->AsFloat;
    Table1->FieldByName(dj)->AsFloat=YDData->TBdjkp->FieldByName("djp")->AsFloat;
    Table1->FieldByName(df)->AsFloat=YDData->TBdjkp->FieldByName("jep")->AsFloat;
    Table1->FieldByName(bz)->AsString="";
    ss=ss+1;
    return ss;
   }
   double djx[9];
   int y=0;
   Query3->First();
   while (!Query3->Eof)
     {
      if (YDData->TBdjkp->FieldByName("gddy")->AsString=="不满1千伏")
         djx[y]=Query3->FieldByName("dj1")->AsFloat;
      if (YDData->TBdjkp->FieldByName("gddy")->AsString=="1-10千伏")
         djx[y]=Query3->FieldByName("dj2")->AsFloat;
      if (YDData->TBdjkp->FieldByName("gddy")->AsString=="35千伏及以上")
         djx[y]=Query3->FieldByName("dj3")->AsFloat;
      if (YDData->TBdjkp->FieldByName("gddy")->AsString=="110千伏及以上")
         djx[y]=Query3->FieldByName("dj4")->AsFloat;
      Query3->Next();
      y++;
     }
   double zydl=YDData->TBdjkp->FieldByName("dlp")->AsFloat;
   if (YDData->TBdjkp->FieldByName("dlp")->AsFloat>=StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString))
     {
        lb="F"+IntToStr(ss)+"01";
        dl="F"+IntToStr(ss)+"02";
        dj="F"+IntToStr(ss)+"03";
        df="F"+IntToStr(ss)+"04";
        bz="F"+IntToStr(ss)+"05";
        Table1->FieldByName(lb)->AsString=YDData->TBdjkp->FieldByName("lb")->AsString;
        Table1->FieldByName(dl)->AsFloat=StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString);
        Table1->FieldByName(dj)->AsFloat=YDData->TBdjkp->FieldByName("djp")->AsFloat;
        Table1->FieldByName(df)->AsFloat=StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString)*YDData->TBdjkp->FieldByName("djp")->AsFloat;
        Table1->FieldByName(bz)->AsString="";
        ss=ss+1;
        zydl=zydl-StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString);
       for (int x=0;zydl>0;)
        {
          if (zydl>=StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString)&&x<djs-1)
              {
               lb="F"+IntToStr(ss)+"01";
               dl="F"+IntToStr(ss)+"02";
               dj="F"+IntToStr(ss)+"03";
               df="F"+IntToStr(ss)+"04";
               bz="F"+IntToStr(ss)+"05";
               if (jsfsp=="居民优待")
                 Table1->FieldByName(lb)->AsString="居民优待";
                else
                 Table1->FieldByName(lb)->AsString="职工优待";
               Table1->FieldByName(dl)->AsFloat=StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString);
               Table1->FieldByName(dj)->AsFloat=djx[x];
               Table1->FieldByName(df)->AsFloat=StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString)*djx[x];
               Table1->FieldByName(bz)->AsString="";
               ss=ss+1;
               zydl=zydl-StrToFloat(YDData->TBdjkp->FieldByName("pdbl")->AsString);
              }
          else
             {
               lb="F"+IntToStr(ss)+"01";
               dl="F"+IntToStr(ss)+"02";
               dj="F"+IntToStr(ss)+"03";
               df="F"+IntToStr(ss)+"04";
               bz="F"+IntToStr(ss)+"05";
               if (jsfsp=="居民优待")
                 Table1->FieldByName(lb)->AsString="居民优待";
                else
                 Table1->FieldByName(lb)->AsString="职工优待";
               Table1->FieldByName(dl)->AsFloat=zydl;
               Table1->FieldByName(dj)->AsFloat=djx[x];
               Table1->FieldByName(df)->AsFloat=zydl*djx[x];
               Table1->FieldByName(bz)->AsString="";
               ss=ss+1;
               break;
             }
         if (x<djs-1)
           x++;
        }
     }
    else
     {
        lb="F"+IntToStr(ss)+"01";
        dl="F"+IntToStr(ss)+"02";
        dj="F"+IntToStr(ss)+"03";
        df="F"+IntToStr(ss)+"04";
        bz="F"+IntToStr(ss)+"05";
        Table1->FieldByName(lb)->AsString=YDData->TBdjkp->FieldByName("lb")->AsString;
        Table1->FieldByName(dl)->AsFloat=YDData->TBdjkp->FieldByName("dlp")->AsFloat;
        Table1->FieldByName(dj)->AsFloat=YDData->TBdjkp->FieldByName("djp")->AsFloat;
        Table1->FieldByName(df)->AsFloat=YDData->TBdjkp->FieldByName("jep")->AsFloat;
        Table1->FieldByName(bz)->AsString="";
        ss=ss+1;

    }

 delete Query3;
 return ss;
}
//---------------------------------------------------------------------------
void __fastcall TFdftzd::SpeedButton2Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TFdftzd::RadioButton1Click(TObject *Sender)
{
   ComboBox2->Text="";
   ComboBox2->Enabled=false;
   Edit1->Text="";
   Edit1->Enabled=false;
   ComboBox1->Enabled=true;
   ComboBox1->SetFocus();

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

}
//---------------------------------------------------------------------------
void __fastcall TFdftzd::SpeedButton1Click(TObject *Sender)
{
SpeedButton1->Refresh();
int sfw=0;

if (RadioButton1->Checked)
 {
   sfw=1;
   tzdjs(sfw);
 }
if (RadioButton2->Checked)
 {
   sfw=2;
   tzdjs(sfw);
 }

 if (RadioButton3->Checked)
 {
   sfw=3;
   tzdjs(sfw);
 }

 Table1->First();
 while (!Table1->Eof)
   {

      Fdytzd->QuickRep1->Preview();
      Table1->Next();
   }

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



void __fastcall TFdftzd::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBxtcs->Close();
 YDData->TBdjkp->Close();
 YDData->TBfjjj->Close();
 YDData->TBpqdm->Close();
 YDData->TBxlcs->Close();
 YDData->TBdbda->Close();
 YDData->TByhda->Close();
 delete Fdytzd;
 Table1->Close();
 Fmain->gnjs(Fmain->tcjc);

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

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

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

void __fastcall TFdftzd::Edit1KeyPress(TObject *Sender, char &Key)
{
  if (Key==13)
   SpeedButton1->Click();
}
//---------------------------------------------------------------------------

void __fastcall TFdftzd::ComboBox2KeyPress(TObject *Sender, char &Key)
{
  if (Key==13)
   SpeedButton1->Click();
        
}
//---------------------------------------------------------------------------

void __fastcall TFdftzd::ComboBox1KeyPress(TObject *Sender, char &Key)
{
  if (Key==13)
   SpeedButton1->Click();
        
}
//---------------------------------------------------------------------------