glbmqf.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "GlbmQF.h"
#include "GlkmQuery.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "StdBaseForm"
#pragma resource "*.dfm"

TfrmGlbmQF *frmGlbmQF;
//TfrmGlkmQuery *QueryGlkmfrm;
//---------------------------------------------------------------------------
__fastcall TfrmGlbmQF::TfrmGlbmQF(TComponent* Owner)
   : TStdBaseForm(Owner)
{
   m_CancelQuery=true;
   FQtyAmtSign="0";
   g_sdRsGlkm=new TComResultSet(Handle,g_ClientHandle);
   g_sdRsGlkm->Open("select * from sdGlkm order by GlkmCode","GlkmCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmGlbmQF::InitEditControl()
{
   for(int i=1;i<=15;i++)
      scGlbLevel->AddItems(AnsiString(i));
   FillComboBox(Handle,scGlbFmonthF,"select FcMonth from sdFc Order by FcMonth","FcMonth");
   FillComboBox(Handle,scGlbFmonthT,"select FcMonth from sdFc Order by FcMonth","FcMonth");
   FillComboBox(Handle,scGlbCurrency,"select CurrencyName,CurrencyCode from sdCurrency Order by CurrencyCode",
                "CurrencyName","CurrencyCode");
}
//---------------------------------------------------------------------------

void __fastcall TfrmGlbmQF::seGlbGlkmFButtonClick(TObject *Sender)
{
    if(OpenGlkmForm())
    {
       ((TSDEdit*)Sender)->Text = GetGlkmValue(gtOpenForm,"GLKMCODE");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGlbmQF::FormShow(TObject *Sender)
{
   InitEditControl();
   seGlbGlkmF->Text="";
   seGlbGlkmT->Text="";

   chePzhPost->Checked=false;
   rbGlbFmonth->Checked=true;
   gbFc->Enabled=true;

   dePzhDateF->Text=g_sdFMonth.SubString(1,4)+"-"+g_sdFMonth.SubString(5,2)+"-"+"01";
   dePzhDateT->Text=dePzhDateT->InitDate;
   scGlbFmonthF->LocateKey(g_sdFMonth);
   scGlbFmonthT->LocateKey(g_sdFMonth);
   scGlbLevel->LocateKey(AnsiString("1"));
   scGlbCurrency->LocateKey(g_sdCurrencyCode);
   if(FQtyAmtSign=="1")
     {
     scGlbCurrency->Visible=false;
     lbGlbCurrency->Visible=false;
     }
   else
     {
     scGlbCurrency->Visible=true;
     lbGlbCurrency->Visible=true;
     }

}
//---------------------------------------------------------------------------
void __fastcall TfrmGlbmQF::GetSQLWhereString()
{
   AnsiString CreatGlbSQLString="";
   AnsiString CreatPzhSQLString="";
   if(rbGlbFmonth->Checked)
   {
     if(Trim(scGlbFmonthF->Text) != "")
     {
       CreatGlbSQLString = "GlbFmonth>='" + Trim(scGlbFmonthF->Text) + "' and ";
       m_FmonthInfo="会计期间:"+Trim(scGlbFmonthF->Text)+"至:"+g_sdFMonth;
     }
     if(Trim(scGlbFmonthT->Text) != "")
     {
         CreatGlbSQLString += "GlbFmonth<='" + Trim(scGlbFmonthT->Text) + "' and ";
         m_FmonthInfo="会计期间:"+Trim(scGlbFmonthF->Text)+"至:"+Trim(scGlbFmonthT->Text);
     }
   }

   if(rbPzhDate->Checked)
   {
     AnsiString tDateF;
     AnsiString tDateT;
     if(Trim(dePzhDateF->Text) != "")
     {
       tDateF=Trim(dePzhDateF->Text);
       CreatPzhSQLString = "PzhDate>='" + tDateF + "' and ";
       CreatGlbSQLString = "GlbFmonth >= '"+ tDateF.SubString(1,4)+tDateF.SubString(6,2)+"' and ";
       m_FmonthInfo="会计期间:"+tDateF.SubString(1,4)+tDateF.SubString(6,2)+"至:"+g_sdFMonth;
     }
     if(Trim(dePzhDateT->Text) != "")
     {
       CreatPzhSQLString += "PzhDate <= '" + Trim(dePzhDateT->Text) + "' and ";
       tDateT= Trim(dePzhDateT->Text);
       CreatGlbSQLString += "GlbFmonth <= '" + tDateT.SubString(1,4)+tDateT.SubString(6,2) + "' and ";
       m_FmonthInfo="会计期间:"+tDateF.SubString(1,4)+tDateF.SubString(6,2)+"至:"+ tDateT.SubString(1,4)+tDateT.SubString(6,2);
     }
   }

   if(Trim(seGlbGlkmF->Text) != "")
   {
     CreatGlbSQLString += "GlbGlkm>='" + Trim(seGlbGlkmF->Text) + "' and ";
   }

   if(Trim(seGlbGlkmT->Text) != "")
   {
     CreatGlbSQLString += "GlbGlkm<='" + Trim(seGlbGlkmT->Text) + "' and ";
   }

   if(FQtyAmtSign=="0")
   {
     if(Trim(scGlbCurrency->Text) != "")
     {
       CreatPzhSQLString += "PzdCurrency='" + Trim(scGlbCurrency->ItemData[1]) + "' and ";
       CreatGlbSQLString += "GlbCurrency='"+Trim(scGlbCurrency->ItemData[1])+"' and ";
       m_CurrencyInfo="币种:"+ Trim(scGlbCurrency->ItemData[0]);
       m_CurrencyCode=Trim(scGlbCurrency->ItemData[1]);
     }
     else
     {
       m_CurrencyInfo="币种:"+ g_sdCurrencyName;
       CreatPzhSQLString += "PzdCurrency='" + g_sdCurrencyCode + "' and ";
       CreatGlbSQLString += "GlbCurrency='"+g_sdCurrencyCode+"' and ";
       m_CurrencyCode=g_sdCurrencyCode;
     }
   }
   if(Trim(scGlbLevel->Text)!="")
     CreatGlbSQLString += "GlbLevel<="+Trim(scGlbLevel->Text)+" and ";

   if(chePzhPost->Checked)
     CreatPzhSQLString += "PzhPost=0 and ";
   else
     CreatPzhSQLString += "PzhPost=1 and ";

   if(CreatPzhSQLString.Length()>5)
     m_CreatePzhSQLString = CreatPzhSQLString.SubString(1,CreatPzhSQLString.Length()-5);
   else
     m_CreatePzhSQLString = "";

   if(CreatGlbSQLString.Length()>5)
     m_CreateGlbSQLString = CreatGlbSQLString.SubString(1,CreatGlbSQLString.Length()-5);
   else
     m_CreateGlbSQLString = "";
}
//---------------------------------------------------------------------------

void __fastcall TfrmGlbmQF::bbtOKClick(TObject *Sender)
{
   GetSQLWhereString();
   m_CancelQuery=false;
   Close();
}
//---------------------------------------------------------------------------


void __fastcall TfrmGlbmQF::rbGlbFmonthClick(TObject *Sender)
{
    if(rbGlbFmonth->Checked)
    {
       gbFc->Enabled=true;
       gbDate->Enabled=false;
       scGlbFmonthF->LocateKey(g_sdFMonth);
       scGlbFmonthT->LocateKey(g_sdFMonth);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGlbmQF::rbPzhDateClick(TObject *Sender)
{
    if(rbPzhDate->Checked)
    {
       gbFc->Enabled=false;
       gbDate->Enabled=true;
       dePzhDateF->Text=g_sdFMonth.SubString(1,4)+"-"+g_sdFMonth.SubString(5,2)+"-"+"01";
       dePzhDateT->Text=dePzhDateT->InitDate;
    }
}
//---------------------------------------------------------------------------
/*   modify 2003-03-04
void __fastcall TfrmGlbmQF::FormClose(TObject *Sender,
      TCloseAction &Action)
{

 delete g_sdRsGlkm;
}
*/
//---------------------------------------------------------------------------