expense.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Expense.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"

TfrmExpense *frmExpense;
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmExpense::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seExpenseCode->Text     =  "";
      seExpenseName->Text     =  "";
      memExpenseDesc->Text    =  "";
      scExpenseType->ItemIndex =-1; 
      seExpenseGlKm->Text   =  "";
      rbExpenseGlDir0->Checked=  true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::GetDataFromComObject()
{
    seExpenseCode->Text     =   GetFieldValue(fiExpenseCode);
    sgExpense->LocateGrid(1,seExpenseCode->Text);
    seExpenseName->Text     =   GetFieldValue(fiExpenseName);
    memExpenseDesc->Text    =   GetFieldValue(fiExpenseDesc);
    scExpenseType->LocateKey(GetFieldValue(fiExpenseType));
    scExpenseType->Text     =   scExpenseType->ItemData[0];
    seExpenseGlKm->Text   =   GetFieldValue(fiExpenseGlKm);
    if(GetFieldValue(fiExpenseKmDir) == "1")
        rbExpenseGlDir0->Checked=true;
    else
        rbExpenseGlDir1->Checked=true;
 }
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::SendDataToComObject()
{
    WriteFieldValue(comServer,fiExpenseCode,seExpenseCode->Text);
    WriteFieldValue(comServer,fiExpenseName,seExpenseName->Text);
    WriteFieldValue(comServer,fiExpenseDesc,memExpenseDesc->Text);
    WriteFieldValue(comServer,fiExpenseType,scExpenseType->ItemData[1]);
    WriteFieldValue(comServer,fiExpenseGlKm,seExpenseGlKm->Text);
    WriteFieldValue(comServer,fiExpenseKmDir,rbExpenseGlDir0->Checked?"1":"-1");
}
//---------------------------------------------------------------------------

void __fastcall TfrmExpense::WaitUserInput()
{
    seExpenseCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmExpense::GetDataToGrid()
{
    AnsiString  s;

    s = "\t" + GetFieldValue(fiExpenseCode) +
        "\t" + GetFieldValue(fiExpenseName) ;
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::RefreshGridData(int mAction)
{
    AnsiString ItemStr;

    ItemStr =   GetDataToGrid();
    if (mAction == 0)      //Add
    {
        sgExpense->AddItem(ItemStr);
    }
    else if(mAction ==  1) //Edit
    {
        int i   =   sgExpense->Row;
        sgExpense->RemoveItem(i);
        sgExpense->AddItem(ItemStr,i);
    }
    else if(mAction ==  2) //Del
    {
        sgExpense->RemoveItem(sgExpense->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::FillGridWithData()
{
    AnsiString ItemStr;

    comServer->MoveFirst();
    sgExpense->RowCount = 1;

    while (comServer->Eof == 0)
    {
        ItemStr =  GetDataToGrid();
        sgExpense->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmExpense::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgExpense,sgExpense->Name);
    ClientGroup->AddComponent(2,false,false,false,seExpenseCode,seExpenseCode->Name);
    scExpenseType->AddItems("制造费用","1");
    scExpenseType->AddItems("销售费用","2");
    scExpenseType->AddItems("采购费用","3");
    scExpenseType->AddItems("管理费用","4");
    scExpenseType->AddItems("财务费用","5");
    scExpenseType->AddItems("其他费用","6");

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

__fastcall TfrmExpense::TfrmExpense(TComponent* Owner)
    : TRecBaseForm(Owner,euSdExpense,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::FormShow(TObject *Sender)
{

    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::seExpenseGlKmButtonClick(TObject *Sender)
{
    OpenGlkmQuery();
   if(QueryStatus==1)
    {
       seExpenseGlKm->Text=GetGlkmValue("GLKMCODE");
       if(GetGlkmValue("GLKMDIR") == "1")
         rbExpenseGlDir0->Checked=true;
       else
         rbExpenseGlDir1->Checked=true;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmExpense::seExpenseCodeKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seExpenseCode->Text);
      GetDataFromComObject();
    }

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

void __fastcall TfrmExpense::sgExpenseClick(TObject *Sender)
{
    if (sgExpense->Row    >   0)
         comServer->LocateByKey(sgExpense->TextMatrix[sgExpense->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

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