purcheva.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 153 行

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

#include <vcl.h>
#pragma hdrstop

#include "PurchEva.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ListBaseForm"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmPurchEva *frmPurchEva;
//---------------------------------------------------------------------------
__fastcall TfrmPurchEva::TfrmPurchEva(TComponent* Owner)
    : TListBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TfrmPurchEva::TfrmPurchEva(TComponent* Owner, HWND chWnd, AnsiString ClassCode,
AnsiString WhereStr)
    : TListBaseForm(Owner,chWnd,ClassCode,WhereStr)
{
IsCreate=true;
InitEditConctrl();
scYearChange(NULL);//for initize month
}
//---------------------------------------------------------------------------
void __fastcall TfrmPurchEva::InitEditConctrl()
{
FillComboBox(Handle,scYear,"SELECT FyYear FROM sdFy order by FyYear","FyYear");
FillComboBox(Handle,scBuyer,"SELECT buyercode,buyername FROM sdbuyer order by buyercode","buyername","buyercode");
FillEdit(Handle,seSupply,"select supplycode,supplyName from sdsupply order by supplyCode","supplyName","supplyCode");

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

void __fastcall TfrmPurchEva::scYearChange(TObject *Sender)
{
FillComboBox(Handle,scMonth,"SELECT fcperiod,fcyear FROM sdfc where fcyear = '"+ scYear->Text +" '","fcperiod");
}
//---------------------------------------------------------------------------

void __fastcall TfrmPurchEva::seSupplyButtonClick(TObject *Sender)
{
if(OpenSupplyForm("")==true)
    {
     seSupply->LocateKey(GetSupplyValue(gtOpenForm,"SupplyCode"));
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPurchEva::FillBuyer(int ActivePage)
{
AnsiString GridStr;
AnsiString SqlStr;
int i=0;
switch(ActivePage)
{
    case 0:
    {
         sgBuyer->RowCount=1;
         SqlStr=" select sum(rpodqty) as TempQty,rpodgoodscode,goodsname,rpohdate,rpohbuyername ";
         SqlStr+=" from ksvw_purcheva where rpohdate >= '"+BegDate+"' and rpohdate <= '"+EndDate+"'";
         SqlStr+=" and rpohbuyercode = '"+scBuyer->ItemData[1]+"'";
         SqlStr+=" group by rpodgoodscode ";
         //sqlstr for sum
         l_Query->Close();
         l_Query->Open(SqlStr,"Rpodoodscode");
         l_Query->MoveFirst ();
         for( i=0;i<l_Query->RecordCount;i++)
         {
            sgBuyer->Cells[1][i+1]=l_Query->FieldByName("rpodgoodscode");
            sgBuyer->Cells[2][i+1]=l_Query->FieldByName("goodsname");
            sgBuyer->Cells[3][i+1]=l_Query->FieldByName("TempQty");
            i++;
            l_Query->LocateByIndex(i);
         }
         //first fill 3 cols
        /* SqlStr="";
         SqlStr=" select podgoods,sum(poddqty) as tempdqty,sum(podrqty) as temprqty,sum(podbqty) as tempbqty, ";
         SqlStr+=" sum(podfqty) as tempfqty,sum(podeqty) as tempeqty,sum(podwqty) as tempwqty ";
         SqlStr+=" from sdpod group by podgoods";
         l_Query->Close();
         l_Query->Open(SqlStr,"podgoods");
         for(i=1;i<=sgBuyer->RowCount;i++)
         {
            l_Query->LocateByKey(sgBuyer->Cells[1][i]);
            sgBuyer->Cells[4][i]=l_Query->FieldByName("tempdqty");
         }*/
         break;
    }
    case 1:{break;}
    case 2:{break;}
    default :{break;}

}



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

void __fastcall TfrmPurchEva::FormShow(TObject *Sender)
{
l_Query->Close ();
l_Query->Open("select supplycode,supplybuyer from sdsupply where supplybuyer = '"+scBuyer->Text +"'","supplycode");
seSupply->LocateKey(l_Query->FieldByName("supplycode"));
//automatic fill supply
l_Query->Close();
l_Query->Open("SELECT FcYear,FcPeriod,fcbegdate,fcenddate FROM sdFc where fcYear = ' "+scYear->ItemData[0]+"' and fcperiod = '"+scMonth->ItemData[0]+"'","fcYear");
BegDate=l_Query->FieldByName("fcbegdate");
EndDate=l_Query->FieldByName("fcenddate");
//automatic fill b/edate;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPurchEva::FillSupply(int ActivePage)
{
    AnsiString GridStr;
    AnsiString SqlStr;
    switch(ActivePage)
    {
        case 0:
        {
             sgBuyer->Row=1;
             SqlStr= " select Rpodgoodscode,rpohcode,rpohdate,rpohbuyer,rpodcode from sdrpod,sdrpoh where sdrpoh=sdrpod ";
             SqlStr+=" and ";
             l_Query->Close();
             l_Query->Open(SqlStr,"Rpodoodscode");
             break;
        }
        case 1:
        {
            break;
        }
        case 2:
        {
            break;
        }
        default :
        {
            break;
        }
    }

}