fadmf.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "FadmF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "StdBaseForm"
#pragma resource "*.dfm"
TfrmFadmF *frmFadmF;
//---------------------------------------------------------------------------
__fastcall TfrmFadmF::TfrmFadmF(TComponent* Owner,AnsiString FadmF )
        : TStdBaseForm(Owner)
{
    m_FadmFResult="";
    ListItem->Items->Strings[0]="原值";
    ListItem->Items->Strings[1]="预计净残值";
    ListItem->Items->Strings[2]="月折旧率";
    ListItem->Items->Strings[3]="月折旧额";
    ListItem->Items->Strings[4]="单位工作量折旧额";
    ListItem->Items->Strings[5]="总工作量";
    ListItem->Items->Strings[6]="本期工作量";
    ListItem->Items->Strings[7]="入帐前累计工作量";
    ListItem->Items->Strings[8]="使用期限";
    ListItem->Items->Strings[9]="累计使用期限";
    ListItem->Items->Strings[10]="入帐前累计使用期限";
    ListItem->Items->Strings[11]="预计清理费用";
    ListItem->Items->Strings[11]="累计折旧";
    memFormula->Text=FadmF;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadmF::btOkClick(TObject *Sender)
{
   m_FadmFSure=true;
   m_FadmFResult=memFormula->Text;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadmF::btCacelClick(TObject *Sender)
{
   m_FadmFSure=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmFadmF::ListItemDblClick(TObject *Sender)
{
   memFormula->Text=memFormula->Text+ListItem->Items->Strings[ListItem->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadmF::btReSetClick(TObject *Sender)
{
    memFormula->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmFadmF::SpeedButtonClick(TObject *Sender)
{
    TSpeedButton *SpeedButton;
    SpeedButton=(TSpeedButton*)Sender;
    memFormula->Text=memFormula->Text+SpeedButton->Caption;
}
//---------------------------------------------------------------------------