glbqf_needget.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "GlbQF_NeedGet.h"
#include "GlbQtyNeedGet.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "StdBaseForm"
#pragma link "cspin"
#pragma link "CSPIN"
#pragma resource "*.dfm"

TfrmGlbQF_NeedGet *frmGlbQF_NeedGet;

//---------------------------------------------------------------------------
__fastcall TfrmGlbQF_NeedGet::TfrmGlbQF_NeedGet(TComponent* Owner)
   : TStdBaseForm(Owner)
{
   m_CancelQuery=true;
   m_CurrencyCode="";
   FQtyAmtSign="0";
   g_sdRsGlkm=new TComResultSet(Handle,g_ClientHandle);
   g_sdRsGlkm->Open("select * from sdGlkm order by GlkmCode","GlkmCode");
}
//---------------------------------------------------------------------------
/*  modify 2003-03-04
__fastcall TfrmGlbQF::~TfrmGlbQF()
{

}
*/
//---------------------------------------------------------------------------
void __fastcall TfrmGlbQF_NeedGet::InitEditControl()
{
   TComResultSet *RsQuery;
   RsQuery=new  TComResultSet(Handle,g_ClientHandle);
   RsQuery->Open("select MinYear=Min(FcYear),MaxYear=Max(FcYear) from sdFc","");
   RsQuery->MoveFirst();
   while(!RsQuery->Eof)
   {
      CsFcYearF->MinValue=RsQuery->FieldByName("MinYear").ToInt();
      CsFcYearT->MinValue=RsQuery->FieldByName("MinYear").ToInt();
      CsFcYearF->MaxValue=RsQuery->FieldByName("MaxYear").ToInt();
      CsFcYearT->MaxValue=RsQuery->FieldByName("MaxYear").ToInt();
      CsFcYearF->Increment=1;
      CsFcYearT->Increment=1;
      RsQuery->MoveNext();
   }
   RsQuery->Close();
   delete RsQuery;
   FillComboBox(Handle,scGlbCurrency,"select CurrencyName,CurrencyCode from sdCurrency Order by CurrencyCode",
                "CurrencyName","CurrencyCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmGlbQF_NeedGet::seGlbGlkmFButtonClick(TObject *Sender)
{
    if(OpenGlkmForm())
    {
       ((TSDEdit*)Sender)->Text=GetGlkmValue(gtOpenForm,"GLKMCODE");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmGlbQF_NeedGet::FormShow(TObject *Sender)
{
   int CurYear,CurMonth;
   InitEditControl();
   CurYear=g_sdFMonth.SubString(1,4).ToInt();
   CurMonth=g_sdFMonth.SubString(5,2).ToInt();
   seGlbGlkmF->Text="";
   seGlbGlkmT->Text="";
   cheGlbJD->Checked=false;
   CsFcYearF->Text=CurYear;
   CsFcYearT->Text=CurYear;
   CsMonthF->Text=CurMonth;
   CsMonthT->Text=CurMonth;
   scGlbCurrency->LocateKey(g_sdCurrencyCode);
   if(FQtyAmtSign=="1")
   {
     scGlbCurrency->Visible=false;
     lbGlbCurrency->Visible=false;
   }
   else
   { scGlbCurrency->Visible=true;
     lbGlbCurrency->Visible=true;
   }  
}
//---------------------------------------------------------------------------
void __fastcall TfrmGlbQF_NeedGet::GetSQLWhereString()
{
   AnsiString fFcFmonth,tFcFmonth;
   AnsiString CreatSQLFilStr="";

   if((Trim(CsMonthF->Text)).Length()==1)
      fFcFmonth=Trim(CsFcYearF->Text)+"0"+Trim(CsMonthF->Text);
   else
      fFcFmonth=Trim(CsFcYearF->Text)+Trim(CsMonthF->Text);
   if((Trim(CsMonthT->Text)).Length()==1)
      tFcFmonth=Trim(CsFcYearT->Text)+"0"+Trim(CsMonthT->Text);
   else
      tFcFmonth=Trim(CsFcYearT->Text)+Trim(CsMonthT->Text);

   if(tFcFmonth<fFcFmonth)
     throw Exception("结束的会计期间:'"+tFcFmonth+"'不能小于开始的会计期间:'"+fFcFmonth+"'");

   if(tFcFmonth==fFcFmonth)
      m_FmonthInfo="会计期间:'"+fFcFmonth+"'";
   else
      m_FmonthInfo="会计期间:'"+fFcFmonth+"'至:'"+tFcFmonth+"'";

   CreatSQLFilStr = "PzhFmonth>='" + fFcFmonth + "' and PzhFmonth<='" + tFcFmonth + "' ";
   m_CreateSqlString=CreatSQLFilStr;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGlbQF_NeedGet::bbtOKClick(TObject *Sender)
{
   GetSQLWhereString();
   m_CancelQuery=false;
   Close();
}
//---------------------------------------------------------------------------
/*   modify 2003-03-04
void __fastcall TfrmGlbQF::FormClose(TObject *Sender, TCloseAction &Action)
{
  if(g_sdRsGlkm) delete g_sdRsGlkm;
}
*/
//---------------------------------------------------------------------------
// add 2003-03-04
void __fastcall TfrmGlbQF_NeedGet::bbtCancelClick(TObject *Sender)
{
    m_CancelQuery = true;
    Close();    
}
//---------------------------------------------------------------------------