qcprochque.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "QcProcHQue.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"
TfrmQcProcHQue *frmQcProcHQue;
//---------------------------------------------------------------------------
__fastcall TfrmQcProcHQue::TfrmQcProcHQue(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
            :TGroupBaseForm(Owner, chWnd, MidCode,WhereStr)
{
   OwGrid=sgRep;
}
//---------------------------------------------------------------------------
void __fastcall TfrmQcProcHQue::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(seBoxSupply,seSupply,"CkupHShopCode","CkupHShopCode,CkupHShopName","\t车间\t车间名称");
 //物料
 AddGroupItem(seBoxGoodsName,seGoodsName,"CkuphGoods","CkuphGoods,QcCkupHGoodsName","\t物料\t物料名称");

 //行号
 AddGroupItem(seBoxGoods,seGoods,"CkupdLine","CkupdLine","\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=2";  //where视图条件
 l_SumDisp="\t检验数量\t合格数量\t合格率(%)";

 l_DefField= " CkupHCode, CkupHDate, CkupHGoods, QcCkupHGoodsName,CkupHDept, CkupHBatch, CkupHWay, CkupHRoute,CkupdLine,CkupdProject,CkupdUnit,CkupdCQty,CkupdPQty,CkupdQdl,CkupdDesc ";
 l_DefField+=" FROM ksVW_Ckupd";
 l_Where=" CkupHType=2";  //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,QdlDesc from sdQdl order by QdlCode","memo","QdlCode");//取第二个字段值为key
 scDept->ItemIndex=-1;
 scWay->ItemIndex=-1;

}
//---------------------------------------------------------------------------
void __fastcall TfrmQcProcHQue::seCodeButtonClick(TObject *Sender)
{
/* TODO : 质检单查询 */
 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 = 2"; //工序
  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 TfrmQcProcHQue::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 TfrmQcProcHQue::seSupplyButtonClick(TObject *Sender)
{
/* TODO : 当前供应商查询 */
  AnsiString SqlStr;
  /* TODO : 车间查询 */
  SqlStr  = "003[车间代码][车间名称][部门]";
  SqlStr += " select distinct ShopCode,ShopName,ShopDeptCode ";
  SqlStr += " from sdShop ";
  SqlStr += " where ShopCode in ";
  SqlStr += " (select WcShopCode from sdWc ";
  SqlStr += " where WcCode in (select ProcessWc from sdProcess,ksQcCkupH ";
  SqlStr += " where ProcessCode=ksQcCkupH.CkuphRoute and CkupHType=2 ) ) ";
  SqlStr += " order by ShopCode ";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"车间查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seSupply->Text=p->ColData[1];//返回值,代码
  }
  delete p;

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

void __fastcall TfrmQcProcHQue::seGoodsNameButtonClick(TObject *Sender)
{
/* TODO : 当前物料查询 */
    if(OpenGoodsForm("GoodsCode in (select distinct CkuphGoods From ksQcCkupH where CkupHType=2)")) //新的物料查询，过滤条件
    {
      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=2 ";
  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;
   */
}
//---------------------------------------------------------------------------