gccr.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "Gccr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmGccr *frmGccr;
//---------------------------------------------------------------------------
__fastcall TfrmGccr::TfrmGccr(TComponent* Owner)
        : TRecBaseForm(Owner,euSdGccr,"")
{
}
AnsiString __fastcall TfrmGccr::GetFieldValue(int FieldIndex)
{
     return ReadFieldValue(comServer,FieldIndex);
}
AnsiString __fastcall TfrmGccr::GetDataToGrid()
{
     AnsiString Str;

     Str = "\t"+GetFieldValue(fiGccrCode)+"\t"+
            GetFieldValue(fiGccrName);

     return Str;

}
void __fastcall TfrmGccr::ClearControl(bool BringToNext)
{
     if(!BringToNext)
     {
         seGccrCode->Text = "";
         seGccrName->Text = "";
         seGccrDesc->Text = "";
     }

}
void __fastcall TfrmGccr::GetDataFromComObject()
{
     seGccrCode->Text = GetFieldValue(fiGccrCode);
     seGccrName->Text = GetFieldValue(fiGccrName);
     seGccrDesc->Text = GetFieldValue(fiGccrDesc);
     sgGccr->LocateGrid(1,seGccrCode->Text);
}
void __fastcall TfrmGccr::SendDataToComObject()
{
     WriteFieldValue(comServer,fiGccrCode,WideString(seGccrCode->Text));
     WriteFieldValue(comServer,fiGccrName,WideString(seGccrName->Text));
     WriteFieldValue(comServer,fiGccrDesc,WideString(seGccrDesc->Text));

}
void __fastcall TfrmGccr::WaitUserInput()
{
     seGccrCode->SetFocus();
}
void __fastcall TfrmGccr::RefreshGridData(int mAction)
{
     AnsiString Str;
     Str = GetDataToGrid();
     if(mAction==0) //--add item
     {
         sgGccr->AddItem(Str);
     }else if(mAction==1) //--modify item
     {
         sgGccr->ChangeItem(Str,sgGccr->Row);
     }else if(mAction==2) //--delete item
     {
         sgGccr->RemoveItem(sgGccr->Row);
     }
     sgGccr->LocateGrid(1,seGccrCode->Text);
}
void __fastcall TfrmGccr::FillGridWithData()
{
     sgGccr->RowCount = 1;
     comServer->MoveFirst();
     while(comServer->Eof == 0)
     {
         sgGccr->AddItem(GetDataToGrid());
         comServer->MoveNext();
     }
     comServer->MoveFirst();
     GetDataFromComObject();

}
void __fastcall TfrmGccr::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false,
                sgGccr,sgGccr->Name);
//    ClientGroup->AddComponent(2,false,false,false,seGccrCode,seGccrCode->Name);
    ClientGroup->AddComponent(2,false,false,true,
                seGccrName,seGccrName->Name);
    ClientGroup->AddComponent(2,false,false,true,
                seGccrDesc,seGccrDesc->Name);

}
void __fastcall TfrmGccr::RefreshUpdateData(int MsgSrc,int MsgType)
{
}

//---------------------------------------------------------------------------
void __fastcall TfrmGccr::sgGccrClick(TObject *Sender)
{
    if (sgGccr->Row > 0)
         comServer->LocateByKey(WideString(sgGccr->TextMatrix[sgGccr->Row][1]));
    if (!comServer->Eof)
         GetDataFromComObject();

}
//---------------------------------------------------------------------------
void __fastcall TfrmGccr::FormShow(TObject *Sender)
{
    comServer->Query();
    FillGridWithData();

}
//---------------------------------------------------------------------------
void __fastcall TfrmGccr::seGccrCodeExit(TObject *Sender)
{
     if(CurrentState == caNormal)
     {
       sgGccr->LocateGrid(1, seGccrCode->Text);
       sgGccrClick(Sender);
     }
}
//---------------------------------------------------------------------------