ydmain.~cpp

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

void __fastcall TFmain::I18Click(TObject *Sender)
{
  Fdydj=new TFdydj(Application);
  Fdydj->ShowModal();
  delete Fdydj;
  tcjc=I18->Caption;
  gnks(I18->Caption);
}
//---------------------------------------------------------------------------

void __fastcall TFmain::I21Click(TObject *Sender)
{
  Fbyqcs=new TFbyqcs(Application);
  Fbyqcs->ShowModal();
  delete Fbyqcs;
  tcjc=I21->Caption;
  gnks(I21->Caption);
}
//---------------------------------------------------------------------------

void __fastcall TFmain::I19Click(TObject *Sender)
{
  Fhydm=new TFhydm(Application);
  Fhydm->ShowModal();
  delete Fhydm;
  tcjc=I19->Caption;
  gnks(I19->Caption);
}
//---------------------------------------------------------------------------

void __fastcall TFmain::I16Click(TObject *Sender)
{
 Fmldj=new TFmldj(Application);
 Fmldj->ShowModal();
 delete Fmldj;
  tcjc=I16->Caption;
  gnks(I16->Caption);
}
//---------------------------------------------------------------------------

void __fastcall TFmain::I17Click(TObject *Sender)
{
  Fjjxm=new TFjjxm(Application);
  Fjjxm->ShowModal();
  delete Fjjxm;
  tcjc=I17->Caption;
  gnks(I17->Caption);
}
//---------------------------------------------------------------------------

