📄 ydbzyw.cpp

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


void __fastcall TFbzyw::SpeedButton34Click(TObject *Sender)
{
 if (TreeView1->Selected==NULL)return;
 AnsiString zm=TreeView1->Selected->Text.SubString(1,TreeView1->Selected->Text.AnsiPos(":")-1);
 YDData->TBdbcs->First();
 if ( Application->MessageBox("确信要拆除本电表及下挂的所有分表吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
 {

  while (!YDData->TBdbcs->Eof)
    {
     if (YDData->TBdbcs->FieldByName("DB_ZFGX")->AsString.AnsiPos(zm)==1)
        YDData->TBdbcs->Delete();
     YDData->TBdbcs->Next();
    }
  YDData->TBdbcs->Refresh();
  Refreshtree();
 }
}
//---------------------------------------------------------------------------

void __fastcall TFbzyw::SpeedButton36Click(TObject *Sender)
{
  Fdbll=new TFdbll(Application);
  Fdbll->ShowModal();
  delete Fdbll;

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

void __fastcall TFbzyw::SpeedButton33Click(TObject *Sender)
{
  Emode=true;
  Fdbll=new TFdbll(Application);
  Fdbll->ShowModal();
  Emode=false;
  delete Fdbll;
  YDData->TBdbcs->Refresh();
  Refreshtree();
}
//---------------------------------------------------------------------------





void __fastcall TFbzyw::SpeedButton9Click(TObject *Sender)
{
  YDData->TBbzsq->Edit();
  YDData->TBbzyhda->Edit();
  if (YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString.AnsiPos("F")==0)
    {
     YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString=Trim(YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString)+"F";
     YDData->TBbzsq->FieldByName("sq_sljd")->AsString=Trim(YDData->TBbzsq->FieldByName("sq_sljd")->AsString)+"F";
    }
  YDData->TBbzyhda->FieldByName("YD_WCRQF")->AsDateTime=Date();
  YDData->TBbzyhda->Post();
  YDData->TBbzsq->Post();
  Panel7->Enabled=false;
  Bzrefresh();

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

void __fastcall TFbzyw::SpeedButton10Click(TObject *Sender)
{
  YDData->TBbzsq->Edit();
  YDData->TBbzyhda->Edit();

  if (YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString.AnsiPos("G")==0)
     {
      YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString=Trim(YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString)+"G";
      YDData->TBbzsq->FieldByName("sq_sljd")->AsString=Trim(YDData->TBbzsq->FieldByName("sq_sljd")->AsString)+"G";
     }
  YDData->TBbzyhda->FieldByName("YD_WCRQG")->AsDateTime=Date();
  YDData->TBbzyhda->Post();
  YDData->TBbzsq->Post();
  Panel8->Enabled=false;
  Bzrefresh();

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

void __fastcall TFbzyw::SpeedButton11Click(TObject *Sender)
{
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("A")>0&&
 YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("B")>0&&
 YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("C")>0&&
 YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("F")>0&&
 YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("G")>0)
 {
  YDData->TBbzsq->Edit();
  YDData->TBbzyhda->Edit();
  YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString=
  YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString+"H";
  YDData->TBbzsq->FieldByName("sq_sljd")->AsString=
  YDData->TBbzsq->FieldByName("sq_sljd")->AsString+"H";
  YDData->TBbzyhda->FieldByName("YD_WCRQH")->AsDateTime=Date();
  YDData->TBbzyhda->FieldByName("YD_SLZK")->AsString="2";
  YDData->TBbzsq->FieldByName("sq_slzk")->AsString="2";
  YDData->TBbzyhda->Post();
  YDData->TBbzsq->Post();
//
 AnsiString jjmc[3]={"SF_JJMC1","SF_JJMC2","SF_JJMC3"};
 AnsiString jjdj[3]={"SF_JJDJ1","SF_JJDJ2","SF_JJDJ3"};
 YDData->TBdbcs->First();
  while (!YDData->TBdbcs->Eof)
     {
      YDData->TBsfjl->Append();
      YDData->TBsfjl->FieldByName("SF_QHZFM")->AsString=
      YDData->TBdbcs->FieldByName("DB_QHZFM")->AsString;
      YDData->TBsfjl->FieldByName("SF_QH")->AsString=
      YDData->TBdbcs->FieldByName("DB_QH")->AsString;
      YDData->TBsfjl->FieldByName("SF_HH")->AsString=
      YDData->TBdbcs->FieldByName("DB_HH")->AsString;
      YDData->TBsfjl->FieldByName("SF_YHMC")->AsString=
      YDData->TBdbcs->FieldByName("DB_YHMC")->AsString;
      YDData->TBsfjl->FieldByName("SF_YHDZ")->AsString=
      YDData->TBbzyhda->FieldByName("YD_YHDZ")->AsString;
      YDData->TBsfjl->FieldByName("SF_DBLB")->AsString=
      YDData->TBdbcs->FieldByName("DB_DBLB")->AsString;
      YDData->TBsfjl->FieldByName("SF_BZH")->AsString=
      YDData->TBdbcs->FieldByName("DB_BZH")->AsString;
      YDData->TBsfjl->FieldByName("SF_ZFGX")->AsString=
      YDData->TBdbcs->FieldByName("DB_ZFGX")->AsString;
      YDData->TBsfjl->FieldByName("SF_BL")->AsInteger=
      YDData->TBdbcs->FieldByName("DB_BL")->AsInteger;
      YDData->TBsfjl->FieldByName("SF_DJMC1")->AsString=
      YDData->TBdbcs->FieldByName("DB_DJMC")->AsString;
      YDData->TBsfjl->FieldByName("SF_DDDJ1")->AsFloat=
      YDData->TBdbcs->FieldByName("DB_DDDJ")->AsFloat;
      YDData->TBsfjl->FieldByName("SF_CBY")->AsString=
      YDData->TBbzyhda->FieldByName("YD_CBY")->AsString;
      YDData->TBsfjl->FieldByName("SF_JFRQ")->AsString=
      YDData->TBbzyhda->FieldByName("YD_JFRQ")->AsString;
      YDData->TBjjjl->First();
       int i=0;
      while (!YDData->TBjjjl->Eof&&i<3)
         {
          YDData->TBsfjl->FieldByName(jjmc[i])->AsString=
          YDData->TBjjjl->FieldByName("JJ_MC")->AsString;
          YDData->TBsfjl->FieldByName(jjdj[i])->AsFloat=
          YDData->TBjjjl->FieldByName("JJ_DJ")->AsFloat;
          i=i++;
          YDData->TBjjjl->Next();
         }
       YDData->TBsfjl->Post(); 
       YDData->TBdbcs->Next();
     }
//

  SpeedButton11->Enabled=false;
 }
 else MessageBox(NULL,"报装过程尚有未完成环节,不能生成用户档案!","提示",MB_OK|MB_ICONWARNING);
 Bzrefresh();

}
//---------------------------------------------------------------------------
void TFbzyw::dajc()
{
 AnsiString wc="√";
 AnsiString wwc="×";
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("A")>0)
 { Edit1->Text="完成";
  Label84->Caption=wc;}
 else {Edit1->Text="未完成";
 Label84->Caption=wwc;}
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("B")>0)
 { Edit2->Text="完成";
 Label85->Caption=wc;}
 else {Edit2->Text="未完成";
 Label85->Caption=wwc;}
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("C")>0)
 {Edit3->Text="完成";
 Label86->Caption=wc;}
  else {Edit3->Text="未完成";
 Label86->Caption=wwc;}
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("D")>0)
 {Edit4->Text="完成";
 Label87->Caption=wc;}
 else {Edit4->Text="未完成";
 Label87->Caption=wwc;}
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("E")>0)
 {Edit5->Text="完成";
 Label88->Caption=wc;}
 else {Edit5->Text="未完成";
 Label88->Caption=wwc;}
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("F")>0)
 {Edit6->Text="完成";
 Label89->Caption=wc;}
 else {Edit6->Text="未完成";
 Label89->Caption=wwc;}
 if (YDData->TBbzsq->FieldByName("sq_sljd")->AsString.AnsiPos("G")>0)
 {Edit7->Text="完成";
 Label90->Caption=wc;}
 else {Edit7->Text="未完成";
 Label90->Caption=wwc;}
 Edit8->Text=YDData->TBbzyhda->FieldByName("YD_WCRQA")->AsDateTime;
 Edit9->Text=YDData->TBbzyhda->FieldByName("YD_WCRQB")->AsDateTime;
 Edit10->Text=YDData->TBbzyhda->FieldByName("YD_WCRQC")->AsDateTime;
 Edit11->Text=YDData->TBbzyhda->FieldByName("YD_WCRQD")->AsDateTime;
 Edit12->Text=YDData->TBbzyhda->FieldByName("YD_WCRQE")->AsDateTime;
 Edit13->Text=YDData->TBbzyhda->FieldByName("YD_WCRQF")->AsDateTime;
 Edit14->Text=YDData->TBbzyhda->FieldByName("YD_WCRQG")->AsDateTime;

}

