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

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? yddftzd.cpp

?? 營業(yè)用電管理系統(tǒng)(網(wǎng)絡(luò)版)是本公司推出的新一代軟件產(chǎn)品
?? CPP
?? 第 1 頁 / 共 2 頁
字號: 
       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=="居民優(yōu)待")
   sql="select * from djsjk where lb like '%居民優(yōu)待%'";
 else
   sql="select * from djsjk where lb like '%職工優(yōu)待%'";
   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=="居民優(yōu)待")
                 Table1->FieldByName(lb)->AsString="居民優(yōu)待";
                else
                 Table1->FieldByName(lb)->AsString="職工優(yōu)待";
               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=="居民優(yōu)待")
                 Table1->FieldByName(lb)->AsString="居民優(yōu)待";
                else
                 Table1->FieldByName(lb)->AsString="職工優(yōu)待";
               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();
        
}
//---------------------------------------------------------------------------

?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
精品999久久久| av中文字幕亚洲| 久久午夜免费电影| 国产伦理精品不卡| 中文字幕不卡在线观看| 91国偷自产一区二区三区成为亚洲经典 | 国产精品美女视频| 高清日韩电视剧大全免费| 中文字幕不卡在线| 91精品国产91热久久久做人人 | 日韩免费在线观看| 国产做a爰片久久毛片| 国产精品网站在线播放| 在线观看免费成人| 91网站最新地址| 日韩国产成人精品| 亚洲欧洲美洲综合色网| 欧美一区午夜精品| 波多野结衣在线一区| 日日夜夜精品免费视频| 国产欧美日韩精品一区| 欧美午夜精品理论片a级按摩| 国产一区二区精品久久99| 亚洲狠狠丁香婷婷综合久久久| 欧美精品九九99久久| 成人免费三级在线| 毛片av一区二区| 亚洲国产日韩a在线播放性色| 精品国产伦一区二区三区免费| 欧美午夜不卡视频| 色综合夜色一区| 成人午夜av影视| 国产在线一区二区| 奇米精品一区二区三区四区| 又紧又大又爽精品一区二区| 久久精品视频在线免费观看| 日韩欧美国产综合| 欧美一区二区三区四区久久| 色丁香久综合在线久综合在线观看| 欧美人体做爰大胆视频| 91亚洲资源网| 色综合久久中文字幕综合网| 成人精品在线视频观看| 成人理论电影网| av午夜精品一区二区三区| 不卡视频在线观看| 91在线视频官网| 一本色道综合亚洲| 欧美性三三影院| 欧美日韩免费一区二区三区| 欧美日韩激情一区二区三区| 欧美丰满美乳xxx高潮www| 欧美电影一区二区三区| 制服视频三区第一页精品| 欧美一级二级三级蜜桃| 精品电影一区二区| 亚洲欧美国产77777| 一区二区三区四区五区视频在线观看| 中文字幕日韩av资源站| 亚洲国产综合在线| 寂寞少妇一区二区三区| 国产成人欧美日韩在线电影| 色综合中文字幕国产 | 99在线精品视频| 欧美日韩一本到| 国产女主播一区| 日本亚洲电影天堂| 96av麻豆蜜桃一区二区| 精品日韩一区二区三区免费视频| 欧美激情一二三区| 日本特黄久久久高潮| 99视频有精品| 亚洲精品在线三区| 亚洲国产日韩综合久久精品| 国产成人av影院| 欧美一级日韩免费不卡| 亚洲免费av在线| 国产69精品久久99不卡| 欧美一区二区私人影院日本| 亚洲免费在线电影| 色哟哟一区二区三区| 国产三级精品三级| 国产精品一区久久久久| 欧美精品一二三四| 国模娜娜一区二区三区| 欧美精品1区2区| 亚洲国产精品天堂| 欧美性生活大片视频| 亚洲最新视频在线观看| 91成人在线免费观看| 亚洲人被黑人高潮完整版| 国产原创一区二区三区| 国产夜色精品一区二区av| 韩国女主播成人在线| 精品久久一区二区| 国精品**一区二区三区在线蜜桃| 精品国产乱码久久| 国产盗摄视频一区二区三区| 国产精品青草综合久久久久99| 成人爱爱电影网址| 亚洲精品欧美综合四区| 欧美天堂亚洲电影院在线播放| 肉肉av福利一精品导航| 日韩欧美一区二区在线视频| 久久国产麻豆精品| 国产三级三级三级精品8ⅰ区| av不卡免费电影| 水蜜桃久久夜色精品一区的特点| 日韩一区二区三区三四区视频在线观看| 久草在线在线精品观看| 国产精品不卡一区二区三区| 91视频免费看| 精品一区二区三区在线播放视频| 久久美女艺术照精彩视频福利播放 | 成人激情动漫在线观看| 一区二区三区四区不卡视频| 日韩一区二区在线观看视频| 国产精品一线二线三线| 播五月开心婷婷综合| 性感美女久久精品| 国产精品午夜春色av| 91精品国产综合久久久久久久| 懂色av噜噜一区二区三区av| 午夜精品久久一牛影视| 亚洲欧美中日韩| 久久久亚洲精品石原莉奈| 欧美日韩久久久| 本田岬高潮一区二区三区| 激情久久五月天| 日韩福利电影在线| 亚洲成av人片| 亚洲一区二区三区自拍| 最新日韩av在线| 中文字幕中文乱码欧美一区二区| 国产色一区二区| 久久久影视传媒| 欧美tickle裸体挠脚心vk| 欧美日韩成人综合在线一区二区| 9久草视频在线视频精品| 国产精品自拍网站| 国内精品写真在线观看| 久久er精品视频| 精品一区精品二区高清| 久久国内精品视频| 紧缚捆绑精品一区二区| 国产一区二区三区精品视频| 国产成人综合网| 色婷婷综合久久久久中文一区二区 | 91精品国产综合久久香蕉的特点| 亚洲欧美一区二区不卡| 国产精品高潮久久久久无| 国产欧美一区二区在线观看| 日本一区二区三区高清不卡| 中文av一区特黄| 一区二区三区欧美在线观看| 亚洲亚洲精品在线观看| 久久国产精品露脸对白| 国产乱码精品一品二品| 91在线视频网址| 欧美日韩大陆在线| 国产精品人人做人人爽人人添| 亚洲精品亚洲人成人网在线播放| 五月天国产精品| 从欧美一区二区三区| 欧美日韩国产成人在线91| 国产三级精品视频| 亚洲午夜在线电影| 成人综合婷婷国产精品久久免费| 欧美中文字幕久久 | 在线观看免费成人| 国产人成一区二区三区影院| 天涯成人国产亚洲精品一区av| 风间由美一区二区三区在线观看| 欧美日韩中文字幕一区| 国产精品免费网站在线观看| 亚洲一区二区欧美激情| 99视频国产精品| 久久九九久久九九| 男女视频一区二区| 欧美系列亚洲系列| 亚洲在线免费播放| 欧美一级久久久久久久大片| 亚洲免费av高清| av影院午夜一区| 欧美极品少妇xxxxⅹ高跟鞋| 国产精品一区二区你懂的| 日韩亚洲欧美一区二区三区| 图片区小说区区亚洲影院| 欧美日韩在线三级| 日韩国产精品久久| 欧美一区2区视频在线观看| 亚洲一区二区在线观看视频| 日本福利一区二区| 亚洲老妇xxxxxx| 91高清视频在线| 日本三级亚洲精品| 精品国产成人在线影院| 国产一区二区在线影院| 中文字幕第一区第二区| 色综合久久久久久久久|