void __fastcall TFmain::S10Click(TObject *Sender)
{

  Fxtcs=new TFxtcs(Application);
  Fxtcs->ShowModal();
  delete Fxtcs;
  tcjc=S10->Caption;
  gnks(S10->Caption);

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



void __fastcall TFmain::Y11Click(TObject *Sender)
{
  Fywsl=new TFywsl(Application);
  Fywsl->ShowModal();
  delete Fywsl;
  tcjc=Y11->Caption;
  gnks(Y11->Caption);
}
//---------------------------------------------------------------------------
AnsiString TFmain::GetBigMoney(AnsiString s)
{
//if (s.Length()>=10) return "零元零角整";
AnsiString odxc,odxs,oszc,oscc,oscc0;
int oi,oi0,i;
double ormb=StrToFloat(s); //金额小写
//float ormb=StrToFloat(s); //金额小写
if (ormb==0.00) return "零元零角整";
odxc="分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿";
odxs="零壹贰叁肆伍陆柒捌玖";
oszc=FloatToStr(ormb);
i=s.AnsiPos(".");
if (s.Length()-i>2&&i>0)
oszc=oszc.SubString(1,i+2);
if (s.Length()-i==1&&i>0)
oszc=oszc+"0";
if (s.Length()-i==s.Length())
oszc=oszc+"00";
if (i>0)
oszc.Delete(i,1); // stuf(oszc,18,1,'');
oszc=Trim(oszc); oscc=""; oi0=0;
for (oi=oszc.Length();oi>0;oi--)
{
  oscc=odxc.SubString(oi0*2+1,2)+oscc;
  oscc=odxs.SubString(StrToInt(oszc.SubString(oi,1))*2+1,2)+oscc;
  oi0++;
 }
if (oscc.SubString(1,4)=="零圆") return oscc;
oscc0="";
for (oi=1;oi<=oscc.Length();oi=oi+4)
{ if (oscc.SubString(oi,2)=="零" )
{ if ( oscc.SubString(oi+2,2)=="万" )
{ if ( oscc0.SubString(oscc0.Length()-3,4)!="亿零" )
{ if (oscc0.SubString(oscc0.Length()-1,2)=="零" )
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"万";
else oscc0=oscc0+"万"; }
continue; }
if ( oscc.SubString(oi+2,2)=="圆")
{ 
if (oscc0.SubString(oscc0.Length()-1,2)=="零")
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"圆"; 
else oscc0=oscc0+"圆"; 
continue; 
}
if ( oscc.SubString(oi+2,2)=="亿" )
{ 
if (oscc0.SubString(oscc0.Length()-1,2)=="零") 
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"亿"; 
else oscc0=oscc0+"亿";
continue; }
if (oscc0.SubString(oscc0.Length()-1,2)!="零" ) 
oscc0=oscc0+"零"; 
} 
else oscc0=oscc0+oscc.SubString(oi,4);
}
if ((oscc0.SubString(oscc0.Length()-3,4)=="圆零") ) 
{ oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";
return oscc0; }
if ((oscc0.SubString(oscc0.Length()-3,4)=="角零" ))
{ oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";
return oscc0;
}
if ((oscc0.SubString(oscc0.Length()-1,2)=="零" ))
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"圆整";
return oscc0;
}
//-------------------------------------------
void TFmain::Runexe()
{
 AnsiString pa=ExtractFilePath(Application->ExeName)+"calc.exe";
  // Select the program and how it will be run.
  SHELLEXECUTEINFO execinfo ;
  memset (&execinfo, 0, sizeof (execinfo)) ;
  execinfo.cbSize = sizeof (execinfo) ;
  execinfo.lpVerb = "open" ;
  execinfo.lpFile =pa.c_str();
//  execinfo.lpParameters = Edit1->Text.c_str () ;
  execinfo.fMask = SEE_MASK_NOCLOSEPROCESS ;
  execinfo.nShow = SW_SHOWDEFAULT ;

  // Run the program.
  if (! ShellExecuteEx (&execinfo))
  {
    ShowMessage ("Could not create process") ;
    return ;
  }
//  if (! CheckBox1->Checked)
//  {
//    Application->Minimize () ;
//    WaitForSingleObject (execinfo.hProcess, INFINITE) ;
//    Application->Restore () ;
//  }

}
//-------------------------------------------
void __fastcall TFmain::S00Click(TObject *Sender)
{
  Fhsdw=new TFhsdw(Application);
  Fhsdw->ShowModal();
  delete Fhsdw;
  tcjc=S00->Caption;
  gnks(S00->Caption);
}
//---------------------------------------------------------------------------


void __fastcall TFmain::D13Click(TObject *Sender)
{
  Fdfjs=new TFdfjs(Application);
  Fdfjs->ShowModal();
  delete Fdfjs;
   tcjc=D13->Caption;
  gnks(D13->Caption);

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

void __fastcall TFmain::D12Click(TObject *Sender)
{
  Fsgcb=new TFsgcb(Application);
  Fsgcb->ShowModal();
  delete Fsgcb;
  tcjc=D12->Caption;
  gnks(D12->Caption);

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

void __fastcall TFmain::D14Click(TObject *Sender)
{
  Fdftzd=new TFdftzd(Application);
  Fdftzd->ShowModal();
  delete Fdftzd;
  tcjc=D14->Caption;
  gnks(D14->Caption);

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


void __fastcall TFmain::I20Click(TObject *Sender)
{
  Fydfl=new TFydfl(Application);
  Fydfl->ShowModal();
  delete Fydfl;
  tcjc=I20->Caption;
  gnks(I20->Caption);

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

void __fastcall TFmain::D10Click(TObject *Sender)
{
  Fcbysz=new TFcbysz(Application);
  Fcbysz->ShowModal();
  delete Fcbysz;
  tcjc=D10->Caption;
  gnks(D10->Caption);

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

void __fastcall TFmain::D15Click(TObject *Sender)
{
  Fdfjsqd=new TFdfjsqd(Application);
  Fdfjsqd->ShowModal();
  delete Fdfjsqd;
  tcjc=D15->Caption;
  gnks(D15->Caption);

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

void __fastcall TFmain::D18Click(TObject *Sender)
{
  Fdfsf=new TFdfsf(Application);
  Fdfsf->ShowModal();
  delete Fdfsf;
  tcjc=D18->Caption;
  gnks(D18->Caption);

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

void __fastcall TFmain::Y16Click(TObject *Sender)
{
  Fhsrltj=new TFhsrltj(Application);
  Fhsrltj->ShowModal();
  delete Fhsrltj;
  tcjc=Y16->Caption;
  gnks(Y16->Caption);

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


void __fastcall TFmain::Y12Click(TObject *Sender)
{
 Fyhhmc=new TFyhhmc(Application);
 Fyhhmc->ShowModal();
 delete Fyhhmc;
 tcjc=Y12->Caption;
 gnks(Y12->Caption);
}
//---------------------------------------------------------------------------

void __fastcall TFmain::D23Click(TObject *Sender)
{
 Fymjz=new TFymjz(Application);
 Fymjz->ShowModal();
 delete Fymjz;
 tcjc=D23->Caption;
 gnks(D23->Caption);
}
//---------------------------------------------------------------------------

void __fastcall TFmain::D19Click(TObject *Sender)
{
 Fsjqf=new TFsjqf(Application);
 Fsjqf->ShowModal();
 delete Fsjqf;
 tcjc=D19->Caption;
 gnks(D19->Caption);

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



void __fastcall TFmain::D21Click(TObject *Sender)
{
 Fqfll=new TFqfll(Application);
 Fqfll->ShowModal();
 delete Fqfll;
 tcjc=D21->Caption;
 gnks(D21->Caption);

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




void __fastcall TFmain::D20Click(TObject *Sender)
{
 Fsfqktj=new TFsfqktj(Application);
 Fsfqktj->ShowModal();
 delete Fsfqktj;
 tcjc=D20->Caption;
 gnks(D20->Caption);

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


void __fastcall TFmain::B11Click(TObject *Sender)
{
 Fdyxstj=new TFdyxstj(Application);
 Fdyxstj->ShowModal();
 delete Fdyxstj;
 tcjc=B11->Caption;
 gnks(B11->Caption);
}
//---------------------------------------------------------------------------


void __fastcall TFmain::B12Click(TObject *Sender)
{
 Fydfltj=new TFydfltj(Application);
 Fydfltj->ShowModal();
 delete Fydfltj;
 tcjc=B12->Caption;
 gnks(B12->Caption);

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

void __fastcall TFmain::B14Click(TObject *Sender)
{
  Fhyflbb=new TFhyflbb(Application);
  Fhyflbb->QuickRep1->Preview();
  delete Fhyflbb;
  tcjc=B14->Caption;
  gnks(B14->Caption);


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

void __fastcall TFmain::B13Click(TObject *Sender)
{
  Fdldffx=new TFdldffx(Application);
  Fdldffx->ShowModal();
  delete Fdldffx;
  tcjc=B13->Caption;
  gnks(B13->Caption);


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






void __fastcall TFmain::ToolButton8Click(TObject *Sender)
{
 Runexe();        
}
//---------------------------------------------------------------------------

void __fastcall TFmain::ToolButton9Click(TObject *Sender)
{
 Runexe();        
}
//---------------------------------------------------------------------------

void __fastcall TFmain::H11Click(TObject *Sender)
{
 Application->HelpCommand(HELP_FINDER,0);        
}
//---------------------------------------------------------------------------

void __fastcall TFmain::D11Click(TObject *Sender)
{
  Fcbjgl=new TFcbjgl(Application);
  Fcbjgl->ShowModal();
  delete Fcbjgl;
  tcjc=D11->Caption;
  gnks(D11->Caption);

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

void __fastcall TFmain::D16Click(TObject *Sender)
{
  Fdljs=new TFdljs(this);
  Fdljs->ShowModal();
  delete Fdljs;
  tcjc=D16->Caption;
  gnks(D16->Caption);

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