yddyyhda.cpp

营业用电管理系统(网络版)是本公司推出的新一代软件产品

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "YDdyyhda.h"
#include "YDdatam.h"
#include "YDywsl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFdyyhda *Fdyyhda;
//---------------------------------------------------------------------------
__fastcall TFdyyhda::TFdyyhda(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TFdyyhda::FormCreate(TObject *Sender)
{
 TQRLabel *l[5][8];
 TQRLabel *d[8][8];
 l[0][0]=QRLabel36;l[0][1]=QRLabel37;l[0][2]=QRLabel38;l[0][3]=QRLabel39;l[0][4]=QRLabel40;l[0][5]=QRLabel41;l[0][6]=QRLabel42;l[0][7]=QRLabel43;
 l[1][0]=QRLabel44;l[1][1]=QRLabel45;l[1][2]=QRLabel46;l[1][3]=QRLabel47;l[1][4]=QRLabel48;l[1][5]=QRLabel49;l[1][6]=QRLabel50;l[1][7]=QRLabel51;
 l[2][0]=QRLabel52;l[2][1]=QRLabel53;l[2][2]=QRLabel54;l[2][3]=QRLabel55;l[2][4]=QRLabel56;l[2][5]=QRLabel57;l[2][6]=QRLabel58;l[2][7]=QRLabel59;
 l[3][0]=QRLabel60;l[3][1]=QRLabel61;l[3][2]=QRLabel62;l[3][3]=QRLabel63;l[3][4]=QRLabel64;l[3][5]=QRLabel65;l[3][6]=QRLabel66;l[3][7]=QRLabel67;
 l[4][0]=QRLabel68;l[4][1]=QRLabel69;l[4][2]=QRLabel70;l[4][3]=QRLabel71;l[4][4]=QRLabel72;l[4][5]=QRLabel73;l[4][6]=QRLabel74;l[4][7]=QRLabel75;
 d[0][0]=QRLabel97;d[0][1]=QRLabel98;d[0][2]=QRLabel99;d[0][3]=QRLabel100;d[0][4]=QRLabel101;d[0][5]=QRLabel102;d[0][6]=QRLabel103;d[0][7]=QRLabel104;
 d[1][0]=QRLabel105;d[1][1]=QRLabel106;d[1][2]=QRLabel107;d[1][3]=QRLabel108;d[1][4]=QRLabel109;d[1][5]=QRLabel110;d[1][6]=QRLabel111;d[1][7]=QRLabel112;
 d[2][0]=QRLabel113;d[2][1]=QRLabel114;d[2][2]=QRLabel115;d[2][3]=QRLabel116;d[2][4]=QRLabel117;d[2][5]=QRLabel118;d[2][6]=QRLabel119;d[2][7]=QRLabel120;
 d[3][0]=QRLabel121;d[3][1]=QRLabel122;d[3][2]=QRLabel123;d[3][3]=QRLabel124;d[3][4]=QRLabel125;d[3][5]=QRLabel126;d[3][6]=QRLabel127;d[3][7]=QRLabel128;
 d[4][0]=QRLabel129;d[4][1]=QRLabel130;d[4][2]=QRLabel131;d[4][3]=QRLabel132;d[4][4]=QRLabel133;d[4][5]=QRLabel134;d[4][6]=QRLabel135;d[4][7]=QRLabel136;
 d[5][0]=QRLabel137;d[5][1]=QRLabel138;d[5][2]=QRLabel139;d[5][3]=QRLabel140;d[5][4]=QRLabel141;d[5][5]=QRLabel142;d[5][6]=QRLabel143;d[5][7]=QRLabel144;
 d[6][0]=QRLabel145;d[6][1]=QRLabel146;d[6][2]=QRLabel147;d[6][3]=QRLabel148;d[6][4]=QRLabel149;d[6][5]=QRLabel150;d[6][6]=QRLabel151;d[6][7]=QRLabel152;
 d[7][0]=QRLabel153;d[7][1]=QRLabel154;d[7][2]=QRLabel155;d[7][3]=QRLabel156;d[7][4]=QRLabel157;d[7][5]=QRLabel158;d[7][6]=QRLabel159;d[7][7]=QRLabel160;

 int n=0;
 YDData->TBdbda->First();
 while (!YDData->TBdbda->Eof&&n<5)
    {
     l[n][0]->Caption=YDData->TBdbda->FieldByName("dblb")->AsString;
     l[n][1]->Caption=FloatToStr(YDData->TBdbda->FieldByName("bl")->AsFloat);
     l[n][2]->Caption=FloatToStr(YDData->TBdbda->FieldByName("ws")->AsFloat);
     l[n][3]->Caption=YDData->TBdbda->FieldByName("fx")->AsString;
     l[n][4]->Caption=YDData->TBdbda->FieldByName("bz")->AsString;
     l[n][5]->Caption=YDData->TBdbda->FieldByName("sccj")->AsString;
     l[n][6]->Caption=YDData->TBdbda->FieldByName("xh")->AsString;
     l[n][7]->Caption=YDData->TBdbda->FieldByName("azsj")->AsString;
     YDData->TBdjkp->First();
     while (!YDData->TBdjkp->Eof)
       {
        d[n][0]->Caption=YDData->TBdjkp->FieldByName("lb")->AsString;
        d[n][1]->Caption=YDData->TBdjkp->FieldByName("gddy")->AsString;
        d[n][2]->Caption=YDData->TBdjkp->FieldByName("gfbl")->AsString;
        d[n][3]->Caption=YDData->TBdjkp->FieldByName("jsfsf")->AsString;
        d[n][4]->Caption=YDData->TBdjkp->FieldByName("pdbl")->AsString;
        d[n][5]->Caption=YDData->TBdjkp->FieldByName("jsfsp")->AsString;
        d[n][6]->Caption=YDData->TBdjkp->FieldByName("dgbl")->AsString;
        d[n][7]->Caption=YDData->TBdjkp->FieldByName("jsfsg")->AsString;
        YDData->TBdjkp->Next();
       }
         n++;
      YDData->TBdbda->Next();
    }
 TQRLabel *f[4][2];
 f[0][0]=QRLabel78;f[0][1]=QRLabel79;f[1][0]=QRLabel80;f[1][1]=QRLabel81;f[2][0]=QRLabel82;f[2][1]=QRLabel83;f[3][0]=QRLabel84;f[3][1]=QRLabel85;
 int m=0;
 YDData->TBfjjj->First();
 while (!YDData->TBfjjj->Eof&&m<4)
  {
   f[m][0]->Caption=YDData->TBfjjj->FieldByName("fj_mc")->AsString;
   f[m][1]->Caption=FloatToStr(YDData->TBfjjj->FieldByName("fj_dj")->AsFloat);
   m++;
   YDData->TBfjjj->Next();
  }
}
//---------------------------------------------------------------------------