wmd.cpp

来自「速达开源ERP系统」· C++ 代码 · 共 51 行

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Wmd.h"
#include "gvar.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmWmd *frmWmd;
//---------------------------------------------------------------------------
__fastcall TfrmWmd::TfrmWmd(TComponent* Owner)
    : TStdBaseForm(Owner)
{

}
//---------------------------------------------------------------------------
__fastcall TfrmWmd::TfrmWmd(TComponent* Owner,AnsiString WmdWo,AnsiString WmdProcess)
    : TStdBaseForm(Owner)
{
  AnsiString SqlStr,ItemStr;
  TComResultSet *RsWmd;
  SqlStr="select WmdGoods,GoodsName,WmdUnit,WmdQty,WmdUQty,WmdBQty,WmdLQty from sdWmd,sdGoods where WmdGoods=GoodsCode and WmdWoCode='"+WmdWo+"' and WmdProcess='"+WmdProcess+"' order by WmdGoods";
  seWmdWoCode->Text=WmdWo;
  seWmdProcess->Text=WmdProcess;
  GroupBox1->Enabled=false;
  RsWmd=NewResultSet();
  RsWmd->Open(SqlStr,"");
  RsWmd->MoveFirst();
  sgWmd->RowCount=1;
  while(RsWmd->Eof==0)
  {
    ItemStr = RsWmd->FieldByName("WmdGoods")+
              "\t" +RsWmd->FieldByName("Goodsname")+
              "\t" +RsWmd->FieldByName("WmdUnit")+
              "\t" +RsWmd->FieldByName("WmdQty")+
              "\t" +RsWmd->FieldByName("WmdUQty")+
              "\t" +RsWmd->FieldByName("WmdBQty")+
              "\t" +RsWmd->FieldByName("WmdLQty");
    sgWmd->AddItem(ItemStr);
    RsWmd->MoveNext();
  }
  RsWmd->Close();
  delete RsWmd;
}
//---------------------------------------------------------------------------