purchrep.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "purchrep.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KSAdvReport"
#pragma link "QueryBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmPurchRep *frmPurchRep;
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TfrmPurchRep::TfrmPurchRep(TComponent* Owner, HWND chWnd, AnsiString ClassCode,
AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,ClassCode,WhereStr)
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmPurchRep::InitEditControl()
{
FillEdit(Handle,SupplyCodeButton,"SELECT supplycode,supplyname from sdsupply ","supplyName","supplyCode");
}
//----------------------------------------------------------------------------
void __fastcall TfrmPurchRep::FillGridWithDate()
{
AnsiString GridStr;
SDPodRep->RowCount=1;
l_Query->MoveFirst();
while(l_Query->Eof==0)
{

    GridStr="\t"+l_Query->FieldByName("pohcode");
    GridStr+="\t"+l_Query->FieldByName("PodLine");
    GridStr+="\t"+l_Query->FieldByName("PodGoods");
    GridStr+="\t"+l_Query->FieldByName("GoodsName");
    GridStr+="\t"+l_Query->FieldByName("PodQty");
    GridStr+="\t"+l_Query->FieldByName("PodRQty");
    GridStr+="\t"+l_Query->FieldByName("podrate");
    GridStr+="\t"+l_Query->FieldByName("podreqdate");
    GridStr+="\t"+l_Query->FieldByName("podrecdate");
    GridStr+="\t"+l_Query->FieldByName("podtcts");
    SDPodRep->AddItem(GridStr);
    l_Query->MoveNext();
}
}
//----------------------------------------------------------------------------
void __fastcall TfrmPurchRep::FormShow(TObject *Sender)
{
InitEditControl();
}
//---------------------------------------------------------------------------

void __fastcall TfrmPurchRep::btnOKClick(TObject *Sender)
{
if(SupplyCodeButton->Text=="")
throw Exception ("请选择供应商");
AnsiString SqlStr;
SqlStr="select * from ksvw_podrep where  pohdate > = '"+BeginDate->DateTime+"' and pohdate < = '"+EndDate->DateTime+"'";
SqlStr+= " and pohsupply = '"+SupplyCodeButton->ItemData[1]+"'";
l_Query->Close();
l_Query->Open(SqlStr,"pohcode");
FillGridWithDate();
}
//---------------------------------------------------------------------------


void __fastcall TfrmPurchRep::SupplyCodeButtonButtonClick(TObject *Sender)
{
    if(OpenSupplyForm("")==true)
    {
         SupplyCodeButton->LocateKey(GetSupplyValue(gtOpenForm,"SupplyCode"));
    }

}
//---------------------------------------------------------------------------