salestatquery.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 179 行

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

#include <vcl.h>
#pragma hdrstop

#include "SaleStatQuery.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "GroupBaseForm"
#pragma link "KSAdvReport"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmSaleStatQuery *frmSaleStatQuery;
//---------------------------------------------------------------------------
__fastcall TfrmSaleStatQuery::TfrmSaleStatQuery(TComponent* Owner,HWND chWnd,AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    OwGrid=gd_SaleStatQuery;
    edClientType->ClearAll();
    edClientType->AddItems("1-分公司","1");
    edClientType->AddItems("2-总公司","2");
    edClientType->AddItems("3-直属店","3");
    edClientType->AddItems("4-联营店","4");
    edClientType->AddItems("5-加盟店 ","5");
    edClientType->AddItems("6-专柜","6");
    edClientType->AddItems("7-商场","7");
    edClientType->AddItems("8-专卖店","8");
    edClientType->AddItems("9-其它 ","9");
    edSohType->ClearAll();
    edSohType->AddItems("1-单体","1"); 
    edSohType->AddItems("2-团体订单","2");
    edSohType->AddItems("3-自产订单","3");

}
//---------------------------------------------------------------------------
 void __fastcall TfrmSaleStatQuery::InitEditControl()
   {
   AddGroupItem(Soh,edSoh,"sodcode","sodcode","\t订单号");
   AddGroupItem(Client,edClient,"sohclient","sohclient,clientname","\t客户编码\t客户名称");
   AddGroupItem(ClientType,edClientType,"clienttype","clienttype","\t客户类型名");
   AddGroupItem(SohType,edSohType,"sohtype","sohtype,sohtype1","\t订单类型\t订单类型名称");
   AddGroupItem(Cloth,edCloth,"SodDesign","SodCloth,ClothName","\t面料号\t面料名称");
   AddGroupItem(Size,edSize,"SodSize","SodSize,SizeName","\t尺 码");
   AddGroupItem(Color,edColor,"SodColor","SodColor,ColorName","\t颜色号\t颜色名称");
   AddGroupItem(Design,edDesign,"SodDesign","SodDesign,stylename","\t款型号\t款型名");
   l_SumField=" sum(sodQty) as sodQty,sum(sodPrice)as sodPrice,sum(sodAmt) as sodAmt,sum(sodSQty) as sodSQty,sum(sodBQty) as sodBQty,sum(sodFQty) as sodFQty,sum(sodEQty) as sodEQty   from ksVW_SaleStat  " ;//分组情况
   l_SumDisp="\t订单数量\t单价\t金额\t发货数量\t退货数量\t返修数量\t换货数量";
   l_DefField=" sodcode,sohclient,clientname,stylename,ClothName,ColorName,SizeName,sodunitname,sodPrice,sodQty,sodAmt,sodSQty,sodBQty,sodFQty,sodEQty from ksVW_SaleStat";
   l_DefDisp="\t订单号\t客户编号\t客户名称\t款号\t面料\t颜色\t尺寸\t单位\t单价\t数量\t金额\t发货数量\t退货数量\t返修数量\t换货数量";
   s_DateField ="sodrecDate";

   }
void __fastcall TfrmSaleStatQuery::edClientButtonClick(TObject *Sender)
{
  if(OpenClientForm("")) //过滤条件
	{
	 edClient->Text = GetClientValue(gtOpenForm,"ClientCode");
	}
}
//---------------------------------------------------------------------------
void __fastcall TfrmSaleStatQuery::edClothButtonClick(TObject *Sender)
{
   AnsiString SqlStr;
  SqlStr="002[面料编码][面料名称]select clothcode,clothName from kscloth ";

  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"面料资料查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    edCloth->Text=p->ColData[1];
  }
  delete p;
}

//---------------------------------------------------------------------------
void __fastcall TfrmSaleStatQuery::edSizeButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
  SqlStr="002[尺寸编码][尺寸名称]select sizeBasecode,sizeBaseName from kssizeBase ";

  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"尺寸资料查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    edSize->Text=p->ColData[1];
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSaleStatQuery::edColorButtonClick(TObject *Sender)
{
       AnsiString SqlStr;
  SqlStr="002[颜色编码][颜色名称]select colorBasecode,colorBaseName from kscolorBase ";

  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"颜色资料查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    edColor->Text=p->ColData[1];
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSaleStatQuery::edDesignButtonClick(TObject *Sender)
{
   AnsiString SqlStr;
  SqlStr="002[款式编码][款式名称]select stylecode,styleName from ksstyle ";

  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"款式资料查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    edDesign->Text=p->ColData[1];
  }
  delete p;
}
//---------------------------------------------------------------------------


void __fastcall TfrmSaleStatQuery::edSohButtonClick(TObject *Sender)
{
AnsiString SqlStr;
  SqlStr="001[订单号]select sohCode from sdSoh where sohCheck=1";

  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"订单查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    edSoh->Text=p->ColData[1];
  }
  delete p;
}
//---------------------------------------------------------------------------