亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? yddftzd.cpp

?? 營業用電管理系統(網絡版)是本公司推出的新一代軟件產品
?? CPP
?? 第 1 頁 / 共 2 頁
字號: 
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "YDdftzd.h"
#include "YDdatam.h"
#include "YDdytzd.h"
#include "YDmain.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFdftzd *Fdftzd;
//---------------------------------------------------------------------------
__fastcall TFdftzd::TFdftzd(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFdftzd::FormCreate(TObject *Sender)
{
 YDData->TBxtcs->Open();
 YDData->TByhda->Open();
 YDData->TBdbda->Open();
 YDData->TBdjkp->Open();
 YDData->TBfjjj->Open();
 YDData->TBxlcs->Open();
 while (!YDData->TBxlcs->Eof)
   {
     ComboBox1->Items->Add(YDData->TBxlcs->FieldByName("xlmc")->AsString);
     YDData->TBxlcs->Next();
   }

 YDData->TBpqdm->Open();
 while (!YDData->TBpqdm->Eof)
    {
      ComboBox2->Items->Add(Trim(YDData->TBpqdm->FieldByName("pqdm")->AsString)+":"+YDData->TBpqdm->FieldByName("pqmc")->AsString);
      YDData->TBpqdm->Next();
    }

 Label1->Caption=YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(1,4)+"年"+
 YDData->TBxtcs->FieldByName("XT_HSQX")->AsString.SubString(6,2)+"月份電費通知單";
 Fdytzd=new TFdytzd(Application);
 }
//-----------------------------------

//-------------------------------------------
void TFdftzd::tzdjs(int jsfw)
{
 bool tj;
 Table1->Close();
 Table1->EmptyTable();
 Table1->Open();
 YDData->TByhda->First();
 while (!YDData->TByhda->Eof)
  {
   if (jsfw==1)
     tj=YDData->TByhda->FieldByName("klbs")->AsString==ComboBox1->Text;
   if (jsfw==2)
     tj=YDData->TByhda->FieldByName("xzq")->AsString.AnsiPos(ComboBox2->Text.SubString(1,ComboBox2->Text.AnsiPos(":")-1))==1;
   if (jsfw==3)
      tj=YDData->TByhda->FieldByName("hhhh")->AsString==Edit1->Text;
   if (tj)
    {
     Table1->Append();
     Table1->FieldByName("hhhh")->AsString=YDData->TByhda->FieldByName("hhhh")->AsString;
     Table1->FieldByName("yhmc")->AsString=YDData->TByhda->FieldByName("yhmc")->AsString;
     Table1->FieldByName("yhdz")->AsString=YDData->TByhda->FieldByName("yhdz")->AsString;
     AnsiString lb,dl,dj,df,bz;
     int kps=1;
     AnsiString dblb,bb,sycj,bycj,cs,bl,bldl,bsdl,xsdl,fldl,zdl;
     int dbs=1;
     YDData->TBdbda->First();
     while (!YDData->TBdbda->Eof&&dbs<=5)
      {
       dblb=YDData->TBdbda->FieldByName("dblb")->AsString;
       bb="B"+IntToStr(dbs)+"01";
       sycj="B"+IntToStr(dbs)+"02";
       bycj="B"+IntToStr(dbs)+"03";
       cs="B"+IntToStr(dbs)+"04";
       bl="B"+IntToStr(dbs)+"05";
       bldl="B"+IntToStr(dbs)+"06";
       bsdl="B"+IntToStr(dbs)+"07";
       xsdl="B"+IntToStr(dbs)+"08";
       fldl="B"+IntToStr(dbs)+"09";
       zdl="B"+IntToStr(dbs)+"10";
       Table1->FieldByName(sycj)->AsFloat=YDData->TBdbda->FieldByName("sycj")->AsFloat;
       Table1->FieldByName(bycj)->AsFloat=YDData->TBdbda->FieldByName("bycj")->AsFloat;
       Table1->FieldByName(cs)->AsFloat=YDData->TBdbda->FieldByName("cs")->AsFloat;
       Table1->FieldByName(bl)->AsFloat=YDData->TBdbda->FieldByName("bl")->AsFloat;
       Table1->FieldByName(bldl)->AsFloat=YDData->TBdbda->FieldByName("bldl")->AsFloat;
       Table1->FieldByName(bsdl)->AsFloat=YDData->TBdbda->FieldByName("bsdl")->AsFloat;
       Table1->FieldByName(xsdl)->AsFloat=YDData->TBdbda->FieldByName("xsdl")->AsFloat;
       Table1->FieldByName(fldl)->AsFloat=YDData->TBdbda->FieldByName("fldl")->AsFloat;
       Table1->FieldByName(zdl)->AsFloat=YDData->TBdbda->FieldByName("zdl")->AsFloat;
       if (dblb.SubString(5,2)!="復")
         Table1->FieldByName(bb)->AsString=YDData->TBdbda->FieldByName("dblb")->AsString;
       else
       {
        Table1->FieldByName(bb)->AsString=YDData->TBdbda->FieldByName("dblb")->AsString.SubString(1,4)+"(平)";
        dbs=dbs+1;
        bb="B"+IntToStr(dbs)+"01";
        sycj="B"+IntToStr(dbs)+"02";
        bycj="B"+IntToStr(dbs)+"03";
        cs="B"+IntToStr(dbs)+"04";
        bl="B"+IntToStr(dbs)+"05";
        bldl="B"+IntToStr(dbs)+"06";
        bsdl="B"+IntToStr(dbs)+"07";
        xsdl="B"+IntToStr(dbs)+"08";
        fldl="B"+IntToStr(dbs)+"09";
        zdl="B"+IntToStr(dbs)+"10";
        Table1->FieldByName(bb)->AsString=YDData->TBdbda->FieldByName("dblb")->AsString.SubString(1,4)+"(峰)";
        Table1->FieldByName(sycj)->AsFloat=YDData->TBdbda->FieldByName("sycjf")->AsFloat;
        Table1->FieldByName(bycj)->AsFloat=YDData->TBdbda->FieldByName("bycjf")->AsFloat;
        Table1->FieldByName(cs)->AsFloat=YDData->TBdbda->FieldByName("csf")->AsFloat;
        Table1->FieldByName(bl)->AsFloat=YDData->TBdbda->FieldByName("blf")->AsFloat;
        Table1->FieldByName(bldl)->AsFloat=YDData->TBdbda->FieldByName("bldlf")->AsFloat;
        Table1->FieldByName(bsdl)->AsFloat=YDData->TBdbda->FieldByName("bsdlf")->AsFloat;
        Table1->FieldByName(xsdl)->AsFloat=YDData->TBdbda->FieldByName("xsdlf")->AsFloat;
        Table1->FieldByName(fldl)->AsFloat=YDData->TBdbda->FieldByName("fldlf")->AsFloat;
        Table1->FieldByName(zdl)->AsFloat=YDData->TBdbda->FieldByName("zdlf")->AsFloat;
        dbs=dbs+1;
        bb="B"+IntToStr(dbs)+"01";
        sycj="B"+IntToStr(dbs)+"02";
        bycj="B"+IntToStr(dbs)+"03";
        cs="B"+IntToStr(dbs)+"04";
        bl="B"+IntToStr(dbs)+"05";
        bldl="B"+IntToStr(dbs)+"06";
        bsdl="B"+IntToStr(dbs)+"07";
        xsdl="B"+IntToStr(dbs)+"08";
        fldl="B"+IntToStr(dbs)+"09";
        zdl="B"+IntToStr(dbs)+"10";
        Table1->FieldByName(bb)->AsString=YDData->TBdbda->FieldByName("dblb")->AsString.SubString(1,4)+"(谷)";
        Table1->FieldByName(sycj)->AsFloat=YDData->TBdbda->FieldByName("sycjg")->AsFloat;
        Table1->FieldByName(bycj)->AsFloat=YDData->TBdbda->FieldByName("bycjg")->AsFloat;
        Table1->FieldByName(cs)->AsFloat=YDData->TBdbda->FieldByName("csg")->AsFloat;
        Table1->FieldByName(bl)->AsFloat=YDData->TBdbda->FieldByName("blg")->AsFloat;
        Table1->FieldByName(bldl)->AsFloat=YDData->TBdbda->FieldByName("bldlg")->AsFloat;
        Table1->FieldByName(bsdl)->AsFloat=YDData->TBdbda->FieldByName("bsdlg")->AsFloat;
        Table1->FieldByName(xsdl)->AsFloat=YDData->TBdbda->FieldByName("xsdlg")->AsFloat;
        Table1->FieldByName(fldl)->AsFloat=YDData->TBdbda->FieldByName("fldlg")->AsFloat;
        Table1->FieldByName(zdl)->AsFloat=YDData->TBdbda->FieldByName("zdlg")->AsFloat;
       }
      YDData->TBdjkp->First();
      while (!YDData->TBdjkp->Eof&&kps<=9)
        {
          if (YDData->TBdjkp->FieldByName("jsfsp")->AsString=="居民優待"||YDData->TBdjkp->FieldByName("jsfsp")->AsString=="職工優待")
            {
              if (dblb.SubString(1,4)!="無功"&&dblb.SubString(1,4)!="反向")
               {
                 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)+
       "KWH 力率:"+FloatToStr(YDData->TByhda->FieldByName("byll")->AsFloat)+
       "獎罰比"+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*

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲欧美综合网| 国产精品亚洲综合一区在线观看| 亚洲免费观看在线视频| 中文字幕中文字幕在线一区 | 色先锋资源久久综合| 欧美一区二区二区| 国产99精品国产| 26uuu色噜噜精品一区二区| 美女视频一区二区| 欧美v亚洲v综合ⅴ国产v| 亚洲福利一区二区三区| 成人永久免费视频| 视频在线观看一区二区三区| 亚洲人123区| 日韩精品一二三四| 亚洲综合在线第一页| 欧美天堂亚洲电影院在线播放| 福利视频网站一区二区三区| 日本黄色一区二区| 精品视频1区2区| 久久久av毛片精品| 国产成人高清在线| 一本一本久久a久久精品综合麻豆 一本一道波多野结衣一区二区 | 国产伦精一区二区三区| 色综合婷婷久久| 日韩精品在线看片z| 亚洲靠逼com| 色综合天天综合在线视频| 亚洲成人av在线电影| 国产伦精品一区二区三区免费迷 | 中文一区二区在线观看| 五月开心婷婷久久| 床上的激情91.| 91精品国产综合久久精品麻豆 | 色综合久久综合网97色综合 | 高清不卡在线观看av| 欧美久久久一区| 成人免费在线播放视频| 久久99精品久久只有精品| 欧美亚洲综合网| 中文字幕第一区第二区| 人人狠狠综合久久亚洲| 国产精品久久毛片av大全日韩| 亚洲桃色在线一区| 国产精品123区| 日韩视频在线永久播放| 亚洲国产综合在线| 99精品在线免费| 国产欧美日韩精品一区| 免费成人小视频| 欧美性受xxxx| 亚洲精品欧美激情| av欧美精品.com| 日本一区二区免费在线| 狠狠色狠狠色综合| 日韩一区二区三区免费看 | 麻豆国产欧美一区二区三区| 欧美午夜一区二区三区 | 欧美日韩一二三| 亚洲免费成人av| 99久久精品国产观看| 美女任你摸久久| 色综合天天性综合| 成人中文字幕电影| 国产日韩欧美在线一区| 国产精品白丝jk黑袜喷水| 久久综合一区二区| 午夜国产不卡在线观看视频| 91成人国产精品| 亚洲综合在线观看视频| 一本在线高清不卡dvd| 一区二区久久久久久| 在线亚洲免费视频| 一卡二卡三卡日韩欧美| 日本二三区不卡| 亚洲国产成人av好男人在线观看| 色av综合在线| 亚洲影院在线观看| 久久99国产精品麻豆| 日韩精品一区二区三区在线观看| 裸体在线国模精品偷拍| 精品剧情v国产在线观看在线| 久久精品国产99国产| 精品理论电影在线观看| 国产伦精品一区二区三区在线观看| 国产亚洲一区字幕| 不卡的看片网站| 亚洲免费伊人电影| 69精品人人人人| 老司机精品视频在线| 久久一二三国产| 99riav一区二区三区| 亚洲精品第1页| 欧美日韩国产高清一区二区三区| 色老汉av一区二区三区| 国产欧美精品在线观看| av一区二区久久| 五月激情综合色| 精品国产一区二区三区四区四| 国产成人自拍网| 亚洲免费观看高清完整版在线观看 | 日本精品一区二区三区高清 | 欧美一区二区美女| 紧缚奴在线一区二区三区| 色综合一个色综合| 日韩精品三区四区| 欧美精品一区二| 99麻豆久久久国产精品免费优播| 亚洲综合无码一区二区| 欧美日韩高清不卡| 黄色日韩网站视频| 亚洲人成在线观看一区二区| 欧美日本在线播放| 国产精品一区二区黑丝| 亚洲美女在线一区| 在线综合视频播放| 成人精品在线视频观看| 亚洲国产精品久久久男人的天堂 | 国产成人综合在线| av在线一区二区三区| 国产精品麻豆网站| 欧美精三区欧美精三区| 国产精品主播直播| 亚洲一区二区美女| 欧美高清一级片在线观看| 欧美日韩日日骚| 福利电影一区二区| 午夜视频在线观看一区二区| 久久精品日韩一区二区三区| 在线观看av一区二区| 黄色日韩三级电影| 亚洲成在人线在线播放| 国产日韩欧美制服另类| 欧美嫩在线观看| av不卡在线观看| 韩国三级电影一区二区| 一区二区三区.www| 欧美激情在线免费观看| 欧美精品在线一区二区| 成人免费视频一区二区| 日韩中文字幕麻豆| 91精品国产麻豆| 色综合天天综合色综合av| 国产中文一区二区三区| 亚洲国产精品一区二区尤物区| 中文字幕二三区不卡| 精品国产一区二区亚洲人成毛片| 欧美自拍偷拍午夜视频| 成熟亚洲日本毛茸茸凸凹| 免费高清视频精品| 亚洲一区二区三区四区在线观看| 国产蜜臀av在线一区二区三区| 91精品国产乱码| 欧美羞羞免费网站| 99视频热这里只有精品免费| 国产麻豆欧美日韩一区| 日产国产欧美视频一区精品| 一区二区三区日韩欧美精品 | 色婷婷综合视频在线观看| 色久综合一二码| 成人午夜激情影院| 国产呦萝稀缺另类资源| 青青草精品视频| 亚洲国产成人porn| 洋洋av久久久久久久一区| 亚洲视频免费观看| 亚洲国产高清aⅴ视频| 2022国产精品视频| 欧美电影免费观看完整版| 欧美日韩视频一区二区| 在线观看国产日韩| 色www精品视频在线观看| 一本色道久久综合精品竹菊| 成人一区二区在线观看| 国产成人自拍网| 国产成人av影院| 亚洲精品在线观| 久久先锋影音av鲁色资源网| 日韩欧美在线123| 欧美一区二区在线免费播放| 欧美美女激情18p| 欧美日韩不卡一区| 国产精品一色哟哟哟| 国产一本一道久久香蕉| 国产成a人无v码亚洲福利| 国产福利精品一区二区| 国产成人一区二区精品非洲| 国产精品影音先锋| 国产一区二区三区黄视频| 国产在线精品一区二区| 国产精品亚洲视频| 风间由美一区二区三区在线观看| 国产福利一区二区三区视频 | 国产精品高潮呻吟久久| 国产精品麻豆欧美日韩ww| 1000部国产精品成人观看| 亚洲三级小视频| 亚洲一区二区三区精品在线| 欧美日韩视频在线观看一区二区三区 | 5月丁香婷婷综合|