📄 ydsjqf.cpp

📁 营业用电管理系统(网络版)是本公司推出的新一代软件产品
💻 CPP
📖 第 1 页 / 共 2 页
字号:
上一页 12
           Table1->FieldByName(df)->AsFloat=Qdjkp->FieldByName("jep")->AsFloat;
           Table1->FieldByName(bz)->AsString="";

            if (dblb.SubString(5,2)!="复")
               Table1->FieldByName(lb)->AsString=Qdjkp->FieldByName("lb")->AsString;
            else
              {
               Table1->FieldByName(lb)->AsString=Qdjkp->FieldByName("lb")->AsString+"(平)";
               kps=kps+1;
               lb="F"+IntToStr(kps)+"01";
               dl="F"+IntToStr(kps)+"02";
               dj="F"+IntToStr(kps)+"03";
               df="F"+IntToStr(kps)+"04";
               bz="F"+IntToStr(kps)+"05";
               Table1->FieldByName(lb)->AsString=Qdjkp->FieldByName("lb")->AsString+"(峰)";
               Table1->FieldByName(dl)->AsFloat=Qdjkp->FieldByName("dlf")->AsFloat;
               Table1->FieldByName(dj)->AsFloat=Qdjkp->FieldByName("djf")->AsFloat;
               Table1->FieldByName(df)->AsFloat=Qdjkp->FieldByName("jef")->AsFloat;
               kps=kps+1;
               lb="F"+IntToStr(kps)+"01";
               dl="F"+IntToStr(kps)+"02";
               dj="F"+IntToStr(kps)+"03";
               df="F"+IntToStr(kps)+"04";
               bz="F"+IntToStr(kps)+"05";
               Table1->FieldByName(lb)->AsString=Qdjkp->FieldByName("lb")->AsString+"(谷)";
               Table1->FieldByName(dl)->AsFloat=Qdjkp->FieldByName("dlg")->AsFloat;
               Table1->FieldByName(dj)->AsFloat=Qdjkp->FieldByName("djg")->AsFloat;
               Table1->FieldByName(df)->AsFloat=Qdjkp->FieldByName("jeg")->AsFloat;
              }
           }
          kps=kps+1;
         Qdjkp->Next();
        }
      dbs=dbs+1;
      Qdbda->Next();
    }
  if (kps<9&&Qyhda->FieldByName("jbdf")->AsFloat!=0)
    {
       kps=kps+1;
       lb="F"+IntToStr(kps)+"01";
       dl="F"+IntToStr(kps)+"02";
       dj="F"+IntToStr(kps)+"03";
       df="F"+IntToStr(kps)+"04";
       bz="F"+IntToStr(kps)+"05";
       Table1->FieldByName(lb)->AsString="基本电费";
       Table1->FieldByName(dl)->AsFloat=Qyhda->FieldByName("syrl")->AsFloat;
       Table1->FieldByName(dj)->AsFloat=Qyhda->FieldByName("jbdj")->AsFloat;
       Table1->FieldByName(df)->AsFloat=Qyhda->FieldByName("syrl")->AsFloat*Qyhda->FieldByName("jbdj")->AsFloat;
       Table1->FieldByName(bz)->AsString="";
    }
  if (kps<9&&Qyhda->FieldByName("lldf")->AsFloat!=0)
    {
       kps=kps+1;
       lb="F"+IntToStr(kps)+"01";
       dl="F"+IntToStr(kps)+"02";
       dj="F"+IntToStr(kps)+"03";
       df="F"+IntToStr(kps)+"04";
       bz="F"+IntToStr(kps)+"05";
       Table1->FieldByName(lb)->AsString="力率电费";
       Table1->FieldByName(dl)->AsFloat=0;
       Table1->FieldByName(dj)->AsFloat=0;
       Table1->FieldByName(df)->AsFloat=Qyhda->FieldByName("lldf")->AsFloat;
       Table1->FieldByName(bz)->AsString=FloatToStr(Qyhda->FieldByName("zjwgdl")->AsFloat)+
       "KW.H 奖罚比:"+FloatToStr(Qyhda->FieldByName("jfbl")->AsFloat)+"%";
    }
  if (kps<9&&Qyhda->FieldByName("www")->AsFloat!=0)
    {
       kps=kps+1;
       lb="F"+IntToStr(kps)+"01";
       dl="F"+IntToStr(kps)+"02";
       dj="F"+IntToStr(kps)+"03";
       df="F"+IntToStr(kps)+"04";
       bz="F"+IntToStr(kps)+"05";
       Table1->FieldByName(lb)->AsString="维管费";
       Table1->FieldByName(dl)->AsFloat=Qyhda->FieldByName("zjygdl")->AsFloat;
       Table1->FieldByName(dj)->AsFloat=YDData->TBxtcs->FieldByName("xt_wgfdj")->AsFloat;
       Table1->FieldByName(df)->AsFloat=Qyhda->FieldByName("zjygdl")->AsFloat*YDData->TBxtcs->FieldByName("xt_wgfdj")->AsFloat;
       Table1->FieldByName(bz)->AsString="";
    }
   if (kps<9)
    {
     sql="select * from fjjj"+ComboBox2->Text+" where hsqx='"+ComboBox2->Text+"-"+ComboBox3->Text+"'";
     sql=sql+" and fj_hhhh='"+Edit11->Text+"'";
     Qfjf->Close();
     Qfjf->SQL->Clear();
     Qfjf->SQL->Add(sql);
     Qfjf->ExecSQL();
     Qfjf->Open();
     Qfjf->First();
    while (!Qfjf->Eof&&kps<9)
      {
       kps=kps+1;
       lb="F"+IntToStr(kps)+"01";
       dl="F"+IntToStr(kps)+"02";
       dj="F"+IntToStr(kps)+"03";
       df="F"+IntToStr(kps)+"04";
       bz="F"+IntToStr(kps)+"05";
       Table1->FieldByName(lb)->AsString=Qfjf->FieldByName("fj_mc")->AsString;
       Table1->FieldByName(dl)->AsFloat=Qyhda->FieldByName("zjygdl")->AsFloat;
       Table1->FieldByName(dj)->AsFloat=Qfjf->FieldByName("fj_dj")->AsFloat;
       Table1->FieldByName(df)->AsFloat=Qyhda->FieldByName("zjygdl")->AsFloat*
       Qfjf->FieldByName("fj_dj")->AsFloat;
       Table1->FieldByName(bz)->AsString="";
       Qfjf->Next();
      }
   }
   AnsiString rq=ComboBox2->Text+"-"+ComboBox3->Text+"-"+IntToStr(Qyhda->FieldByName("jfrq")->AsInteger);
   double hjdf=Table1->FieldByName("f104")->AsFloat+Table1->FieldByName("f204")->AsFloat+
   Table1->FieldByName("f304")->AsFloat+Table1->FieldByName("f404")->AsFloat+
   Table1->FieldByName("f504")->AsFloat+Table1->FieldByName("f604")->AsFloat+
   Table1->FieldByName("f704")->AsFloat+Table1->FieldByName("f804")->AsFloat+
   Table1->FieldByName("f904")->AsFloat;
   double znj=hjdf*znts(rq)*StrToFloat(Edit1->Text)/1000;
   if (CheckBox1->Checked&&Qyhda->FieldByName("cszt")->AsString=='2')
    {
     Table1->FieldByName("znj")->AsFloat=StrToFloat(FloatToStr(znj).SubString(1,FloatToStr(znj).AnsiPos(".")+2));
     Table1->FieldByName("dfhj")->AsFloat=hjdf+Table1->FieldByName("znj")->AsFloat;
    }
    else
    {
     Table1->FieldByName("znj")->AsFloat=0;
     Table1->FieldByName("dfhj")->AsFloat=hjdf;
    }
    Table1->FieldByName("dlhj")->AsFloat=Qyhda->FieldByName("zjygdl")->AsFloat;
    Table1->FieldByName("syye")->AsFloat=Qyhda->FieldByName("syye")->AsFloat;
    Table1->FieldByName("bcye")->AsFloat=0;
    AnsiString dfhj=FloatToStr(Table1->FieldByName("dfhj")->AsFloat);
    Table1->FieldByName("rmbdx")->AsString=Fmain->GetBigMoney(dfhj);
    Table1->Post();

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

