qcway.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "QcWay.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmQcWay *frmQcWay;
//---------------------------------------------------------------------------
__fastcall TfrmQcWay::TfrmQcWay(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
AnsiString __fastcall TfrmQcWay::GetDataToGrid()
{
     AnsiString Str;

     Str = "\t"+this->comServer->FieldValue["QcWayCode"]+"\t"+
            this->comServer->FieldValue["QcWayName"];

     return Str;

}
void __fastcall TfrmQcWay::ClearControl(bool BringToNext)
{
     if(!BringToNext)
     {
         seQcWayCode->Text = "";
         seQcWayName->Text = "";
         seQcWayDesc->Text = "";
     }

}
void __fastcall TfrmQcWay::GetDataFromComObject()
{
     seQcWayCode->Text = this->comServer->FieldValue["QcWayCode"];
     seQcWayName->Text = this->comServer->FieldValue["QcWayName"];
     seQcWayDesc->Text = this->comServer->FieldValue["QcWayDesc"];
     sgQcWay->LocateGrid(1,seQcWayCode->Text);
}
void __fastcall TfrmQcWay::SendDataToComObject()
{
     this->comServer->FieldValue["QcWayCode"] = seQcWayCode->Text;
     this->comServer->FieldValue["QcWayName"] = seQcWayName->Text;
     this->comServer->FieldValue["QcWayDesc"] = seQcWayDesc->Text;
}
void __fastcall TfrmQcWay::WaitUserInput()
{
     seQcWayCode->SetFocus();
}
void __fastcall TfrmQcWay::RefreshGridData(int mAction)
{
     AnsiString Str;
     Str = GetDataToGrid();
     if(mAction==0) //--add item
     {
         sgQcWay->AddItem(Str);
     }else if(mAction==1) //--modify item
     {
        sgQcWay->ChangeItem(Str,sgQcWay->Row);
     }else if(mAction==2) //--delete item
     {
         sgQcWay->RemoveItem(sgQcWay->Row);
     }
     sgQcWay->LocateGrid(1,seQcWayCode->Text);
}
void __fastcall TfrmQcWay::FillGridWithData()
{
     sgQcWay->RowCount = 1;
     comServer->MoveFirst();
     while(comServer->Eof == 0)
     {
         sgQcWay->AddItem(GetDataToGrid());
         comServer->MoveNext();
     }
     comServer->MoveFirst();
     GetDataFromComObject();

}
void __fastcall TfrmQcWay::InitEditControl()
{
    ClientGroup->AddComponent(2,true,true,false,
                sgQcWay,sgQcWay->Name);
    ClientGroup->AddComponent(2,false,false,false,
                seQcWayCode,seQcWayCode->Name);
    ClientGroup->AddComponent(2,false,false,true,
                seQcWayName,seQcWayName->Name);
    ClientGroup->AddComponent(2,false,false,true,
                seQcWayDesc,seQcWayDesc->Name);

}
void __fastcall TfrmQcWay::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmQcWay::sgQcWayClick(TObject *Sender)
{
    if (sgQcWay->Row > 0)
         comServer->LocateByKey(WideString(sgQcWay->TextMatrix[sgQcWay->Row][1]));
    if (!comServer->Eof)
         GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmQcWay::FormShow(TObject *Sender)
{

    FillGridWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmQcWay::seQcWayCodeKeyPress(TObject *Sender, char &Key)
{
     if(Key == '\0' && CurrentState == caNormal)
     {
       sgQcWay->LocateGrid(1, seQcWayCode->Text);
       sgQcWayClick(Sender);
     }
}
//---------------------------------------------------------------------------