discard.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Discard.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmDiscard *frmDiscard;
//---------------------------------------------------------------------------
__fastcall TfrmDiscard::TfrmDiscard(TComponent* Owner)
        : TRecBaseForm(Owner,euSdDiscard,"")
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmDiscard::GetFieldValue(int iFieldIndex)
{
     AnsiString S;
     S=ReadFieldValue(comServer,iFieldIndex);
     return S;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmDiscard::GetDataToGrid()
{
     AnsiString s;
     s  =  "\t" +GetFieldValue(fiDiscardCode)+
           "\t" +GetFieldValue(fiDiscardDesc);

     return (s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDiscard::InitEditControl()
{
     ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
//     ClientGroup->AddComponent(2,false,false,false, seDiscardCode,seDiscardCode->Name);
     ClientGroup->AddComponent(2,true,true,false, sgDiscard,sgDiscard->Name);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDiscard::ClearControl(bool BringToNext)
{
     if (!BringToNext)
       EmptyAll(FloatPanel1);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDiscard::WaitUserInput()
{
     seDiscardCode->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmDiscard::GetDataFromComObject()

{
   seDiscardCode->Text=GetFieldValue(fiDiscardCode);
   sgDiscard->LocateGrid(1,GetFieldValue(fiDiscardCode));
   memDiscardDesc->Text=GetFieldValue(fiDiscardDesc);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDiscard::SendDataToComObject()
{
   WriteFieldValue(comServer,fiDiscardCode,seDiscardCode->Text);
   WriteFieldValue(comServer,fiDiscardDesc,memDiscardDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDiscard::RefreshGridData(int mAction)
{
     AnsiString sGridItem;
      sGridItem=GetDataToGrid();
      int i;
      switch(mAction)
      {
        case 0:     //新增
           sgDiscard->AddItem(sGridItem);
           break;
        case 1:     //修改
            i  =  sgDiscard->Row;
            sgDiscard->ChangeItem(sGridItem,i);
            break;
        case 2:     //删除
           sgDiscard->RemoveItem(sgDiscard->Row);
      } ;
}
//---------------------------------------------------------------------------
void __fastcall TfrmDiscard::FillGridWithData()
{
     AnsiString ItemStr;
     comServer->MoveFirst();
     sgDiscard->RowCount = 1;
     while (comServer->Eof == 0)
     {
        ItemStr = GetDataToGrid();
        sgDiscard->AddItem(ItemStr);
        comServer->MoveNext();
     }
}
//---------------------------------------------------------------------------


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

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

void __fastcall TfrmDiscard::sgDiscardClick(TObject *Sender)
{
        int ARow=sgDiscard->Row;
        if (ARow  >  0)
           comServer->LocateByKey(WideString(sgDiscard->TextMatrix[ARow][1]));
        if (!comServer->Eof)
           GetDataFromComObject();
}
//---------------------------------------------------------------------------


void __fastcall TfrmDiscard::seDiscardCodeExit(TObject *Sender)
{
    if(CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seDiscardCode->Text));
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------