bdgl_init.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Bdgl_Init.h"
#include "commfunction.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmBdgl_Init *frmBdgl_Init;
//---------------------------------------------------------------------------
__fastcall TfrmBdgl_Init::TfrmBdgl_Init(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TStdBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmBdgl_Init::FormInit()
{
 TComResultSet *pResultSet=new  TComResultSet(Handle,g_ClientHandle);
 AnsiString strSQL;
 strSQL =" select top 1 BdglFmonth,BdglBoyAmt,BdglIoyAmt,BdglOoyAmt,BdglAoyAmt from sdBdgl ";
 strSQL+=" order by BdglFmonth ";
 pResultSet->Open(strSQL,"");
 pResultSet->MoveFirst();
 if(pResultSet->RecordCount > 0)
 {
   seBdglFmonth->Text=pResultSet->FieldByName("BdglFmonth");
   seBdglBoyAmt->Text=pResultSet->FieldByName("BdglBoyAmt");
   seBdglIoyAmt->Text=pResultSet->FieldByName("BdglIoyAmt");
   seBdglOoyAmt->Text=pResultSet->FieldByName("BdglOoyAmt");
   seBdglAoyAmt->Text=pResultSet->FieldByName("BdglAoyAmt");
   chkInitiate->Checked=true;
   Panel1->Enabled=false;
   btnOK->Enabled=false;
   lblNotes->Caption="提示：坏账损失账已经被初始化";
 }
 else
 {
   seBdglFmonth->Text=g_sdFMonth;
   seBdglBoyAmt->Text="0.00";
   seBdglIoyAmt->Text="0.00";
   seBdglOoyAmt->Text="0.00";
   seBdglAoyAmt->Text="0.00";
   chkInitiate->Checked=false;
   Panel1->Enabled=true;
   btnOK->Enabled=true;
   lblNotes->Caption="提示：坏账损失账尚未初始化，请输入年初金额、本年增加和本年减少金额";
 }
 pResultSet->Close();
 delete pResultSet;
}
//---------------------------------------------------------------------------

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

 if(Application->MessageBox("确定要初始化坏账损失账吗？","系统提示", MB_YESNO) != IDYES)
  return;
 try
 {
  try
  {
   strSQL =" Exec sdBdgl_Initiate '"+seBdglFmonth->Text+"',";
   strSQL+=seBdglBoyAmt->Text+",";
   strSQL+=seBdglIoyAmt->Text+",";
   strSQL+=seBdglOoyAmt->Text;
   try
   {
    pResultSet->Execute(strSQL);
   }
   catch(Exception &e)
   {
    throw Exception(e.Message);
   }
   pResultSet->Close();
  }
  catch(Exception &e)
  {
   throw Exception(e.Message);
  }
 }
 __finally
 {
   delete pResultSet;
 }
 frmBdgl_Init->Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrmBdgl_Init::btnCancelClick(TObject *Sender)
{
 frmBdgl_Init->Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmBdgl_Init::FormShow(TObject *Sender)
{
 FormInit();
}
//---------------------------------------------------------------------------
void __fastcall TfrmBdgl_Init::CalAoyAmt()
{
 double dBoyAmt,dIoyAmt,dOoyAmt,dAoyAmt;
 try
 {
  dBoyAmt=StrToFloat(seBdglBoyAmt->Text);
  dIoyAmt=StrToFloat(seBdglIoyAmt->Text);
  dOoyAmt=StrToFloat(seBdglOoyAmt->Text);
  dAoyAmt=DataCarry(dBoyAmt+dIoyAmt-dOoyAmt,2,0);
  seBdglAoyAmt->Text=FloatToStr(dAoyAmt);
 }
 catch(...)
 {
  throw Exception("数值计算错误");
 }
}
//---------------------------------------------------------------------------


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