vw_stock.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Stock.h"
#include "VW_Macc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "QueryBaseForm"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Stock *frmVW_Stock;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Stock::TfrmVW_Stock(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TQueryBaseForm(Owner,chWnd,MidCode,WhereStr)
{
 FilterStr="";
 sSQL="";
 sgStock->RowCount=1;
 QueryGrid=sgStock;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::tbQueryClick(TObject *Sender)
{
  if(!ShowQueryWindow())
    return;
  try{
    StartWaitForm("正在查询,请稍候...");
    FillGridWithData();
  }
  __finally
  {
    EndWaitForm();
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::ClearControl(bool BringToNext)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::GetDataFromComObject()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::WaitUserInput()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::RefreshGridData(int mAction)
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::DisplayBill()
{
 return;
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::GetBill(AnsiString BillID)
{
 return;
}
//---------------------------------------------------------------------------
//获取查询语句
AnsiString __fastcall TfrmVW_Stock::GetQueryStr()
{
 AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
 Selectstr =" select StockFmonth,StockGoodsCode Goods,StockBoyQty,StockBopQty,StockIopQty,StockSopQty,StockAoyQty,";
 Selectstr+=" StockIoyQty,StockSoyQty,StockPopQty,StockLopQty,StockDopQty,StockRopQty,StockFopQty ";
 Fromstr=" from SDVW_Stock ";
 if(FilterStr=="")
  Wherestr="";
 else
  Wherestr=" where "+FilterStr;
 Orderstr=" order by StockFmonth desc,StockGoodsCode";
 sSQL=Selectstr+Fromstr+Wherestr+Orderstr;
 return(sSQL);
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Stock::FillGridWithData()
{
 TComResultSet *RsQuery;
 AnsiString ItemStr,sSql;
 //获取查询语句
 sSql=GetQueryStr();
 if(sSql=="")
  return;
 sgStock->RowCount=1;
 RsQuery=new  TComResultSet(Handle,g_ClientHandle);
 RsQuery->Open(sSql,"");
 RsQuery->MoveFirst();
 while( RsQuery->Eof == 0)
 {
  ItemStr=     RsQuery->FieldByName("StockFmonth")+
          "\t"+RsQuery->FieldByName("Goods"      )+
          "\t"+RsQuery->FieldByName("StockBopQty")+
          "\t"+RsQuery->FieldByName("StockIopQty")+
          "\t"+RsQuery->FieldByName("StockSopQty")+
          "\t"+RsQuery->FieldByName("StockPopQty")+
          "\t"+RsQuery->FieldByName("StockLopQty")+
          "\t"+RsQuery->FieldByName("StockDopQty")+
          "\t"+RsQuery->FieldByName("StockRopQty")+
          "\t"+RsQuery->FieldByName("StockFopQty")+
          "\t"+RsQuery->FieldByName("StockBoyQty")+
          "\t"+RsQuery->FieldByName("StockIoyQty")+
          "\t"+RsQuery->FieldByName("StockSoyQty")+
          "\t"+RsQuery->FieldByName("StockAoyQty");
  sgStock->AddItem(ItemStr);
  RsQuery->MoveNext();
 }
 RsQuery->Close();
 delete RsQuery;
}
//---------------------------------------------------------------------------


void __fastcall TfrmVW_Stock::muFirstClick(TObject *Sender)
{
 if(sgStock->RowCount > 1)
  sgStock->Row=1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Stock::muPreviousClick(TObject *Sender)
{
 if(sgStock->RowCount > 1 && sgStock->Row > 1)
  sgStock->Row=sgStock->Row-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Stock::muNextClick(TObject *Sender)
{
 if(sgStock->RowCount > 1 && sgStock->Row < sgStock->RowCount-1)
  sgStock->Row=sgStock->Row+1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Stock::muLastClick(TObject *Sender)
{
 if(sgStock->RowCount > 1)
  sgStock->Row=sgStock->RowCount-1;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Stock::tbRefreshClick(TObject *Sender)
{
 if(sSQL=="")
  return;
 FillGridWithData();

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


void __fastcall TfrmVW_Stock::sgStockDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp;
 TForm *p;
 ARow=sgStock->Row;
 if(ARow < 1)
  return;
 try
 {
    StartWaitForm("正在启动台帐查询,请稍候...");
    stmp=" MaccFmonth='"+sgStock->Cells[0][ARow]+"'and MaccGoods='"+sgStock->Cells[1][ARow]+"'";
    (TfrmVW_Macc *)p=new TfrmVW_Macc(this,stmp);
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;

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