calemps.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "CaleMps.h"
#include "Mcrd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmCaleMps *frmCaleMps;
//---------------------------------------------------------------------------
__fastcall TfrmCaleMps::TfrmCaleMps(TComponent* Owner, HWND chWnd, AnsiString ClassCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,ClassCode,WhereStr)
{
  QueryGrid = sgMcr;
  g_sdRsGoods=new TComResultSet(Handle,g_ClientHandle);
  g_sdRsGoods->Open("select * from sdGoods order by GoodsCode","GoodsCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmCaleMps::GenData()
{
    //生成查询的记录
    AnsiString SqlStr;
    int ErrNum;
    TComResultSet *McrGen=new  TComResultSet(Handle,g_ClientHandle);
 //   SqlStr=" select PlannerCode from sdPlanner where PlannerCode='"+g_sdUserCode+"'";
    try
    {
      StartWaitForm("正在生成相关需求计划，请稍等！");
 /*     McrGen->Open(SqlStr,"");
      McrGen->MoveFirst();
      if( McrGen->RecordCount < 1 )
      {
        McrGen->Close();
        throw Exception("当前用户不是计划员，操作被禁止");
      }    */
      SqlStr="Exec ksMps_CaleSupply '"+g_sdUserCode+"'",
      McrGen->Execute(WideString(SqlStr));
      FillDataWithData();
    }
    __finally
    {
      delete McrGen;
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmCaleMps::FillDataWithData()
{
    TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
    AnsiString ItemStr,sSql;
    sSql="select CaleMpsGoods,CaleMpsDate,CaleMpsQty,CaleMpsFrom from ksCaleMps order by CaleMpsGoods";
    sgMcr->RowCount=1;
    //RsQuery=NewResultSet();
    try
    {
      RsQuery->Open(WideString(sSql),WideString(""));
      RsQuery->MoveFirst();
      while( RsQuery->Eof == 0)
      {
        AnsiString KeyStr;
        KeyStr=RsQuery->FieldByName("CaleMpsGoods");
        g_sdRsGoods->LocateByKey(KeyStr);
        ItemStr=KeyStr+
               "\t"+GetGoodsValue(gtInitRs,"GoodsName")+
               "\t"+GetGoodsValue(gtInitRs,"GoodsUnitCode")+
               "\t"+RsQuery->FieldByName("CaleMpsDate")+
               "\t"+RsQuery->FieldByName("CaleMpsQty");
        sgMcr->AddItem(ItemStr);
        RsQuery->MoveNext();
      }
      RsQuery->Close();
    }
    __finally
    {
      delete RsQuery;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmCaleMps::FillDataWithDetail(AnsiString FGoodsCode,AnsiString RDate)
{
    TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
    AnsiString ItemStr,sSql;
    TfrmMcrd *Mcrd;
    sSql=AnsiString("CaleMpsGoods,CaleMpsDate,CaleMpsQty from ksCaleMps ")+
         AnsiString("where CaleMpsGoods='"+FGoodsCode+"' ")+
         AnsiString("and CaleMpsDate='"+RDate+"' order by CaleMpsGoods");
    try
    {
      Mcrd=new TfrmMcrd(this);
      Mcrd->sgMcrd->RowCount=1;
      //RsQuery=NewResultSet();
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         AnsiString vKeyStr;
         vKeyStr= RsQuery->FieldByName("CaleMpsGoods");
         g_sdRsGoods->LocateByKey(WideString(vKeyStr));
         ItemStr= vKeyStr+
                  "\t"+GetGoodsValue(gtInitRs,"GoodsName")+
                  "\t"+GetGoodsValue(gtInitRs,"GoodsUnitCode")+
                  "\t"+RsQuery->FieldByName("CaleMpsDate");
         if(RsQuery->FieldByName("CaleMpsFrom")=="1")
            ItemStr=ItemStr+"\t"+"订单";
         else if(RsQuery->FieldByName("CaleMpsFrom")=="2")
            ItemStr=ItemStr+"\t"+"加工单";
         else
            ItemStr=ItemStr+"\t"+"独立需求";
         ItemStr=ItemStr+"\t"+RsQuery->FieldByName("CaleMpsQty");
        Mcrd->sgMcrd->AddItem(ItemStr);
        RsQuery->MoveNext();
      }
      RsQuery->Close();
      if(Mcrd->sgMcrd->RowCount > 1)
        Mcrd->ShowModal();
    }
    __finally
    {
      delete RsQuery;
       delete Mcrd;
    }
}
//---------------------------------------------------------------------------


void __fastcall TfrmCaleMps::sgMcrDblClick(TObject *Sender)
{
    int ARow=sgMcr->Row;
    AnsiString FGoodsCode=sgMcr->Cells[0][ARow];
    AnsiString RDate=sgMcr->Cells[3][ARow];
    if(ARow>0)
       FillDataWithDetail(FGoodsCode,RDate);
}
//---------------------------------------------------------------------------

void __fastcall TfrmCaleMps::FormShow(TObject *Sender)
{
    //AddCode
}
//---------------------------------------------------------------------------

void __fastcall TfrmCaleMps::tbRefreshClick(TObject *Sender)
{
    FillDataWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmCaleMps::muFirstClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1)
      sgMcr->Row=1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmCaleMps::muPreviousClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1 && sgMcr->Row > 1)
       sgMcr->Row=sgMcr->Row-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmCaleMps::muNextClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1 && sgMcr->Row < sgMcr->RowCount-1)
       sgMcr->Row=sgMcr->Row+1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmCaleMps::muLastClick(TObject *Sender)
{
    if(sgMcr->RowCount > 1)
       sgMcr->Row=sgMcr->RowCount-1;
}
//---------------------------------------------------------------------------


void __fastcall TfrmCaleMps::tbQueryClick(TObject *Sender)
{
  FillDataWithData();  
}
//---------------------------------------------------------------------------