qccollque.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "QcCollQue.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"
TfrmQcCollQue *frmQcCollQue;
//---------------------------------------------------------------------------
__fastcall TfrmQcCollQue::TfrmQcCollQue(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
            :TGroupBaseForm(Owner, chWnd, MidCode,WhereStr)
{
   OwGrid=sgRep;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQcCollQue::InitEditControl()
{
 dtDateEn->Text="";
 dtDateBg->Text=dtDateEn->Text;
 //质检单号
 AddGroupItem(seBoxCode,seCode,"CkupHCode","CkupHCode","\t质检单号");
 //质检内容
 AddGroupItem(seBoxDept,scDept,"CkupdProject","CkupdQccName","\t质检项目");//从视图里来的字段
 //缺陷等级
 AddGroupItem(seBoxWay,scWay,"CkupdQdl","CkupdQdlName","\t缺陷等级");
 //行号
 AddGroupItem(seBoxGoods,seGoods,"CkupdLine","CkupdLine","\t行号");
 //供应商
 AddGroupItem(seBoxSupply,seSupply,"CkupHSupply","CkupHSupply,CkupHSupplyName","\t供应商\t供应商名称");
 //物料
 AddGroupItem(seBoxGoodsName,seGoodsName,"CkuphGoods","CkuphGoods,QcCkupHGoodsName","\t物料\t物料名称");
 //
 l_SumField= " sum(CkupDCQty) as CkupDCQty,sum(CkupDPQty) as CkupDPQty,cast((case sum(CkupDCQty) when 0 then 0 else (sum(CkupDPQty)/sum(CkupDCQty)) end) as decimal(18,4))*100 as CkupDPRate ";
 l_SumField+=" from ksVW_Ckupd " ;
 l_Where=" CkupHType=4";  //where视图条件
 l_SumDisp="\t检验数量\t合格数量\t合格率(%)";

 l_DefField= " CkupHCode, CkupHDate, CkupHGoods, QcCkupHGoodsName,CkupHDept, CkupHBatch, CkupHWay, CkupHSupply,CkupdLine,CkupdProject,CkupdUnit,CkupdCQty,CkupdPQty,CkupdQdl,CkupdDesc ";
 l_DefField+=" FROM ksVW_Ckupd";
 l_Where=" CkupHType=4";  //where视图条件
 l_DefDisp="\t质检单号\t质检日期\t物料编码\t物料名称\t部门\t批号\t检验方法\t供应商\t行号\t质检项目\t单位\t检验数量\t合格数量\t缺陷等级\t备注";
 s_DateField="CkupHDate";
 //---------------------------
    //质检项目
    FillComboBox(Handle,scDept," select QccName memo ,QccCode,QccDesc from sdQcc order by QccCode ","memo","QccCode");
    //缺陷等级
    FillComboBox(Handle,scWay," select QdlName memo ,QdlCode from sdQdl order by QdlCode","memo","QdlCode");//取第二个字段值为key
 scDept->ItemIndex=-1;
 scWay->ItemIndex=-1;

}
//---------------------------------------------------------------------------
void __fastcall TfrmQcCollQue::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 TfrmQcCollQue::seGoodsButtonClick(TObject *Sender)
{
/* TODO : 当前单行号查询 */
  if (seCode->Text=="")
  {
   throw Exception("请输入质检单号");
   }
  AnsiString SqlStr;
  SqlStr  = "007[行号][质检内容编码][单位][检验数量][合格数量][缺陷等级][备注]";
  SqlStr += " select CkupdLine,CkupdProject,CkupdUnit,CkupdCQty,CkupdPQty,CkupdQdl,CkupdDesc ";
  SqlStr += " From ksQcCkupd ";
  SqlStr += " where CkupdCode="+QuotedStr(seCode->Text);
  SqlStr += " order by CkupdCode ";

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

}
//---------------------------------------------------------------------------
void __fastcall TfrmQcCollQue::seSupplyButtonClick(TObject *Sender)
{
/* TODO : 当前供应商查询 */
    if(OpenSupplyForm("SupplyCode in (select distinct CkuphSupply From ksQcCkupH where CkupHType=4 )")) //新的物料查询，过滤条件
    {
      seSupply->Text=    GetSupplyValue(gtOpenForm,"SupplyCode");   //l_RsGoods->FieldValues["GoodsCode"];
     }
/*
  AnsiString SqlStr;
  SqlStr  = "003[供应商代码][供应商名称][备注]";
  SqlStr += " select distinct SupplyCode,SupplyName,SupplyDesc ";
  SqlStr += " From sdSupply,ksQcCkupH ";
  SqlStr += " where ksQcCkupH.CkuphSupply=SupplyCode and CkupHType=4 ";
  SqlStr += " order by SupplyCode ";

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

void __fastcall TfrmQcCollQue::seGoodsNameButtonClick(TObject *Sender)
{
/* TODO : 当前物料查询 */
    if(OpenGoodsForm("GoodsCode in (select distinct CkuphGoods From ksQcCkupH where CkupHType=4)")) //新的物料查询，过滤条件
    {
      seGoodsName->Text=    GetGoodsValue(gtOpenForm,"GoodsCode");   //l_RsGoods->FieldValues["GoodsCode"];
     }
/*
  AnsiString SqlStr;
  SqlStr  = "003[物料代码][物料名称][备注]";
  SqlStr += " select distinct GoodsCode,GoodsName,GoodsDesc";
  SqlStr += " From sdGoods,ksQcCkupH ";
  SqlStr += " where ksQcCkupH.CkuphGoods=GoodsCode and CkupHType=4 ";
  SqlStr += " order by GoodsCode ";
  
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"物料查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seGoodsName->Text = p->ColData[1];//返回值,代码
  }
  delete p;
*/
}
//---------------------------------------------------------------------------