void __fastcall TFbzyw::DBEdit15DblClick(TObject *Sender)
{
 Fhyxz=new TFhyxz(Application);
 Fhyxz->ShowModal();
 YDData->TBbzyhda->FieldByName("YD_HYDM")->AsString=Fhyxz->hydm;
 delete Fhyxz;        

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

void __fastcall TFbzyw::DBEdit17DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_KCRQ")->AsDateTime=Date();
}
//---------------------------------------------------------------------------

void __fastcall TFbzyw::DBEdit22DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_FSPRQ")->AsDateTime=Date();

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

void __fastcall TFbzyw::DBEdit51DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_JDRQ")->AsDateTime=Date();

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

void __fastcall TFbzyw::DBEdit52DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_DZQFRQ")->AsDateTime=Date();

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

void __fastcall TFbzyw::DBEdit54DblClick(TObject *Sender)
{
  YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_DZQFDW")->AsString=
 YDData->TBxtcs->FieldByName("XT_DWMC")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TFbzyw::DBEdit55DblClick(TObject *Sender)
{
  Fpqxz=new TFpqxz(Application);
  Fpqxz->ShowModal();
  YDData->TBbzyhda->Edit();
  YDData->TBbzyhda->FieldByName("YD_QH")->AsString=Fpqxz->pqdm;
  delete Fpqxz;
}
//---------------------------------------------------------------------------


void __fastcall TFbzyw::DBEdit29DblClick(TObject *Sender)
{
 YDData->TBgcgl->Edit();
 YDData->TBgcgl->FieldByName("GC_JGRQ")->AsDateTime=Date();

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

void __fastcall TFbzyw::DBEdit31DblClick(TObject *Sender)
{
 YDData->TBgcgl->Edit();
 YDData->TBgcgl->FieldByName("GC_YSRQ")->AsDateTime=Date();

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

void __fastcall TFbzyw::DBEdit41DblClick(TObject *Sender)
{
 YDData->TBtfsq->Edit();
 YDData->TBtfsq->FieldByName("TF_SKRQ")->AsDateTime=Date();

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

void __fastcall TFbzyw::DBEdit53DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_DZQFR")->AsString=CLogin->czyname;

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

void __fastcall TFbzyw::DBEdit42DblClick(TObject *Sender)
{
 YDData->TBtfsq->Edit();
 YDData->TBtfsq->FieldByName("TF_SKR")->AsString=CLogin->czyname;

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

void __fastcall TFbzyw::DBEdit30DblClick(TObject *Sender)
{
 YDData->TBgcgl->Edit();
 YDData->TBgcgl->FieldByName("GC_YSR")->AsString=CLogin->czyname;

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

void __fastcall TFbzyw::DBEdit20DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_FZDR")->AsString=CLogin->czyname;

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

void __fastcall TFbzyw::DBEdit21DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_FSPR")->AsString=CLogin->czyname;

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

void __fastcall TFbzyw::DBEdit16DblClick(TObject *Sender)
{
 YDData->TBbzyhda->Edit();
 YDData->TBbzyhda->FieldByName("YD_KCR")->AsString=CLogin->czyname;

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




void __fastcall TFbzyw::TreeView1Click(TObject *Sender)
{
 YDData->TBdbcs->First();
 while (!YDData->TBdbcs->Eof)
    {
     if (YDData->TBdbcs->FieldByName("DB_ZFGX")->AsString==
          TreeView1->Selected->Text.SubString(1,TreeView1->Selected->Text.AnsiPos(":")-1))
          break;
     YDData->TBdbcs->Next();
  }
}
//---------------------------------------------------------------------------
上一页 1 23
⌨️ 快捷键说明

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