glbmqf_needget.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "GlbmQF_NeedGet.h"
#include "GlbmQtyNeedGet.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_NeedGet *frmGlbmQF_NeedGet;

//---------------------------------------------------------------------------
__fastcall TfrmGlbmQF_NeedGet::TfrmGlbmQF_NeedGet(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_NeedGet::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_NeedGet::seGlbGlkmFButtonClick(TObject *Sender)
{
    if(OpenGlkmForm())
    {
       ((TSDEdit*)Sender)->Text = GetGlkmValue(gtOpenForm,"GLKMCODE");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGlbmQF_NeedGet::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_NeedGet::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(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_NeedGet::bbtOKClick(TObject *Sender)
{
   GetSQLWhereString();
   m_CancelQuery=false;
   Close();
}
//---------------------------------------------------------------------------


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

void __fastcall TfrmGlbmQF_NeedGet::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;
    }
}