sr.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "sr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmSr *frmSr;
//---------------------------------------------------------------------------
__fastcall TfrmSr::TfrmSr(TComponent* Owner)
        : TRecBaseForm(Owner,euSdSr,"")
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmSr::GetFieldValue(int iFieldIndex)
{
        AnsiString S;
        S=ReadFieldValue(comServer,iFieldIndex);
        return S;

}
AnsiString __fastcall TfrmSr::GetDataToGrid()
{
     AnsiString s;
       s   =   "\t" +GetFieldValue(fiSrCode)    +
               "\t" +GetFieldValue(fiSrDesc);

     return (s);
}
//------------------------------------------------------------------------------
void __fastcall TfrmSr::InitEditControl()
{

     ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
//     ClientGroup->AddComponent(2,false,false,false, seSrCode,seSrCode->Name);
     ClientGroup->AddComponent(2,true,true,false, sgSr,sgSr->Name);


}
//------------------------------------------------------------------------------
void __fastcall TfrmSr::ClearControl(bool BringToNext)
{
   if (!BringToNext)
     EmptyAll(FloatPanel1);


}
//------------------------------------------------------------------------------
void __fastcall TfrmSr::WaitUserInput()
{

   seSrCode->SetFocus();

}

//------------------------------------------------------------------------------
void __fastcall TfrmSr::GetDataFromComObject()

{

   seSrCode->Text=GetFieldValue(fiSrCode);
   sgSr->LocateGrid(1,GetFieldValue(fiSrCode));
   memSrDesc->Text=GetFieldValue(fiSrDesc);

}

//------------------------------------------------------------------------------
void __fastcall TfrmSr::SendDataToComObject()
{

   WriteFieldValue(comServer,fiSrCode,seSrCode->Text);
   WriteFieldValue(comServer,fiSrDesc,memSrDesc->Text);

}

//------------------------------------------------------------------------------
void __fastcall TfrmSr::RefreshGridData(int mAction)
{

       AnsiString sGridItem;
       sGridItem=GetDataToGrid();
      int i;
      switch(mAction)
      {
        case 0:     //新增
           sgSr->AddItem(sGridItem);
           break;
        case 1:  //修改
            i   =   sgSr->Row;
            sgSr->ChangeItem(sGridItem,i);
            break;
        case 2:  //删除
           sgSr->RemoveItem(sgSr->Row);
      } ;
}
//-------------------------------------------------------
void __fastcall TfrmSr::FillGridWithData()
{
     AnsiString ItemStr;
     comServer->MoveFirst();
     sgSr->RowCount    =   1;
     while (comServer->Eof   ==  0)
    {
        ItemStr = GetDataToGrid();
        sgSr->AddItem(ItemStr);
        comServer->MoveNext();
    }


}


void __fastcall TfrmSr::FormShow(TObject *Sender)
{
           FillGridWithData();
          comServer->MoveFirst();
          GetDataFromComObject();
}
//---------------------------------------------------------------------------

void __fastcall TfrmSr::sgSrClick(TObject *Sender)
{
        int ARow=sgSr->Row;
        if (ARow    >   0)
             comServer->LocateByKey(WideString(sgSr->TextMatrix[ARow][1]));
        if (!comServer->Eof)
            GetDataFromComObject();

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


void __fastcall TfrmSr::seSrCodeExit(TObject *Sender)
{
    if(CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seSrCode->Text));
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------