psr.cpp

科思ERP部分源码及控件

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

TfrmPsr *frmPsr;
//---------------------------------------------------------------------------
__fastcall TfrmPsr::TfrmPsr(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPsr::GetDataToGrid()
{
     AnsiString s;
     s = GetFieldValue("PsrCode")+
         "\t" +GetFieldValue("PsrDesc");
     return (s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::InitEditControl()
{
     ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
     ClientGroup->AddComponent(2,true,true,false, sgPsr,sgPsr->Name);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::ClearControl(bool BringToNext)
{
    if(!BringToNext)
      EmptyAll(FloatPanel1);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::WaitUserInput()
{
     sePsrCode->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::GetDataFromComObject()

{
    sePsrCode->Text=GetFieldValue("PsrCode");
    //MoveFirst,MovePrority,MoveNext,MoveLast
    sgPsr->LocateGrid(0,sePsrCode->Text);
    memPsrDesc->Text=GetFieldValue("PsrDesc");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::SendDataToComObject()
{
    SetFieldValue("PsrCode",sePsrCode->Text);
    SetFieldValue("PsrDesc",memPsrDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::RefreshGridData(int mAction)
{
    AnsiString sGridItem;
    sGridItem=GetDataToGrid();
    int i;
    switch(mAction)
    {
      case 0:     //新增
         sgPsr->AddItem(sGridItem);
         sgPsr->Row=sgPsr->RowCount-1;
         break;
      case 1:     //修改
          sgPsr->ChangeItem(sGridItem,sgPsr->Row);
          break;
      case 2:     //删除
         sgPsr->RemoveItem(sgPsr->Row);
    } ;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::FillGridWithData()
{
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgPsr->RowCount = 1;
    while (comServer->Eof == 0)
    {
      ItemStr = GetDataToGrid();
      sgPsr->AddItem(ItemStr);
      comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::FormShow(TObject *Sender)
{
    if(comServer->RecordCount>0){
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();
    }
    else
    {
      ClearControl(false);
      sgPsr->RowCount=1;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::FormClose(TObject *Sender,
      TCloseAction &Action)
{
      TRecBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPsr::sgPsrClick(TObject *Sender)
{
    int ARow;
    ARow=sgPsr->Row;
    if(ARow > 0)
       comServer->LocateByKey(WideString(sgPsr->TextMatrix[ARow][0]));
    if(!comServer->Eof)
       GetDataFromComObject();
}
//---------------------------------------------------------------------------