atpquery.cpp

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

{
 AnsiString Selectstr;

         Selectstr = 
         "SELECT TOP 1 minv = SUM(SodQty) FROM sdSoh   "
      "FULL JOIN sdSod ON SohCode = SodCode            "
      "WHERE (SohCode IS NOT NULL )                    "
      "AND (SohCheck = '1')                            "
      "AND (DATEDIFF(Month, SohDate, GETDATE())<       "
      "	(SELECT PARAMETERVALUE FROM SDPARAMETER 	   "
      "				WHERE PARAMETERCODE = '10416')     "
      ") AND (DATEDIFF(Month, SohDate, GETDATE())>=0)  "
      "GROUP BY sohCode ORDER BY minv ASC ";
           
 return(Selectstr);
}
//---------------------------------------------------------------------------
//      date agv .end
// -----------------------------------------------------------------------------

void __fastcall TfrmATPQuery::FillAnswerDateGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 // 
 sSql=GetAnswerDateQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seAnswerDate->Text  = RsQuery->FieldByName("AnswerDate"); 
 RsQuery->Close();
// max
 sSql=GetMaxSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seMaxSohQty->Text  = RsQuery->FieldByName("maxv"); 
 RsQuery->Close();
 // min
 sSql=GetMinSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seMinSohQty->Text  = RsQuery->FieldByName("minv"); 
 RsQuery->Close();
 // avg
 sSql=GetAvgSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seAvgSohQty->Text  = RsQuery->FieldByName("avgv"); 
 RsQuery->Close();
 
 // date avg
 sSql=GetDateAvgSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seDateAvgSohQty->Text  = RsQuery->FieldByName("Davgv"); 
 RsQuery->Close();

 // Rec date avg
 sSql=GetRecDateAvgSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seRecDateAvgSohQty->Text  = RsQuery->FieldByName("DRavgv"); 
 RsQuery->Close();
//  DG %%%%%%%%%%%%%%
// max
 sSql=GetDGMaxSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seDGMaxSohQty->Text  = RsQuery->FieldByName("maxv"); 
 RsQuery->Close();
 // min
 sSql=GetDGMinSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seDGMinSohQty->Text  = RsQuery->FieldByName("minv"); 
 RsQuery->Close();
 // avg
 sSql=GetDateAvgSohQtyQueryStr();
 if(sSql=="")  return;
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
   seDGAvgSohQty->Text  = RsQuery->FieldByName("Davgv"); 
 RsQuery->Close();
 
// %%%%%%%%%%%%%%%%%.end
 delete RsQuery;
}
//---------------------------------------------------------------------------
void __fastcall TfrmATPQuery::FillAnswerQtyGridWithData()
{
/*
       1     日期
       2     本日接单能力
       3     当日已接单
       4     当前可接单量
       5     本日可加急量
       6     当前可加急量

*/
    int i = 8;
    int iDayMakePri = 0;
//    int iAgvRecDate = 12;
    int itmpPrious = 0;

    TDateTime  mlDate;
    TComResultSet *RsQuery;

    sgATPAnswerQty->RowCount = 100;

 TComResultSet *Query = new TComResultSet(Handle,g_ClientHandle);
    Query->Close();
    Query->Open("SELECT ParameterValue FROM sdParameter WHERE ParameterCode = '10415'", "");
    iDayMakePri = StrToInt(Query->FieldByName("ParameterValue"));
    Query->Close();

//    Query->Close();
//    Query->Open("SELECT ParameterValue FROM sdParameter WHERE ParameterCode = '10417'", "");
//    iAgvRecDate = StrToInt(Query->FieldByName("ParameterValue"));
//    Query->Close();

      mlDate = Date();
//     mlDate  = StrToDate("2003-04-25");

     
        sgATPAnswerQty->Cells[1][1] = "0";
        sgATPAnswerQty->Cells[2][1] = "0";
        sgATPAnswerQty->Cells[3][1] = "0";
        sgATPAnswerQty->Cells[4][1] = "0";
     
 for (i = 1 ; i<100 ; i++)
 {
    sgATPAnswerQty->Cells[1][i] = mlDate.DateString() ;
    if ( itmpPrious<0 )
        sgATPAnswerQty->Cells[2][i] = iDayMakePri + itmpPrious;
    else
        sgATPAnswerQty->Cells[2][i] = iDayMakePri ;

//    if ( StrToInt(sgATPAnswerQty->Cells[2][i]) > 0 )
//    {
      Query->Close();
      Query->Open("SELECT Qty = SUM(SodQty) FROM sdSoh FULL JOIN sdSod ON SohCode = SodCode WHERE SohDate = '"+mlDate+"'", "");
      Query->MoveFirst();
       if ( Query->FieldByName("Qty") != ""   && !Query->Eof )
       {
          sgATPAnswerQty->Cells[3][i] = Query->FieldByName("Qty");
          Query->MoveNext();
       }
//    }
//    else
//        sgATPAnswerQty->Cells[3][i] = 0 ;

      sgATPAnswerQty->Cells[4][i] = IntToStr( StrToInt(sgATPAnswerQty->Cells[2][i])
                                      - StrToInt(sgATPAnswerQty->Cells[3][i] ));
      itmpPrious = StrToInt(sgATPAnswerQty->Cells[2][i])
                            - StrToInt(sgATPAnswerQty->Cells[3][i]);

        sgATPAnswerQty->Cells[1][i+1] = "0";
        sgATPAnswerQty->Cells[2][i+1] = "0";
        sgATPAnswerQty->Cells[3][i+1] = "0";
        sgATPAnswerQty->Cells[4][i+1] = "0";
    mlDate.operator ++ () ;

 } // for -end.
 Query->Close();
  
 delete   RsQuery;  
    return ;
}
//------FillPurchaseGridWithData();---------------------------------------------------------------------
void __fastcall TfrmATPQuery::FillPurchaseGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetPurchaseQueryStr();
 if(sSql=="")
  return;
 sgATPPurchase->RowCount = 1;

 TComResultSet *Query = new TComResultSet(Handle,g_ClientHandle);
