📄 dfsf.cpp
字号:
kps=ydjs(kps);
YDData->TBdjkp->Next();
continue;
}
}
if (dblb.SubString(1,4)!="无功"&&dblb.SubString(1,4)!="反向")
{
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(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="";
if (dblb.SubString(5,2)!="复")
Table1->FieldByName(lb)->AsString=YDData->TBdjkp->FieldByName("lb")->AsString;
else
{
Table1->FieldByName(lb)->AsString=YDData->TBdjkp->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=YDData->TBdjkp->FieldByName("lb")->AsString+"(峰)";
Table1->FieldByName(dl)->AsFloat=YDData->TBdjkp->FieldByName("dlf")->AsFloat;
Table1->FieldByName(dj)->AsFloat=YDData->TBdjkp->FieldByName("djf")->AsFloat;
Table1->FieldByName(df)->AsFloat=YDData->TBdjkp->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=YDData->TBdjkp->FieldByName("lb")->AsString+"(谷)";
Table1->FieldByName(dl)->AsFloat=YDData->TBdjkp->FieldByName("dlg")->AsFloat;
Table1->FieldByName(dj)->AsFloat=YDData->TBdjkp->FieldByName("djg")->AsFloat;
Table1->FieldByName(df)->AsFloat=YDData->TBdjkp->FieldByName("jeg")->AsFloat;
}
}
kps=kps+1;
YDData->TBdjkp->Next();
}
dbs=dbs+1;
YDData->TBdbda->Next();
}
if (kps<=9&&YDData->TByhda->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=YDData->TByhda->FieldByName("syrl")->AsFloat;
Table1->FieldByName(dj)->AsFloat=YDData->TByhda->FieldByName("jbdj")->AsFloat;
Table1->FieldByName(df)->AsFloat=YDData->TByhda->FieldByName("jbdf")->AsFloat;
Table1->FieldByName(bz)->AsString="";
}
if (kps<=9&&YDData->TByhda->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=YDData->TByhda->FieldByName("lldf")->AsFloat;
Table1->FieldByName(bz)->AsString=FloatToStr(YDData->TByhda->FieldByName("zjwgdl")->AsFloat)+
"KW.H 奖罚比:"+FloatToStr(YDData->TByhda->FieldByName("jfbl")->AsFloat)+"%";
}
if (kps<=9&&YDData->TByhda->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=YDData->TByhda->FieldByName("zjygdl")->AsFloat;
Table1->FieldByName(dj)->AsFloat=YDData->TBxtcs->FieldByName("xt_wgfdj")->AsFloat;
Table1->FieldByName(df)->AsFloat=YDData->TByhda->FieldByName("www")->AsFloat;
Table1->FieldByName(bz)->AsString="";
}
if (kps<=9)
{
YDData->TBfjjj->First();
while (!YDData->TBfjjj->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=YDData->TBfjjj->FieldByName("fj_mc")->AsString;
Table1->FieldByName(dl)->AsFloat=YDData->TByhda->FieldByName("zjygdl")->AsFloat;
Table1->FieldByName(dj)->AsFloat=YDData->TBfjjj->FieldByName("fj_dj")->AsFloat;
Table1->FieldByName(df)->AsFloat=YDData->TByhda->FieldByName("zjygdl")->AsFloat*
YDData->TBfjjj->FieldByName("fj_dj")->AsFloat;
Table1->FieldByName(bz)->AsString="";
YDData->TBfjjj->Next();
}
}
Table1->FieldByName("dlhj")->AsFloat=YDData->TByhda->FieldByName("zjygdl")->AsFloat;
Table1->FieldByName("syye")->AsFloat=YDData->TByhda->FieldByName("syye")->AsFloat;
cl();
AnsiString dfhj=FloatToStr(Table1->FieldByName("dfhj")->AsFloat);
Table1->FieldByName("rmbdx")->AsString=Fmain->GetBigMoney(dfhj);
Table1->Post();
}
//------------------------------------------------
int TFdfsf::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 TFdfsf::FormClose(TObject *Sender, TCloseAction &Action)
{
YDData->TByhda->Close();
YDData->TBdbda->Close();
YDData->TBfjjj->Close();
YDData->TBdjkp->Close();
YDData->TBxtcs->Close();
Table1->Close();
Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -