mpsd.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "Mpsd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "ListBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmMpsd *frmMpsd;
//---------------------------------------------------------------------------
__fastcall TfrmMpsd::TfrmMpsd(TComponent* Owner)
        : TListBaseForm(Owner)
{

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

void __fastcall TfrmMpsd::InitEditControl()
{

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

void __fastcall TfrmMpsd::ClearControl()
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmMpsd::GetDataFromComObject(int Section)
{
        if (Section==1)
        {
        }
        else
        {
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMpsd::SendDataToComObject(int Section)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmMpsd::WaitUserInput(int Section)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmMpsd::RefreshGridData(int mAction)
{

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

void __fastcall TfrmMpsd::DisplayBill()
{
  TComResultSet *RsQuery;
  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='"+MpsGoods+"' ")
              +AnsiString("AND MPSDRDATE='"+MpsRDate+"'");
  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::GetBill(AnsiString BillID)
{
/*    comServer->FilterString=WideString("MpshCode='"+BillID+"'");
    comServer->Query();
    if (comServer->RecordCount!=0)      //Found it
       {
         DisplayBill();
       }
       else
        ShowMessageWindow("在数据库中没有查到记录："+BillID+",请查证",mwsInformation);*/
}
//---------------------------------------------------------------------------

void __fastcall TfrmMpsd::FillGridWithData()
{
      int i;
      sgMpsd->RowCount=1;

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

AnsiString __fastcall TfrmMpsd::GetHeadValue(int Index)
{
        WideString S;
        S = ReadFieldValue(comServer,Index);
        return S;
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmMpsd::GetDetailValue(int Index)
{
        WideString S;
        S = ReadItemValue(comServer,Index);
        return S;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMpsd::SetHeadValue(int Index,AnsiString Value)
{
       WriteFieldValue(comServer,Index,WideString(Value));
}

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

void __fastcall TfrmMpsd::SetDetailValue(int Index,AnsiString Value)
{
       comServer->ItemValue[Index]=Value;
}
//---------------------------------------------------------------------------



void __fastcall TfrmMpsd::FormShow(TObject *Sender)
{
       ClearControl();
//       GetBill(BillNumID);
       DisplayBill();
       ChangeToBrowseState(true);

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



void __fastcall TfrmMpsd::ChangeToBrowseState(bool Browse)
{

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

void __fastcall TfrmMpsd::btnOKClick(TObject *Sender)
{
      ChangeToBrowseState(true);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMpsd::FormClose(TObject *Sender,
      TCloseAction &Action)
{
//...
}
//---------------------------------------------------------------------------
void __fastcall TfrmMpsd::SetMpsGoods(AnsiString value)
{
        if(FMpsGoods != value) {
                FMpsGoods = value;
        }
}
AnsiString __fastcall TfrmMpsd::GetMpsGoods()
{
        return FMpsGoods;
}


void __fastcall TfrmMpsd::SetMpsRDate(AnsiString value)
{
        if(FMpsRDate != value) {
                FMpsRDate = value;
        }
}
AnsiString __fastcall TfrmMpsd::GetMpsRDate()
{
        return FMpsRDate;
}
//---------------------------------------------------------------------------