fadm.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "Fadm.h"
#include "FadmF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmFadm *frmFadm;
//---------------------------------------------------------------------------
__fastcall TfrmFadm::TfrmFadm(TComponent* Owner)
        : TRecBaseForm(Owner,euSdFadm,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgFadm,sgFadm->Name);
    ClientGroup->AddComponent(2,false,false,false, seFadmCode,seFadmCode->Name);
    ClientGroup->AddComponent(2,true,false,true,seFadmVFormula,seFadmVFormula->Name);
    ClientGroup->AddComponent(2,true,false,true,seFadmRFormula,seFadmRFormula->Name);
    scFadmType->AddItems("折旧率","1");
    scFadmType->AddItems("折旧额","2");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFadm::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFadm::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
      seFadmCode->Text="";
      scFadmType->ItemIndex=-1;
      seFadmVFormula->Text="";
      seFadmName->Text   ="";
      seFadmRFormula->Text="";
      memFadmDesc->Text="";
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmFadm::GetDataFromComObject()
{
    seFadmCode->Text=GetFieldValue(fiFadmCode);
    sgFadm->LocateGrid(1,seFadmCode->Text);
    scFadmType->LocateKey(GetFieldValue(fiFadmType));
    scFadmType->Text=scFadmType->ItemData[0];
    seFadmVFormula->Text=GetFieldValue(fiFadmVFormula);
    seFadmName->Text=GetFieldValue(fiFadmName);
    seFadmRFormula->Text=GetFieldValue(fiFadmRFormula);
    memFadmDesc->Text=GetFieldValue(fiFadmDesc);

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::SendDataToComObject()
{
    if(scFadmType->Text.IsEmpty())
         throw(Exception("折旧方式不能为空！"));
    WriteFieldValue(comServer,fiFadmCode,seFadmCode->Text);
    WriteFieldValue(comServer,fiFadmType,scFadmType->ItemData[1]);
    WriteFieldValue(comServer,fiFadmVFormula,seFadmVFormula->Text);
    WriteFieldValue(comServer,fiFadmName,seFadmName->Text);
    WriteFieldValue(comServer,fiFadmRFormula,seFadmRFormula->Text);
    WriteFieldValue(comServer,fiFadmDesc,memFadmDesc->Text);

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::WaitUserInput()
{
    seFadmCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFadm::GetDataToGrid()
{
    AnsiString  s;
    scFadmType->LocateKey(GetFieldValue(fiFadmType));
    s = "\t" + GetFieldValue(fiFadmCode)+
        "\t" + GetFieldValue(fiFadmName)+
        "\t" + scFadmType->ItemData[0];
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr = GetDataToGrid();
    if (mAction ==  0)   //Add
    {
        sgFadm->AddItem(ItemStr);
    }
    else if(mAction ==  1)   //Modify
    {
        int i   =   sgFadm->Row;
        sgFadm->RemoveItem(i);
        sgFadm->AddItem(ItemStr,i);
    }
    else if(mAction ==  2)      //Delete
    {
        sgFadm->RemoveItem(sgFadm->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgFadm->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =  GetDataToGrid();
        sgFadm->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
    tbEditHead->Enabled=false;               
    tbDeleteHead->Enabled=false;
    tbAddHead->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFadm::scFadmTypeClick(TObject *Sender)
{
     if(scFadmType->Text=="折旧额")
     {
       seFadmVFormula->Enabled=true;
       seFadmRFormula->Enabled=false;
       seFadmRFormula->Text="";
     }
     else
     {
       seFadmRFormula->Enabled=true;
       seFadmVFormula->Enabled=false;
       seFadmVFormula->Text="";
     }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::muEditDetailClick(TObject *Sender)
{
     int i;
     TRecBaseForm::muEditDetailClick(Sender);
     if(scFadmType->Text=="折旧额")
     {
       seFadmVFormula->Enabled=true;
       seFadmRFormula->Enabled=false;
       seFadmRFormula->Text="";
     }
     else
     {
       seFadmRFormula->Enabled=true;
       seFadmVFormula->Enabled=false;
       seFadmVFormula->Text="";
     }

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::seFadmVFormulaButtonClick(TObject *Sender)
{
      TfrmFadmF *TempFadmVF= new TfrmFadmF(this,seFadmVFormula->Text);
      TempFadmVF->GroupBox1->Caption="折旧额公式";
      TempFadmVF->Caption="折旧额公式";
      TempFadmVF->ShowModal();
      if(TempFadmVF->FadmFSure)
        seFadmVFormula->Text=TempFadmVF->FadmFResult;
      delete  TempFadmVF;

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

void __fastcall TfrmFadm::seFadmRFormulaButtonClick(TObject *Sender)
{
      TfrmFadmF *TempFadmRF= new TfrmFadmF(this,seFadmRFormula->Text);
      TempFadmRF->GroupBox1->Caption="折旧率公式";
      TempFadmRF->Caption="折旧率公式";
      TempFadmRF->ShowModal();
      if(TempFadmRF->FadmFSure)
        seFadmRFormula->Text=TempFadmRF->FadmFResult;
      delete  TempFadmRF;
}
//---------------------------------------------------------------------------

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

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

void __fastcall TfrmFadm::sgFadmClick(TObject *Sender)
{
     if (sgFadm->Row > 0)
         comServer->LocateByKey(sgFadm->TextMatrix[sgFadm->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();
    if(sgFadm->Row<5)
    {
      tbEditHead->Enabled=false;
      tbDeleteHead->Enabled=false;
    }
    else
    {
      tbEditHead->Enabled=true;
      tbDeleteHead->Enabled=true;
    }

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