mcr.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Mcr.h"
#include "Mcrd.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmMcr *frmMcr;
//---------------------------------------------------------------------------
__fastcall TfrmMcr::TfrmMcr(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 TfrmMcr::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 sdGen_Mcr '"+g_sdUserCode+"'";  //ksGen_MpsMcr
     //SqlStr="Exec ksGen_MpsMcr '"+g_sdUserCode+"'";  //新
     McrGen->Execute(WideString(SqlStr));
      FillDataWithData();
    }
    __finally
    {
      delete McrGen;
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMcr::FillDataWithData()
{
    TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
    AnsiString ItemStr,sSql;
    sSql="select McrGoods,McrRDate,McrRQty,McrGQty from sdMcr order by McrGoods";
    sgMcr->RowCount=1;
    //RsQuery=NewResultSet();
    try
    {
      RsQuery->Open(WideString(sSql),WideString(""));
      RsQuery->MoveFirst();
      while( RsQuery->Eof == 0)
      {
        AnsiString KeyStr;
        KeyStr=RsQuery->FieldByName("McrGoods");
        l_Query->LocateByKey(KeyStr);
        ItemStr=KeyStr+
               "\t"+GetGoodsValue(gtInitRs,"GoodsName")+
               "\t"+GetGoodsValue(gtInitRs,"GoodsUnitCode")+
               "\t"+RsQuery->FieldByName("McrRDate")+
               "\t"+RsQuery->FieldByName("McrRQty")+
               "\t"+RsQuery->FieldByName("McrGQty");
        sgMcr->AddItem(ItemStr);
        RsQuery->MoveNext();
      }
      RsQuery->Close();
    }
    __finally
    {
      delete RsQuery;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmMcr::FillDataWithDetail(AnsiString FGoodsCode,AnsiString RDate)
{
    TComResultSet *RsQuery=new  TComResultSet(Handle,g_ClientHandle);
    AnsiString ItemStr,sSql;
    TfrmMcrd *Mcrd;
    sSql=AnsiString("select McrdGoods,McrdRDate,McrdFrom,McrdRQty from sdMcrd ")+
         AnsiString("where McrdGoods='"+FGoodsCode+"' ")+
         AnsiString("and McrdRDate='"+RDate+"' order by McrdGoods");
    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("McrdGoods");
         l_Query->LocateByKey(WideString(vKeyStr));
         ItemStr= vKeyStr+
                  "\t"+GetGoodsValue(gtInitRs,"GoodsName")+
                  "\t"+GetGoodsValue(gtInitRs,"GoodsUnitCode")+
                  "\t"+RsQuery->FieldByName("McrdRDate");
         if(RsQuery->FieldByName("McrdFrom")=="1")
            ItemStr=ItemStr+"\t"+"主生产计划";
         else
            ItemStr=ItemStr+"\t"+"独立需求";

         ItemStr=ItemStr+"\t"+RsQuery->FieldByName("McrdRqty");
        Mcrd->sgMcrd->AddItem(ItemStr);
        RsQuery->MoveNext();
      }
      RsQuery->Close();
      if(Mcrd->sgMcrd->RowCount > 1)
        Mcrd->ShowModal();
    }
    __finally
    {
      delete RsQuery;
       delete Mcrd;
    }
}
//---------------------------------------------------------------------------


void __fastcall TfrmMcr::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 TfrmMcr::FormShow(TObject *Sender)
{
    //AddCode
}
//---------------------------------------------------------------------------

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

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

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

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

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


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