wl.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Wl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmWl *frmWl;
//---------------------------------------------------------------------------
__fastcall TfrmWl::TfrmWl(TComponent* Owner)
        : TRecBaseForm(Owner,euSdWl,"")
{
  AutoCtl=seWlCode;
}
//---------------------------------------------------------------------------


AnsiString __fastcall TfrmWl::GetFieldValue(int FieldIndex)
{
  WideString S;
    S   =   ReadFieldValue(comServer,FieldIndex);
   return(S);
}


void __fastcall TfrmWl::ClearControl(bool BringToNext)
{
   // BringToNext为真时，不清空
   if(BringToNext)
       return;

        seWlCode->Text="";
        seWlDesc->Text="";
        seWlFix->Text="0";
        seWlBorus->Text="0";
        seWlAnce->Text="0";
        seWlOther->Text="0";
        LbWlSum->Caption="0";

}


void __fastcall TfrmWl::GetDataFromComObject()
{
        seWlCode->Text=GetFieldValue(fiWlCode);
        seWlDesc->Text=GetFieldValue(fiWlDesc);
        seWlFix->Text=GetFieldValue(fiWlFix);
        seWlBorus->Text=GetFieldValue(fiWlBorus);
        seWlAnce->Text=GetFieldValue(fiWlAnce);
        seWlOther->Text=GetFieldValue(fiWlOther);
        LbWlSum->Caption=GetFieldValue(fiWlSum);
        sgWl->LocateGrid(1,seWlCode->Text);         

}


void __fastcall TfrmWl::SendDataToComObject()
{
        WriteFieldValue(comServer,fiWlCode,seWlCode->Text);
        WriteFieldValue(comServer,fiWlDesc,seWlDesc->Text);
        WriteFieldValue(comServer,fiWlFix,seWlFix->Text);
        WriteFieldValue(comServer,fiWlBorus,seWlBorus->Text);
        WriteFieldValue(comServer,fiWlAnce,seWlAnce->Text);
        WriteFieldValue(comServer,fiWlOther,seWlOther->Text);
    //  WriteFieldValue(comServer,fiWlSum,LbWlSum->Caption);

}


void __fastcall TfrmWl::WaitUserInput()
{
    if(seWlCode->Enabled)
    seWlCode->SetFocus();
}


AnsiString __fastcall TfrmWl::GetDataToGrid()
{
   AnsiString  s;

    s   =   "\t" + GetFieldValue(fiWlCode)+"\t" +
           GetFieldValue(fiWlFix)+"\t" + GetFieldValue(fiWlBorus)+"\t" +
           GetFieldValue(fiWlAnce)+"\t" + GetFieldValue(fiWlOther)+"\t" +
           GetFieldValue(fiWlSum);
      return(s);
}


void __fastcall TfrmWl::RefreshGridData(int mAction)
{
   AnsiString ItemStr;

   ItemStr=GetDataToGrid();

   if(mAction==0)
   {
    sgWl->AddItem(ItemStr);
    sgWl->Row=sgWl->RowCount-1;
    }
   else if(mAction==1)
   {
    sgWl->ChangeItem(ItemStr,sgWl->Row);
   }
   else if(mAction==2)
   {
     sgWl->RemoveItem(sgWl->Row);
   }
}


void __fastcall TfrmWl::FillGridWithData()
{
    AnsiString ItemStr;

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

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


void __fastcall TfrmWl::InitEditControl()
{
     ClientGroup->AddComponent(2,true,true,false, sgWl,sgWl->Name);
     ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
}
void __fastcall TfrmWl::FormShow(TObject *Sender)
{
    FillGridWithData();
    ClearControl(false);
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------

void __fastcall TfrmWl::seWlFixExit(TObject *Sender)
{
  if(seWlFix->Text.IsEmpty())
     seWlFix->Text="0";
   WriteFieldValue(comServer,fiWlFix,WideString(seWlFix->Text));
   LbWlSum->Caption=GetFieldValue(fiWlSum);

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

void __fastcall TfrmWl::seWlBorusExit(TObject *Sender)
{
  if(seWlBorus->Text.IsEmpty())
     seWlBorus->Text="0";
   WriteFieldValue(comServer,fiWlBorus,WideString(seWlBorus->Text));
   LbWlSum->Caption=GetFieldValue(fiWlSum);

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

void __fastcall TfrmWl::seWlAnceExit(TObject *Sender)
{
  if(seWlAnce->Text.IsEmpty())
     seWlAnce->Text="0";
   WriteFieldValue(comServer,fiWlAnce,WideString(seWlAnce->Text));
   LbWlSum->Caption=GetFieldValue(fiWlSum);

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

void __fastcall TfrmWl::seWlOtherExit(TObject *Sender)
{
  if(seWlOther->Text.IsEmpty())
     seWlOther->Text="0";
   WriteFieldValue(comServer,fiWlOther,WideString(seWlOther->Text));
   LbWlSum->Caption=GetFieldValue(fiWlSum);

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

void __fastcall TfrmWl::sgWlClick(TObject *Sender)
{
    if (sgWl->Row    >   0)
         comServer->LocateByKey(WideString(sgWl->TextMatrix[sgWl->Row][1]));
    if (!comServer->Eof)
         GetDataFromComObject();

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