int TFsjqf::ydjs(int ks)
{
 TQuery *Query3=new TQuery(this);
 Query3->DatabaseName="YDDB";
 AnsiString ysql,jsfsp,dl,dj,df,lb,bz;
 jsfsp=Qdjkp->FieldByName("jsfsp")->AsString;
 int ss=ks;
 if (jsfsp=="居民优待")
   ysql="select * from djsjk where lb like '%居民优待%'";
 else
   ysql="select * from djsjk where lb like '%职工优待%'";
 Query3->Close();
 Query3->SQL->Clear();
 Query3->SQL->Add(ysql);
 Query3->ExecSQL();
 Query3->Open();
 int djs=Query3->RecordCount;
 if (djs==0)
   {
    Qdjkp->Edit();
    Qdjkp->FieldByName("dlp")->AsFloat=Qdbda->FieldByName("zdl")->AsFloat;
    Qdjkp->FieldByName("jep")->AsFloat=Qdbda->FieldByName("zdl")->AsFloat*
    Qdjkp->FieldByName("djp")->AsFloat;
    Qdjkp->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=Qdjkp->FieldByName("lb")->AsString;
    Table1->FieldByName(dl)->AsFloat=Qdjkp->FieldByName("dlp")->AsFloat;
    Table1->FieldByName(dj)->AsFloat=Qdjkp->FieldByName("djp")->AsFloat;
    Table1->FieldByName(df)->AsFloat=Qdjkp->FieldByName("jep")->AsFloat;
    Table1->FieldByName(bz)->AsString="";
    ss=ss+1;
    return ss;
   }
   double djx[9];
   int y=0;
   Query3->First();
   while (!Query3->Eof)
     {
      if (Qdjkp->FieldByName("gddy")->AsString=="不满1千伏")
         djx[y]=Query3->FieldByName("dj1")->AsFloat;
      if (Qdjkp->FieldByName("gddy")->AsString=="1-10千伏")
         djx[y]=Query3->FieldByName("dj2")->AsFloat;
      if (Qdjkp->FieldByName("gddy")->AsString=="35千伏及以上")
         djx[y]=Query3->FieldByName("dj3")->AsFloat;
      if (Qdjkp->FieldByName("gddy")->AsString=="110千伏及以上")
         djx[y]=Query3->FieldByName("dj4")->AsFloat;
      Query3->Next();
      y++;
     }
   double zydl=Qdjkp->FieldByName("dlp")->AsFloat;
   if (Qdjkp->FieldByName("dlp")->AsFloat>=StrToFloat(Qdjkp->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=Qdjkp->FieldByName("lb")->AsString;
        Table1->FieldByName(dl)->AsFloat=StrToFloat(Qdjkp->FieldByName("pdbl")->AsString);
        Table1->FieldByName(dj)->AsFloat=Qdjkp->FieldByName("djp")->AsFloat;
        Table1->FieldByName(df)->AsFloat=StrToFloat(Qdjkp->FieldByName("pdbl")->AsString)*Qdjkp->FieldByName("djp")->AsFloat;
        Table1->FieldByName(bz)->AsString="";
        ss=ss+1;
        zydl=zydl-StrToFloat(Qdjkp->FieldByName("pdbl")->AsString);
       for (int x=0;zydl>0;)
        {
          if (zydl>=StrToFloat(Qdjkp->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(Qdjkp->FieldByName("pdbl")->AsString);
               Table1->FieldByName(dj)->AsFloat=djx[x];
               Table1->FieldByName(df)->AsFloat=StrToFloat(Qdjkp->FieldByName("pdbl")->AsString)*djx[x];
               Table1->FieldByName(bz)->AsString="";
               ss=ss+1;
               zydl=zydl-StrToFloat(Qdjkp->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=Qdjkp->FieldByName("lb")->AsString;
        Table1->FieldByName(dl)->AsFloat=Qdjkp->FieldByName("dlp")->AsFloat;
        Table1->FieldByName(dj)->AsFloat=Qdjkp->FieldByName("djp")->AsFloat;
        Table1->FieldByName(df)->AsFloat=Qdjkp->FieldByName("jep")->AsFloat;
        Table1->FieldByName(bz)->AsString="";
        ss=ss+1;
    }
  delete Query3;
  return ss;
}

//----------------------------------------
void __fastcall TFsjqf::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBxtcs->Close();
 Qyhda->Close();
 Qdbda->Close();
 Qdjkp->Close();
 Qfjf->Close();
 Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------

void __fastcall TFsjqf::SpeedButton4Click(TObject *Sender)
{

 AnsiString sql;
 sql="select * from yhda"+ComboBox2->Text+" where hsqx='"+ComboBox2->Text+"-"+ComboBox3->Text+"'";
 sql=sql+" and hhhh='"+Edit11->Text+"'";
 Qyhda->Close();
 Qyhda->SQL->Clear();
 Qyhda->SQL->Add(sql);
 Qyhda->ExecSQL();
 Qyhda->Open();
 if (Qyhda->RecordCount>0)
  {
   Label32->Caption=Qyhda->FieldByName("cby")->AsString;
   qfjs();
   if (Qyhda->FieldByName("cszt")->AsString=="2")
     SpeedButton1->Enabled=true;
   else
    {
     MessageBox(NULL,"该用户本期电费已结清，无需收费！","提示",MB_OK|MB_ICONWARNING);
     SpeedButton1->Enabled=false;
    }
  }
 else
  {
   SpeedButton1->Enabled=false;
   MessageBox(NULL,"用户不存在,请重查找！","提示",MB_OK|MB_ICONWARNING);
  }
        
}
//---------------------------------------------------------------------------

void __fastcall TFsjqf::CheckBox1Click(TObject *Sender)
{
 if (CheckBox1->Checked)
   Edit1->Enabled=true;
 else
   {
    Edit1->Text="";
    Edit1->Enabled=false;
   }
}
//---------------------------------------------------------------------------


void __fastcall TFsjqf::Edit11KeyPress(TObject *Sender, char &Key)
{
  if (Key==13)
   SpeedButton4->Click();       
}
//---------------------------------------------------------------------------
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -