📄 ydbzyw.cpp

📁 营业用电管理系统(网络版)是本公司推出的新一代软件产品
💻 CPP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "YDbzyw.h"
#include "YDdatam.h"
#include "YDmain.h"
#include "YDsqxz.h"
#include "YDxcjt.h"
#include "YDpqxz.h"
#include "YDgcll.h"
#include "YDtfll.h"
#include "YDTFSJ.h"
#include "ydctcs.h"
#include "YDptcs.h"
#include "YDdbcs.h"
#include "YDdbll.h"
#include "YDjjjl.h"
#include "YDbsjl.h"
#include "YDzgjl.h"
#include "YHDL.h"
#include "YDhyxz.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFbzyw *Fbzyw;
TTreeNode *Node3,*Node4,*j;
//---------------------------------------------------------------------------
__fastcall TFbzyw::TFbzyw(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::FormClose(TObject *Sender, TCloseAction &Action)
{
 YDData->TBpqdm->Close();
 YDData->TBbzyhda->Close();
 YDData->TByhcz->Close();
 YDData->TBgcgl->Close();
 YDData->TBtfsq->Close();
 YDData->TBxtcs->Close();
 YDData->TBdbcs->Close();
 YDData->TBdbcx->Close();
 YDData->TBjjjl->Close();
 YDData->TBbsjl->Close();
 YDData->TBzgjl->Close();
 YDData->TBsfjl->Close();
 YDData->TBtfbz->Close();
 Fmain->gnjs(Fmain->tcjc);
}
//---------------------------------------------------------------------------
void TFbzyw::Bzrefresh()
 {
 
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString=="0")
     Label17->Caption="尚未报装";
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString=="1")
     Label17->Caption="正在报装";
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString=="2")
     Label17->Caption="报装完毕";
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="0")
      {
       Panel2->Enabled=false;
       SpeedButton12->Enabled=false;
      }
   else
      {
//
       YDData->TBbzyhda->Append();
       YDData->TBbzyhda->FieldByName("YD_SQH")->AsString=
       YDData->TBbzsq->FieldByName("sq_bh")->AsString;
       YDData->TBbzyhda->FieldByName("YD_QH")->AsString=
       YDData->TBbzsq->FieldByName("sq_qh")->AsString;
       YDData->TBbzyhda->FieldByName("YD_HH")->AsString=
       YDData->TBbzsq->FieldByName("sq_hh")->AsString;
       YDData->TBbzyhda->FieldByName("YD_SQNR")->AsString=
       YDData->TBbzsq->FieldByName("sq_nr")->AsString;
       YDData->TBbzyhda->FieldByName("YD_YHFL")->AsString=
       YDData->TBbzsq->FieldByName("sq_fl")->AsString;
       YDData->TBbzyhda->FieldByName("YD_SQRQ")->AsDateTime=
       YDData->TBbzsq->FieldByName("sq_rq")->AsDateTime;
       YDData->TBbzyhda->FieldByName("YD_SQZM")->AsFloat=
       YDData->TBbzsq->FieldByName("sq_zmrl")->AsFloat;
       YDData->TBbzyhda->FieldByName("YD_SQDL")->AsFloat=
       YDData->TBbzsq->FieldByName("sq_dlrl")->AsFloat;
       YDData->TBbzyhda->FieldByName("YD_YHMC")->AsString=
       YDData->TBbzsq->FieldByName("sq_yhmc")->AsString;
       YDData->TBbzyhda->FieldByName("YD_YHDZ")->AsString=
       YDData->TBbzsq->FieldByName("sq_yhdz")->AsString;
       YDData->TBbzyhda->FieldByName("YD_DH")->AsString=
       YDData->TBbzsq->FieldByName("sq_dhhm")->AsString;
       YDData->TBbzyhda->FieldByName("YD_LXR")->AsString=
       YDData->TBbzsq->FieldByName("sq_lxr")->AsString;
       YDData->TBbzyhda->FieldByName("YD_HYDM")->AsString=
       YDData->TBbzsq->FieldByName("sq_hydm")->AsString;
       YDData->TBbzyhda->FieldByName("YD_XZQY")->AsString=
       YDData->TBbzsq->FieldByName("sq_sfxq")->AsString;
       YDData->TBbzyhda->FieldByName("YD_DLYT")->AsString=
       YDData->TBbzsq->FieldByName("sq_dlyt")->AsString;
       YDData->TBbzyhda->FieldByName("YD_JSYQ")->AsString=
       YDData->TBbzsq->FieldByName("sq_jsyq")->AsString;
       YDData->TBbzyhda->FieldByName("YD_FYHD")->AsString="0";
       YDData->TBbzyhda->FieldByName("YD_HZZM")->AsFloat=
       YDData->TBbzsq->FieldByName("SQ_ZMRL")->AsFloat;
       YDData->TBbzyhda->FieldByName("YD_HZDL")->AsFloat=
       YDData->TBbzsq->FieldByName("SQ_DLRL")->AsFloat;
       YDData->TBbzyhda->FieldByName("YD_KCJG")->AsString="不同意";
       YDData->TBbzyhda->FieldByName("YD_SFFS")->AsString="现收";
       YDData->TBbzyhda->FieldByName("YD_GDFS")->AsString="低供低计";
       YDData->TBbzyhda->FieldByName("YD_GDDY")->AsString=DBComboBox5->Items->Strings[0];
       YDData->TBbzyhda->FieldByName("YD_LLBZ")->AsFloat=0.00;
       YDData->TBbzyhda->FieldByName("YD_DYLB")->AsString="单一制";
       YDData->TBbzyhda->FieldByName("YD_BSCL")->AsString="不计变损";
       YDData->TBbzyhda->FieldByName("YD_XZDJ")->AsString="照明";
       YDData->TBbzyhda->FieldByName("YD_CQFJ")->AsString="最后一个支持物";
       YDData->TBbzyhda->FieldByName("YD_SFZX")->AsString="非专线";
       YDData->TBbzyhda->FieldByName("YD_FHDJ")->AsString="一级";
//
       Panel2->Enabled=true;
       SpeedButton12->Enabled=true;
      }
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="1")
        {
          SpeedButton4->Enabled=false;
          Panel3->Enabled=false;
         }
    else
      {
       SpeedButton4->Enabled=true;
       Panel3->Enabled=true;
      }
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="1")
      {
      SpeedButton5->Enabled=false;
      Panel4->Enabled=false;
      }
    else
     {
      SpeedButton5->Enabled=true;
      Panel4->Enabled=true;
     }
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="1")
     {
      SpeedButton6->Enabled=false;
      Panel5->Enabled=false;
      }
    else
      {
        SpeedButton6->Enabled=true;
        Panel5->Enabled=true;
      }
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="1")
     {
      SpeedButton8->Enabled=false;
      Panel6->Enabled=false;
      }
    else
     {
      SpeedButton8->Enabled=true;
      Panel6->Enabled=true;
      if (YDData->TBbzyhda->FieldByName("YD_FYHD")->AsString=="1")
       {
        GroupBox1->Enabled=true;
        GroupBox2->Enabled=false;
       }
        else
        {
        GroupBox1->Enabled=false;
        GroupBox2->Enabled=true;
        }
     }
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="1")
      {
       SpeedButton9->Enabled=false;
       Panel7->Enabled=false;
       }
    else
      {
       SpeedButton9->Enabled=true;
       Panel7->Enabled=true;
      }
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="1")
       {
         SpeedButton10->Enabled=false;
         Panel8->Enabled=false;
        }
    else
       {
        SpeedButton10->Enabled=true;
        Panel8->Enabled=true;
        }
   if (YDData->TBbzsq->FieldByName("sq_slzk")->AsString!="1")
    {
    SpeedButton11->Enabled=false;
    dajc();
    }
   else
    {
     SpeedButton11->Enabled=true;
     dajc();
    }

 }


