buyereva.cpp

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

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

#include <vcl.h>
#include <sysdyn.h>
#pragma link "RecBaseForm"
#pragma hdrstop
#include "BuyerEva.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmBuyerEva *frmBuyerEva;
//该继承窗体有ComServer;
//---------------------------------------------------------------------------

//-----------------------------------------------------------------------------
__fastcall TfrmBuyerEva::TfrmBuyerEva(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
     :TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmBuyerEva::InitControl()
{
    sgBuyerGoods->Tag =0;
    sgBuyerEva->Tag =0;
    sgSupplyGoods->Tag =0;
    sgSupplyEva->Tag =0;
//所有Tag用于判别是否需要重新下载数据

}
//----------------------------------------------------------------------------
int __fastcall TfrmBuyerEva::OpenBuyerQuery(int ActivePage)
{
    AnsiString SqlStr;
    switch (ActivePage)
    {
        case 0:
        {
            SqlStr=" select goodscode,goodsname,goodsbuyer,rpodcode,rpodgoodscode,rpodqty, ";
            SqlStr+="  ";
            SqlStr+="where goodscode = rpodgoodscode ";
            SqlStr+=" from sdgoods";

            break;
        }
        case 1:
        {
            break;
        }
        default:
        {
            return 0;
        }

    }
}
//---------------------------------------------------------------------------
//----------------------------------------------------------------------------
void __fastcall TfrmBuyerEva::FillBuyer(int ActivePage)
{


}
//----------------------------------------------------------------------------
int __fastcall TfrmBuyerEva::OpenSupplyQuery(int ActivePage)
{


}
//----------------------------------------------------------------------------
void __fastcall TfrmBuyerEva::FillSupply(int ActivePage)
{



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


void __fastcall TfrmBuyerEva::PageCBuyerChange(TObject *Sender)
{
    if(sgBuyerGoods->Tag==0)
    {
        OpenBuyerQuery(PageCBuyer->ActivePageIndex);
        FillBuyer(PageCBuyer->ActivePageIndex);
        sgBuyerGoods->Tag=1;
    }
    if(sgBuyerEva->Tag ==0)
    {
        OpenBuyerQuery(PageCBuyer->ActivePageIndex);
        FillBuyer(PageCBuyer->ActivePageIndex);
        sgBuyerGoods->Tag=1;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmBuyerEva::bbOKClick(TObject *Sender)
{
    PageCBuyer->ActivePageIndex =0;
    TfrmBuyerEva::PageCBuyerChange(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TfrmBuyerEva::FormShow(TObject *Sender)
{
    InitControl();
}
//---------------------------------------------------------------------------