vw_pdrh.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "VW_Pdrh.h"
#include "VW_Pdrd.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmVW_Pdrh *frmVW_Pdrh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Pdrh::TfrmVW_Pdrh(TComponent* Owner)
    : TQueryBaseForm(Owner)
{
    FilterStr="";
    sSQL="";
    RecentBillCode="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::tbQueryClick(TObject *Sender)
{
    if(!ShowQueryWindow())
       return;
    try{
       StartWaitForm("正在查询,请稍候...");
       FillGridWithData();
    }
    __finally
    {
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Pdrh::ShowQueryWindow()
{
    TfrmQuForm *FQuery=new TfrmQuForm(this,this->Name);
    FQuery->ShowModal();
    if(FQuery->CancelQuery)
       return false;
    FilterStr=FQuery->CreateSqlString;
    delete FQuery;
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::ClearControl(bool BringToNext)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::GetDataFromComObject()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::WaitUserInput()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::RefreshGridData(int mAction)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::DisplayBill()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::GetBill(AnsiString BillID)
{
    return;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Pdrh::GetHeadQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    Selectstr="select Distinct "
            +AnsiString("PdrhCode, ")
            +AnsiString("PdrhFmonth, ")
            +AnsiString("PdrhDate, ")
            +AnsiString("PdrhCheck1, ")
            +AnsiString("PdrhChecker, ")
            +AnsiString("PdrhCheckDate, ")
            +AnsiString("PdrhUser1, ")
            +AnsiString("PdrhDesc ");
    Fromstr=" from SDVW_Pdrh ";
    if(FilterStr=="")
       Wherestr="";
    else
       Wherestr=" where "+FilterStr;
    Orderstr=" order by PdrhDate desc,PdrhCode desc ";
    sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
    return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::FillGridWithData()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    sSql=GetHeadQueryStr();  //取Head查询的SQL语句
    if(sSql=="")
       return;
    sgPdrh->RowCount=1;
    RecentBillCode="";
    RsQuery=NewResultSet();
    RsQuery->Open(sSql,"");
    RsQuery->MoveFirst();
    while( RsQuery->Eof == 0)
    {
       ItemStr=  RsQuery->FieldByName("PdrhCode")+
            "\t"+RsQuery->FieldByName("PdrhFmonth")+
            "\t"+RsQuery->FieldByName("PdrhDate")+
            "\t"+RsQuery->FieldByName("PdrhCheck1")+
            "\t"+RsQuery->FieldByName("PdrhCheckDate")+
            "\t"+RsQuery->FieldByName("PdrhChecker")+
            "\t"+RsQuery->FieldByName("PdrhUser1")+
            "\t"+RsQuery->FieldByName("PdrhDesc");
       sgPdrh->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmVW_Pdrh::GetDetailQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    if(sgPdrh->RowCount < 2)
       return("");
    if(sgPdrh->Row == 0)
       return("");
    Selectstr="select "
            +AnsiString("PdrdLine, ")
            +AnsiString("PdrdWo, ")
            +AnsiString("PdrdProcess, ")
            +AnsiString("PdrdGoods, ")
            +AnsiString("PdrdCQty, ")    //完工数量
            +AnsiString("PdrdEQty, ")    //合格数量
            +AnsiString("PdrdWQty, ")    //返修数量
            +AnsiString("PdrdRQty, ")    //次品数量
            +AnsiString("PdrdSQty, ")    //废品数量
            +AnsiString("PdrdFwt, ")
            +AnsiString("PdrdRwt, ")
            +AnsiString("PdrdDwt, ")
            +AnsiString("PdrdWwt, ")
            +AnsiString("PdrdSwt, ")
            +AnsiString("PdrdOwt, ")
            +AnsiString("PdrdPsr ");

    Fromstr=" from SDVW_Pdrd ";
    Wherestr=" where PdrdCode='"+sgPdrh->Cells[0][sgPdrh->Row]+"'";
    Orderstr=" order by PdrdLine ";
    return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::FillGridWithDetail()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmVW_Pdrd *VW_Pdrd;
    sSql=GetDetailQueryStr();  //取Detail查询的SQL语句
    if(sSql=="")
       return;
    try
    {
      VW_Pdrd=new TfrmVW_Pdrd(this);
      int ARow=sgPdrh->Row;
      VW_Pdrd->sePdrhCode->Text=sgPdrh->Cells[0][ARow];
      VW_Pdrd->scPdrhFmonth->Text=sgPdrh->Cells[1][ARow];
      VW_Pdrd->dePdrhDate->Text=sgPdrh->Cells[2][ARow];
      VW_Pdrd->scPdrhUser->Text=sgPdrh->Cells[6][ARow];

      VW_Pdrd->sgPdrd->RowCount=1;
      RsQuery=NewResultSet();
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         ItemStr=  RsQuery->FieldByName("PdrdLine")+
              "\t"+RsQuery->FieldByName("PdrdWo")+
              "\t"+RsQuery->FieldByName("PdrdProcess")+
              "\t"+RsQuery->FieldByName("PdrdGoods")+
              "\t"+RsQuery->FieldByName("PdrdCQty")+
              "\t"+RsQuery->FieldByName("PdrdEQty")+
              "\t"+RsQuery->FieldByName("PdrdWQty")+
              "\t"+RsQuery->FieldByName("PdrdRQty")+
              "\t"+RsQuery->FieldByName("PdrdSQty")+
              "\t"+RsQuery->FieldByName("PdrdFwt")+
              "\t"+RsQuery->FieldByName("PdrdRwt")+
              "\t"+RsQuery->FieldByName("PdrdDwt")+
              "\t"+RsQuery->FieldByName("PdrdWwt")+
              "\t"+RsQuery->FieldByName("PdrdSwt")+
              "\t"+RsQuery->FieldByName("PdrdOwt")+
              "\t"+RsQuery->FieldByName("PdrdPsr");
       VW_Pdrd->sgPdrd->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
    if(VW_Pdrd->sgPdrd->RowCount > 1)
       VW_Pdrd->ShowModal();
    }
    __finally
    {
       delete VW_Pdrd;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::muFirstClick(TObject *Sender)
{
    if(sgPdrh->RowCount > 1)
      sgPdrh->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::muNextClick(TObject *Sender)
{
    if(sgPdrh->RowCount > 1 && sgPdrh->Row < sgPdrh->RowCount-1)
       sgPdrh->Row=sgPdrh->Row+1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::muLastClick(TObject *Sender)
{
    if(sgPdrh->RowCount > 1)
       sgPdrh->Row=sgPdrh->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::tbRefreshClick(TObject *Sender)
{
    if(sSQL=="")
       return;
    FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::sgPdrhDblClick(TObject *Sender)
{
    int ARow=sgPdrh->Row;
    if(ARow>0)
       FillGridWithDetail();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pdrh::muPreviousClick(TObject *Sender)
{
    if(sgPdrh->RowCount > 1 && sgPdrh->Row > 1)
       sgPdrh->Row=sgPdrh->Row-1;
}
//---------------------------------------------------------------------------