void __fastcall TFbzyw::FormCreate(TObject *Sender)
{
 YDData->TBpqdm->Open();
 YDData->TBbzyhda->Open();
 YDData->TBgcgl->Open();
 YDData->TBtfsq->Open();
 YDData->TBxtcs->Open();
 YDData->TBdbcs->Open();
 YDData->TBjjjl->Open();
 YDData->TBbsjl->Open();
 YDData->TBzgjl->Open();
  YDData->TBsfjl->Open();
  YDData->TBtfbz->Open();
  YDData->TBtfbz->First();
  while (!YDData->TBtfbz->Eof)
    {
     DBComboBox5->Items->Add(YDData->TBtfbz->FieldByName("dy_dydj")->AsString);
     YDData->TBtfbz->Next();
    }
 YDData->TBbzsq->Last();
 Refreshtree();
 YDData->TBbzsq->Last();
 Bzrefresh();
}
//---------------------------------------------------------------------------


void __fastcall TFbzyw::FormKeyPress(TObject *Sender, char &Key)
{
 if(Key==VK_RETURN)
   {
     SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
     Key=0;
   }
}
//---------------------------------------------------------------------------
//  YDData->TBbzyhda->Close();
//  YDData->TBbzyhda->IndexFieldNames="YD_SQH";
//  YDData->TBbzyhda->Open();
//  YDData->TBbzyhda->FindKey(new TVarRec(YDData->TBbzsq->FieldByName("sq_bh")->AsString),0);


