trade.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Trade.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmTrade *frmTrade;
__fastcall TfrmTrade::TfrmTrade(TComponent* Owner)
    : TRecBaseForm(Owner,euSdTrade,"")
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmTrade::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------
void __fastcall TfrmTrade::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seTradeCode->Text = "";
      seTradeName->Text = "";
      memTradeDesc->Text = "";
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmTrade::GetDataFromComObject()
{
    seTradeCode->Text=GetFieldValue(fiTradeCode);
    sgTrade->LocateGrid(1,seTradeCode->Text);
    seTradeName->Text=GetFieldValue(fiTradeName);
    memTradeDesc->Text=GetFieldValue(fiTradeDesc);
}
//---------------------------------------------------------------------------
void __fastcall TfrmTrade::SendDataToComObject()
{
    WriteFieldValue(comServer,fiTradeCode,seTradeCode->Text);
    WriteFieldValue(comServer,fiTradeName,seTradeName->Text);
    WriteFieldValue(comServer,fiTradeDesc,memTradeDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmTrade::WaitUserInput()
{
    seTradeCode->SetFocus();
}
//---------------------------------------------------------------------------

AnsiString __fastcall TfrmTrade::GetDataToGrid()
{
    AnsiString  s;

    s = "\t" + GetFieldValue(fiTradeCode)+
        "\t" + GetFieldValue(fiTradeName);
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmTrade::RefreshGridData(int mAction)
{
    AnsiString ItemStr;

    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
        sgTrade->AddItem(ItemStr);
    }
    // 修改
    else if(mAction ==  1)
    {
        int i   =   sgTrade->Row;
        sgTrade->RemoveItem(i);
        sgTrade->AddItem(ItemStr,i);
    }
    // 删除
    else if(mAction ==  2)
    {
        sgTrade->RemoveItem(sgTrade->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmTrade::FillGridWithData()
{
    AnsiString ItemStr;

    comServer->MoveFirst();
    sgTrade->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr = GetDataToGrid();
        sgTrade->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmTrade::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgTrade,sgTrade->Name);
    ClientGroup->AddComponent(2,false,false,false,seTradeCode,seTradeCode->Name);
}
//---------------------------------------------------------------------------

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

void __fastcall TfrmTrade::seTradeCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seTradeCode->Text);
      GetDataFromComObject();
    }

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

void __fastcall TfrmTrade::sgTradeClick(TObject *Sender)
{
    if (sgTrade->Row>0)
         comServer->LocateByKey(sgTrade->TextMatrix[sgTrade->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

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