// sgATPCloth->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr = "\t"+RsQuery->FieldByName("SodCloth")+ 
            "\t"+RsQuery->FieldByName("Paot")+ 
            "\t"+RsQuery->FieldByName("PgdPoc")+ 
            "\t"+RsQuery->FieldByName("RpodQty")+ 
            "\t"+RsQuery->FieldByName("PodQty")+ 
            "\t"+RsQuery->FieldByName("ZtdQty"); 

  sgATPPurchase->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
 delete Query;
}
//---------------------------------------------------------------------------
//  填充        销售        订单数量
void __fastcall TfrmATPQuery::FillSaleGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetSaleQueryStr();
 if(sSql=="")
  return;
 sgATPSale->RowCount =  1; 
 TComResultSet *Query = new TComResultSet(Handle,g_ClientHandle);
// sgATPCloth->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SodCloth")+  
//          "\t"+FloatToStr(CalculateDispensAbility(g_sdSMonth,
//                                       StrToFloat(RsQuery->FieldByName("SodQty")),
//                                       RsQuery->FieldByName("SodCloth"),
//                                       RsQuery->FieldByName("SodDesign"),
//                                       RsQuery->FieldByName("SodSize"),
//                                       Query))+
          "\t"+RsQuery->FieldByName("needQty");
          "\t"+RsQuery->FieldByName("SodQty");
  
  sgATPSale->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
 delete Query;
}
//---------------------------------------------------------------------------

void __fastcall TfrmATPQuery::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgATPCloth->RowCount =  1; 
 TComResultSet *Query = new TComResultSet(Handle,g_ClientHandle);
// sgATPCloth->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(WideString(sSql),WideString(""));
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr="\t"+RsQuery->FieldByName("SohCode")+ 
          "\t"+RsQuery->FieldByName("SodCloth")+  
          "\t"+RsQuery->FieldByName("ClothName")+
 //         "\t"+FloatToStr(CalculateDispensAbility(g_sdSMonth,
//                                       StrToFloat(RsQuery->FieldByName("SodQty")),
//                                       RsQuery->FieldByName("SodCloth"),
//                                       RsQuery->FieldByName("SodDesign"),
//                                       RsQuery->FieldByName("SodSize"),
//                                       Query))+
          "\t"+RsQuery->FieldByName("needQty")+
          "\t"+RsQuery->FieldByName("StockFopQty")+
          "\t"+RsQuery->FieldByName("UnSD")+  
          "\t"+RsQuery->FieldByName("StockDispensAbility");
  
  sgATPCloth->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
 delete Query;
}
//---------------------------------------------------------------------------