faae.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "FaAe.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmFaAe *frmFaAe;
//---------------------------------------------------------------------------
__fastcall TfrmFaAe::TfrmFaAe(TComponent* Owner,AnsiString m_Fadn,AnsiString m_FadnName)
        : TRecBaseForm(Owner,euSdFaAe,"")
{
    seFaAePFadn->Text=m_Fadn;
    seFaAePFadnName->Text=m_FadnName;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false, seFaAePFadn,seFaAePFadn->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,true, FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(2,true,true,false, sgFaAe,sgFaAe->Name);
    FillEdit(seFaAeCode,"select FADNCODE,FADNNAME from sdfadn order By FADNCODE","FADNCODE","FADNNAME");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaAe::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
       seFaAeCode->Text      ="";         //附属设备编码
       seFaAeCodeName->Text  ="";         //附属设备名称
       memFaAeDesc->Text      ="";         //备注
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::GetDataFromComObject()
{
    seFaAeCode->LocateKey(GetFieldValue(fiFaAeCode));
    seFaAeCode->Text=seFaAeCode->ItemData[0];
    seFaAeCodeName->Text=seFaAeCode->ItemData[1];
    memFaAeDesc->Text=GetFieldValue(fiFaAeDesc);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::SendDataToComObject()
{
    WriteFieldValue(comServer,fiFaAeCode,seFaAeCode->Text);
    WriteFieldValue(comServer,fiFaAePFadn,seFaAePFadn->Text);
    WriteFieldValue(comServer,fiFaAeDesc,memFaAeDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::WaitUserInput()
{
   seFaAeCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaAe::GetDataToGrid()
{
    AnsiString  s;
    seFaAeCode->LocateKey(GetFieldValue(fiFaAeCode));
    s = "\t" + GetFieldValue(fiFaAeCode) +
        "\t" +seFaAeCode->ItemData[1];
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
        sgFaAe->AddItem(ItemStr);
    }
    // 修改
    else if(mAction == 1)
    {
        int i = sgFaAe->Row;
        sgFaAe->RemoveItem(i);
        sgFaAe->AddItem(ItemStr,i);
    }
    // 删除    0
    else if(mAction ==  2)
    {
        sgFaAe->RemoveItem(sgFaAe->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgFaAe->RowCount  = 1;
    while(comServer->Eof == 0)
    {
        ItemStr=GetDataToGrid();
        sgFaAe->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::FormShow(TObject *Sender)
{
    comServer->FilterString =  " FAAEPFADN = '" + seFaAePFadn->Text + "'";
    comServer->Query();
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::RefreshUpdateData(int MsgSrc,int MsgType)
{
      if(MsgSrc==euSdFadn)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
          FillEdit(seFaAeCode,"select FADNCODE,FADNNAME from sdfadn order By FADNCODE","FADNCODE","FADNNAME");
      }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::seFaAeCodeButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="002[设备编码][设备名称]select fadncode, fadnname from sdfadn where  (fadndec=0 and fadndiscard=0) order by fadncode ";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"设备查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
     seFaAeCode->Text=p->ColData[1];
     seFaAeCodeName->Text=p->ColData[2];
    }
    delete p;

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaAe::sgFaAeClick(TObject *Sender)
{
   if (sgFaAe->Row > 0)
       comServer->LocateByKey(sgFaAe->TextMatrix[sgFaAe->Row][1]+seFaAePFadn->Text);
   if (!comServer->Eof)
      GetDataFromComObject();

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

void __fastcall TfrmFaAe::seFaAeCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFaAeCode->Text+seFaAePFadn->Text);
      GetDataFromComObject();
    }
   if(Key==13 && CurrentState!=caNormal)
    {
      TComResultSet *TResultSet=NewResultSet();
      AnsiString SQL="select fadncode, fadnname from sdfadn";
      SQL+="  where  (fadndec=0 and fadndiscard=0) and fadncode='"+seFaAeCode->Text+"'order by fadncode ";
      try
      {
       TResultSet->Close();
       TResultSet->Open(SQL,"");
       if(TResultSet->RecordCount<1)
        throw  Exception("设备编码"+seFaAeCode->Text+"'不存在或已减少、报废");
       seFaAeCodeName->Text=TResultSet->FieldByName("fadnname");
       TResultSet->Close();
      }
      __finally
      {
       delete TResultSet;
      }
    }

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