qccollrep.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "QcCollRep.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "GroupBaseForm"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmQcCollRep *frmQcCollRep;
//---------------------------------------------------------------------------
__fastcall TfrmQcCollRep::TfrmQcCollRep(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
            :TGroupBaseForm(Owner, chWnd, MidCode,WhereStr)
{
   OwGrid=sgRep;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQcCollRep::InitEditControl()
{

 dtDateEn->Text="";
 dtDateBg->Text=dtDateEn->Text;
 //质检单号
 AddGroupItem(seBoxCode,seCode,"CkupHCode","CkupHCode","\t质检单号");
 //物料号
 AddGroupItem(seBoxGoods,seGoods,"CkupHGoods","CkupHGoods,QcCkupHGoodsName","\t物料编码\t物料名称");
 //部门
 AddGroupItem(seBoxDept,scDept,"CkupHDept","CkupHDeptName","\t部门");
 //批号
 AddGroupItem(seBoxBatch,seBatch,"CkupHBatch","CkupHBatch","\t批号");
 //检验方法
 AddGroupItem(seBoxWay,scWay,"CkupHWay","CkupHWayName","\t检验方法");
 //供应商
 AddGroupItem(seBoxSupply,seSupply,"CkupHSupply","CkupHSupply","\t供应商");

 l_SumField= " sum(CkupHDQty) as CkupHDQty ,sum(CkupHCQty) as CkupHCQty,sum(CkupHPQty) as CkupHPQty, cast((case sum(CkupHCQty) when 0 then 0 else (sum(CkupHPQty)/sum(CkupHCQty)) end) as decimal(18,4))*100 as CkupHPRate ";
 l_SumField+=" from ksVW_CkupH " ;
 l_Where=" CkupHType=4";  //where视图条件
 l_SumDisp="\t报检数量\t检验数量\t合格数量\t合格率(%)";

 l_DefField= " CkupHCode, CkupHDate, CkupHGoods, QcCkupHGoodsName,CkupHDept, CkupHBatch, CkupHWay, CkupHSupply,CkupHDQty,CkupHCQty,CkupHPQty,CkupHPRate ";
 l_DefField+=" FROM ksVW_CkupH";
 l_Where=" CkupHType=4";  //where视图条件 
 l_DefDisp="\t质检单号\t质检日期\t物料编码\t物料名称\t部门\t批号\t检验方法\t供应商\t报检数量\t检验数量\t合格数量\t合格率(%)";
 s_DateField="CkupHDate";
 //---------------------------
    //部门
    FillComboBox(Handle,scDept," select DeptName memo,DeptCode,DeptItem,DeptUpperCode,DeptLinkman From sdDept order by DeptCode ","memo","DeptCode");
    //质检方法
    FillComboBox(Handle,scWay," SELECT QcWayName memo,QcWayCode FROM ksQcWay Order by QcWayCode","memo","QcWayCode");//取第二个字段值为key
 scDept->ItemIndex=-1;
 scWay->ItemIndex=-1;

}
//---------------------------------------------------------------------------
void __fastcall TfrmQcCollRep::seCodeButtonClick(TObject *Sender)
{
/* TODO : 质检单查询 */
//CkuphCode,CkuphDate,CkuphWay,CkuphGoods,CkuphBatch,CkuphDept,CkuphSupply,CkuphRoute,CkuphDQty,CkuphCQty,CkuphPQty,CkuphPRate,CkuphDeal,CkuphResult,CkuphMan,CkuphUser,CkuphCheck,CkuphCheckDate,CkuphChecker,CkuphDesc
/*
[质检单号][检验日期][质检方法][物料编码][批号][质检部门][供应商][工序]
[报检数量][检验数量][合格数量][合格率][处理方法][检验结果][质检员]
[操作员][审核][审核日期][审核人][备注]
*/
 AnsiString SqlStr;
  SqlStr  = "020[质检单号][检验日期][质检方法][物料编码][批号]";
  SqlStr += "[质检部门][供应商][工序][报检数量][检验数量]";
  SqlStr += "[合格数量][合格率][处理方法][检验结果][质检员]";
  SqlStr += "[操作员][审核][审核日期][审核人][备注]";
  SqlStr += " select CkuphCode,CkuphDate,  CkuphWay,   CkuphGoods, CkuphBatch,";
  SqlStr += " CkuphDept,CkuphSupply,CkuphRoute, CkuphDQty,  CkuphCQty,";
  SqlStr += " CkuphPQty,CkuphPRate, CkuphDeal,  CkuphResult,CkuphMan,";
  SqlStr += " CkuphUser,CkuphCheck, CkuphCheckDate,CkuphChecker,CkuphDesc ";
  SqlStr += " from ksQcCkupH ";
  SqlStr += " where CkupHType = 4"; //外协
  SqlStr += " order by CkuphCode";

  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"供应商查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seCode->Text = p->ColData[1];//返回值,代码
  }
  delete p;

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

void __fastcall TfrmQcCollRep::seGoodsButtonClick(TObject *Sender)
{
/* TODO : 物料查询 */
    if(OpenGoodsForm("")) //新的物料查询，过滤条件
    {
      seGoods->Text=    l_RsGoods->FieldValues["GoodsCode"];
     }

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

void __fastcall TfrmQcCollRep::seSupplyButtonClick(TObject *Sender)
{
/* TODO : 供应/工序查询 */
  AnsiString SqlStr;
  SqlStr  = "003[供应商代码][供应商名称][备注]";
  SqlStr += " select SupplyCode,isnull(SupplyName,''),isnull(SupplyDesc,'') From sdSupply";
  SqlStr += " order by SupplyCode,SupplyName";

  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"供应商查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seSupply->Text = p->ColData[1];//返回值,代码
  }
  delete p;

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

void __fastcall TfrmQcCollRep::seBatchButtonClick(TObject *Sender)
{
/* TODO : 批号 */
/* DONE -chead : seQcshDocCodeButtonClick批号查询*/
  AnsiString SqlStr;
    SqlStr  = "005[批号代码][批号说明][批号数量][有效期][失效期]";
    SqlStr += " select BatchCode,isnull(BatchDesc,''),isnull(BatchQty,''),BatchEffectDate,BatchAbateDate from sdBatch";
    SqlStr += " order by BatchCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"批号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seBatch->Text = p->ColData[1];//返回值,代码
  }
  delete p;

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