wbomlist.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "WBomList.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmWBomList *frmWBomList;
//---------------------------------------------------------------------------
__fastcall TfrmWBomList::TfrmWBomList(TComponent* Owner)
    : TQueryBaseForm(Owner)
{
  FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWBomList::FillGridWithData()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    //获取查询语句
    sSql=GetQueryStr();
    if(sSql=="")
      return;
    gWBomList->RowCount=1;
    RsQuery=new TComResultSet(Handle,g_ClientHandle);
    RsQuery->Open(sSql,"");
    RsQuery->MoveFirst();
    while( RsQuery->Eof == 0)
    {
      ItemStr=AnsiString(RsQuery->FieldByName("BomListLevel"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListGoods"))+
           "\t"+AnsiString(RsQuery->FieldByName("GoodsName"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListFrom"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListUnit"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListCQty"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListQty"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListWeight"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListAWeight"))+
           "\t"+AnsiString(RsQuery->FieldByName("BomListProduct"));
       gWBomList->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmWBomList::GetQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr,sSQL;
    Selectstr="select "
          +AnsiString("BomListLevel, ")     //层次
          +AnsiString("BomListGoods, ")     //物料编号
          +AnsiString("GoodsName, ")        //物料名称
          +AnsiString("BomListFrom, ")      //物料来源
          +AnsiString("BomListUnit, ")      //单位
          +AnsiString("BomListCQty, ")      //消耗定额
          +AnsiString("BomListQty, ")       //需要量
          +AnsiString("BomListWeight, ")    //材料重量
          +AnsiString("BomListAWeight, ")   //累计材料重量
          +AnsiString("BomListProduct");    //所属产品
    Fromstr=" from ksBomList,sdGoods ";
//    if(FilterStr=="")
       Wherestr=" where ksBomList.BomListGoods = sdGoods.GoodsCode ";
//       Wherestr=" sdBomd.BomdGoods = sdGoods.GoodsCode ";
//    else
//       Wherestr=" where "+FilterStr;
    Orderstr=" " ;//order by BomdPgoods desc,Bomdgoods desc ";
    sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
    return(sSQL);
}
//---------------------------------------------------------------------------
bool __fastcall TfrmWBomList::ShowQueryWindow()
{
/*
    TfrmQuForm *FQuery=new TfrmQuForm(this,this->Name);
    FQuery->ShowModal();
    if(FQuery->CancelQuery)
       return false;
    FilterStr=FQuery->CreateSqlString;
    delete FQuery;
    return true;
*/
    TWhereStrForm *FQuery=new TWhereStrForm(this,comServer->DataSet,"");
    FQuery->ShowModal();
    if(FQuery->ModalResult!=1)
       return false;
    FilterStr=FQuery->WhereStr;
    delete FQuery;
    return true;
}
//---------------------------------------------------------------------------