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, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
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");
}
//---------------------------------------------------------------------------
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("FadmCode");
    sgFadm->LocateGrid(1,seFadmCode->Text);
    scFadmType->LocateKey(GetFieldValue("FadmType"));
    scFadmType->Text=scFadmType->ItemData[0];
    seFadmVFormula->Text=GetFieldValue("FadmVFormula");
    seFadmName->Text=GetFieldValue("FadmName");
    seFadmRFormula->Text=GetFieldValue("FadmRFormula");
    memFadmDesc->Text=GetFieldValue("FadmDesc");

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::SendDataToComObject()
{
    if(scFadmType->Text.IsEmpty())
         throw(Exception("折旧方式不能为空！"));
    SetFieldValue("FadmCode",seFadmCode->Text);
    SetFieldValue("FadmType",scFadmType->ItemData[1]);
    SetFieldValue("FadmVFormula",seFadmVFormula->Text);
    SetFieldValue("FadmName",seFadmName->Text);
    SetFieldValue("FadmRFormula",seFadmRFormula->Text);
    SetFieldValue("FadmDesc",memFadmDesc->Text);

}
//---------------------------------------------------------------------------
void __fastcall TfrmFadm::WaitUserInput()
{
    seFadmCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFadm::GetDataToGrid()
{
    AnsiString  s;
    scFadmType->LocateKey(GetFieldValue("FadmType"));
    s = "\t" + GetFieldValue("FadmCode")+
        "\t" + GetFieldValue("FadmName")+
        "\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();
}
//---------------------------------------------------------------------------

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();
}
//---------------------------------------------------------------------------