wagecopy.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 126 行

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

#include <vcl.h>
#pragma hdrstop

#include "WageCopy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDGrid"
#pragma link "ListBaseForm"
#pragma resource "*.dfm"
TfrmWageCopy *frmWageCopy;
//---------------------------------------------------------------------------
__fastcall TfrmWageCopy::TfrmWageCopy(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TListBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   FillComboBox(Handle,scFmonth,"select FcMonth from sdfc ","FcMonth");
}
__fastcall TfrmWageCopy::TfrmWageCopy(TComponent* Owner)
        : TListBaseForm(Owner)
{
   FillComboBox(Handle,scFmonth,"select FcMonth from sdfc ","FcMonth");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmWageCopy::GetDataToGrid()
{
    AnsiString  s;

    s   =   "\t" + GetHeadValue("WageEmployee")+"\t" + GetHeadValue("WageSum")+
            "\t" + GetHeadValue("WageFix")+"\t" + GetHeadValue("WageBorus")+
            "\t" + GetHeadValue("WageAnce")+"\t" + GetHeadValue("WageOther")+
            "\t" + GetHeadValue("WagePiece")+"\t" + GetHeadValue("WageLab")+
            "\t" + GetHeadValue("WageTax");

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