transmode.cpp

速达开源ERP系统

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

TfrmTransMode *frmTransMode;

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

void __fastcall TfrmTransMode::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seTransModeCode->Text       =   "";
      seTransModeName->Text       =   "";
      seTransModeGlKm->Text       =   "";
      rbTransModeGlDir0->Checked  =   true;
      cbTransModeCharge->Checked  =   false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::GetDataFromComObject()
{
    seTransModeCode->Text = GetFieldValue(fiTransModeCode);
    sgTransMode->LocateGrid(1,seTransModeCode->Text);
    seTransModeName->Text = GetFieldValue(fiTransModeName);
    cbTransModeCharge->Checked = (GetFieldValue(fiTransModeCharge) == "1");
    if(cbTransModeCharge->Checked)
    {
      GroupBox1->Visible=true;
      seTransModeGlKm->Text = GetFieldValue(fiTransModeGlKm);
      if(GetFieldValue(fiTransModeKmDir) == "1")
         rbTransModeGlDir0->Checked  =   true;
      else
         rbTransModeGlDir1->Checked  =   true;
    }
    else
    {
     GroupBox1->Visible=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmTransMode::SendDataToComObject()
{
    WriteFieldValue(comServer,fiTransModeCode,seTransModeCode->Text);
    WriteFieldValue(comServer,fiTransModeName,seTransModeName->Text);
    WriteFieldValue(comServer,fiTransModeCharge,cbTransModeCharge->Checked?"1":"0");
    WriteFieldValue(comServer,fiTransModeGlKm,seTransModeGlKm->Text);
    WriteFieldValue(comServer,fiTransModeKmDir,rbTransModeGlDir0->Checked?"1":"0");
}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::WaitUserInput()
{
    seTransModeCode->SetFocus();
}
//---------------------------------------------------------------------------

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

    s = "\t" + GetFieldValue(fiTransModeCode) +
        "\t" + GetFieldValue(fiTransModeName) +
        "\t" +(GetFieldValue(fiTransModeCharge) == "1"?"是":"否");
    return(s);
}
//---------------------------------------------------------------------------

void __fastcall TfrmTransMode::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr =   GetDataToGrid();
    // 新增
    if (mAction ==  0)
    {
        sgTransMode->AddItem(ItemStr);
    }
    // 修改
    else if(mAction ==  1)
    {
        int i   =   sgTransMode->Row;
        sgTransMode->RemoveItem(i);
        sgTransMode->AddItem(ItemStr,i);
    }
    // 删除
    else if(mAction ==  2)
    {
        sgTransMode->RemoveItem(sgTransMode->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgTransMode->RowCount    =   1;
    while (comServer->Eof   ==  0)
    {
        ItemStr =   GetDataToGrid();
        sgTransMode->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmTransMode::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false,sgTransMode,sgTransMode->Name);
    ClientGroup->AddComponent(2,false,false,false,seTransModeCode,seTransModeCode->Name);
}
//---------------------------------------------------------------------------

__fastcall TfrmTransMode::TfrmTransMode(TComponent* Owner)
    : TRecBaseForm(Owner,euSdTransMode,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::cheChargeClick(TObject *Sender)
{
    if(cbTransModeCharge->Checked)
    {
    GroupBox1->Visible=true;
    }
    else
    {
    GroupBox1->Visible=false;
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::seTransModeGlKmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
     seTransModeGlKm->Text=GetGlkmValue("GLKMCODE");
      if(GetGlkmValue("GLKMDIR") == "1")
         rbTransModeGlDir0->Checked  =   true;
      else
         rbTransModeGlDir1->Checked  =   true;
   }      
}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::seTransModeCodeKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seTransModeCode->Text);
      GetDataFromComObject();
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmTransMode::sgTransModeClick(TObject *Sender)
{
    if (sgTransMode->Row  > 0)
         comServer->LocateByKey(sgTransMode->TextMatrix[sgTransMode->Row][1]);
    if (!comServer->Eof)
         GetDataFromComObject();

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