vw_gmth.cpp

速达开源ERP系统

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

TfrmVW_Gmth *frmVW_Gmth;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Gmth::TfrmVW_Gmth(TComponent* Owner)
    : TQueryBaseForm(Owner)
{
    FilterStr="";
    sSQL="";
    RecentBillCode="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::tbQueryClick(TObject *Sender)
{
    if(!ShowQueryWindow())
       return;
    try{
       StartWaitForm("正在查询,请稍候...");
       FillGridWithData();
    }
    __finally
    {
      EndWaitForm();
    }
}
//---------------------------------------------------------------------------
bool __fastcall TfrmVW_Gmth::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_Gmth::ClearControl(bool BringToNext)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::GetDataFromComObject()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::WaitUserInput()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::RefreshGridData(int mAction)
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::DisplayBill()
{
    return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::GetBill(AnsiString BillID)
{
    return;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmVW_Gmth::GetHeadQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    Selectstr="select Distinct "
            +AnsiString("GmthCode, ")
            +AnsiString("GmthFmonth, ")
            +AnsiString("GmthDate, ")
            +AnsiString("GmthType1, ")
            +AnsiString("GmthPosType, ")
            +AnsiString("GmthWoCode, ")
            +AnsiString("GmthDept1, ")
            +AnsiString("GmthCheck1, ")
            +AnsiString("GmthChecker, ")
            +AnsiString("GmthCheckDate, ")
            +AnsiString("GmthUser1, ")
            +AnsiString("GmthDesc ");

    Fromstr=" from SDVW_Gmth ";
    if(FilterStr=="")
       Wherestr="";
    else
       Wherestr=" where "+FilterStr;
    Orderstr=" order by GmthDate desc,GmthCode desc ";
    sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
    return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::FillGridWithData()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    sSql=GetHeadQueryStr();  //取Head查询的SQL语句
    if(sSql=="")
       return;
    sgGmth->RowCount=1;
    RecentBillCode="";
    RsQuery=NewResultSet();
    RsQuery->Open(sSql,"");
    RsQuery->MoveFirst();
    while( RsQuery->Eof == 0)
    {
       ItemStr=  RsQuery->FieldByName("GmthCode")+
            "\t"+RsQuery->FieldByName("GmthFmonth")+
            "\t"+RsQuery->FieldByName("GmthDate")+
            "\t"+RsQuery->FieldByName("GmthType1")+
            "\t"+RsQuery->FieldByName("GmthPosType")+
            "\t"+RsQuery->FieldByName("GmthWoCode")+
            "\t"+RsQuery->FieldByName("GmthDept1")+
            "\t"+RsQuery->FieldByName("GmthCheck1")+
            "\t"+RsQuery->FieldByName("GmthCheckDate")+
            "\t"+RsQuery->FieldByName("GmthChecker")+
            "\t"+RsQuery->FieldByName("GmthUser1")+
            "\t"+RsQuery->FieldByName("GmthDesc");
       sgGmth->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmVW_Gmth::GetDetailQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    if(sgGmth->RowCount < 2)
       return("");
    if(sgGmth->Row == 0)
       return("");
    Selectstr="select "
            +AnsiString("GmtdLine, ")
            +AnsiString("GmtdProcess, ")
            +AnsiString("GmtdGoods, ")
            +AnsiString("GmtdUnit, ")
            +AnsiString("GmtdQty, ")
            +AnsiString("GmtdDQty, ")
            +AnsiString("GmtdDLoc, ")
            +AnsiString("GmtdSLoc, ")
            +AnsiString("GmtdBatch, ")
            +AnsiString("GmtdDesc ");

    Fromstr=" from SDVW_Gmtd ";
    Wherestr=" where GmtdCode='"+sgGmth->Cells[0][sgGmth->Row]+"'";
    Orderstr=" order by GmtdLine ";
    return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::FillGridWithDetail()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmVW_Gmtd *VW_Gmtd;
    sSql=GetDetailQueryStr();  //取Detail查询的SQL语句
    if(sSql=="")
       return;
    try
    {
      VW_Gmtd=new TfrmVW_Gmtd(this);
      int ARow=sgGmth->Row;
      VW_Gmtd->seGmthCode->Text=sgGmth->Cells[0][ARow];
      VW_Gmtd->scGmthFmonth->Text=sgGmth->Cells[1][ARow];
      VW_Gmtd->deGmthDate->Text=sgGmth->Cells[2][ARow];
      VW_Gmtd->scGmthType->Text=sgGmth->Cells[3][ARow];
      VW_Gmtd->scGmthWoCode->Text=sgGmth->Cells[5][ARow];

      VW_Gmtd->sgGmtd->RowCount=1;
      RsQuery=NewResultSet();
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         ItemStr=  RsQuery->FieldByName("GmtdLine")+
              "\t"+RsQuery->FieldByName("GmtdProcess")+
              "\t"+RsQuery->FieldByName("GmtdGoods")+
              "\t"+RsQuery->FieldByName("GmtdUnit")+
              "\t"+RsQuery->FieldByName("GmtdQty")+
              "\t"+RsQuery->FieldByName("GmtdDQty")+
              "\t"+RsQuery->FieldByName("GmtdDLoc")+
              "\t"+RsQuery->FieldByName("GmtdSLoc")+
              "\t"+RsQuery->FieldByName("GmtdBatch")+
              "\t"+RsQuery->FieldByName("GmtdDesc");
       VW_Gmtd->sgGmtd->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
    if(VW_Gmtd->sgGmtd->RowCount > 1)
       VW_Gmtd->ShowModal();
    }
    __finally
    {
       delete VW_Gmtd;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::muFirstClick(TObject *Sender)
{
    if(sgGmth->RowCount > 1)
      sgGmth->Row=1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::muNextClick(TObject *Sender)
{
    if(sgGmth->RowCount > 1 && sgGmth->Row < sgGmth->RowCount-1)
       sgGmth->Row=sgGmth->Row+1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::muLastClick(TObject *Sender)
{
    if(sgGmth->RowCount > 1)
       sgGmth->Row=sgGmth->RowCount-1;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::tbRefreshClick(TObject *Sender)
{
    if(sSQL=="")
       return;
    FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::sgGmthDblClick(TObject *Sender)
{
    int ARow=sgGmth->Row;
    if(ARow>0)
       FillGridWithDetail();
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Gmth::muPreviousClick(TObject *Sender)
{
    if(sgGmth->RowCount > 1 && sgGmth->Row > 1)
       sgGmth->Row=sgGmth->Row-1;
}
//---------------------------------------------------------------------------