wageitemfr.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "WageItemFr.h"
#include "Calc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "StdBaseForm"
#pragma resource "*.dfm"
TfrmWageItemFr *frmWageItemFr;
//---------------------------------------------------------------------------
__fastcall TfrmWageItemFr::TfrmWageItemFr(TComponent* Owner,AnsiString FadmF )
        : TStdBaseForm(Owner)
{
    m_FadmFResult="";
     m_WageItemCodeFr="";
  /*  m_FiItem[0].Name="原值";
    m_FiItem[1].Name="总工作量";
    m_FiItem[2].Name="本期工作量";
    m_FiItem[3].Name="使用期限";
    m_FiItem[4].Name="累计使用期限";
    m_FiItem[5].Name="预计净残值";
    m_FiItem[6].Name="清理费用";
    m_FiItem[7].Name="入帐前累计折旧";
    m_FiItem[8].Name="入帐前累计工作量";
    m_FiItem[9].Name="入帐前累计使用期限";
    for(int i=0;i<=9;i++)
    {
     m_FiItem[i].Numb=0.00;
  */
  TComResultSet *ItemSet=new TComResultSet(Handle,g_ClientHandle);
  ItemSet->Open("select WageItemName from KsWageItem","");
   ItemSet->MoveFirst();
   int i=0;
   while(!ItemSet->Eof)
    {
     ListItem->Items->Strings[i]=ItemSet->FieldByName("WageItemName");
     ItemSet->MoveNext();
     i++;
    }
   ItemSet->Close();
    delete   ItemSet;
    memFormula->Text=FadmF;

}
//---------------------------------------------------------------------------
void __fastcall TfrmWageItemFr::btOkClick(TObject *Sender)
{
 /*  Expression = new TExpression();
   Expression->OnIsVariable = IsVariable;
   Expression->OnGetValue = GetValue;
   double r;
   int i=Expression->ChangeExpression(memFormula->Text);
   if(i!=-1)
   {
    m_FadmFSure=false;
    throw Exception("公式定义错误,请从新定义!");
   }
   else
   {
    m_FadmFSure=true;
   */
    m_FadmFResult=memFormula->Text;
 /*
   }
   delete Expression;
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmWageItemFr::btCacelClick(TObject *Sender)
{
   m_FadmFSure=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmWageItemFr::ListItemDblClick(TObject *Sender)
{
   AnsiString ItemName;
   ItemName=ListItem->Items->Strings[ListItem->ItemIndex];
   seTempUse->Text=ListItem->Items->Strings[ListItem->ItemIndex];
   TComResultSet *WageItemSet=new TComResultSet(Handle,g_ClientHandle);
   AnsiString sqlstr;
   sqlstr="select WageItemCode from KsWageItem where WageItemName='"+ItemName+"'";
   WageItemSet->Open(sqlstr,"");
   WageItemSet->MoveFirst();
   m_WageItemCodeFr+=WageItemSet->FieldByName("WageItemCode");
   WageItemSet->Close();
   delete   WageItemSet;


   seTempUse->SelectAll();
   seTempUse->CopyToClipboard();
   memFormula->PasteFromClipboard();
   memFormula->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWageItemFr::btReSetClick(TObject *Sender)
{
    memFormula->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmWageItemFr::SpeedButtonClick(TObject *Sender)
{
    TSpeedButton *SpeedButton;
    SpeedButton=(TSpeedButton*)Sender;
    seTempUse->Text=SpeedButton->Caption;
     m_WageItemCodeFr+=seTempUse->Text;
    seTempUse->SelectAll();
    seTempUse->CopyToClipboard();
    memFormula->PasteFromClipboard();
    memFormula->SetFocus();
}
//---------------------------------------------------------------------------
/*
bool __fastcall TfrmWageItemFr::IsVariable(AnsiString Variable)
{
    for(int i=0;i<=6;i++)
    {
     if(m_FiItem[i].Name==Variable)
     return true;
    }
   return false;
}
//---------------------------------------------------------------------------
double __fastcall TfrmWageItemFr::GetValue(AnsiString Variable)
{
    for(int i=0;i<=6;i++)
    {
     if(m_FiItem[i].Name==Variable)
      return m_FiItem[i].Numb;
    }
    return 0.00;

}
//---------------------------------------------------------------------------
 */