equc.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 261 行

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

#include <vcl.h>
#pragma hdrstop

#include "Equc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "SDGrid"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmEquc *frmEquc;
//---------------------------------------------------------------------------
__fastcall TfrmEquc::TfrmEquc(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seEqucGoods->Text      =   "";
      seEqucGoodsName->Text  =   "";
      seEqucValue->Text      =   "0";
//      scEqucUser->LocateKey(g_sdUserCode);
      scEqucUser->Text=g_sdUserCode;
      labEqucSysDate->Caption ="";
     }

}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::GetDataFromComObject()
{
  //  g_sdRsGoods->LocateByKey(GetFieldValue("EqucGoods"));
      seEqucGoods->Text=GetFieldValue("EqucGoods");
      if(InitRsGoods(WideString(Trim(seEqucGoods->Text)))) //输入无效编码
        {
         seEqucGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
        }
        else
        {
         seEqucGoodsName->Text="";
        }

    sgEquc->LocateGrid(1,seEqucGoods->Text);

    seEqucValue->Text        =   GetFieldValue("EqucValue");
//    scEqucUser->LocateKey(GetFieldValue("EqucUser"));
    scEqucUser->Text         =  GetFieldValue("EqucUser");
    labEqucSysDate->Caption   =   GetFieldValue("EqucSysDate");
 }

//---------------------------------------------------------------------------
void __fastcall TfrmEquc::SendDataToComObject()
{
    SetFieldValue("EqucGoods",seEqucGoods->Text);
    SetFieldValue("EqucProcess",scEqucProcess->ItemData[0]);
    SetFieldValue("EqucValue",seEqucValue->Text);
//    SetFieldValue("EqucUser",scEqucUser->ItemData[1]);
    SetFieldValue("EqucUser",scEqucUser->Text);

}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::WaitUserInput()
{
  seEqucGoods->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmEquc::GetDataToGrid()
{
    AnsiString  s;
    s = "\t" + GetFieldValue("EqucGoods") +
        "\t" + GetFieldValue("EqucValue");
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
        sgEquc->AddItem(ItemStr);
    }
    // 修改
    else if(mAction == 1)
    {
        int i = sgEquc->Row;
        sgEquc->RemoveItem(i);
        sgEquc->AddItem(ItemStr,i);
    }
    // 删除
    else if(mAction ==  2)
    {
        sgEquc->RemoveItem(sgEquc->Row);
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgEquc->RowCount  = 1;

    while(comServer->Eof == 0)
    {
        ItemStr=GetDataToGrid();
        sgEquc->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, scEqucProcess,scEqucProcess->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgEquc,sgEquc->Name);
    ClientGroup->AddComponent(2,true,true,true,scEqucUser,scEqucUser->Name);
//    FillComboBox(Query,scEqucUser,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
    FillComboBox(Query,scEqucProcess,"SELECT PROCESSCODE,PROCESSNAME FROM sdProcess","PROCESSCODE","PROCESSNAME");
}
//---------------------------------------------------------------------------

void __fastcall TfrmEquc::scEqucProcessClick(TObject *Sender)
{
    AnsiString s;
    s = scEqucProcess->Text;
    if(s.IsEmpty())
      return;
    if(LastEqucProcess==s)
      return;
    LastEqucProcess=s;
    scEqucProcess->LocateKey(scEqucProcess->Text);
    seEqucProcessName->Text=scEqucProcess->ItemData[1];
    if(scEqucProcess->ItemIndex==-1)
    {
      MessageDlg("工序编码 "+scEqucProcess->Text+"不存在",mtWarning,TMsgDlgButtons()<<mbOK,0);
      scEqucProcess->LocateKey(LastEqucProcess);
    }
    else
    {
      s = " EQUCPROCESS = '" + s + "'";
      comServer->FilterString = s;
      comServer->Query();
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();
     }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::seEqucGoodsButtonClick(TObject *Sender)
{
   AnsiString SqlStr;
  /*   TfrmWnQuery *p;
    SqlStr="002[物料编码][物料名称]select goodscode ,goodsname ";
    SqlStr+=" from  sdgoods where ( goodstype='1' or goodstype='2')  order by goodscode";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"物料查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seEqucGoods->Text=p->ColData[1];
      seEqucGoodsName->Text=p->ColData[2];
    }
    delete p;    */
    SqlStr=" goodstype='1' or goodstype='2' "   ;
    if(OpenGoodsForm(SqlStr)) //过滤条件
    {
      seEqucGoods->Text=GetGoodsValue(gtOpenForm,"GoodsCode");
      seEqucGoodsName->Text=GetGoodsValue(gtOpenForm,"GoodsName");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmEquc::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
      switch(MsgSrc)
      {
        case euSdProcess:
          if(ShowUpdateMessage(MsgSrc,MsgType))
            FillComboBox(Query,scEqucProcess,"SELECT PROCESSCODE,PROCESSNAME FROM sdProcess","PROCESSCODE","PROCESSNAME");
         break;
        case euSdUser:
          if(ShowUpdateMessage(MsgSrc,MsgType))
             FillComboBox(Query,scEqucUser,"select UserCode,UserName from sdUser order By UserCode","UserName","UserCode");
         break;
       default:
          break;
      }
*/
}
//---------------------------------------------------------------------------

void __fastcall TfrmEquc::seEqucGoodsKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 )
    {
      TComResultSet *TResultSet=new  TComResultSet(Handle,g_ClientHandle);
      AnsiString strSQL;
      strSQL="SELECT * FROM sdGoods  where ( goodstype='1' or goodstype='2') and GOODSCODE='"+seEqucGoods->Text+"'";
      try
      {
       TResultSet->Close();
       TResultSet->Open(strSQL,"");
       if(TResultSet->RecordCount<1)
         throw  Exception("物料"+seEqucGoods->Text+"'不存在或不是成品、半成品");
       seEqucGoodsName->Text=TResultSet->FieldByName("GoodsName");
       TResultSet->Close();
       }
       __finally
       {
          delete TResultSet;
       }
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmEquc::sgEqucClick(TObject *Sender)
{
   if (sgEquc->Row > 0)
       comServer->LocateByKey(sgEquc->TextMatrix[sgEquc->Row][1]+"\t"+scEqucProcess->Text+"\t");
   if (!comServer->Eof)
      GetDataFromComObject();

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

void __fastcall TfrmEquc::FormShow(TObject *Sender)
{
      scEqucProcess->LocateKey(scEqucProcess->Text);
      seEqucProcessName->Text=scEqucProcess->ItemData[1];
      comServer->FilterString = " EQUCPROCESS = '" +scEqucProcess->Text + "'";
      comServer->Query();
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();

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

void __fastcall TfrmEquc::FormClose(TObject *Sender, TCloseAction &Action)
{
 //  delete g_sdRsGoods;
   TRecBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------