void __fastcall TFbzyw::SpeedButton12Click(TObject *Sender)
{
 YDData->TBpqdm->Close();
 YDData->TBpqdm->IndexFieldNames="PQDM";
 YDData->TBpqdm->Open();
 if (!YDData->TBpqdm->FindKey(new TVarRec(DBEdit55->Text),0))
   {
    MessageBox(NULL,"无此片区,请重新输入!","提示",MB_OK|MB_ICONWARNING);
    DBEdit55->Text="";
    return;
   }
  YDData->TByhcz->First();
 while (!YDData->TByhcz->Eof)
   {
     if (YDData->TByhcz->FieldByName("YD_QH")->AsString==DBEdit55->Text&&
     YDData->TByhcz->FieldByName("YD_HH")->AsString==DBEdit56->Text)break;
     YDData->TByhcz->Next();
   }
 if (DBEdit56->Text.Length()!=5)
   {
     ShowMessage("户号长度必须是五位,请重新输入!");
     DBEdit56->Text="";
     return;
   }
   else
     if (!YDData->TByhcz->Eof)
       {
         ShowMessage("输入的户号与本区其他用户重复,请重新输入!");
         DBEdit56->Text="";
         return;
        }

 if (Trim(DBEdit55->Text)!=""&&Trim(DBEdit56->Text)!="")
  {
  YDData->TBbzyhda->Edit();
  YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString="A";
  YDData->TBbzyhda->FieldByName("YD_WCRQA")->AsDateTime=Date();
  YDData->TBbzyhda->FieldByName("YD_SLZK")->AsString="1";
  YDData->TBbzyhda->FieldByName("YD_CSZT")->AsString="0";
  YDData->TBbzyhda->FieldByName("YD_RQ")->AsString=
  YDData->TBxtcs->FieldByName("XT_HSQX")->AsString;
  YDData->TBbzyhda->Post();
  YDData->TBbzsq->Edit();
  YDData->TBbzsq->FieldByName("sq_sljd")->AsString="A";
  YDData->TBbzsq->FieldByName("sq_slzk")->AsString="1";
  YDData->TBbzsq->FieldByName("sq_qh")->AsString=
  YDData->TBbzyhda->FieldByName("YD_QH")->AsString;
  YDData->TBbzsq->FieldByName("sq_hh")->AsString=
  YDData->TBbzyhda->FieldByName("YD_HH")->AsString;
  YDData->TBbzsq->Post();
  YDData->TBbzyhda->Close();
  YDData->TBbzyhda->Open();
  Panel2->Enabled=false;
  Bzrefresh();
 }
 else
 MessageBox(NULL,"必须输入区号和户名!","提示",MB_OK|MB_ICONWARNING);

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


void __fastcall TFbzyw::SpeedButton4Click(TObject *Sender)
{
 if (DBComboBox1->Text=="同意")
  {
  YDData->TBbzsq->Edit();
  YDData->TBbzyhda->Edit();
  if (YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString.AnsiPos("B")==0)
   {
    YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString=Trim(YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString)+"B";
    YDData->TBbzsq->FieldByName("sq_sljd")->AsString=Trim(YDData->TBbzsq->FieldByName("sq_sljd")->AsString)+"B";
    }
  YDData->TBbzyhda->FieldByName("YD_WCRQB")->AsDateTime=Date();
  YDData->TBbzyhda->Post();
  YDData->TBbzsq->Post();
  Panel3->Enabled=false;
  Bzrefresh();
 }
 else
   MessageBox(NULL,"现场勘察未同意,不能完成此环节!","提示",MB_OK|MB_ICONWARNING);
}
//---------------------------------------------------------------------------

void __fastcall TFbzyw::SpeedButton15Click(TObject *Sender)
{
 Fxcjt=new TFxcjt(Application);
 Fxcjt->ShowModal();
 delete Fxcjt;
}
//---------------------------------------------------------------------------

void __fastcall TFbzyw::SpeedButton14Click(TObject *Sender)
{
   OpenPictureDialog1->Title ="请选现场勘察简图";
   OpenPictureDialog1->InitialDir=ExtractFilePath(Application->ExeName)+"bmps";
  OpenPictureDialog1->Filter = "Bitmap files (*.bmp)|*.bmp|All files (*.*)|*.*";
   if(OpenPictureDialog1->Execute())
   {
     YDData->TBbzyhda->Edit();
     ((TBlobField *)(YDData->TBbzyhda->FieldByName("YD_XCJT")))->LoadFromFile(OpenPictureDialog1->FileName);
    }
 }
//---------------------------------------------------------------------------



void __fastcall TFbzyw::SpeedButton5Click(TObject *Sender)
{
  YDData->TBbzsq->Edit();
  YDData->TBbzyhda->Edit();
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -