ydsfqktj.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "YDsfqktj.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDdysftj.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFsfqktj *Fsfqktj;
//---------------------------------------------------------------------------
__fastcall TFsfqktj::TFsfqktj(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFsfqktj::FormCreate(TObject *Sender)
{
 YDData->TBhsdw->Open();
 YDData->TBxtcs->Open();

}
//---------------------------------------------------------------------------
void __fastcall TFsfqktj::FormShow(TObject *Sender)
{
 if (StrToInt(YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(1,1))>0)
    RadioButton1->Enabled=true;
 if (StrToInt(YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(3,1))>0)
   {
    RadioButton1->Enabled=true;
    RadioButton2->Enabled=true;
   }
 if (StrToInt(YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(5,1))>0)
    {
    RadioButton1->Enabled=true;
    RadioButton2->Enabled=true;
    RadioButton3->Enabled=true;
    }
 if (StrToInt(YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(7,1))>0)
    {
    RadioButton1->Enabled=true;
    RadioButton2->Enabled=true;
    RadioButton3->Enabled=true;
    RadioButton4->Enabled=true;
    }

}
//---------------------------------------------------------------------------
void __fastcall TFsfqktj::SpeedButton1Click(TObject *Sender)
{
 Table1->Close();
 Table1->EmptyTable();
 Table1->Open();
 int drhs=0;
 int dyhs=0;
 AnsiString sql;
 AnsiString c1,c2,c3,c4;
 TQuery * Query1=new TQuery(this);
 Query1->DatabaseName="YDDB";
 TQuery * Query2=new TQuery(this);
 Query2->DatabaseName="YDDB";
 if (RadioButton1->Checked)
    {
     c1=YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(1,1);
     sql="select * from pqdm where datalength(Rtrim(pqdm))="+c1;
    }
 if (RadioButton2->Checked)
    {
     c2=IntToStr(StrToInt(YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(1,1)+
     YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(3,1)));
     sql="select * from pqdm where datalength(Rtrim(pqdm))="+c2;
    }
 if (RadioButton3->Checked)
    {
     c3=IntToStr(StrToInt(YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(1,1)+
     YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(3,1)+
     YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(5,1)));
     sql="select * from pqdm where datalength(Rtrim(pqdm))="+c3;
    }
 if (RadioButton4->Checked)
    {
     c4=IntToStr(StrToInt(YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(1,1)+
     YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(3,1)+
     YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(5,1)+
     YDData->TBhsdw->FieldByName("xt_pqbm")->AsString.SubString(7,1)));
     sql="select * from pqdm where datalength(Rtrim(pqdm))="+c4;
    }
 Query1->SQL->Clear();
 Query1->SQL->Add(sql);
 Query1->ExecSQL();
 Query1->Open();
 while (!Query1->Eof)
  {
   Table1->Append();
   Table1->FieldByName("qh")->AsString=Query1->FieldByName("pqdm")->AsString;
   Table1->FieldByName("pqmc")->AsString=Query1->FieldByName("pqmc")->AsString;
   sql="";
   sql="select skfs,'hs'=count(*),'skje'=sum(hjdf) from yhda0000 where xzq like '"+Query1->FieldByName("pqdm")->AsString+"%'";
   sql=sql+" and cszt='3' and sfrq='"+Date()+"' group by skfs";
   Query2->Close();
   Query2->SQL->Clear();
   Query2->SQL->Add(sql);
   Query2->ExecSQL();
   Query2->Open();
   Query2->First();
   while (!Query2->Eof)
    {
     if (Query2->FieldByName("skfs")->AsString=="现金")
       Table1->FieldByName("drje_xj")->AsInteger=Query2->FieldByName("skje")->AsInteger;
     if (Query2->FieldByName("skfs")->AsString=="支票")
       Table1->FieldByName("drje_zp")->AsInteger=Query2->FieldByName("skje")->AsInteger;
     drhs=drhs+Query2->FieldByName("hs")->AsInteger;
     Query2->Next();
    }
   sql="select skfs,'hs'=count(*),'skje'=sum(hjdf) from yhda0000 where xzq like '"+Query1->FieldByName("pqdm")->AsString+"%'";
   sql=sql+" and cszt='3' group by skfs";
   Query2->Close();
   Query2->SQL->Clear();
   Query2->SQL->Add(sql);
   Query2->ExecSQL();
   Query2->Open();
   Query2->First();
   while (!Query2->Eof)
    {
     if (Query2->FieldByName("skfs")->AsString=="现金")
       Table1->FieldByName("dyje_xj")->AsInteger=Query2->FieldByName("skje")->AsInteger;
     if (Query2->FieldByName("skfs")->AsString=="支票")
       Table1->FieldByName("dyje_zp")->AsInteger=Query2->FieldByName("skje")->AsInteger;
     dyhs=dyhs+Query2->FieldByName("hs")->AsInteger;
     Query2->Next();
    }
   sql="select 'hs'=count(*),'ysje'=sum(hjdf) from yhda0000 where xzq like '"+Query1->FieldByName("pqdm")->AsString+"%'";
   sql=sql+" and cszt<>'3'";
   Query2->Close();
   Query2->SQL->Clear();
   Query2->SQL->Add(sql);
   Query2->ExecSQL();
   Query2->Open();
   Query2->First();
   Table1->FieldByName("drpz")->AsInteger=drhs;
   Table1->FieldByName("dypz")->AsInteger=dyhs;
   Table1->FieldByName("dshs")->AsInteger=Query2->FieldByName("hs")->AsInteger;
   Table1->FieldByName("dsje")->AsInteger=Query2->FieldByName("ysje")->AsInteger;
   Table1->Post();
   Query1->Next();
  }
 int hs_r,hs_y,hs_d;
 double xj_r,xj_y,zp_r,zp_y,je_d;
 hs_r=0;hs_y=0;hs_d=0;
 xj_r=0;xj_y=0;zp_r=0;zp_y=0;je_d=0;
 Table1->First();
 while (!Table1->Eof)
   {
    hs_r=hs_r+Table1->FieldByName("drpz")->AsInteger;
    hs_y=hs_y+Table1->FieldByName("dypz")->AsInteger;
    hs_d=hs_d+Table1->FieldByName("dshs")->AsInteger;
    xj_r=xj_r+Table1->FieldByName("drje_xj")->AsFloat;
    xj_y=xj_y+Table1->FieldByName("dyje_xj")->AsFloat;
    zp_r=zp_r+Table1->FieldByName("drje_zp")->AsFloat;
    zp_y=zp_y+Table1->FieldByName("dyje_zp")->AsFloat;
    je_d=je_d+Table1->FieldByName("dsje")->AsFloat;
    Table1->Next();
   }
  Table1->Append();
  Table1->FieldByName("pqmc")->AsString="  ";
  Table1->Post();
  Table1->Append();
  Table1->FieldByName("pqmc")->AsString="全部用户总计";
  Table1->FieldByName("drpz")->AsInteger=hs_r;
  Table1->FieldByName("dypz")->AsInteger=hs_y;
  Table1->FieldByName("dshs")->AsInteger=hs_d;
  Table1->FieldByName("drje_xj")->AsFloat=xj_r;
  Table1->FieldByName("dyje_xj")->AsFloat=xj_y;
  Table1->FieldByName("drje_zp")->AsFloat=zp_r;
  Table1->FieldByName("dyje_zp")->AsFloat=zp_y;
  Table1->FieldByName("dsje")->AsFloat=je_d;
  Table1->Post();
  Fdysftj=new TFdysftj(Application);
  Fdysftj->QuickRep1->Preview();
  delete Fdysftj;

delete Query1;
delete Query2;
}
//---------------------------------------------------------------------------

void __fastcall TFsfqktj::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBhsdw->Close();
 YDData->TBxtcs->Close();
 Table1->Close();
 Fmain->gnjs(Fmain->tcjc); 

}
//---------------------------------------------------------------------------

void __fastcall TFsfqktj::SpeedButton2Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------