qdl.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "Qdl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmQdl *frmQdl;
//---------------------------------------------------------------------------
__fastcall TfrmQdl::TfrmQdl(TComponent* Owner)
        : TRecBaseForm(Owner,euSdQdl,"")
{
}
AnsiString __fastcall TfrmQdl::GetFieldValue(int FieldIndex)
{
     return this->comServer->FieldValue[FieldIndex];
}
AnsiString __fastcall TfrmQdl::GetDataToGrid()
{
    AnsiString Str;

     Str = "\t"+this->comServer->FieldValue[fiQdlCode]+"\t"+
            this->comServer->FieldValue[fiQdlName];

     return Str;

}
void __fastcall TfrmQdl::ClearControl(bool BringToNext)
{
     if(!BringToNext)
     {
         seQdlCode->Text = "";
         seQdlName->Text = "";
         seQdlDesc->Text = "";
     }

}
void __fastcall TfrmQdl::GetDataFromComObject()
{
     seQdlCode->Text = this->comServer->FieldValue[fiQdlCode];
     seQdlName->Text = this->comServer->FieldValue[fiQdlName];
     seQdlDesc->Text = this->comServer->FieldValue[fiQdlDesc];
     sgQdl->LocateGrid(1,seQdlCode->Text);
}
void __fastcall TfrmQdl::SendDataToComObject()
{
     this->comServer->FieldValue[fiQdlCode] = seQdlCode->Text;
     this->comServer->FieldValue[fiQdlName] = seQdlName->Text;
     this->comServer->FieldValue[fiQdlDesc] = seQdlDesc->Text;
}
void __fastcall TfrmQdl::WaitUserInput()
{
     seQdlCode->SetFocus();
}
void __fastcall TfrmQdl::RefreshGridData(int mAction)
{
     AnsiString Str;
     Str = GetDataToGrid();
     if(mAction==0) //--add item
     {
         sgQdl->AddItem(Str);
     }else if(mAction==1) //--modify item
     {
        sgQdl->ChangeItem(Str,sgQdl->Row);
     }else if(mAction==2) //--delete item
     {
         sgQdl->RemoveItem(sgQdl->Row);
     }
     sgQdl->LocateGrid(1,seQdlCode->Text);
}
void __fastcall TfrmQdl::FillGridWithData()
{
     sgQdl->RowCount = 1;
     comServer->MoveFirst();
     while(comServer->Eof == 0)
     {
         sgQdl->AddItem(GetDataToGrid());
         comServer->MoveNext();
     }
     comServer->MoveFirst();
     GetDataFromComObject();

}
void __fastcall TfrmQdl::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false,
                sgQdl,sgQdl->Name);
    ClientGroup->AddComponent(2,false,false,false,
                seQdlCode,seQdlCode->Name);
    ClientGroup->AddComponent(2,false,false,true,
                seQdlName,seQdlName->Name);
    ClientGroup->AddComponent(2,false,false,true,
                seQdlDesc,seQdlDesc->Name);

}
void __fastcall TfrmQdl::RefreshUpdateData(int MsgSrc,int MsgType)
{
}

//---------------------------------------------------------------------------
void __fastcall TfrmQdl::FormShow(TObject *Sender)
{
    comServer->Query();
    FillGridWithData();

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

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

}
//---------------------------------------------------------------------------
void __fastcall TfrmQdl::seQdlCodeKeyPress(TObject *Sender, char &Key)
{
     if(Key == '\0' && CurrentState == caNormal)
     {
       sgQdl->LocateGrid(1, seQdlCode->Text);
       sgQdlClick(Sender);
     }

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