wagecopy.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "WageCopy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecListForm"
#pragma link "SDComboBox"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmWageCopy *frmWageCopy;
//---------------------------------------------------------------------------
__fastcall TfrmWageCopy::TfrmWageCopy(TComponent* Owner)
        : TRecListForm(Owner,euSdWage,"")
{
   FillComboBox(scFmonth,"select FcMonth from sdfc ","FcMonth");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmWageCopy::GetDataToGrid()
{
    AnsiString  s;

    s   =   "\t" + GetFieldValue(fiWageEmployee)+"\t" + GetFieldValue(fiWageSum)+
            "\t" + GetFieldValue(fiWageFix)+"\t" + GetFieldValue(fiWageBorus)+
            "\t" + GetFieldValue(fiWageAnce)+"\t" + GetFieldValue(fiWageOther)+
            "\t" + GetFieldValue(fiWagePiece)+"\t" + GetFieldValue(fiWageLab)+
            "\t" + GetFieldValue(fiWageTax);

    return(s);
}
void __fastcall TfrmWageCopy::GetDataFromComObject()
{
}
AnsiString __fastcall TfrmWageCopy::GetFieldValue(int FieldIndex)
{
    WideString S;
    S   =   ReadFieldValue(comServer,FieldIndex);
    return(S);
}
void __fastcall TfrmWageCopy::RefreshGridData(int mAction)
{
    AnsiString ItemStr;

    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
        sgWage->AddItem(ItemStr);
    }
    // 修改
    else if(mAction ==  1)
    {
        int i   =   sgWage->Row;
        sgWage->RemoveItem(i);
        sgWage->AddItem(ItemStr,i);
        sgWage->Row=i;
    }
    // 删除
    else if(mAction ==  2)
    {
        sgWage->RemoveItem(sgWage->Row);
    }
}
void __fastcall TfrmWageCopy::FillGridWithData()
{
    AnsiString ItemStr;

    comServer->MoveFirst();
    sgWage->RowCount =  1;
    while (comServer->Eof == 0)
    {
        ItemStr =  GetDataToGrid();
        sgWage->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
void __fastcall TfrmWageCopy::InitEditControl()
{
}
void __fastcall TfrmWageCopy::scFmonthClick(TObject *Sender)
{
 if(scFmonth->LocateKey(scFmonth->Text))
   {
    if(scFmonth->Text!=FmonthValue)
     {
      comServer->FilterString=WideString("WageFmonth='"+scFmonth->Text+"'");
      comServer->Query();
      FillGridWithData();
      FmonthValue=scFmonth->Text;
     }
  }
 else
 scFmonth->Text=FmonthValue;

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


void __fastcall TfrmWageCopy::SetFmonthValue(AnsiString value)
{
        if(FFmonthValue != value) {
                FFmonthValue = value;
        }
}

AnsiString __fastcall TfrmWageCopy::GetFmonthValue()
{
        return FFmonthValue;
}
void __fastcall TfrmWageCopy::sgWageDblClick(TObject *Sender)
{
if(sgWage->Row>0)
{
 ModalResult=mrOk;
 btnOK->Click();
 }
}
//---------------------------------------------------------------------------

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