mpsd.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

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

#include <vcl.h>
#pragma hdrstop

#include "Mpsd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "ListBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmMpsd *frmMpsd;
//---------------------------------------------------------------------------
__fastcall TfrmMpsd::TfrmMpsd(TComponent* Owner,AnsiString MpsGoods,AnsiString MpsRDate,AnsiString MpsRQty)
        : TListBaseForm(Owner)
{
  seMpsGoods->Text=MpsGoods;
  seMpsRDate->Text=MpsRDate;
  seMpsRQty->Text=MpsRQty;
}
//---------------------------------------------------------------------------
void __fastcall  TfrmMpsd::InitEditControl()
{}
void __fastcall  TfrmMpsd::GetDataFromComObject(int Section)
{}
void __fastcall  TfrmMpsd::SendDataToComObject(int Section)
{}
void __fastcall  TfrmMpsd::WaitUserInput(int Section)
{}
void __fastcall  TfrmMpsd::DisplayBill()
{}
void __fastcall  TfrmMpsd::GetBill(AnsiString BillID)
{}
void __fastcall  TfrmMpsd::ChangeToBrowseState(bool Browse)
{}
//---------------------------------------------------------------------------
void __fastcall TfrmMpsd::FillGridWithData()
{
  TComResultSet *RsQuery = new  TComResultSet(Handle,g_ClientHandle);
  AnsiString ItemStr,sSql;
 //获取查询语句
  sSql=AnsiString("SELECT MPSDGOODS,MPSDRDATE,")+
       AnsiString("MPSDFROM=CASE MPSDFROM WHEN 1 THEN '订单' WHEN 2 THEN '预测' END,")+
       AnsiString("MPSDDOCCODE,MPSDLINE,MPSDRQTY,MPSDPLANNER")+
       AnsiString(" FROM SDMPSD WHERE MPSDGOODS='"+seMpsGoods->Text+"' ")
              +AnsiString("AND MPSDRDATE='"+seMpsRDate->Text+"'");
  sgMpsd->RowCount=1;
 // RsQuery=NewResultSet();
  try
  {
    RsQuery->Open(sSql,"");
    RsQuery->MoveFirst();
    while( RsQuery->Eof == 0)
    {
      ItemStr= "\t"+RsQuery->FieldByName("MPSDGOODS")+
          "\t"+RsQuery->FieldByName("MPSDRDATE")+
          "\t"+RsQuery->FieldByName("MPSDFROM")+
          "\t"+RsQuery->FieldByName("MPSDDOCCODE")+
          "\t"+RsQuery->FieldByName("MPSDLINE")+
          "\t"+RsQuery->FieldByName("MPSDRQTY")+
          "\t"+RsQuery->FieldByName("MPSDPLANNER");
      sgMpsd->AddItem(ItemStr);
      RsQuery->MoveNext();
    }
    RsQuery->Close();
  }
  __finally
  {
    delete RsQuery;
  }
}
void __fastcall TfrmMpsd::FormShow(TObject *Sender)
{
    FillGridWithData();        
}
//---------------------------------------------------------------------------