expense.cpp

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

//---------------------------------------------------------------------------
#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;
//---------------------------------------------------------------------------
__fastcall TfrmExpense::TfrmExpense(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    /*
    g_sdRsGlkm=new TComResultSet(Handle,g_ClientHandle);
    g_sdRsGlkm->Open("select * from sdGlkm order by GlkmCode","Glkmcode");
    */
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seExpenseCode->Text="";
      seExpenseName->Text="";
      memExpenseDesc->Text="";
      scExpenseType->ItemIndex=0;
      seExpenseGlKm->Text="";
      rbExpenseGlDir0->Checked=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::GetDataFromComObject()
{
  seExpenseCode->Text=GetFieldValue("ExpenseCode");
    sgExpense->LocateGrid(1,seExpenseCode->Text);
 seExpenseName->Text=GetFieldValue("ExpenseName");
  memExpenseDesc->Text=GetFieldValue("ExpenseDesc");
  scExpenseType->LocateKey(GetFieldValue("ExpenseType"));
    scExpenseType->Text=scExpenseType->ItemData[0];
  seExpenseGlKm->Text=GetFieldValue("ExpenseGlKm");
  if(GetFieldValue("ExpenseKmDir") == "1")
        rbExpenseGlDir0->Checked=true;
    else
        rbExpenseGlDir1->Checked=true;
 }
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::SendDataToComObject()
{
    SetFieldValue("ExpenseCode",seExpenseCode->Text);
    SetFieldValue("ExpenseName",seExpenseName->Text);
    SetFieldValue("ExpenseDesc",memExpenseDesc->Text);
    SetFieldValue("ExpenseType",scExpenseType->ItemData[1]);
    SetFieldValue("ExpenseGlKm",seExpenseGlKm->Text);
    SetFieldValue("ExpenseKmDir",rbExpenseGlDir0->Checked?"1":"-1");
}
//---------------------------------------------------------------------------

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

   s = "\t" + GetFieldValue("ExpenseCode") +
       "\t" + GetFieldValue("ExpenseName") ;
    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");
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmExpense::seExpenseGlKmButtonClick(TObject *Sender)
{
    if(OpenGlkmForm())
    {
        seExpenseGlKm->Text=GetGlkmValue(gtOpenForm, "GlkmCode");
        if(GetGlkmValue(gtOpenForm, "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();

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

void __fastcall TfrmExpense::FormClose(TObject *Sender,TCloseAction &Action)
{
   //delete g_sdRsGlkm;
   TRecBaseForm::FormClose(Sender,Action);        
}
//---------------------------------------------------------------------------