亚洲欧美第一页_禁久久精品乱码_粉嫩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一区二区三区免费野_久草精品视频
在线看国产一区二区| 欧美日本国产视频| 韩国女主播一区| 国产色产综合产在线视频| 欧美放荡的少妇| 成人激情小说乱人伦| 国产一区视频网站| 理论片日本一区| 一区二区三区日韩精品| 亚洲欧美在线视频观看| 欧美激情综合五月色丁香小说| 欧美一区二区三区小说| 在线播放亚洲一区| 欧美日韩精品一区二区天天拍小说| 色综合天天在线| 9色porny自拍视频一区二区| 国产91高潮流白浆在线麻豆| 国产老妇另类xxxxx| 黄色日韩网站视频| 五月激情综合网| 看电视剧不卡顿的网站| 国产mv日韩mv欧美| 一本色道久久综合亚洲aⅴ蜜桃 | 欧美综合视频在线观看| 欧美日韩亚洲综合在线| 日韩视频国产视频| 欧美高清一级片在线观看| 中文字幕五月欧美| 亚洲国产成人porn| 久久国产精品99精品国产| 国产成人午夜精品5599| 色一区在线观看| 欧美大片日本大片免费观看| 国产亚洲精品7777| 亚洲精品国久久99热| 午夜不卡在线视频| 国产一区二区美女| 色成年激情久久综合| 日韩一区二区三区免费看 | 亚洲人123区| 日韩中文字幕亚洲一区二区va在线 | 国产日韩精品一区| 一区二区三区欧美视频| 男男视频亚洲欧美| 国产v日产∨综合v精品视频| 欧美视频一区二| 久久亚洲精华国产精华液| 亚洲视频在线观看一区| 免费高清在线一区| 波多野结衣在线aⅴ中文字幕不卡| 欧美性受xxxx黑人xyx性爽| 精品欧美乱码久久久久久 | 精品夜夜嗨av一区二区三区| 波多野结衣的一区二区三区| 7777精品伊人久久久大香线蕉完整版| 久久精品人人做人人综合| 夜夜嗨av一区二区三区四季av| 久久精品国产一区二区| 色香蕉久久蜜桃| 26uuu欧美日本| 日韩在线播放一区二区| 91免费在线视频观看| 精品久久久久一区二区国产| 亚洲欧美另类小说| 激情文学综合插| 欧洲另类一二三四区| 欧美一二区视频| 亚洲三级在线免费| 狠狠色丁香婷婷综合久久片| 不卡的av电影在线观看| 欧美一区三区二区| 中文字幕日韩精品一区| 美腿丝袜亚洲三区| 一本高清dvd不卡在线观看 | 久久久久久亚洲综合| 日本伊人色综合网| 91免费在线看| 久久婷婷综合激情| 亚洲午夜久久久久| 丰满少妇久久久久久久| 这里是久久伊人| 亚洲人成伊人成综合网小说| 国产精品一级在线| 欧美一区二区在线观看| 亚洲欧美日韩精品久久久久| 精品一区二区三区的国产在线播放| 一本大道久久a久久综合婷婷| 精品精品国产高清一毛片一天堂| 洋洋av久久久久久久一区| 久久99国产精品免费网站| 欧美精品乱码久久久久久| 国产亚洲短视频| 日韩精品久久理论片| 在线精品视频小说1| 国产精品色噜噜| 国产剧情一区在线| 欧美变态tickle挠乳网站| 国产精品盗摄一区二区三区| 国内一区二区视频| 欧美精品18+| 亚洲一区二区三区四区在线观看| jlzzjlzz国产精品久久| 久久女同精品一区二区| 免费看精品久久片| 在线观看视频一区二区| 一区二区成人在线观看| 94-欧美-setu| 亚洲国产成人在线| 国产99久久久国产精品| 国产视频一区在线播放| 精品一区二区免费视频| 日韩精品一区在线| 另类欧美日韩国产在线| 在线电影欧美成精品| 亚洲乱码日产精品bd| 粉嫩av一区二区三区在线播放| 精品国产成人在线影院| 久久精品国产99久久6| 日韩欧美在线123| 蜜桃av一区二区三区电影| 欧美一级一区二区| 亚洲一区二区欧美日韩| 欧美军同video69gay| 亚洲国产日韩av| 欧美精选在线播放| 美洲天堂一区二卡三卡四卡视频| 7777精品伊人久久久大香线蕉完整版| 偷拍一区二区三区四区| 欧美在线三级电影| 喷白浆一区二区| 欧美电视剧在线看免费| 国产精品一级二级三级| 国产精品久久久久久亚洲伦| 成人av集中营| 一区二区国产盗摄色噜噜| 日韩一级高清毛片| 韩国一区二区三区| 精品第一国产综合精品aⅴ| 国产乱人伦偷精品视频不卡| 欧美激情一区二区三区四区| 91在线视频播放地址| 最近日韩中文字幕| 欧美一区二区三区视频在线观看| 美腿丝袜一区二区三区| 久久免费视频色| 9l国产精品久久久久麻豆| 亚洲一区影音先锋| 欧美视频一区二区三区四区| 国产精品66部| 亚洲欧美欧美一区二区三区| 欧美日韩精品是欧美日韩精品| 蜜桃视频一区二区| 国产精品丝袜在线| 成人理论电影网| 日日夜夜精品视频天天综合网| 日韩亚洲欧美成人一区| 国产精品 欧美精品| 一区二区三区在线视频播放| 4438成人网| 粉嫩av一区二区三区| 一区二区久久久久| 欧美精品一区二区三区蜜桃视频| 成人精品视频.| 亚洲成人黄色小说| 久久久精品国产免费观看同学| 成人午夜电影网站| 青青草伊人久久| ㊣最新国产の精品bt伙计久久| 欧美精品v日韩精品v韩国精品v| 国产一区二区三区四区五区美女 | wwwwxxxxx欧美| eeuss鲁一区二区三区| 日韩精品每日更新| 国产精品每日更新| 欧美一区二区三区四区高清| 成人av影院在线| 日韩影院精彩在线| 国产精品免费久久久久| 欧美日韩国产在线观看| 高清日韩电视剧大全免费| 天堂av在线一区| 久久精品亚洲精品国产欧美kt∨| 欧美色大人视频| 国产精品99久久不卡二区| 亚洲电影欧美电影有声小说| 日本一区二区久久| 欧美一卡二卡在线观看| 成人午夜视频福利| 国产高清成人在线| 免费看欧美美女黄的网站| 亚洲男人的天堂av| 久久精品欧美日韩精品 | 久久婷婷综合激情| 欧美欧美午夜aⅴ在线观看| 99久久夜色精品国产网站| 亚洲成人自拍偷拍| 一区二区在线免费观看| 国产精品视频一二三| 日韩精品在线一区二区| 欧美久久高跟鞋激|