bdpgl_init.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 132 行

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

#include <vcl.h>
#pragma hdrstop

#include "Bdpgl_Init.h"
#include "commfunction.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmBdpgl_Init *frmBdpgl_Init;
//---------------------------------------------------------------------------
__fastcall TfrmBdpgl_Init::TfrmBdpgl_Init(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TStdBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmBdpgl_Init::FormInit()
{
 TComResultSet *pResultSet=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString strSQL;
 strSQL =" select top 1 BdpglFmonth,BdpglBoyAmt,BdpglIoyAmt,BdpglOoyAmt,BdpglAoyAmt from sdBdpgl ";
 strSQL+=" order by BdpglFmonth ";
 pResultSet->Open(strSQL,"");
 pResultSet->MoveFirst();
 if(pResultSet->RecordCount > 0)
 {
   seBdpglFmonth->Text=pResultSet->FieldByName("BdpglFmonth");
   seBdpglBoyAmt->Text=pResultSet->FieldByName("BdpglBoyAmt");
   seBdpglIoyAmt->Text=pResultSet->FieldByName("BdpglIoyAmt");
   seBdpglOoyAmt->Text=pResultSet->FieldByName("BdpglOoyAmt");
   seBdpglAoyAmt->Text=pResultSet->FieldByName("BdpglAoyAmt");
   chkInitiate->Checked=true;
   Panel1->Enabled=false;
   btnOK->Enabled=false;
   lblNotes->Caption="提示：坏账准备账已经被初始化";
 }
 else
 {
   seBdpglFmonth->Text=g_sdFMonth;
   seBdpglBoyAmt->Text="0.00";
   seBdpglIoyAmt->Text="0.00";
   seBdpglOoyAmt->Text="0.00";
   seBdpglAoyAmt->Text="0.00";
   chkInitiate->Checked=false;
   Panel1->Enabled=true;
   btnOK->Enabled=true;
   lblNotes->Caption="提示：坏账准备账尚未初始化，请输入年初金额、本年增加和本年减少金额";
 }
 pResultSet->Close();
 delete pResultSet;
}
//---------------------------------------------------------------------------

void __fastcall TfrmBdpgl_Init::btnOKClick(TObject *Sender)
{
 TComResultSet *pResultSet=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString strSQL;

 if(Application->MessageBox("确定要初始化坏账准备账吗？","系统提示", MB_YESNO) != IDYES)
  return;
 try
 {
  try
  {
   strSQL =" Exec sdBdpgl_Initiate '"+seBdpglFmonth->Text+"',";
   strSQL+=seBdpglBoyAmt->Text+",";
   strSQL+=seBdpglIoyAmt->Text+",";
   strSQL+=seBdpglOoyAmt->Text;
   try
   {
    pResultSet->Execute(strSQL);
   }
   catch(Exception &e)
   {
    throw Exception(e.Message);
   }
   pResultSet->Close();
  }
  catch(Exception &e)
  {
   throw Exception(e.Message);
  }
 }
 __finally
 {
   delete pResultSet;
 }
 frmBdpgl_Init->Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrmBdpgl_Init::btnCancelClick(TObject *Sender)
{
 frmBdpgl_Init->Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmBdpgl_Init::FormShow(TObject *Sender)
{
 FormInit();
}
//---------------------------------------------------------------------------
void __fastcall TfrmBdpgl_Init::CalAoyAmt()
{
 double dBoyAmt,dIoyAmt,dOoyAmt,dAoyAmt;
 try
 {
  dBoyAmt=StrToFloat(seBdpglBoyAmt->Text);
  dIoyAmt=StrToFloat(seBdpglIoyAmt->Text);
  dOoyAmt=StrToFloat(seBdpglOoyAmt->Text);
  dAoyAmt=DataCarry(dBoyAmt+dIoyAmt-dOoyAmt,2,0);
  seBdpglAoyAmt->Text=FloatToStr(dAoyAmt);
 }
 catch(...)
 {
  throw Exception("数值计算错误");
 }
}
//---------------------------------------------------------------------------


void __fastcall TfrmBdpgl_Init::seBdpglBoyAmtExit(TObject *Sender)
{
 //计算本年累计金额
 CalAoyAmt();
}
//---------------------------------------------------------------------------