pzhtf.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "PzhTF.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "StdBaseForm"
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmPzhTF *frmPzhTF;
//---------------------------------------------------------------------------
__fastcall TfrmPzhTF::TfrmPzhTF(TComponent* Owner)
   : TStdBaseForm(Owner)
{
   FPzhDateF="";
   FPzhDateT="";
   FPzhCodeF="";
   FPzhCodeT="";
   CreatSQLFilStr="";
   CancelQuery="Cancel";
   FillComboBoxWithSQL();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhTF::FormShow(TObject *Sender)
{
   InitializeControl();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhTF::FillComboBoxWithSQL()
{
   FillComboBox(Handle,scPzhFvct,"select memo=FvctCode+space(1)+FvctName,FvctCode from sdFvct order by FvctCode",
                "memo","FvctCode");
   scPzhFvct->AddItems("全部...","All");
   FillComboBox(Handle,scPzhUser,"select PurserName=UserName,PurserCode from sdPurser,sdUser where UserCode=PurserCode order by PurserCode",
                "PurserName","PurserCode");
   scPzhUser->AddItems("全部...","All");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhTF::InitializeControl()
{
   dePzhDateF->Text="";
   dePzhDateT->Text=dePzhDateT->InitDate;
   if(scPzhFvct->Items->Count>1)
     scPzhFvct->ItemIndex=scPzhFvct->Items->Count-1;
   sePzhCodeF->Text="";
   sePzhCodeT->Text="";
   rbPzhPostAll->Checked =true;
   rbPzhCheckAll->Checked =true;
   if(scPzhUser->Items->Count>1)
     scPzhUser->ItemIndex=scPzhUser->Items->Count-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPzhTF::CreatQueryFilStr()
{
   CreatSQLFilStr="";

   if(Trim(dePzhDateF->Text) != "")
   {
     CreatSQLFilStr = "PzhDate>='" + FormatDateTime("yyyy-mm-dd",dePzhDateF->Date) + "' and ";
     FPzhDateF=FormatDateTime("yyyy-mm-dd",dePzhDateF->Date);
   }

   if(Trim(dePzhDateT->Text) != "")
   {
     CreatSQLFilStr += "PzhDate<='" + FormatDateTime("yyyy-mm-dd",dePzhDateT->Date) + "' and ";
     FPzhDateT=FormatDateTime("yyyy-mm-dd",dePzhDateT->Date);
   }

   if(Trim(scPzhFvct->Text) != "全部...")
     CreatSQLFilStr += "PzhFvct='" + Trim(scPzhFvct->ItemData[1]) + "' and ";

   if(Trim(sePzhCodeF->Text) != "")
   {
     CreatSQLFilStr += "PzhCode>='" + Trim(sePzhCodeF->Text) + "' and ";
     FPzhCodeF=Trim(sePzhCodeF->Text);
   }

   if(Trim(sePzhCodeT->Text) != "")
   {
     CreatSQLFilStr += "PzhCode<='" + Trim(sePzhCodeT->Text) + "' and ";
     FPzhCodeT=Trim(sePzhCodeT->Text);
   }
   if(rbPzhPosted->Checked)
     CreatSQLFilStr += "PzhPost = 1 and ";

   if(rbPzhUnpost->Checked)
     CreatSQLFilStr += "PzhPost = 0 and ";

   if(rbPzhChecked->Checked)
     CreatSQLFilStr += "PzhCheck = 1 and ";

   if(rbPzhUncheck->Checked)
     CreatSQLFilStr += "PzhCheck = 0 and ";

   if(Trim(scPzhUser->Text) != "全部...")
     CreatSQLFilStr += "PzhUser='" + Trim(scPzhUser->ItemData[1]) + "' and ";

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

void __fastcall TfrmPzhTF::BitBtn1Click(TObject *Sender)
{
   CreatQueryFilStr();
   CancelQuery="OK";
   Close();    
}
//---------------------------------------------------------------------------