📄 ydbzyw.cpp
字号:
if (YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString.AnsiPos("C")==0)
{
YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString=Trim(YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString)+"C";
YDData->TBbzsq->FieldByName("sq_sljd")->AsString=Trim(YDData->TBbzsq->FieldByName("sq_sljd")->AsString)+"C";
}
YDData->TBbzyhda->FieldByName("YD_WCRQC")->AsDateTime=Date();
YDData->TBbzyhda->Post();
YDData->TBbzsq->Post();
Panel4->Enabled=false;
Bzrefresh();
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton20Click(TObject *Sender)
{
Fgcll=new TFgcll(Application);
Fgcll->ShowModal();
delete Fgcll;
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton21Click(TObject *Sender)
{
if (SpeedButton21->Caption=="增加工程")
{
SpeedButton21->Caption="保存工程";
// DBEdit1->SetFocus();
YDData->TBgcgl->Append();
YDData->TBgcgl->FieldByName("GC_SQH")->AsString=
YDData->TBbzsq->FieldByName("SQ_BH")->AsString;
YDData->TBgcgl->FieldByName("GC_QH")->AsString=
YDData->TBbzsq->FieldByName("SQ_QH")->AsString;
YDData->TBgcgl->FieldByName("GC_HH")->AsString=
YDData->TBbzsq->FieldByName("SQ_HH")->AsString;
}
else
{
if (Trim(DBEdit26->Text)!="")
{
SpeedButton21->Caption="增加工程";
YDData->TBgcgl->Edit();
YDData->TBgcgl->Post();
YDData->TBgcgl->Close();
YDData->TBgcgl->Open();
}
else MessageBox(NULL,"工程名称不能为空！","提示",MB_OK|MB_ICONWARNING);
}
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton22Click(TObject *Sender)
{
if ( Application->MessageBox("真的要删除这项工程记录吗?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
{
YDData->TBgcgl->Delete();
};
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton23Click(TObject *Sender)
{
Ftfll=new TFtfll(Application);
Ftfll->ShowModal();
delete Ftfll;
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton24Click(TObject *Sender)
{
if (SpeedButton24->Caption=="保存")
{
YDData->TBtfsq->Edit();
YDData->TBtfsq->Post();
SpeedButton13->Enabled=true;
SpeedButton23->Enabled=true;
SpeedButton24->Caption="打印";
}
else
{
Ftfsj=new TFtfsj(Application);
Ftfsj->QuickRep1->Preview();
delete Ftfsj;
}
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton25Click(TObject *Sender)
{
if ( Application->MessageBox("费用核定后不能再行变更,核定码?","提示", MB_YESNO|MB_ICONQUESTION)==IDYES)
{
YDData->TBbzyhda->Edit();
YDData->TBbzyhda->FieldByName("YD_FYHD")->AsString="1";
YDData->TBbzyhda->Post();
Bzrefresh();
}
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton13Click(TObject *Sender)
{
int pdtf=0;
int gdtf=0;
int bctf=0;
int dbbz=0;
int dfbz=0;
int yspdtf=YDData->TBbzyhda->FieldByName("YD_PDTF")->AsInteger;
int ysgdtf=YDData->TBbzyhda->FieldByName("YD_GDTF")->AsInteger;
int ysbctf=YDData->TBbzyhda->FieldByName("YD_BCTF")->AsInteger;
int ysdbbz=YDData->TBbzyhda->FieldByName("YD_DBBZ")->AsInteger;
int ysdfbz=YDData->TBbzyhda->FieldByName("YD_DFBZ")->AsInteger;
YDData->TBtfsq->First();
while (!YDData->TBtfsq->Eof)
{
pdtf+=YDData->TBtfsq->FieldByName("TF_PDTF")->AsInteger;
gdtf+=YDData->TBtfsq->FieldByName("TF_GDTF")->AsInteger;
bctf+=YDData->TBtfsq->FieldByName("TF_BCTF")->AsInteger;
dbbz+=YDData->TBtfsq->FieldByName("TF_DBBZ")->AsInteger;
dfbz+=YDData->TBtfsq->FieldByName("TF_DFBZ")->AsInteger;
YDData->TBtfsq->Next();
}
if (pdtf+gdtf+bctf+dbbz+dfbz<yspdtf+ysgdtf+ysbctf+ysdbbz+ysdfbz)
{
SpeedButton13->Enabled=false;
SpeedButton23->Enabled=false;
SpeedButton24->Caption="保存";
YDData->TBtfsq->Append();
YDData->TBtfsq->FieldByName("TF_SKRQ")->AsDateTime=Date();
YDData->TBtfsq->FieldByName("TF_PDTF")->AsInteger=yspdtf-pdtf;
YDData->TBtfsq->FieldByName("TF_GDTF")->AsInteger=ysgdtf-gdtf;
YDData->TBtfsq->FieldByName("TF_BCTF")->AsInteger=ysbctf-bctf;
YDData->TBtfsq->FieldByName("TF_DBBZ")->AsInteger=ysdbbz-dbbz;
YDData->TBtfsq->FieldByName("TF_DFBZ")->AsInteger=ysdfbz-dfbz;
}
else
MessageBox(NULL,"贴费已经结清!","提示",MB_OK|MB_ICONWARNING);
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton8Click(TObject *Sender)
{
int pdtf=0;
int gdtf=0;
int bctf=0;
int dbbz=0;
int dfbz=0;
int yspdtf=YDData->TBbzyhda->FieldByName("YD_PDTF")->AsInteger;
int ysgdtf=YDData->TBbzyhda->FieldByName("YD_GDTF")->AsInteger;
int ysbctf=YDData->TBbzyhda->FieldByName("YD_BCTF")->AsInteger;
int ysdbbz=YDData->TBbzyhda->FieldByName("YD_DBBZ")->AsInteger;
int ysdfbz=YDData->TBbzyhda->FieldByName("YD_DFBZ")->AsInteger;
YDData->TBtfsq->First();
while (!YDData->TBtfsq->Eof)
{
pdtf+=YDData->TBtfsq->FieldByName("TF_PDTF")->AsInteger;
gdtf+=YDData->TBtfsq->FieldByName("TF_GDTF")->AsInteger;
bctf+=YDData->TBtfsq->FieldByName("TF_BCTF")->AsInteger;
dbbz+=YDData->TBtfsq->FieldByName("TF_DBBZ")->AsInteger;
dfbz+=YDData->TBtfsq->FieldByName("TF_DFBZ")->AsInteger;
YDData->TBtfsq->Next();
}
if (pdtf+gdtf+bctf+dbbz+dfbz==yspdtf+ysgdtf+ysbctf+ysdbbz+ysdfbz)
{
YDData->TBbzsq->Edit();
YDData->TBbzyhda->Edit();
if (YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString.AnsiPos("E")==0)
{
YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString=Trim(YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString)+"E";
YDData->TBbzsq->FieldByName("sq_sljd")->AsString=Trim(YDData->TBbzsq->FieldByName("sq_sljd")->AsString)+"E";
}
YDData->TBbzyhda->FieldByName("YD_WCRQE")->AsDateTime=Date();
YDData->TBbzyhda->Post();
YDData->TBbzsq->Post();
Panel6->Enabled=false;
}
else MessageBox(NULL,"贴费尚未结清,不能完成此环节!","提示",MB_OK|MB_ICONWARNING);
Bzrefresh();
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton6Click(TObject *Sender)
{
YDData->TBbzsq->Edit();
YDData->TBbzyhda->Edit();
if (YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString.AnsiPos("D")==0)
{
YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString=Trim(YDData->TBbzyhda->FieldByName("YD_BZJC")->AsString)+"D";
YDData->TBbzsq->FieldByName("sq_sljd")->AsString=Trim(YDData->TBbzsq->FieldByName("sq_sljd")->AsString)+"D";
}
YDData->TBbzyhda->FieldByName("YD_WCRQD")->AsDateTime=Date();
YDData->TBbzyhda->Post();
YDData->TBbzsq->Post();
Panel5->Enabled=false;
Bzrefresh();
}
//---------------------------------------------------------------------------
void TFbzyw::Refreshtree()
{
TreeView1->Items->Clear();
YDData->TBdbcs->Close();
YDData->TBdbcs->Open();
if (YDData->TBdbcs->RecordCount==0)return;
AnsiString dblb,sd,cbbj,zfgx;
AnsiString bzh;
YDData->TBdbcs->First();
while (!YDData->TBdbcs->Eof)
{
bzh=Trim(YDData->TBdbcs->FieldByName("DB_BZH")->AsString);
if (!czjd(bzh))
TreeView1->Items->Add(NULL,bzh+":");
YDData->TBdbcs->Next();
}
for (int k=3;k<=8;k++)
{
YDData->TBdbcs->First();
while (!YDData->TBdbcs->Eof)
{
zfgx=YDData->TBdbcs->FieldByName("DB_ZFGX")->AsString;
dblb=YDData->TBdbcs->FieldByName("DB_DBLB")->AsString;
sd=YDData->TBdbcs->FieldByName("DB_SD")->AsString;
if (zfgx.Length()==k)
{
for (int x=0;x<TreeView1->Items->Count;x++)
{
if (TreeView1->Items->Item[x]->Text.SubString(1,TreeView1->Items->Item[x]->Text.AnsiPos(":")-1)==zfgx.SubString(1,zfgx.Length()-1))
{
Node3=TreeView1->Items->Item[x];
Node4=TreeView1->Items->AddChild(Node3,zfgx+":"+dblb+":"+sd);
if (YDData->TBdbcs->FieldByName("DB_SYS")->AsString!="T")
{
Node4->ImageIndex=0;
Node4->SelectedIndex=0;
}
else
{
Node4->ImageIndex=2;
Node4->SelectedIndex=2;
}
break;
}
}
}
YDData->TBdbcs->Next();
}
}
TreeView1->FullExpand();
TreeView1->AlphaSort();
if (TreeView1->Items->Count>0)
{
SpeedButton26->Enabled=true;
SpeedButton27->Enabled=true;
SpeedButton28->Enabled=true;
SpeedButton29->Enabled=true;
SpeedButton31->Enabled=true;
}
else
{
SpeedButton26->Enabled=false;
SpeedButton27->Enabled=false;
SpeedButton28->Enabled=false;
SpeedButton29->Enabled=false;
SpeedButton31->Enabled=false;
}
}
//----------------
bool TFbzyw::czjd(AnsiString jdmc)
{
bool y=false;
j=TreeView1->Items->GetFirstNode();
while(j)
{
if (j->Text.SubString(1,j->Text.AnsiPos(":")-1)==jdmc)
{
j->Selected=true;
y=true;
return y;
}
j=j->GetNext();
}
return y;
}
//----------------
void __fastcall TFbzyw::SpeedButton32Click(TObject *Sender)
{
if (TreeView1->Items->Count>0&&TreeView1->Selected->Text.SubString(Fbzyw->TreeView1->Selected->Text.AnsiPos(":")+1,4)=="无功")
{
ShowMessage("无功表下不能加挂分表!");
return;
}
Fdbcs=new TFdbcs(Application);
Fdbcs->ShowModal();
delete Fdbcs;
YDData->TBdbcs->Close();
YDData->TBdbcs->Open();
Refreshtree();
}
//---------------------------------------------------------------------------
void __fastcall TFbzyw::SpeedButton35Click(TObject *Sender)
{
if (TreeView1->Selected==NULL)return;
AnsiString zm=TreeView1->Selected->Text.SubString(1,TreeView1->Selected->Text.AnsiPos(":")-1);
YDData->TBdbcs->First();
while (!YDData->TBdbcs->Eof)
{
if (YDData->TBdbcs->FieldByName("DB_ZFGX")->AsString.AnsiPos(zm)==1)
{
if (YDData->TBdbcs->FieldByName("DB_SYS")->AsString=="")
{
YDData->TBdbcs->Edit();
YDData->TBdbcs->FieldByName("DB_SYS")->AsString="T";
YDData->TBdbcs->Post();
}
else
{
YDData->TBdbcs->Edit();
YDData->TBdbcs->FieldByName("DB_SYS")->AsString="";
YDData->TBdbcs->Post();
}
}
YDData->TBdbcs->Next();
}
YDData->TBdbcs->Refresh();
Refreshtree();
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -