trreason.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 133 行

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

#include <vcl.h>
#pragma hdrstop

#include "TrReason.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmTrReason *frmTrReason;
//---------------------------------------------------------------------------
__fastcall TfrmTrReason::TfrmTrReason(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TfrmTrReason::InitEditControl()
{
     ClientGroup->AddComponent(2,true,true,false,sgTrReason,sgTrReason->Name);
     ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
//     ClientGroup->AddComponent(2,false,false,false,seTrReasonCode,seTrReasonCode->Name);
}
//-----------------------------------------------------------------------------
void __fastcall TfrmTrReason::WaitUserInput()
{
     seTrReasonCode->SetFocus();
}
//-----------------------------------------------------------------------------
void __fastcall TfrmTrReason::ClearControl(bool BringToNext)
{
    if(!BringToNext)
      EmptyAll(FloatPanel1);
}
//-----------------------------------------------------------------------------
void __fastcall TfrmTrReason::GetDataFromComObject()
{
   seTrReasonCode->Text=GetFieldValue("TrReasonCode");
   sgTrReason->LocateGrid(1,GetFieldValue("TrReasonCode"));
   memTrReasonDesc->Text=GetFieldValue("TrReasonDesc");
}
//-----------------------------------------------------------------------------
void __fastcall TfrmTrReason::SendDataToComObject()
{
   SetFieldValue("TrReasonCode",seTrReasonCode->Text);
   SetFieldValue("TrReasonDesc",memTrReasonDesc->Text);
}
//-----------------------------------------------------------------------------
void __fastcall TfrmTrReason::RefreshGridData(int mAction)
{

      AnsiString sGridItem;
      sGridItem=GetDataToGrid();
      int i;
      switch(mAction)
      {
        case 0:     //新增
            sgTrReason->AddItem(sGridItem);
            break;
        case 1:     //修改
            i = sgTrReason->Row;
            sgTrReason->ChangeItem(sGridItem,i);
            break;
        case 2:     //删除
            sgTrReason->RemoveItem(sgTrReason->Row);
      }
}
//-----------------------------------------------------------------------------
AnsiString  __fastcall TfrmTrReason::GetDataToGrid()
{
     AnsiString s;
     s = "\t" +GetFieldValue("TrReasonCode")+
         "\t" +GetFieldValue("TrReasonDesc");
     return (s);
}
//-----------------------------------------------------------------------------
void __fastcall TfrmTrReason::FillGridWithData()
{
     AnsiString ItemStr;
     comServer->MoveFirst();
     sgTrReason->RowCount  = 1;
     while (comServer->Eof == 0)
    {
        ItemStr = GetDataToGrid();
        sgTrReason->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//-----------------------------------------------------------------------------


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

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

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


void __fastcall TfrmTrReason::seTrReasonCodeExit(TObject *Sender)
{
    if(CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seTrReasonCode->Text));
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------