wmd.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Wmd.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, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TStdBaseForm(Owner,chWnd,MidCode,"")
{
  int iPos;
  iPos=WhereStr.Pos("\t");
  FWmdWoCode=WhereStr.SubString(1,iPos-1);
  FWmdProcess=WhereStr.SubString(iPos+1,WhereStr.Length());

  AnsiString SqlStr,ItemStr;
  TComResultSet *RsWmd;
  SqlStr="select WmdGoods,GoodsName,WmdUnit,WmdQty,WmdUQty,WmdBQty,WmdLQty from sdWmd,sdGoods where WmdGoods=GoodsCode and WmdWoCode='"+FWmdWoCode+"' and WmdProcess='"+FWmdProcess+"' order by WmdGoods";
  seWmdWoCode->Text=FWmdWoCode;
  seWmdProcess->Text=FWmdProcess;
  GroupBox1->Enabled=false;
  RsWmd=new  TComResultSet(Handle,g_ClientHandle);
  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;
}
//---------------------------------------------------------------------------