wsr.cpp

速达开源ERP系统

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

TfrmWsr *frmWsr;
//---------------------------------------------------------------------------
__fastcall TfrmWsr::TfrmWsr(TComponent* Owner)
        : TRecBaseForm(Owner,euSdWsr,"")
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmWsr::GetFieldValue(int iFieldIndex)
{
     return ReadFieldValue(comServer,iFieldIndex);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::SetFieldValue(int iFieldIndex,AnsiString sFieldValue)
{
    WriteFieldValue(comServer,iFieldIndex,sFieldValue);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmWsr::GetDataToGrid()
{
     AnsiString s;
     s  =  GetFieldValue(fiWsrCode)+
           "\t" +GetFieldValue(fiWsrDesc);
     return (s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::InitEditControl()
{
     ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
     ClientGroup->AddComponent(2,true,true,false, sgWsr,sgWsr->Name);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::ClearControl(bool BringToNext)
{
     if(!BringToNext)
       EmptyAll(FloatPanel1);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::WaitUserInput()
{
     seWsrCode->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::GetDataFromComObject()

{
    seWsrCode->Text=GetFieldValue(fiWsrCode);
    //MoveFirst,MovePrority,MoveNext,MoveLast
    sgWsr->LocateGrid(0,seWsrCode->Text);
    memWsrDesc->Text=GetFieldValue(fiWsrDesc);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::SendDataToComObject()
{
    SetFieldValue(fiWsrCode,seWsrCode->Text);
    SetFieldValue(fiWsrDesc,memWsrDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::RefreshGridData(int mAction)
{
      AnsiString sGridItem;
      sGridItem=GetDataToGrid();
      int i;
      switch(mAction)
      {
        case 0:     //新增
           sgWsr->AddItem(sGridItem);
           sgWsr->Row=sgWsr->RowCount-1;
           break;
        case 1:     //修改
            sgWsr->ChangeItem(sGridItem,sgWsr->Row);
            break;
        case 2:     //删除
           sgWsr->RemoveItem(sgWsr->Row);
      }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWsr::FillGridWithData()
{
     AnsiString ItemStr;
     comServer->MoveFirst();
     sgWsr->RowCount = 1;
     while (comServer->Eof == 0)
     {
        ItemStr = GetDataToGrid();
        sgWsr->AddItem(ItemStr);
        comServer->MoveNext();
     }
}
//---------------------------------------------------------------------------


void __fastcall TfrmWsr::FormShow(TObject *Sender)
{
    if(comServer->RecordCount>0)
    {
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();
    }
    else
    {
      ClearControl(false);
      sgWsr->RowCount=1;
    }
}
//---------------------------------------------------------------------------

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

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