vw_pieceh.cpp

速达开源ERP系统

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

TfrmVW_Pieceh *frmVW_Pieceh;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Pieceh::TfrmVW_Pieceh(TComponent* Owner)
    : TQueryBaseForm(Owner)
{
    FilterStr="";
    sSQL="";
    RecentBillCode="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::tbQueryClick(TObject *Sender)
{
    if(!ShowQueryWindow())
       return;
    try{
       StartWaitForm("正在查询,请稍候...");
       FillGridWithData();
    }
    __finally
    {
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Pieceh::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_Pieceh::ClearControl(bool BringToNext)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::GetDataFromComObject()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::WaitUserInput()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::RefreshGridData(int mAction)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::DisplayBill()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::GetBill(AnsiString BillID)
{
    return;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Pieceh::GetHeadQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    Selectstr="select "
            +AnsiString("PiecehCode, ")
            +AnsiString("PiecehFmonth, ")
            +AnsiString("PiecehDate, ")
            +AnsiString("PiecehState1, ")
            +AnsiString("PiecehShop1, ")
            +AnsiString("PiecehTeam1, ")
            +AnsiString("PiecehCheck1, ")
            +AnsiString("PiecehChecker, ")
            +AnsiString("PiecehCheckDate, ")
            +AnsiString("PiecehUser1 ");
    Fromstr=" from SDVW_Pieceh ";
    if(FilterStr=="")
       Wherestr="";
    else
       Wherestr=" where "+FilterStr;
    Orderstr=" order by PiecehDate desc,PiecehCode desc ";
    sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
    return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::FillGridWithData()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    sSql=GetHeadQueryStr();  //取Head查询的SQL语句
    if(sSql=="")
       return;
    sgPieceh->RowCount=1;
    RecentBillCode="";
    RsQuery=NewResultSet();
    try
    {
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {

         ItemStr = RsQuery->FieldByName("PiecehCode")+
              "\t"+RsQuery->FieldByName("PiecehFmonth")+
              "\t"+RsQuery->FieldByName("PiecehDate")+
              "\t"+RsQuery->FieldByName("PiecehState1")+
              "\t"+RsQuery->FieldByName("PiecehShop1")+
              "\t"+RsQuery->FieldByName("PiecehTeam1")+
              "\t"+RsQuery->FieldByName("PiecehCheck1")+
              "\t"+RsQuery->FieldByName("PiecehCheckDate")+
              "\t"+RsQuery->FieldByName("PiecehChecker")+
              "\t"+RsQuery->FieldByName("PiecehUser1");
         sgPieceh->AddItem(ItemStr);
         RsQuery->MoveNext();
      }
      RsQuery->Close();
      delete RsQuery;
    }
    catch(Exception &e)
    {
       delete RsQuery;
       throw Exception(e.Message);
    }
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmVW_Pieceh::GetDetailQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    if(sgPieceh->RowCount < 2)
       return("");
    if(sgPieceh->Row == 0)
       return("");
    Selectstr="select "
            +AnsiString("PiecedLine, ")
            +AnsiString("PiecedWo, ")
            +AnsiString("PiecedProcess, ")
            +AnsiString("PiecedEmployee, ")
            +AnsiString("PiecedEmployeeName, ")
            +AnsiString("PiecedDType, ")
            +AnsiString("PiecedQty, ")
            +AnsiString("PiecedPrice, ")
            +AnsiString("PiecedDesc ");

    Fromstr=" from SDVW_Pieced ";
    Wherestr=" where PiecedCode='"+sgPieceh->Cells[0][sgPieceh->Row]+"'";
    Orderstr=" order by PiecedLine ";
    return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::FillGridWithDetail()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmVW_Pieced *VW_Pieced;
    sSql=GetDetailQueryStr();  //取Detail查询的SQL语句
    if(sSql=="")
       return;
    try
    {
      VW_Pieced=new TfrmVW_Pieced(this);
      int ARow=sgPieceh->Row;
      VW_Pieced->sePiecehCode->Text=sgPieceh->Cells[0][ARow];
      VW_Pieced->scPiecehFmonth->Text=sgPieceh->Cells[1][ARow];
      VW_Pieced->dePiecehDate->Text=sgPieceh->Cells[2][ARow];
      VW_Pieced->scPiecehShop->Text=sgPieceh->Cells[4][ARow];

      VW_Pieced->sgPieced->RowCount=1;
      RsQuery=NewResultSet();
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         ItemStr=  RsQuery->FieldByName("PiecedLine")+
              "\t"+RsQuery->FieldByName("PiecedWo")+
              "\t"+RsQuery->FieldByName("PiecedProcess")+
              "\t"+RsQuery->FieldByName("PiecedEmployee")+
              "\t"+RsQuery->FieldByName("PiecedEmployeeName")+
              "\t"+RsQuery->FieldByName("PiecedDType")+
              "\t"+RsQuery->FieldByName("PiecedQty")+
              "\t"+RsQuery->FieldByName("PiecedPrice")+
              "\t"+RsQuery->FieldByName("PiecedDesc");
       VW_Pieced->sgPieced->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
    if(VW_Pieced->sgPieced->RowCount > 1)
       VW_Pieced->ShowModal();
    }
    __finally
    {
       delete VW_Pieced;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::muFirstClick(TObject *Sender)
{
    if(sgPieceh->RowCount > 1)
      sgPieceh->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::muNextClick(TObject *Sender)
{
    if(sgPieceh->RowCount > 1 && sgPieceh->Row < sgPieceh->RowCount-1)
       sgPieceh->Row=sgPieceh->Row+1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::muLastClick(TObject *Sender)
{
    if(sgPieceh->RowCount > 1)
       sgPieceh->Row=sgPieceh->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::tbRefreshClick(TObject *Sender)
{
    if(sSQL=="")
       return;
    FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::sgPiecehDblClick(TObject *Sender)
{
    int ARow=sgPieceh->Row;
    if(ARow>0)
       FillGridWithDetail();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Pieceh::muPreviousClick(TObject *Sender)
{
    if(sgPieceh->RowCount > 1 && sgPieceh->Row > 1)
       sgPieceh->Row=sgPieceh->Row-1;
}
//---------------------------------------------------------------------------